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

الصفحات : 1 2

شكرا لك اخي 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

السلام عليكم

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

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

كود :

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

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

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

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

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

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

Exit Sub

الى

TextBox1.Text += s & vbCrLf

Exit Sub

عند تشغيل الكود الاول باربع احرف البرنامج يعمل
لكن عند اضافة اكثر من اربع احرف البرنامج يتوقف عن العمل Big Grin

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

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

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 الى اسم المستخدم في جهازك

الصفحات : 1 2

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

AbdoDabak

baha

AbdoDabak

AbdoDabak