السلام عليكم و رحمة الله و بركاته
بسم الله الرحمن الرحيم
و الصلاة و السلام على خاتم الانبياء و المرسلين محمد و آله الطيبين الطاهرين و اللعنة الدائمة على أعدائهم أجمعين الى قيام يوم الدين
"حبيت عقب تردد كبير أحط ليكم كود البرنامج الي يشفر و يفك تشفير عناوين الصفحات و الايبي"
شرح التشفير :
الكود في الأساس يعتمد على الدالتين 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 الذي يغلق التكرار
يوجد في المشروع كود فك التشفير أيضا
للتحميل
متشوق الى ردودكم
شرح كود Url encoder decoder 
شرح جميل، وكود أجمل
العرض العادي
