تشفير كلمة السر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default تشفير كلمة السر

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:45 pm

في البداية اضف مربع نص عدد 2 وزر امر عدد 2
ثم اضف هذا الكود
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
Text1.Text = st
SaveSetting "pass", "pass", "pass", Text1.Text
End Sub

Private Sub Command2_Click()
For i = 1 To Len(Text2.Text)
st1 = Mid(Text2.Text, i, 1)
as1 = Asc(st1)
ch1 = Chr(255 - as1)
st = st + ch1
Next
ss = GetSetting("pass", "pass", "pass")
If st = ss Then
form2.Show
Else
MsgBox "كلمة السر غير صحيحة "
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "تسجيل كلمة السر"
Command2.Caption = "دخول"
End Sub


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:40 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الثلاثاء نوفمبر 14, 2006 9:15 pm

الشكر والتقدير الخالص على جهودك النيرة

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشفير كلمة السر

مُساهمة من طرف الدكتوره في الجمعة نوفمبر 24, 2006 12:38 am

اخي الكريم / جاد ........

مالمقصد من ( حفظ كلمة السر )
هل اقوم بادخال كلمة سر في الــ TEXT1 واحفظها ..
واسجلها في الــ TEXT2 وادخل ............


* التمس لي العذر سيدي فلم افهم فكره الكود ......!!
لايقبل ذلك ..!!

الدكتوره
عضو نشط
عضو نشط

عدد الرسائل : 19
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشفير كلمة السر

مُساهمة من طرف Admin في الجمعة نوفمبر 24, 2006 8:32 pm

هذا الكود يقوم بتشفير الكلمة التي في مربع النص الاول الى شيفرة غريبة لكي لا يتسنى لأي شخص

وللـاكد من ان البرنامج يفهم كلمه السر السابقة نقوم بكتابة كلمة السر في المربع الآخر والنقر على دخول فإن كانت خاطئة فيخبرنا بذلك وإلا يقوم بتنفيذ الامر الذ يليه والمقصود به فتح الفورم الثاني

هذا مثال فقط لتتمكنوا من استخدامه في تطبيقاتكم

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشفير كلمة السر

مُساهمة من طرف الدكتوره في الأحد نوفمبر 26, 2006 9:55 am

::.:: اخي الكريم ::.::
الآن فهمت عمل الاكواد ...
زلها عمل راااائع .. واستطيع اخذها لتطبيقي ..
لاناه فكره ممتازة .............

لك شكري
الدكتورة

الدكتوره
عضو نشط
عضو نشط

عدد الرسائل : 19
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: تشفير كلمة السر

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 4:13 pm

كلماتي تعجز عن وصفكعلى الاكواد الرهيبة

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى