السلام عليكم 🙂
ابسط انواع التشفير
التشفير ، Code : هو تغيير حرف مكان حرف آخر ، يعني بدل تفاح ، ممكن يصير ثقبخ ، كيف :
رجاء النظر في الجدول التالي:
الحرف الاصل ورقمه : الحرف البديل ورقمه
ت 1578 : ث 1579
ف 1601 : ق 1602
ا 1575 : ب 1576
ح 1581 : خ 1582
تفاح : ثقبح
نلاحظ اننا اضفنا الرقم 1 (مفتاح الشفرة) الى قيمة الحرف الاصل ، لنحصل على قيمة الحرف البديل .
في هذه الحالة لو غيرنا مفتاح الشفرة الى رقم آخر ، او جعلنا مفتاح الشفرة عبارة عن معادلة ، لأصبحت الشفرة اصعب 🙂
فك الشفرة ، DeCode : هو حذف مفتاح الشفرة من رقم الحرف الجديد ، حتى يرجع لقيمته السابق 🙂
فإذن قوة التشفير له علاقة بمفتاح الشفرة 🙂
لهذا السبب ، لا ترسل مفتاح الشفرة مع الرسالة 🙂
.
ارفق لك هذا المثال
.
وهذه الوحدة النمطية التي تقوم بالعمل
Public Function Code_it_T(txt As String, iKey As Integer) As String
Dim i, L As Integer
L = Len(txt)
For i = 1 To L
Code_it_T = Code_it_T & ChrW(AscW(Mid(txt, i, 1)) + iKey)
Next i
End Function
Public Function DeCode_it_T(txt As String, iKey As Integer) As String
Dim i, L As Integer
L = Len(txt)
For i = 1 To L
DeCode_it_T = DeCode_it_T & ChrW(AscW(Mid(txt, i, 1)) - iKey)
Next i
End Function
.
.
ويمكنك إضافة هذا المثال لمكتبتك ايضا 🙂
جعفر
1254.Code_Decode.mdb.zip