السلام عليكم و رحمة الله و بركاته
بسم الله الرحمن الرحيم
و الصلاة و السلام على خاتم الانبياء و المرسلين محمد و آله الطيبين الطاهرين و اللعنة الدائمة على أعدائهم أجمعين الى قيام يوم الدين
"حبيت عقب تردد كبير أحط ليكم كود البرنامج الي يشفر و يفك تشفير عناوين الصفحات و الايبي"
شرح التشفير :
الكود في الأساس يعتمد على الدالتين Hex و Asc
فالدالة Asc تحول حرف او رمز الى عدد من 1 الى 255 بصيغة Ascii مثل
حيث تكون قيمة sC هنا هي 119
و هنا يأتي دور الدالة Hex التي تقوم بتحويل هذا العدد الى صيغة الـ Hex فيكون
nS=Hex(119)
أو تحويل القيمة التي حصلنا عليها من قبل
nS=Hex(sC)
فيكون ناتج nS هو 77
و الآن كل ما نحتاج اليه هو وضع الرمز "%" امام هذا العدد كي يعرف متصفح الانترنت ان الرمزين القادمين بعد هذا الرمز هما بلغة الهكس و الافضل أن يكون الكود بهذه الطريقة
Dim sC as byte, nS as String
sC=Asc("w")
nS="%" & Hex(sc)
فيكون ناتج nS هو "77%"
نتجه الآن الى كود متقدم أكثر
ليكن لدينا مربع نص(Text Box) باسم txtUrl ، و أداة نص أخرى باسم txtCode و زر أوامر (Command Button) باسم cmdDo
و هذا هو الكود
Private Sub cmdDo_Click()
Dim Counter As Integer
Dim sStr As String
Dim TMP As String
txtCode = ""
For Counter = 1 To Len(txtURL)
sStr = Mid(txtURL, Counter, 1)
TMP = Asc(sStr)
txtCode = txtCode & "%" & Hex(TMP)
Next
Next
End Sub
أولا نذكر المتغيرات Counter sStr TMP
السطر (For Counter = 1 To Len(txtURL
يقوم بتكرار حيث يقوم بوضع الرقم 1 في المتغير Counter و يقوم بالزيادة عليه بمقدار 1 حتى يصل الى رقم يساوي عدد الحروف في مربع النص txtUrl الذي أعطته الدالة Len
و يوضح النص التالي طريقة عمل الدالة Mid
sStr = Mid(txtURL, Counter, 1)
| | |
( عدد الأحرف المأخوذة) _| | |_ (النص الذي ستؤخذ منه الأحرف)
|
(الموقع الذي ستؤخذ الأحرف منه)
حيث يوضع في المتغير sStr حرف واحد مأخوذ من موقع من النص الموجود في txtUrl يحدده المتغير Counter
و يلي هذا السطر سطران آخران يقومان بتحويل الحرف الموجود في sStr الى صيغة Ascii ثم Hex و وضع الناتج في نهاية مربع النص txtCode
و يأتي السطر الذي يحتوي على Next الذي يغلق التكرار
يوجد في المشروع كود فك التشفير أيضا
للتحميل
متشوق الى ردودكم