شرح كود Url encoder decoder

**Big.HEX** · 07-01-2007, 12:18

السلام عليكم و رحمة الله و بركاته

بسم الله الرحمن الرحيم
و الصلاة و السلام على خاتم الانبياء و المرسلين محمد و آله الطيبين الطاهرين و اللعنة الدائمة على أعدائهم أجمعين الى قيام يوم الدين

"حبيت عقب تردد كبير أحط ليكم كود البرنامج الي يشفر و يفك تشفير عناوين الصفحات و الايبي"

شرح التشفير :

الكود في الأساس يعتمد على الدالتين Hex و Asc

فالدالة Asc تحول حرف او رمز الى عدد من 1 الى 255 بصيغة Ascii مثل

كود:

sC=Asc("w")

حيث تكون قيمة 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 الذي يغلق التكرار

يوجد في المشروع كود فك التشفير أيضا

للتحميل

متشوق الى ردودكم