[شمس الدين 03]

عندي مثال للتشفير بالهيكس
لكنه يختلف مع التشفير بالموقع


المثال

كود :

code = Asc(Mid(Texte, i, 1))
r = code
Do
q = r / 16
r = r - Int(q) * 16
Hexa = Hexa & Table(Int(q))
Loop Until r < 16
Hexa = Hexa & Table(Int(r))
Next
End Function


Private Sub Command1_Click()
Text2 = Hexa(Text1)
End Sub

الموقع
للتشفير
http://www.waraxe.us/sql-char-encoder.html

عند تشفير كلمة شمس بالموقع

chms= 0x63686d73
عند التشفير بالبرنامج
chms = 63686D73
الفرق هو 0x
اضن الفرق ثابت
انا اود ان يكون البرنامج يشفر مثل الموقع تماما بدون فرق
ارجو تعديل الكود
تحياتي