|
朋友发过来一个大马让我看看，从功能上来看还真的不错，表扬一下，~呵呵自己无聊就看了一下。
因为代码段加密的比较多，我仅解压了几小段，大家可以根据我提供的代码将所有代码解压看看有没有其它后门。欢迎来讨论
作者blog 教程地址 有webshell打包下载
http://a1l.cn/article.asp?id=20292
作者代码部分用自定义代码加了密，其实ASP的加密都是没有意义的，因为解密函数就在同一个大马里。找到加密函数简单的写一个ASP解压，我们要看看他的原代码。
<%
Function ShiSanFun(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
ShiSanFun=ShiSanNewStr
End Function
data=ShiSanFun(request.form("x"))
if data="" then data=""
response.write "<form method='post'>"
response.write "<textarea name='x' cols='80' rows='30'>"
response.write data
response.write "</textarea>"
response.write "<input type='submit' name='Submit1' value=' 提交 '>"
response.write "<input type='reset' name='Submit32' value=' 重置 '>"
response.write "</form>"
%> |
[1] [2] 下一页 |
