KHMB قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 (معدل) السلام عليكم ورحمة الله نقدم لكم كلمة مرور عن طريق توليد رقم عشوائي شرح الطريقة فتح ملف جديد وإضافة التالي 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 4 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 أخي الحبيب أبا الحس والحسين موضوع متميز ورائع ومفيد جداً ... بارك الله فيك وجزاك الله كل خير ، ولا تحرمنا من موضوعاتك المميزة .. واصل بلا فواصل تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 السلام عليكم ورحمة الله اخوي واستاذي الفاضل أبو البراء اسعدني وشرفني مروركم وردكم بارك الله فيك وجزاك الله خير رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 متميز دائما اخي أبا الحسن والحسين لا حرمنا الله من ابداعاتك المتواصله رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 السلام عليكم ورحمة الله تسلم اخي الفاضل وائل بارك الله فيك وجزاك الله خير رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 بارك الله فيك أخى العزيز أبا الحسن و الحسين عمل جميل حبذا لو تضيف عدد محدد من المحاولات بعدها يغلق الملف رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 وياسلام بقي لو تخلط الأرقام بالحروف لتكون كلمه السر عباره عن ارقام يتخللها حروف رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 أستاذنا الكريم أبو الحسن والحسين السلام عليكم ...فكرة رائعة ومتميزة فيها ابتكار و تجديد بعيداً عن روتين الكلمة المعينة. تقبل تحياتي. رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 (معدل) السلام عليكم ورحمة الله اخواني الأعزاء وائل الاسيوطي ومحمد حسن المحمدي أبو يوسف اسرني واسعدني مروركم العطر بارك الله فيكم وجزاكم الله خير الأخ الفاضل الأستاذ / مختار حسين الأخ وائل الاسيوطي في المرفق تم إضافة عداد لمحاولة إدخال كلمة المرور حسب نصيحة استاذنا /مختار حسين تستطيع إضافة حروف ,كلمات, ارقام، علامات وهي التي بين علامتي التنصيص قبل وبعد كلمة المرور المستخرجة من الرقم العشوائي الخلية [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 2 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 واصل بلا فواصل أخى الحبيب / أبو الحسن والحسين موضوع مميز وائع جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 السلام عليكم ورحمة الله شكرا اخي العزيز المهندس ياسر شرفني مروركم العطر بارك الله فيك وجزاك الله خير رابط هذا التعليق شارك More sharing options...
محمود بكرى قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 الاساتذه الافاضل بالموضوع الشيك والجميل هذا احب ان استغل تواجدكم المثمر عندى فكرة ابغى تنفيذها عبارة عن كود اختبار الباسورد لملف اكسيل محمى عند فتحه بالكود فاذا كانت الكلمة صحيحة يعطى رسالة ببالكلمة التى هى الباسورد وان لم تكن يجرب حتى يقوم بالعثور على الكلمة يعنى عندنا ملف محمى بكلمة سر هنفتحه بالكود طبعا احنا المفروض بنضع الباس ورد هنخليها فى متغير اولا هنجرب ارقام مثلا من 1 الى مليون ويجرب هو المليون رقم بالتسلسل على فتح الملف لو صح يفتح ويضع الكلمة الصحيحة فى رسالة وطبع عمليات تكرارية حتى العثور على الباس هل ممكن مثل هذا ولا لا ولكم منى كل الاحترام رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 29, 2015 (معدل) يا أبا الحسن الحسين أحسنت و بارك الله فيك يمكن أيضا جعل الباسورد من حروف و أرقام متغيرة شاشة دخول الباسورد متغير حرفى رقمى عشوائي.rar شاشة دخول الباسورد متغير حرفى رقمى عشوائي بالمحاولات.rar تم تعديل نوفمبر 29, 2015 بواسطه مختار حسين محمود 1 رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر نوفمبر 29, 2015 مشاركة قام بنشر نوفمبر 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 جاري تجربه الملف اخي مختار بس اكيد طبعا الملف هايكون صعيدي اصيل برضو 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 29, 2015 الكاتب مشاركة قام بنشر نوفمبر 29, 2015 (معدل) السلام عليكم ورحمة الله اخي مختار حاليا الأرقام هي متغيرة اما ماتم إضافتة قبل وبعد الرقم فهو ثابت وممكن تكون متغيره بالوقت إما إضافة له الساعة او الدقيقة او الثانية او أي جزء من التاريخ او مجموعة مع بعض علي حسب ماترغب. الأخ محمود بكري نعم ممكن ومثل مايوجد برامج للعثور علي كلمة المرور حق الشبكات وحق الجوالات يوجد لبرامج الاوفيس والمنتدى ملئ بذلك منها القديمة جدا جدا بتأخذ جهد ووقت للبحث عن القديمة واما القريبة فيوجد آخر شي كود للأستاذ مشرفنا الغالي ياسر خليل أبو البراء ممكن يشاهد الرد ويوافيك بالرابط تم تعديل نوفمبر 29, 2015 بواسطه KHMB 1 رابط هذا التعليق شارك More sharing options...
محمود بكرى قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 khmb بارك الله فيك اخى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان