+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تحويل من hex to xor (/showthread.php?tid=22952)
تحويل من hex to xor - wolf1120 - 16-12-17
السلام عليكم ورحمة الله وبركته
اريد تحويل قيمة من هيكس ديسمال الى هيكس بواسطة XOR
مثال للتوضيح
36BEA514AF94F29D XOR FFFFFFFFFFFFFFFF = C9415AEB506B0D62
عندي تاكست بوكس
وكومند
الرجاء الدالة التى تحويل القمة المعروضة
RE: تحويل من hex to xor - eiocm - 17-12-17
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
RE: تحويل من hex to xor - wolf1120 - 17-12-17
(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