[wolf1120]

(17-12-17, 01:09 AM)eiocm كتب : 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

برك الله فيك اخي الكريم