分享
 
 
 

海洋顶端2006+密码编码分析

王朝html/css/js·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

海洋顶端2006+密码编码分析

海洋顶端2006+密码编码分析 海洋顶端是很出名的 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

算法不是很复杂,其主要思想是:先依次把每个字符取ascii值,得到的一串数字作为字符对待,如果位数大于16,则折半处理(把奇数位和偶数位的ascii相加整除2得到新字符串,得到的字符串位数为原来的一半),直至小等于16,然后把7、8、9分别替换为C、D、E得到最后结果。

似乎可以逆向,那就试试吧。

我们得到了密文,第一步,我们可以把密文中的C、D、E替换回去,也就是分别替换为7、8、9,然后我们得到一串数字组成的字符串。比如字符lake2编码之后是10DEC10C10150,我们替换之,得到1089710710150,由于字符的ascii在32~127,所以可以很轻松的把字符区分开:108、97、107、101、50,正好是lake2各个字符的ascii值。

千万不要以为这个算法这么简单就破解了,因为上述情况只是若干种情况里面最简单的一种而已。

字符lake2的ascii值位数是11,所以并没有经过JoinCutStr函数处理,如果明文密码是lake2lake2的话,问题就复杂得多了。

JoinCutStr函数把奇数位和偶数位的ascii相加整除2得到新字符串,但这里造成了逆向的困难。因为1234经过处理,得到的是13;1133、1134、1233、1234、1124等等经过处理,得到的仍然是13。即同一个结果对应不同的原因,多数情况下我们不知道到底哪一个才对,只好穷举。但是即使是穷举且排除那些包含不可显示字符的密码,也很难知道哪一个密码才是对的。

我们虽然不知道使用者真正的密码是多少,但是却可以利用得到的任意一个密码登陆,因为它和真正密码加密之后的值是一样的。这个有点像MD5的碰撞,只是这个算法可以根据hash比较容易的构造碰撞,而MD5则很困难。

还有一种比较麻烦的情况:明文密码包含中文。中文的ascii绝对值都很大,要逆向回去还是很麻烦的,所以我们还是构造碰撞吧。

针对最简单的那种情况我们也可以用一个vbs来反编码明文密码,以下代码即实现此功能,copy保存为vbs文件运行即可:

'海洋顶端2006+简单密文反编码 by lake2

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

试试效果先:

10DEC10C10150 -> lake2

120105EC111106 -> xiaoj (这个是某人的密码哦^_^)

后面两种情况,如果要编程序破解的话感觉比较困难,就不写了。要是阁下写出了程序,可得让我研究研究。

下面让我们通过构造碰撞来破解海洋顶端2006Plus的默认密码。

打开文件,得到它的编码过的密码是02200200251001,我的程序不能恢复,看来是经过JoinCutStr函数处理的。让我们大胆的还原:10 31 22 10 01 22 10 01 22 55 11 10 01 11,整合一下:103 122 100 122 100 122 55 11 100 111,这里有个ascii值11,这个字符也是可以显示的,既然是碰撞,只好将就了。我们得到我们的明文密码:gzdzdz7chr(11)do

因为chr(11)是换行符,格式原因不能显示,你可以把以下代码保存为vbs运行之,得到密码:

Call InputBox('海洋的默认密码碰撞',,'gzdzdz7'&chr(11)&'do')

然后你用它登陆没有改过密码的海洋顶端木马,呵呵,进去了吧。下面再提供一个可以登陆但不同的密码用以证明这是碰撞:

Call InputBox('海洋的默认密码碰撞',,'gqdzdz7ne'&chr(11))

最后,我们来下个结论:在得到海洋顶端2006+编码后的密码之后,就算不能恢复出明文密码,也可以利用碰撞来登陆系统。至于如何得到编码后的密码,呵呵,那就超出本文的范围了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有