تشفير النصوص في فيجول بيسك الدرس الثاني

في الدرس السابق تعرفنا علي كيفية تشفير النصوص . في هذا الدرس سوف نتعرف
ان شاء الله علي كيفية اعادة النصوص المشفره الي وضعها الطبيعي . سنقوم بكتابة الكود ثم نقوم بشرحه




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 أغلاق جميع الملفات المفتوحه


ارجو ان يكون الدرس واضحا

محمد القرشي
 


بارك الله فيك على الموضوع الرائع
ولا تحرمنا من جديدك
 


رائع ممتاز جدا
اتمنى لك مزيدا من التقدم والنجاح



نصيحة اقدمها لك كوني خبير في الفيجوال بيسك

حاول بكل طاقتك واستثمر جهدك كله في تصميم برامج من افكارك الخاصة وشرح دروس بطريقتك الخاصة ولا تحاول ولا تفكر في اخذ تصاميم الغير وتعديلها او حتى تقليدها
 


نصيحة اقدمها لك كوني خبير في الفيجوال بيسك

ولا تحاول ولا تفكر في اخذ تصاميم الغير وتعديلها او حتى تقليدها[/quote]

والله ما قلدت احد وانما هي مشاركه تهم وتفيد الجميع
من هم اللذين اخذت تصاميمهم وعدلتها وقلدتها
 
السلام عليكم

يا ليت تقدرو تفيدوني

ابغا كتاب عن تشفير النصوص يكون فيه نظام تشفير AES

مشكورين وجزاكم الله كل خير

انتظر الرد العاجل انشالله
 
شكرا على هذا الكود..و إن شاء الله يكون في ميزان حسناتك..
وأنا لدي طلب بمساعدتي في homework يتضمن كتابة كود ال Key generation in S-DES by using Visual Basic

وشكرا...
 
عودة
أعلى