من طرف امير الظلام الخميس 22 أكتوبر 2009 - 17:13بسم الله الرحمن الرحيم
[center]الساده اعضاء المنتدي الاعزاء
اقدم لكم هذه المشاركه والتي ارجو ان تنال اعجابكم وهي المشاركه الاولي لي
وانشاء الله ستكون هناك مشاركا ت قادمه
هذه المشاركه حول كيفية تشفير النصوص في فيجول بيسك
-
-
-
في البدايه ساقوم بكتابة الكود الذي يقوم بتشفير النصوص وسنقوم ان شاء الله بشرحه
-
-
-
[center]الساده اعضاء المنتدي الاعزاء
اقدم لكم هذه المشاركه والتي ارجو ان تنال اعجابكم وهي المشاركه الاولي لي
وانشاء الله ستكون هناك مشاركا ت قادمه
هذه المشاركه حول كيفية تشفير النصوص في فيجول بيسك
-
-
-
في البدايه ساقوم بكتابة الكود الذي يقوم بتشفير النصوص وسنقوم ان شاء الله بشرحه
-
-
-
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
الان نقوم بشرح الكود السابق في السطر الاول تم تعريف اربعه متغيرات
ووضعها في المتفير A
chr و asc
الداله asc تعطي رقم اسكي للحرف المرسل لها
الداله chr تعطي حرف اسكي للرقم المرسل لها ففي مثالنا هذا
D=d&chr(asc(c) +1)
أذا كان الحرف الاول الموجود في مربع النص هو (ب) فانه
يصبح (ة) وهكذا الي تنتهي الحلقه التي نهايتها هي المتغير a
الذي يمثل عدد الحروف في مربع النص
السطر السابع نهايه الحلقه
السطر الثامن يستخدم اسلوب print لكتابة محتويات المتغير d
وهو النص المشفر في الملف
السطر التاسع بغلق جميع الملفات المفتوحه
-
-
كانت هذه المشاركه الاولي ارجو ان تنال اعجابكم وان يستفاد منها ومزيد من المشاركات
انشاء الله
محمد القرشي
ملحوظه السطر الثاني يقوم بفتح ملف في وضعية الادخالoutput
السطر الثالث تم استخدام الدالهlen
لاسترجاع عدد الاحرف في مربع النص
السطر الثالث تم استخدام الدالهlen
لاسترجاع عدد الاحرف في مربع النص
ووضعها في المتفير A
السطر الرابع نستخدم حلقFOR
لوضع حلقه بعدد احرف مربع النص
السطر الخامس يقوم باستخلاص حرف في كل مره بالداله MID
ووضع الاحرف
المستخلصه في المتغير C
في السطر السادس يتم وضع الاحرف المستخلصه في المتغير c
ووضعها في المتغير D
ولكن مع زياده 1في جدول اسكي في كل مره لتصبح الاحرف المستخلصه احرف اخري
السطر السادس يستخدم دالتين
لوضع حلقه بعدد احرف مربع النص
السطر الخامس يقوم باستخلاص حرف في كل مره بالداله MID
ووضع الاحرف
المستخلصه في المتغير C
في السطر السادس يتم وضع الاحرف المستخلصه في المتغير c
ووضعها في المتغير D
ولكن مع زياده 1في جدول اسكي في كل مره لتصبح الاحرف المستخلصه احرف اخري
السطر السادس يستخدم دالتين
chr و asc
الداله asc تعطي رقم اسكي للحرف المرسل لها
الداله chr تعطي حرف اسكي للرقم المرسل لها ففي مثالنا هذا
D=d&chr(asc(c) +1)
أذا كان الحرف الاول الموجود في مربع النص هو (ب) فانه
يصبح (ة) وهكذا الي تنتهي الحلقه التي نهايتها هي المتغير a
الذي يمثل عدد الحروف في مربع النص
السطر السابع نهايه الحلقه
السطر الثامن يستخدم اسلوب print لكتابة محتويات المتغير d
وهو النص المشفر في الملف
السطر التاسع بغلق جميع الملفات المفتوحه
-
-
كانت هذه المشاركه الاولي ارجو ان تنال اعجابكم وان يستفاد منها ومزيد من المشاركات
انشاء الله
محمد القرشي
اذا كانت هناك اخطأ ارجو توجيهي
[/center]
