三轮哥、奔跑哥、火车哥 »

« 国家地理-揭秘朝鲜[纪录片]

备份！

Private Sub Command1_Click()
Dim i As Integer, Length As Integer, eax As Long, key As String, mcode As String
mcode = Trim(Text1)
Length = Len(mcode)
For i = 1 To Length
eax = Asc(Mid(mcode, i, 1))
eax = eax + &H239
eax = eax + &H239
eax = eax - &H76
eax = eax + &HAF
key = key & Hex(eax)
Next i
Text2 = "36" & DigestStrToHexStr(key) & "94"    'DigestStrToHexStr函数是获取MD5值
End Sub