07-04-13, 12:29 AM
عندي مثال للتشفير بالهيكس
لكنه يختلف مع التشفير بالموقع
المثال
الموقع
للتشفير
http://www.waraxe.us/sql-char-encoder.html
عند تشفير كلمة شمس بالموقع
chms= 0x63686d73
عند التشفير بالبرنامج
chms = 63686D73
الفرق هو 0x
اضن الفرق ثابت
انا اود ان يكون البرنامج يشفر مثل الموقع تماما بدون فرق
ارجو تعديل الكود
تحياتي
لكنه يختلف مع التشفير بالموقع
المثال
كود :
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
اضن الفرق ثابت
انا اود ان يكون البرنامج يشفر مثل الموقع تماما بدون فرق
ارجو تعديل الكود
تحياتي