محمد القرشي
New Member
بسم الله الرحمن الرحيم
الساده اعضاء المنتدي الاعزاء
اقدم لكم هذه المشاركه والتي ارجو ان تنال اعجابكم وهي المشاركه الاولي لي
وانشاء الله ستكون هناك مشاركا ت قادمه
اقدم لكم هذه المشاركه والتي ارجو ان تنال اعجابكم وهي المشاركه الاولي لي
وانشاء الله ستكون هناك مشاركا ت قادمه
هذه المشاركه حول كيفية تشفير النصوص في فيجول بيسك
-
-
-
في البدايه ساقوم بكتابة الكود الذي يقوم بتشفير النصوص وسنقوم ان شاء الله بشرحه
-
-
-
في البدايه ساقوم بكتابة الكود الذي يقوم بتشفير النصوص وسنقوم ان شاء الله بشرحه
-
-
-
-
-
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
وهو النص المشفر في الملف
السطر التاسع بغلق جميع الملفات المفتوحه
-
-
كانت هذه المشاركه الاولي ارجو ان تنال اعجابكم وان يستفاد منها ومزيد من المشاركات
انشاء الله
محمد القرشي
-
-
كانت هذه المشاركه الاولي ارجو ان تنال اعجابكم وان يستفاد منها ومزيد من المشاركات
انشاء الله
محمد القرشي
اذا كانت هناك اخطأ ارجو توجيهي
..
