محمد القرشي
New Member
في الدرس السابق تعرفنا علي كيفية تشفير النصوص . في هذا الدرس سوف نتعرف
ان شاء الله علي كيفية اعادة النصوص المشفره الي وضعها الطبيعي . سنقوم بكتابة الكود ثم نقوم بشرحه
Private Sub Command1_Click()
Dim a, b, c
Dim d, m
Open "c:\encryption" For Input As #3
Do Until EOF(3)
Input #3, a
Loop
b = Len(a)
For c = 1 To b
d = Mid(a, c, 1)
m = m & Chr(Asc(d) - 1)
Next
Text1.Text = m
Close
End Sub
في السطر الاول والثاني تعريف المتغيرات
السطر الثالث فتح الملف لقراة النص منه
السطر الرابع والخامس والسادس استعمال حلقة do until
لقراة الملف كاملا
السطر السابع معرفة عدد حروف الملف بالداله len
ثم وضعها في المتغير b
السطر الثامن بداية حلقه for c
التي تبدأ من واحد وتنتهي في المتغير b
السطر التاسع استخلاص حرف في كل مره بالداله mid
ووضع الاحرف المستخلصه في المتغير d
السطر العا شر وضع كل حرف مستخلص في المتغير m
ولكن مع انقاص 1 في جدول اسكيascii في كل مره
هذا السطر هو المهم في عملية التشفير.
وفك التشفير ففي عملية التشفير قمنا بزيادة 1 للحرف المستخلص في جدول اسكي ascii
وفي عملية فك التشفير نقوم بعكس العملية الاولي أي طرح 1 من الحروف المستخلصه في جدول اسكيascii
السطر 12 نقوم بوضع قيمة المتغير m
الذي يحتوي علي النص الذي تم فك تشفيره في مربع النص
Close أغلاق جميع الملفات المفتوحه
ارجو ان يكون الدرس واضحا
محمد القرشي
ان شاء الله علي كيفية اعادة النصوص المشفره الي وضعها الطبيعي . سنقوم بكتابة الكود ثم نقوم بشرحه
Private Sub Command1_Click()
Dim a, b, c
Dim d, m
Open "c:\encryption" For Input As #3
Do Until EOF(3)
Input #3, a
Loop
b = Len(a)
For c = 1 To b
d = Mid(a, c, 1)
m = m & Chr(Asc(d) - 1)
Next
Text1.Text = m
Close
End Sub
في السطر الاول والثاني تعريف المتغيرات
السطر الثالث فتح الملف لقراة النص منه
السطر الرابع والخامس والسادس استعمال حلقة do until
لقراة الملف كاملا
السطر السابع معرفة عدد حروف الملف بالداله len
ثم وضعها في المتغير b
السطر الثامن بداية حلقه for c
التي تبدأ من واحد وتنتهي في المتغير b
السطر التاسع استخلاص حرف في كل مره بالداله mid
ووضع الاحرف المستخلصه في المتغير d
السطر العا شر وضع كل حرف مستخلص في المتغير m
ولكن مع انقاص 1 في جدول اسكيascii في كل مره
هذا السطر هو المهم في عملية التشفير.
وفك التشفير ففي عملية التشفير قمنا بزيادة 1 للحرف المستخلص في جدول اسكي ascii
وفي عملية فك التشفير نقوم بعكس العملية الاولي أي طرح 1 من الحروف المستخلصه في جدول اسكيascii
السطر 12 نقوم بوضع قيمة المتغير m
الذي يحتوي علي النص الذي تم فك تشفيره في مربع النص
Close أغلاق جميع الملفات المفتوحه
ارجو ان يكون الدرس واضحا
محمد القرشي
