الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في تشفير النص

مغلق
بدأه lord the word في 12 يونيو 2003 · 1 رد · 695 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا شباب عندي كود تشفير النص

وهذا هو

Public Function Encrypt(ByVal Plain As String)

For I=1 To Len(Plain) 

Letter=Mid(Plain,I,1)

Mid(Plain,I,1)=Chr(Asc(Letter)+1)



Next

Encrypt = Plain

End Sub



Public Function Decrypt(ByVal Encrypted As String)

For I=1 to Len(Encrypted) 

Letter=Mid(Encrypted,I,1)

Mid(Encrypted,I,1)=Chr(Asc(Letter)-1)



Next

Decrypt = Encrypted

End Sub



((Print Encrypt("This is just an example")

((Print Decrypt("Uijt!jt!kvtu!bo!fybnqmf")

وين أحطه بليبل واإلا بزر وإلا وإلا................؟

#2

السلام عليكم أخي العزيز

أعتقد والله أعلم ان هذا الكود تضعه في Declaration part أو في Module

ثم تضع عدد 2 من text box + عدد 2 زر

الزر الأول أسمه "تشفير" والزر الثاني أسمه "فك التشفير"

textbox1 تكتب فيه النص ، وtextbox2 يظهر فيه التشفير بعد الضغط على الزر تشفير .

وبداخل زر التشفير تسجل النص الذي يظهر في الTextbox1 في متغير أسمه Plain ويعرق على أنه String ثم تنادي الدالة Encrypt ، ثم تسجل الناتج في المتغير ُُEncypted ، ثم تعرضه في الTextbox2 .

وبداخل زر "فك التشفير" تنادي الدالة Decrypt وتسجل الناتج في المتغير Plain ثم تعرضه في ال Textbox1.

هذا والله أعلم وأعتقد أنه سيوجد به الكثير من الأخطاء ولكن هذا ما جاء بخاطري عند قراءة هذا السؤال.

والسلام عليكم ورحمة الله.

هذا الموضوع مغلق.

مواضيع مشابهة