سؤال بخصوص التشفير

ضع زر باسم Command1 و مربع نص باسم Text1 ثم ضع الكود التالي

Private Sub Command1_Click() 
For i = 1 To Len(Text1.Text) 
st1 = Mid(Text1.Text, i, 1) 
as1 = Asc(st1) 
ch1 = Chr(255 - as1) 
st = st + ch1 
Next 
Text1.Text = st 
End Sub

طبعاً يمكنك تغيير طريقة التشفير :lol:

للتشفير عدة طرق و خوارزميات ( بالتأكيد يمكن لكل واحد انشاء خوارزميته الخاصة ) و لكن للمزيد من المعلومات ابحثوا عن RSA و هي من أشهر الخوارزميات و التي تشتهر بصعوبة كسرها

مشكورين وماقصرتوا

بس وين هذي الخوارزمية الي تقول عليها يا اخ hishamnasr

rsa اختصار لايش بالضبط ما وضحت

هي خوارزميه رياضية تعتمد على توليد عددين عشوائيا و اجراء عملية رياضية عليهما ما الاخذ في الاعتبار قيمة ascii لكل حرف و رمز بالملف

اخر جزء في العملية الرياضية سينتج باقي قسمة و هو ما سيتم اختباره عند فتح الملف مرة اخرى من مستقبل البرنامج

الخوارزمية بها كمية كبيرة من الاحتمالات مما يصعب على اي شخص ان يفكها و لو باستعمال الحاسوب

الوصلة التالية بها الخوارزمية نفسها

بها نظرية الاعداد و نظرية الاحتمالات

راجع مكتبة الاكواد هنا ستجد كل ما تريده وكل الاكواد التي تريده

walled_aall@hotmail.com

الف شكر وماقصرتوا

للتشفير طرق عديدة ولكل مبرمج طريقته الخاصة في التشفير ،، وقوة التشفير ترتبط بقوة المبرمج .

اما الطريقة التي ذكرها الاخ MoaM هي طريقة تشفير عن طريق الازاحة وهي من ابسط عمليات التشفير .

تحياتي لكم