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

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

بسم الله الرحمن الرحيم

الساده اعضاء المنتدي الاعزاء
اقدم لكم هذه المشاركه والتي ارجو ان تنال اعجابكم وهي المشاركه الاولي لي
وانشاء الله ستكون هناك مشاركا ت قادمه

هذه المشاركه حول كيفية تشفير النصوص في فيجول بيسك
-
-
-
في البدايه ساقوم بكتابة الكود الذي يقوم بتشفير النصوص وسنقوم ان شاء الله بشرحه

-
-
-

Private Sub Command1_Click()
1- Dim a, b, c, d

2- Open "c:\encryption" For Output As #1

3- a = Len(Text1.Text)
4- For b = 1 To a
5- c = Mid(Text1.Text, b, 1)
6- d = d & Chr(Asc(c) + 1)

7- Next
8-Print #1, d
9- Close

End Sub

الان نقوم بشرح الكود السابق في السطر الاول تم تعريف اربعه متغيرات

السطر الثاني يقوم بفتح ملف في وضعية الادخالoutput

السطر الثالث تم استخدام الدالهlen

لاسترجاع عدد الاحرف في مربع النص

ووضعها في المتفير A

السطر الرابع نستخدم حلقFOR

لوضع حلقه بعدد احرف مربع النص

السطر الخامس يقوم باستخلاص حرف في كل مره بالداله MID

ووضع الاحرف

المستخلصه في المتغير C

في السطر السادس يتم وضع الاحرف المستخلصه في المتغير c

ووضعها في المتغير D

ولكن مع زياده 1في جدول اسكي في كل مره لتصبح الاحرف المستخلصه احرف اخري

السطر السادس يستخدم دالتين

chr و asc

الداله asc تعطي رقم اسكي للحرف المرسل لها

الداله chr تعطي حرف اسكي للرقم المرسل لها ففي مثالنا هذا

D=d&chr(asc(c) +1)

أذا كان الحرف الاول الموجود في مربع النص هو (ب) فانه

يصبح (ة) وهكذا الي تنتهي الحلقه التي نهايتها هي المتغير a

الذي يمثل عدد الحروف في مربع النص

السطر السابع نهايه الحلقه

السطر الثامن يستخدم اسلوب print لكتابة محتويات المتغير d

وهو النص المشفر في الملف

السطر التاسع بغلق جميع الملفات المفتوحه
-
-
كانت هذه المشاركه الاولي ارجو ان تنال اعجابكم وان يستفاد منها ومزيد من المشاركات
انشاء الله
محمد القرشي

ملحوظه
اذا كانت هناك اخطأ ارجو توجيهي

محمد الفرح · #2 2006-09-17, 02:25 PM

إقتباس:


	Private Sub Command1_Click() 1- Dim a, b, c, d 2- Open "c:\encryption" For Output As #1 3- a = Len(Text1.Text) 4- For b = 1 To a 5- c = Mid(Text1.Text, b, 1) 6- d = d & Chr(Asc(c) + 1) 7- Next 8-Print #1, d 9- Close End Sub

مافائدة الارقام ؟!

جزاك الله كل خير على الشرح

ابو خطاب · #3 2006-09-21, 11:01 PM

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

keko_ferkeko · #4 2006-09-21, 11:12 PM

ممتاز أخي..
بانتظار المزيد

..

Ahmed Gamal · #5 2006-09-29, 02:49 PM

شكرا اخى على هذه المعلومات وجزاك الله خير

المصـرى · #6 2006-10-07, 07:00 AM

[GLOW="0033FF"]شكــــــــــــــرا[/GLOW]

أخى وبارك الله فيك
ولا تحرمنا مثل هذه المشاركات الطيبة
ورمضان مبارك عليك

kimo_a_7 · #7 2006-10-12, 10:43 PM

thanxxxxxxxx very much 4 this subject

kazaaa · #8 2006-10-16, 06:32 AM

مشكووووور جدأ

hosamina · #9 2006-10-21, 02:29 AM

شكرا أخى الكريم على الشرح

محمد القرشي · #10 2006-10-21, 07:54 PM

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

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

مواضيع مشابهة للموضوع: تشفير النصوص في فيجول بيسك
الموضوع	الكاتب	القسم	الردود	آخر مشاركة
بعض دروس فيجول بيسك	البرق الأبيض	البرمجة	26	2008-05-06 01:24 PM
شرح فيجوال بيسك للمبتدئين والمحترفين	joker want more	البرمجة	52	2008-05-02 10:50 PM
تشفير النصوص في فيجول بيسك الدرس الثاني	محمد القرشي	البرمجة	10	2007-05-27 03:06 AM
عمل شاشة توقف / فيجول بيسك	البرق الأبيض	البرمجة	19	2007-03-04 12:13 AM
ضو جديد يسأل عن ماهو التقرير في فيجول بيسك	محمد القرشي	البرمجة	2	2006-09-15 08:04 PM

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