تشفير كلمة المرور في جدول users

[Zooro1]

السلام عليكم ورحمة الله وبركاته، الأخوة الافاضل ارجو منكم المساعدة في طريقة تشفير كلمة المرور في جدول المستخدمين users.

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

بحيث لما حد يعمل استيراد للجداول عن طريق اكسل او تصدير متظهرش كلمة المرور المستخدمين

واذا أمكن اضافة زر لإلغاء التشفير و زر لتفعيل التشفير

وشكرا لكم جميعا 

[ابوخليل]

عليكم السلام

ضع هذه الدالة في وحدة نمطية عامة

Function EncryptDecrypt(strIn As String, strpass As String) As String
Dim intLen As Integer
Dim intCounter As Integer
Dim varTmp As Variant
Dim strTmp As String
intLen = Len(strpass)
strTmp = strIn
For intCounter = 1 To Len(strIn)
varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1))
Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp)
Next
EncryptDecrypt = strTmp
End Function

يتم مناداتها سواء للتشفير او فك التشفير على النحو التالي :

rst!PassWord = EncryptDecrypt(password, userName)

على اعتبار rst!PassWord هو حقل كلمة المرور في الجدول 

[Zooro1]

3 ساعات مضت, ابوخليل said:

عليكم السلام

ضع هذه الدالة في وحدة نمطية عامة

Function EncryptDecrypt(strIn As String, strpass As String) As String
Dim intLen As Integer
Dim intCounter As Integer
Dim varTmp As Variant
Dim strTmp As String
intLen = Len(strpass)
strTmp = strIn
For intCounter = 1 To Len(strIn)
varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1))
Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp)
Next
EncryptDecrypt = strTmp
End Function

يتم مناداتها سواء للتشفير او فك التشفير على النحو التالي :

rst!PassWord = EncryptDecrypt(password, userName)

على اعتبار rst!PassWord هو حقل كلمة المرور في الجدول 

الف الف شكر استاذنا الفاضل والغالي، بس اذا سمحت لو ممكن لو عندك نموذج فيه زرين للتشفير وواحد لإلغاء التشفير  عشان اطبقه عندي ،واكون شاكر ليك 

[ابوخليل]

تفضل زر واحد فقط للتشفير او الغاؤه

users.rar

[Zooro1]

4 ساعات مضت, ابوخليل said:

تفضل زر واحد فقط للتشفير او الغاؤه

users.rar 22.93 kB · 5 downloads

الف الف شكر استاذنا الفاضل الغالي ابو خليل

[Zooro1]

في 9‏/9‏/2024 at 02:21, ابوخليل said:

تفضل زر واحد فقط للتشفير او الغاؤه

users.rar 22.93 kB · 10 downloads

ممكن سؤال اخير استاذنا الغالي، اذا سمحت.

كل شيء تمام والأمور زي الفل، 

انا نقلت النموذج تبعك والموديول والدنيا تمام

لكن انا لما بدخل علي قاعدة البيانات من نموذج الدخول واكتب username وpassword بيقولي ان غلط، 

ولو وضعت الرقم المشفر بيدخل عادي

.كنت عاوز اضافة ان لما يدخل نموذج الدخول يكتب ال  و password الخاص به مش اللي اتشفر.

لان فكرة التشفير اللي اقصدها ان مفيش حد لما يعمل استيراد متظهرش ال password ودا حضرتك عملته

اتمني تكون وصلت الفكرة 

[ابوخليل]

نعم وصلت الفكرة .. وهذه هي الأصل .. وانت صح .. يبدوا اني لم اجرب .. دعني القي نظرة 

[ابوخليل]

المثال من عندي وهو لطريقة التشفير وفك التشفير فقط .. ليس له دخل في الدخول

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

من الذي يفك التشفير ويتأكد من الرقم الصحيح ؟؟ هو الكود داخل فورم الدخول .. فيفك التشفير  في متغير ( وليس الجدول) ويقارنه بالرقم المدخل

بمعنى ان كلمة المرور في الجدول تبقى مشفرة على طول ويمنع منعا باتا فك تشفيرها

[Zooro1]

منذ ساعه, ابوخليل said:

المثال من عندي وهو لطريقة التشفير وفك التشفير فقط .. ليس له دخل في الدخول

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

من الذي يفك التشفير ويتأكد من الرقم الصحيح ؟؟ هو الكود داخل فورم الدخول .. فيفك التشفير  في متغير ( وليس الجدول) ويقارنه بالرقم المدخل

بمعنى ان كلمة المرور في الجدول تبقى مشفرة على طول ويمنع منعا باتا فك تشفيرها

تشكر اخي الغالي ابو خليل، لكن هي ممكن الفكرة دي تتعمل ولا صعبة 

[ابوخليل]

انا اتكلم من واقع برامج قائمة .. 

لو بحثت في المنتدى لوجدت الكثير من الامثلة يتم فيها تطبيق ما ذكرته اعلاه

ابحث مثلا في : تشفير كلمة المرور  .. ابحث في الحقل الخاص بــــ google

[Zooro1]

18 ساعات مضت, ابوخليل said:

انا اتكلم من واقع برامج قائمة .. 

لو بحثت في المنتدى لوجدت الكثير من الامثلة يتم فيها تطبيق ما ذكرته اعلاه

ابحث مثلا في : تشفير كلمة المرور  .. ابحث في الحقل الخاص بــــ google

تشكر والف شكر اخي الكبير الفاضل استاذنا ابو خليل.