Dim enTmp,enstr,a,bb enstr=Str2Hex("RHptd4RPFZVOdoVQTrvWTnTp4n6PVN6QTop1tnau1hsU") For i = 1 To Len(enStr) step 6 enTmp =Array(Mid(enStr,i,6)&"00") sz =Split(enTmp(0), ",", -1, 1) a= right(sz(0), 1) Xor left(sz(1), 1) bb=bb& a&right(sz(1), 1) Next
Function Str2Hex(ByVal strHex) Dim sHex For i = 1 To Len(strHex) step 1 sHex = sHex & Hex(Asc(Mid(strHex,i,1)))&"," Next Str2Hex = sHex End Function
Function Hex2Str(hexStr) Dim sstr,hextmp For i = 1 To Len(hexStr) step 2 hexTmp = Mid(hexStr,i,2) If hexTmp <> "00" Then sstr = sstr & ChrW("&h" & hexTmp) End If Next Hex2Str = sstr End Function
