منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

المثال

كود :

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
اضن الفرق ثابت
انا اود ان يكون البرنامج يشفر مثل الموقع تماما بدون فرق
ارجو تعديل الكود
تحياتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

شمس الدين 03