[AbdoDabak]

شكرا لك اخي fouadhdfouad بس الكود ما صار بدي يكون الكود متل

PHP كود :

For i = 65 To 65 + 25
            TextBox1.Text += "A" & ChrW(i) & vbCrLf & "B" & ChrW(i) & vbCrLf & "C" & ChrW(i) & vbCrLf
        Next 


بس يكمل لحالو لاخر الحرف يعني يبدل A , B , C لوقت ما يوصل لل Z
وبعدا يصيروا 3 ليصير الكود هيك

PHP كود :

For i = 65 To 65 + 25
            TextBox1.Text += "A" & "A" & ChrW(i) & vbCrLf & "A" & "B" & ChrW(i) & vbCrLf & "A" & "C" & ChrW(i) & vbCrLf
        Next 


بس كمان بدي لحاولو يكمل يثبت ال A ويبدل A , B , C لل Z بس يوصل لل Z
يثبت بدل ال A  = B  ويبدل A , B , C لل Z 
لوقت ما يصل لل Z
يعني ببساطة كل الاحتمالات الممكنة ترتيبها للاحرف في 3 خانات
رح يكون جوابها          26*26*26 =  17576

[baha]

السلام عليكم

لم أستطع تشغيل البرنامج قد يكون خطأ في خطوات التشغيل.

وجدت هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr() As String = {"A", "B", "C"}
     Dim len As Integer = arr.Length
       crack(arr, len)
   End Sub


Private Sub generate(ByVal arr() As String, ByVal i As Integer, ByVal s As String, ByVal len As Integer)

 If i = 0 Then 
      TextBox1.Text += s & vbLf

 Exit Sub
        End If

        ' iterate through the array 
        For j As Integer = 0 To len - 1
            ' Create new string with next character 
            ' Call generate again until string has 
            ' reached its len 
            Dim appended As String = s + arr(j)
            generate(arr, i - 1, appended, len)
        Next
    End Sub

  ' function to generate all possible passwords 
    Private Sub crack(ByVal arr As String(), ByVal len As Integer)

        ' call for all required lengths 
        For i As Integer = 1 To len

            generate(arr, i, "", len)
        Next
    End Sub
           

 أرجو أن يكون مفيداً

عيب هذا الكود أنه يتوقف عند اضافة الحروف إلى المصفوفة من الحرف E,

 أيضاً يتوقف الترقيم عند الحرف الأخير من المصفوفة

أي إذا كانت المصفوفة {"Dim Array() As String ={"A","B,"C  

المخرج:
             A
             B
             C
            AA
             .
             . 
             .
           CCC

---

(30-09-19, 07:40 AM)AbdoDabak كتب : عندي نص فيه 9000 سطر و
محتاج كود لتصغير الاحرف الكبيرة في التيكست بصير ولا ما بصير
وكود ثان لازالة الارقام من النص

لتكبير حالة الأحرف

كود :

TextBox1.Text = TextBox1.Text.ToUpper()

لتصغير حالة الأحرف

كود :

TextBox1.Text = TextBox1.Text.ToLower()

كود ازالة الأرقام من مربع نص

كود :

Dim str As String
       For i As Integer = 1 To TextBox1.Text.Length
           If IsNumeric(Mid(TextBox1.Text, i, 1)) = False Then
               str &= Mid(TextBox1.Text, i, 1)
           End If
       Next
       TextBox1.Text = str

تمنياتي لك وللجميع التوفيق

[AbdoDabak]

اخي عندك برنامج Winrar

---

اعتقد انو البرنامج ما رح يشتغل ليكون في برنامج Winrar

---

اخي شكرا الك نجحت الاكواد بس الكود الاول
"A" "B" "C"  كيف بدي اخلي يكتب سطر بين كل 3 احرف
هو عبيكتب كلو مع بعض
وشكرا على المساعدة

---

اخي مشي حال الاسطر قمت بتغيير
If i = 0 Then
     TextBox1.Text += s & vbLf

Exit Sub

الى

     TextBox1.Text += s & vbCrLf

Exit Sub

---

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

[AbdoDabak]

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

---

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr() As String = {"A", "B", "C", "D", "E", "F", "G", "H"}
        Dim len As Integer = arr.Length
        crack(arr, len)
    End Sub


    Private Sub generate(ByVal arr() As String, ByVal i As Integer, ByVal s As String, ByVal len As Integer)

        If i = 0 Then
            TextBox1.Text += s & vbCrLf

            Exit Sub
        End If
        If i = 4 Then

            Exit Sub
        End If

        ' iterate through the array 
        For j As Integer = 0 To len - 1
            ' Create new string with next character 
            ' Call generate again until string has 
            ' reached its len 
            Dim appended As String = s + arr(j)
            generate(arr, i - 1, appended, len)
        Next
    End Sub

    ' function to generate all possible passwords 
    Private Sub crack(ByVal arr As String(), ByVal len As Integer)

        ' call for all required lengths 
        For i As Integer = 1 To len

            generate(arr, i, "", len)
        Next
    End Sub 


اخي هيك اشتغل

---

تم حل المشكلة شكرا لك اخي

---

PHP كود :

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        Dim len As Integer = arr.Length
        crack(arr, len)
    End Sub


    Private Sub generate(ByVal arr() As String, ByVal i As Integer, ByVal s As String, ByVal len As Integer)
        If i = 0 Then
            TextBox1.Text += s & vbCrLf
            My.Computer.FileSystem.WriteAllText("C:\users\Abdo\desktop\3.txt", TextBox1.Text, True)
            TextBox1.Text = Nothing

            Exit Sub
        End If
        If i = 4 Then
            End
        End If
        ' iterate through the array 
        For j As Integer = 0 To len - 1
            ' Create new string with next character 
            ' Call generate again until string has 
            ' reached its len 
            Dim appended As String = s + arr(j)
            generate(arr, i - 1, appended, len)
        Next
    End Sub

    ' function to generate all possible passwords 
    Private Sub crack(ByVal arr As String(), ByVal len As Integer)

        ' call for all required lengths 
        For i As Integer = 1 To len

            generate(arr, i, "", len)
        Next
    End Sub
End Class 


فقط قم بتغيير اسم المستخدم Abdo  الى اسم المستخدم في جهازك