海洋顶端是很出名的 ASP 木马，我从红粉佳人版本开始就一直用它，也算是它的fans了，今年海洋顶端出了最新版本也是最后一个版本 —— 2006Plus。
身为fans，自然要拿来用用才是，初次使用感觉有了几个变化：界面变了，文件浏览不再是图标形式；所有动作改为POST方式提交；功能增加；……唉呀，赶紧打住，再写就变成广告了^_^
海洋顶端以往的各个版本密码都是明文存放的，这回 2006+ 专门有个 vbs 脚本用于加密密码。这几天闲得无聊，就来尝试分析一下它的加密方式。
加密密码的脚本是在 down 回来的 vbs 目录里面名为Encode.vbs的文件。先看代码，注释是我加的：
Dim theStr
theStr = InputBox("请输入要加密的字串")
If theStr <> "" Then
Call InputBox("请复制已经加密好的字串",,Encode(theStr))
End If
Function Encode(strPass)
Dim i, theStr, strTmp
’ for循环得到密码各个字符的ascii值，每位值都在0～9
For i = 1 To Len(strPass)
strTmp = Asc(Mid(strPass, i, 1))
theStr = theStr & Abs(strTmp)
Next
strPass = theStr
theStr = ""
’ 如果前面得到的值位数大于16就进入JoinCutStr函数处理，使之小于16
Do While Len(strPass) > 16
strPass = JoinCutStr(strPass)
Loop
’ 这个for循环处理每个字符，把7、8、9转为C、D、E，其余不变
For i = 1 To Len(strPass)
strTmp = CInt(Mid(strPass, i, 1))
strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)
theStr = theStr & strTmp
Next
Encode = theStr
End Function
’ JoinCutStr函数把奇数位和偶数位的ascii相加整除2得到新字符，取值在0～9
Function JoinCutStr(str)
Dim i, theStr
For i = 1 To Len(str)
If Len(str) - i = 0 Then Exit For
theStr = theStr & Chr(CInt((Asc(Mid(str, i, 1)) + Asc(Mid(str, i + 1, 1))) / 2))
i = i + 1
Next
JoinCutStr = theStr
End Function
’ VB的(a>b)?a:b
Function IIf(var, val1, val2)
If var = True Then
IIf = val1
Else
IIf = val2
End If
End Function
[1] [2] 下一页