[elgokr]

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

عيد سعيد عليكم جميعاً

وكل عام وانت بخير وسعادة دائماً بامر الله

بناءاً الى احد مواضيع الاعضاء

قمت بانشاء سورس ظيفته توليد مفاتيح متكون من 3 اعرف

يمكن التعديل والتلاعب فى الكود للاستفادة منه فى اشياء كثيرة

كما يمكنك تزويد عدد الاحرف من 3 الى اى عدد تريده فقط كل ما عليك توليد For بداخل For

ايقونة البرنامج

صورة البرنامج عند التشغيل

صورة للبرنامج بعد اتمام توليد الاحرف

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

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

كود :

Private abc As String = "abcdefghijklmnopqrstuvwxyz"

كما يمكنك دمج الاحرف العربية والانجليزية معاً وما غير ذلك

فتخيل ان السورس فكرة فما يمكنك انت من تطويره

السورس كود المستخدم فى الفورم كاملاً

كود :

Public Class Form1
   Private i, ii As Integer
   Private abc As String = "abcdefghijklmnopqrstuvwxyz"

   Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       REM الكود هنا لجعل الكتابة احرف فقط
       If Not (Asc(e.KeyChar) = 8) Then
           Dim allowedChars As String = abc
           If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
               e.KeyChar = ChrW(0)
               e.Handled = True
           End If
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       REM كود التحقق بعدد احرف النص
       If TextBox1.TextLength < 3 OrElse TextBox2.TextLength < 3 Then
           MsgBox("The Minimum Number Of Characters is 3 Letters.")
           Exit Sub
       End If

       REM القيم الافتراضية عند اتمام توليد المفاتيح
       i = 0
       ii = 0
       ProgressBar1.Minimum = 0
       ProgressBar1.Maximum = Val(abc.Length * abc.Length * abc.Length)
       ProgressBar1.Value = 0
       Label6.Text = 0
       Button1.Enabled = False
       TextBox3.Text = Nothing
       Label3.Text = "Not Finished"
       Label3.ForeColor = Color.Red
       Button2.Enabled = False

       REM رسالة تاكيد باتمام بدء عملية توليد المفاتيح
       Dim result As Integer = MessageBox.Show("Do you want to start the process of generating keys?", "Confirm The Start Process...", MessageBoxButtons.OKCancel)
       REM التحقق بالموافقة على الرسالة او الغاء الامر
       If result = DialogResult.Cancel Then
           Button1.Enabled = True
           Label3.Text = "Ready"
           Label3.ForeColor = Color.Blue
           Exit Sub
       End If

       REM كود توليد المفاتيح المكون من 3 احرف
       For Each ch1 In abc.ToCharArray()
           For Each ch2 In abc.ToCharArray()
               For Each ch3 In abc.ToCharArray()
                   ProgressBar1.Value += +1
                   If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox1.Text Then i = 1
                   If i = 1 Then
                       TextBox3.Text += (ch1.ToString() & ch2.ToString() & ch3.ToString()) & ", "
                       ii += 1
                       If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox2.Text Then i = 0
                   End If
               Next
           Next

           REM التحقق من اتمام توليد اجمالى 3 احرف كاملاً
           If ProgressBar1.Value = ProgressBar1.Maximum Then
               Button1.Enabled = True
               Label3.Text = "Finished"
               Label3.ForeColor = Color.Green
               Button2.Enabled = True
           End If
       Next

       REM اجمالى عدد المفاتيح التى تم انشائها فعلياً
       Label6.Text = ii
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       REM كود استبدال الفاصلة بسطر جديد تم انشاء الفكرة ليمكنك استخدامها مستقبلياً
       Dim SaveText As String = TextBox3.Text.Replace(", ", vbNewLine)
       REM تحديد مسار واسم الملف المطلوب حفظه
       Dim SelectPath As New SaveFileDialog()
       SelectPath.Filter = "Text Files (*.txt)|*.txt"
       SelectPath.FileName = ""
       SelectPath.FilterIndex = 2
       SelectPath.RestoreDirectory = True
       REM كود التحقق بتحديد المسار لاتمام حفظ واستخراج المفاتيح بالملف
       If SelectPath.ShowDialog() = DialogResult.OK Then
           My.Computer.FileSystem.WriteAllText(SelectPath.FileName, SaveText, True)
       End If
   End Sub
End Class

اتمنى ان السورس ينال اعجابكم

وان يكون مفيد لمن يريد مثل هذا السورس

السورس + برنامج للمعينة مرفق

السورس (2015)

تم اضافة تحديث فى الرد التالى

https://vb4arb.com/vb/showthread.php?tid...#pid126113

تحياتى لكم

وتمنياتى لكم التوفيق

[ابو روضة]

البرمجة لا يكون لها معنى إن لم تكن انت أحد أشخاصها أخى وحبيبى الجوكر...

[elgokr]

البرمجة لا يكون لها معنى إن لم تكن انت أحد أشخاصها أخى وحبيبى الجوكر...

هذا من اصلك الطيب اخى ابو روضة

فكل عام وانت بخير وعيد سعيد عليك وعلى الجميع

تحياتى لك

وتمنياتى لك التوفيق

[elgokr]

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

اضافة بعض اللمسات لجعل السورس يقوم بتوليد عدد 4 احرف للمفتاح الواحد

كما تم اضافة تقسيم حفظ نتائج المفاتيح فى عدد الملفات التى يتم تحديدها من قبل المستخدم

صورة للبرنامج بعد الاضافات

انا جعلت خصائص الارقام فالحد الاقصي بها 10 يمكنك تعديلها كما تشاء لاى عدد

عند تقسيم عدد المفاتيح على الملفات يجب ان يكون ناتج القسم وهو عدد الملفات على عدد المفاتيح

ان يكون رقم صحيح بدون اى كسور لذلك وضمان ذلك قمت بعمل كود ايضا يقوم بالتحقق وتنبيه بذلك

السورس + برنامج للمعينة بالمرفقات

السورس (2015)

تحياتى للجميع

وتمنياتى لكم التوفيق

[kebboud]

حفظك الله لنا يا استاذنا الجوكر

[elgokr]

حفظك الله لنا يا استاذنا الجوكر

تسلم اخى kebboud

وعيد سعيد عليك وعلى الجميع يارب

تحياتى لك

وتمنياتى لك التوفيق

[YousefOkasha]

اخي elgokr ..

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

[princelovelorn]

كل عام وانت بخير 
وجزاك الله عنا خير الجزاء

[elgokr]

اخي elgokr ..

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

اهلاً اخى YousefOkasha

كل عام وانت بخير وعيد سعيد عليك

اسعدنى كلامك كثيراً فشكراً لك واتمنى ان اكون بهذه المحبة دائماً حتى قيام الساعة

لان ما نحتاجه من الدنيا هو شاهد يشهد لنا امام الله بالمحبة

تحياتى لك

وتمنياتى لك التوفيق

كل عام وانت بخير 
وجزاك الله عنا خير الجزاء

اهلاً اخى princelovelorn

وانت بخير دائماً وعيد سعيد عليك وعلى الجميع

شكراً لك والشكر لله

تحياتى لك

وتمنياتى لك التوفيق