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

محمد القرشي · #1 2006-09-19, 09:16 PM

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

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

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

محمد القرشي

ابو خطاب · #2 2006-09-21, 10:57 PM

جزاك الله كل خير

موضوع شيق

كتاب العرب · #3 2006-09-26, 02:06 PM

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

عصام زايد · #4 2006-10-08, 01:03 PM

مشكوووووووووووووووووووووووووووووووو وور يعطيك العافية

صاحب صاحبي · #5 2006-10-13, 02:54 AM

إقتباس:

اقتباس من مشاركة كتاب العرب


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

..

sal1150 · #6 2006-10-14, 03:13 PM

شكرا اخي
ذكرتني بالفيجول

البرق الأبيض · #7 2006-10-17, 12:51 AM

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

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

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

محمد القرشي · #8 2006-10-21, 08:42 PM

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

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

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

محمد القرشي · #9 2006-10-21, 08:49 PM

الشكر كل الشكر للاخوان الذين قاموا بتشجيعي

بسام السامر · #10 2006-10-23, 02:11 PM

مشكوووووووووووووووووووووووووووووووو ووووووووووووووووووووووووووور

خيارات الموضوع
عرض نسخة للطّباعة ارسل هذه الصفحة لصديق
طريقة العرض
النمط المتتابع التحول إلى النمط التشعبي التحول إلى النمط الأُحادي

مواضيع مشابهة للموضوع: تشفير النصوص في فيجول بيسك الدرس الثاني
الموضوع	الكاتب	القسم	الردود	آخر مشاركة
تشفير النصوص في فيجول بيسك	محمد القرشي	البرمجة	61	2008-07-20 10:09 PM
بعض دروس فيجول بيسك	البرق الأبيض	البرمجة	26	2008-05-06 01:24 PM
عمل دليل هاتف بواسطة الفيجوال بيسك (الدرس الثاني) عمل دليل الهاتف	محمد الفرح	البرمجة	22	2008-01-16 03:38 PM
القوائم بلغة فيجول بيسك	البرق الأبيض	البرمجة	25	2007-06-18 11:30 AM
عمل شاشة توقف / فيجول بيسك	البرق الأبيض	البرمجة	19	2007-03-04 12:13 AM

يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)