Brute forcer algoritme

Til inspiration:

Option Explicit
Option Strict

Imports System

Module Main
    Sub Perm(ca() As Char, ix As Integer)
        If ix < ca.Length - 1 Then
            Dim i As Integer
            For i = 0 to 25
                ca(ix) = Convert.ToChar(97 + i)
                Perm(ca, ix + 1)
            Next
        Else
            Console.WriteLine(New string(ca))
        End If
    End Sub
    Sub Perm(n As Integer)
        Dim i As Integer
        For i = 1 To n
            Dim ca(i) As Char
            Perm(ca, 0)
        Next
    End Sub
    Sub Main()
        Perm(2)
    End Sub
End Module

arne v >> hvad gør den kode?

det skal lige siges at brute forceren skal bruges til et project på htx og ikke til hacking/cracking

Du kunne jo prøve og køre den !

:-)

Den udskriver alle 1 og 2 bogstavs kombinationer af a-z.

hvordan bruger jeg koden? jeg har puttet den i et module. men hvordan får jeg et output fra det? F.eks til en textbox

Btw hvordan får jeg koden til at fortsætte med at lave kombinationer? dvs flere end 2 cifre, F.eks hvis jeg gerne vil have den til at lave 10 (aaaaaaaaaa > aaaaaaaaab) osv

hvor vil du gøre af alle de kombinationer?

jeg skal kun bruge en af gangen, de skal skrives i et textarea(multiline textbox)
på hver sin linie. jeg vil gerne have en variablel til at indeholde først a derefter b osv.

hvis du erstatter

Perm(2)

med

Perm(10)

vil den lave alle kombo med 1-10 tegn.

NB: den vil også tage noget tid at køre !

Hvis du erstatter:

Console.WriteLine(New string(ca))

med:

ta.Text += (New string(ca) + Environment.NewLine)

så fylder den i ta (men det skal du ikke gøre med 1-10 kombinationer !!)

Til reference: 1-10 tegn (med det tegnsæt du nævner) giver 146.813.779.479.510 forskellige kombinationer - heraf er 141.167.095.653.376 af dem på 10 tegn, mens resten er 1-9. Hvis vi går ud fra at du kan generere 1 million kombinationer i sekundet (for nu lige at have et nemt tal at arbejde med), vil det tage dig ca. 4 år og 8 måneder at løbe dem igennem.

En god benchmark ville være at prøve med 1-6 tegn, der "kun" er 321.272.406 kombinationer - gang antallet af sekunder det tager at løbe dem igennem med 5 dage og 7 timer, så har du et meget godt estimat af hvor lang tid 1-10 tegn vil tage.

Mht. tekstboks, vil den nok allerede dø når den er igang med 6 tegn.

*går igen*

jeg ved godt det vil tage MEGET lang tid, men jeg har ikke andre måder at gøre det på...

jeg kan stadig ikke hitte ud af at få "ta" frem i en textbox, "name 'ta' is not declared."

ta er TextBox variablen

skal jeg ikke putte koden i et modul? (højre-klik i solution explorer > add > module)
jeg har prøvet sta skrive textbox1.text = ta men får bare "name 'ta' is not declared."

Nej.

Hvis du vil have det i din win form, så bare put det i den kode.

Hvis din TextBox hedder textbox1, så er det:

textbox1.Text += (New string(ca) + Environment.NewLine)

sådan?:
Option Explicit On
Option Strict On

Imports System
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
Module Main
        Sub Perm(ByVal ca() As Char, ByVal ix As Integer)
            If ix < ca.Length - 1 Then
                Dim i As Integer
                For i = 0 To 25
                    ca(ix) = Convert.ToChar(97 + i)
                    Perm(ca, ix + 1)
                Next
            Else
                ta.Text += (New String(ca) + Environment.NewLine)
            End If
        End Sub
        Sub Perm(ByVal n As Integer)
            Dim i As Integer
            For i = 1 To n
                Dim ca(i) As Char
                Perm(ca, 0)
            Next
        End Sub
        Sub Main()
            Perm(2)
        End Sub
    End Module
End Class

det giver mig "module statements can occur only at file or namespace level."
undskyld jeg spørger så meget, men jeg bruger ikke visual basic ret meget

hallo? er der nogen?

Som fejlen siger, så kan du ikke have et module inden i en class.

module ud

du skal bruge de to perm sub'er

indholdet af main skal vel flyttes til en button click event

nu har jeg:
Public Class Form1

    Private Sub cmdnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnext.Click
        Perm(2)
    End Sub
-------------------------------------------------------------------------

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
-------------------------------------------------------------------------

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Perm(2)
    End Sub
-------------------------------------------------------------------------

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
-------------------------------------------------------------------------

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
-------------------------------------------------------------------------

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Perm(2)
    End Sub
-------------------------------------------------------------------------

    Sub Perm(ByVal ca() As Char, ByVal ix As Integer)
        If ix < ca.Length - 1 Then
            Dim i As Integer
            For i = 0 To 25
                ca(ix) = Convert.ToChar(97 + i)
                Perm(ca, ix + 1)
            Next
        Else
            txtmain.Text += (New String(ca) + Environment.NewLine)
        End If
    End Sub
-------------------------------------------------------------------------

    Sub Perm(ByVal n As Integer)
        Dim i As Integer
        For i = 1 To n
            Dim ca(i) As Char
            Perm(ca, 0)
        Next
    End Sub
End Class
-------------------------------------------------------------------------

jeg får ingen fejl, men den skriver "abcdefghijklmnopqrstuvwxyzaaabacadaeafagahai......" på en gang,
istedet for at gå et trin videre når jeg trykker?

er der nogen der kan forklare mig hvordan den kode "genererene" del af koden viker?

og selvfølgelig hjælpe med fejlen i min sidste post

Det lyder som om din text box ikke er multi line !

Algoritmen er en lige ud af landevejen rekursiv algoritme.

Man skal lige være opmærksom på at:

Convert.ToChar(97 + i)

returnerer 'a' til 'z' fordi 'a' har kode 97 !

Ahh, det er den ikke, jeg mente at jeg ville have dem til at komme frem en af gangen i en single-line textbox når jeg klikkede på knappen.
det med multiline textbox er noget helt andet, det kan jeg godt selv klare :D,

undskyld jeg forklarer det så dårligt :/

kan jeg få den til at stated ved F.eks 3(aaa > aab) og bare hoppe de andre over?

Sub Perm(ByVal n As Integer)
        Dim i As Integer
        For i = 3 To n
            Dim ca(i) As Char
            Perm(ca, 0)
        Next
    End Sub

Og et svar.