تفضلوا كلمة مرور عن طريق توليد رقم عشوائي

[KHMB]

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

نقدم لكم كلمة مرور عن طريق توليد رقم عشوائي

شرح الطريقة

فتح ملف جديد  وإضافة التالي

1 - فورم ونسميه Form1

2 - مربع نص ونسميه Txt1 

3 - زر امر ونسميه Cmd_LogoIn

وقبل ان نتطرق للفورم والكود نذهب اولا إلي الصفحة (الشيت) ونختار الخلية [IV1] تستطيع تغييرها حسب رغبتك ونضع بداخلها المعادلة التالية :

=RANDBETWEEN(999999;9999999)

وهي تقوم بتوليد رقم عشوائي بتكوًن بين 9,999,999 وبين 9,999,999 وتستطيع التغيير إلي الأكثر او الأقل حسب ماتراة مناسب .

ثم نذهب للخلية [IV3] ونضع بها المعادلة التالية :

=LEFT(IV2;3)+RIGHT(IV2;2)

وهي تأخذ اول ثلاثة ارقام من يسار الرقم بالخلية [IV2] وأول رقمين من يمين الخلية المذكورة.

وقيمة الخلية [IV2] يتكون عن طريق الكود في حدث تنشيط الفورم وهو يساوي قيمة الخلية التي يتم توليد الأرقام العشوائية فيها وهو    [IV2] = [IV1.Value 

Private Sub UserForm_Activate()
' لاحظ الخلية [IV2] تساوي الخلية [IV1] وهي التي تقوم بتوليد الرقم العشوائي
[IV2] = [IV1].Value
'لاحظ هنا  عنوان الفورم هو الرقم العشوائي
Form1.Caption = [IV2]
End Sub

ولاحظ ان الرقم العشوائي يظهر بعنوان الفورم وبتغيًر كل مرة يظهر فيها الفورم

ولإستخراج كلمة المرور منه مثال ان الرقم العشوائي 760340  فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي 800 .

تستطيع ان تأخذ رقمين او ثلاثة ..إلخ من يسار الرقم العشوائي او رقمين او ثلاثة اواكثر من يمينه وبعد ذلك تجمع او تطرح والنتيجة في الخلية [IV3] كل ذلك يتم في  في المعادلة ادناه :

=LEFT(IV2;3)+RIGHT(IV2;2)

وهذا الكود البسيط مع الشرح :

Private Sub Cmd_LogoIn_Click()

'إذا كان مربع النص التكست ون يساوي فراغ
If Txt1.Text = vbNullString Then

'إذا اخرج من الإجراء  الفرعي
Exit Sub

'غير ذلك إذا كان مربع النص لايساوي قيمة الخلية[IV3] 
ElseIf Txt1.Text <> [IV3].Value Then

'إذا رسالة توضح ان كلمة المرور غير صحيحة
MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "ÇáÊÃßÏ ãä ßáãÉ ÇáãÑæÑ"
        
'غير ذلك إذا كان مربع النص  بيساوي  [IV3]
        ElseIf Txt1.Text = [IV3].Value Then
       
'إذا رسالة توضيحية احسنت 
          MsgBox "ÇÍÓäÊ"
       
'اجعل تطبيقات الاكسل مرئية
        Application.Visible = True

'إخفاء الفورم
        Unload Me
       
'
        End If

End Sub

اخيكم في الله

أبو الحسن والحسين

مرفق مثال

شاشة دخول - تغيير الباسورد عشوائي.rar

تم تعديل نوفمبر 29, 2015 بواسطه KHMB

[ياسر خليل أبو البراء]

أخي الحبيب أبا الحس والحسين

موضوع متميز ورائع ومفيد جداً ...

بارك الله فيك وجزاك الله كل خير ، ولا تحرمنا من موضوعاتك المميزة .. واصل بلا فواصل

تقبل تحياتي

 

[KHMB]

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

اخوي واستاذي الفاضل أبو البراء اسعدني وشرفني مروركم وردكم

بارك الله فيك وجزاك الله خير

[وائل الاسيوطي]

متميز دائما اخي أبا الحسن والحسين

لا حرمنا الله من ابداعاتك المتواصله

[KHMB]

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

تسلم اخي الفاضل وائل بارك الله فيك وجزاك الله خير

[مختار حسين محمود]

بارك الله فيك أخى العزيز  أبا الحسن و الحسين  عمل جميل

حبذا لو تضيف عدد محدد من المحاولات بعدها  يغلق الملف 

 

 

 

[وائل الاسيوطي]

وياسلام بقي لو تخلط الأرقام بالحروف لتكون كلمه السر عباره عن ارقام يتخللها حروف

 

[محمد حسن المحمد]

أستاذنا الكريم أبو الحسن والحسين 

السلام عليكم ...فكرة رائعة ومتميزة فيها ابتكار و تجديد بعيداً عن روتين الكلمة المعينة.

تقبل تحياتي.

[KHMB]

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

اخواني الأعزاء 

وائل الاسيوطي

ومحمد حسن المحمدي أبو يوسف

 اسرني واسعدني مروركم العطر بارك الله فيكم وجزاكم الله خير

 

الأخ الفاضل الأستاذ / مختار حسين

الأخ وائل الاسيوطي

في المرفق تم إضافة عداد لمحاولة إدخال كلمة المرور حسب نصيحة استاذنا /مختار حسين

تستطيع إضافة حروف ,كلمات, ارقام، علامات وهي التي بين علامتي التنصيص قبل وبعد كلمة المرور المستخرجة من الرقم العشوائي

الخلية [IV3].Text هي ناتج توليد الرقم العشوائي بالخلية [IV1].Text عن طريق [IV2].Text والتي تأخذ 3 ارقام من آخر الرقم العشوائي ورقمين من اوله  للعلم والاحاطة فقط 

If Txt1.Text = "هنا تقدر تضع كلمة او حروف او ارقام او علامات" & [IV3].Text & "هنا تقدر تضع كلمة او حروف او ارقام او علامات" Then

 

 

في الكود ادناة تضع  الحروف قيل وبعد. مثال /  الرقم العشوائي 760340  فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي kh800mb  .  لما تكون الحروف إنجليزية تنتـــه لإدخالات الحروف كبيرة او صغيرة ادخلها حسب برمجتك لها.

If Txt1.Text = "kh" & [IV3].Text & "mb" Then

 

او تجعل الحروف قبــــــــــــــل فقط وستكون كلمة المرور كالتالي  khmb800  وتنتبــــــــــــــه ان تكون  KHMB800  مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره ("    khmb" )  او ("khmb    ").

If Txt1.Text = "khMB" & [IV3].Text Then

 

او تجعل الحروف بعـــــــــــــــد فقط وستكون كلمة المرور كالتالي  800khmb وتنتبــــــــــــــه ان تكون  800KHMB مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره ("    khmb" )  او ("khmb    "). مع ملاحظة الكلمة هنا هي بالحروف الكبيرة.

If Txt1.Text = [IV3].Text & "KHMB" Then

مرفق الملف

وكلمة المرور هي بين كلمتي  KH.....MB

If Txt1.Text = "kh" & [IV3].Text & "mb" Then

شاشة دخول - تغيير الباسورد عشوائي.rar

تم تعديل نوفمبر 29, 2015 بواسطه KHMB

[Yasser Fathi Albanna]

واصل بلا فواصل أخى الحبيب / أبو الحسن والحسين

موضوع مميز وائع

جزاك الله خيرا

 

[KHMB]

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

شكرا اخي العزيز المهندس ياسر شرفني مروركم العطر 

بارك الله فيك وجزاك الله خير

[محمود بكرى]

الاساتذه الافاضل بالموضوع الشيك والجميل هذا 

احب ان استغل تواجدكم المثمر عندى

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

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

يعنى عندنا ملف محمى بكلمة سر هنفتحه بالكود طبعا احنا المفروض بنضع الباس ورد

هنخليها فى متغير اولا هنجرب ارقام مثلا من 1 الى مليون

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

وطبع عمليات تكرارية حتى العثور على الباس

هل ممكن مثل هذا ولا لا

ولكم منى كل الاحترام

[مختار حسين محمود]

يا أبا الحسن الحسين أحسنت و بارك الله فيك 

يمكن أيضا جعل الباسورد من حروف و أرقام متغيرة 

 

 

 

شاشة دخول الباسورد متغير حرفى رقمى عشوائي.rar

شاشة دخول الباسورد متغير حرفى رقمى عشوائي بالمحاولات.rar

تم تعديل نوفمبر 29, 2015 بواسطه مختار حسين محمود

[وائل الاسيوطي]

5 hours ago, KHMB said:

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

اخواني الأعزاء 

وائل الاسيوطي

ومحمد حسن المحمدي أبو يوسف

 اسرني واسعدني مروركم العطر بارك الله فيكم وجزاكم الله خير

 

الأخ الفاضل الأستاذ / مختار حسين

الأخ وائل الاسيوطي

في المرفق تم إضافة عداد لمحاولة إدخال كلمة المرور حسب نصيحة استاذنا /مختار حسين

تستطيع إضافة حروف ,كلمات, ارقام، علامات وهي التي بين علامتي التنصيص قبل وبعد كلمة المرور المستخرجة من الرقم العشوائي

الخلية [IV3].Text هي ناتج توليد الرقم العشوائي بالخلية [IV1].Text عن طريق [IV2].Text والتي تأخذ 3 ارقام من آخر الرقم العشوائي ورقمين من اوله  للعلم والاحاطة فقط 

If Txt1.Text = "هنا تقدر تضع كلمة او حروف او ارقام او علامات" & [IV3].Text & "هنا تقدر تضع كلمة او حروف او ارقام او علامات" Then

 

 

في الكود ادناة تضع  الحروف قيل وبعد. مثال /  الرقم العشوائي 760340  فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي kh800mb  .  لما تكون الحروف إنجليزية تنتـــه لإدخالات الحروف كبيرة او صغيرة ادخلها حسب برمجتك لها.

If Txt1.Text = "kh" & [IV3].Text & "mb" Then

 

او تجعل الحروف قبــــــــــــــل فقط وستكون كلمة المرور كالتالي  khmb800  وتنتبــــــــــــــه ان تكون  KHMB800  مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره ("    khmb" )  او ("khmb    ").

If Txt1.Text = "khMB" & [IV3].Text Then

 

او تجعل الحروف بعـــــــــــــــد فقط وستكون كلمة المرور كالتالي  800khmb وتنتبــــــــــــــه ان تكون  800KHMB مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره ("    khmb" )  او ("khmb    "). مع ملاحظة الكلمة هنا هي بالحروف الكبيرة.

If Txt1.Text = [IV3].Text & "KHMB" Then

مرفق الملف

وكلمة المرور هي بين كلمتي  KH.....MB

If Txt1.Text = "kh" & [IV3].Text & "mb" Then

شاشة دخول - تغيير الباسورد عشوائي.rar

اخي أبا الحسن والحسين لو اخفينا العمود اللي فيه المعادله يعطي خطأ دخول كلمه المرور ياتري ماالسبب

1 hour ago, مختار حسين محمود said:

يا أبا الحسن الحسين أحسنت و بارك الله فيك 

يمكن أيضا جعل الباسورد من حروف و أرقام متغيرة 

 

 

 

شاشة دخول الباسورد متغير حرفى رقمى عشوائي.rar

شاشة دخول الباسورد متغير حرفى رقمى عشوائي بالمحاولات.rar

جاري تجربه الملف اخي مختار بس اكيد طبعا الملف هايكون صعيدي اصيل برضو

[KHMB]

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

اخي مختار حاليا الأرقام هي متغيرة اما ماتم إضافتة قبل وبعد الرقم فهو ثابت وممكن تكون متغيره بالوقت إما إضافة له الساعة او الدقيقة او الثانية او أي جزء من التاريخ او مجموعة مع بعض علي حسب ماترغب.

 

الأخ محمود بكري نعم ممكن ومثل مايوجد برامج للعثور علي كلمة المرور حق الشبكات وحق الجوالات يوجد لبرامج الاوفيس  والمنتدى ملئ بذلك منها القديمة جدا جدا بتأخذ جهد ووقت للبحث عن القديمة واما القريبة فيوجد آخر شي كود للأستاذ مشرفنا الغالي ياسر خليل أبو البراء ممكن يشاهد الرد ويوافيك بالرابط

تم تعديل نوفمبر 29, 2015 بواسطه KHMB

[محمود بكرى]

khmb بارك الله فيك اخى