Private Sub Command1_Click()
Dim Pwd As String
Dim k As Single
Dim MD5(), Pwd()
Pwd = Text1.Text
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
Text2.Text = Pwd
End Sub
以上的VB代码有好几个错误，，我不知怎么样改，，请高手指一下，，谢谢