[讨论]求解一个asp webshell登陆口令的解密函数，帮帮忙！
议题作者：mika[EST]再测试俺那个web版的注入程序时，拿到一个站点。传了shell上去发现早有人捷足先登了，想登陆它的webshell发现密码是加密的，我不会解密，还请论坛里的高手们帮俺看看啊，加密函数如下：
[language=ASP]
Function Encode(strPass)
眼拙了..果然是海洋2006+
去看lake2的帖子吧. 可不可以给个详细点的，俺找不到啊 [url]http://blog.csdn.net/lake2/archive/2006/04/27/679774.aspx[/url]
不保证能全部解出来,有碰撞.
最后要说的是你的代码给的不全,少个IIF函数,ASP不自带. 哦，俺把缺的那个函数补上了，不过俺用那个解密函数解不了啊，怎么会事呢 哎，又忘了用的是他的号了，用就用了吧。
那个函数俺反复对照了一下，好象没什么差别为什么不行呢？
[language=ASP]
theStr = InputBox("输入加密后的字串")
If theStr <> "" Then
Call InputBox("请复制已经解密的字串",,UnEncode(theStr))
End If
Function UnEncode(str)
For i = 1 To Len(str)
theStr1 = Mid(str, i, 1)
If theStr1 = "C" Then
theStr1 = "7"
ElseIf theStr1 = "D" Then
theStr1 = "8"
ElseIf theStr1 = "E" Then
theStr1 = "9"
End If
StrPass2 = StrPass2 & theStr1
Next
StrPass3 = GetChr(StrPass2)
UnEncode = StrPass3
End Function
Function GetChr(str)
For i = 1 To Len(str)
ASCStr = Mid(str, i, 1)
MyStr = MyStr & ASCStr
If MyStr > 32 and MyStr < 127 Then
StrResult = StrResult & Chr(MyStr)
MyStr = ""
Else
If i = Len(str) Then
GetChr = "小虾无能，不能破解"
exit function
End If
End If
Next
GetChr = StrResult
End Function
[/language]
这是解密函数但是好像不管用啊？ [quote]引用第3楼jackal于2007-09-29 00:46发表的 :
不保证能全部解出来,有碰撞.
最后要说的是你的代码给的不全[/quote]
说了不是万能的,你把加密过后的放出来.. 默认密码是多少啊？俺估计是默认密码
页:
[1]