17-12-17, 01:09 AM
Dim h1 As String
h1 = "36BEA514AF94F29D"
Dim h2 As String
Dim i As Integer
For i = 1 To Len(h1)
Dim d As Byte
d = val("&h" & Mid$(h1, i, 1))
h2 = h2 & Hex$(15 Xor d)
Next
MsgBox h2
h1 = "36BEA514AF94F29D"
Dim h2 As String
Dim i As Integer
For i = 1 To Len(h1)
Dim d As Byte
d = val("&h" & Mid$(h1, i, 1))
h2 = h2 & Hex$(15 Xor d)
Next
MsgBox h2
