اخي اعتقد ان البرنامج يتوقف لان تيكست قد امتلأ
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