اذهب الي المحتوي
أوفيسنا

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


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

تم تعديل بواسطه KHMB
  • Like 4
رابط هذا التعليق
شارك

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

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

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

تقبل تحياتي

 

  • Like 1
رابط هذا التعليق
شارك

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

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

 

 

 

رابط هذا التعليق
شارك

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

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

تقبل تحياتي.

رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

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

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

الخلية [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

تم تعديل بواسطه KHMB
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

 

 

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

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

تم تعديل بواسطه مختار حسين محمود
  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

تم تعديل بواسطه KHMB
  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information