[wolf1120]

السلام عليكم ورحمة الله وبركته


اريد تحويل قيمة من هيكس ديسمال الى هيكس بواسطة  XOR

مثال للتوضيح


 36BEA514AF94F29D   XOR  FFFFFFFFFFFFFFFF  = C9415AEB506B0D62 


عندي تاكست بوكس 

وكومند

الرجاء الدالة التى تحويل القمة المعروضة

[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

[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

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