下面VB伪代码的部分符号引自以上第二点《结构说明》中的变量标志,请注意理解: Pwd = MD5(Pwd, Len(Pwd)) ‘ Pwd为用户输入的密码,第一轮MD5后,Pwd成为16位字节长度的MD5串。 XorKey As Long = 0 ‘XorKey为用于解密的字节 For k = 1 To Data1S - 1 ‘因为前面已经做过一轮,所以此处要减一 Pwd = MD5(Pwd, 16) Next k XorKey = XorKey And &HFFFF XorKey = (LenData2S And &HFF) Xor (LenData2S 256) XorKey = &HFF - XorKey ‘求反 For k = 1 To 16 Pwd(k) = Pwd(k) Xor XorKey Next k If Pwd <> Data2S Then MsgBox "输入密码与上次成功登录的密码不一致," & vbcrlf & "是否到服务器验证?" End If