Alle karakter kombinationer.

Noget i denne stil?

Sub AlleKombi(x As string, l As Int)
    Dim i As Long

    If l > 0 Then
        For i = 1 To 255
            x = x & Chr(i5)
            AlleKombi(x, l-1)
        Next
    Else
        ' Gør noget med x
    End If 
End Sub

Hvad skal du bruge det til? Hvordan skal det outputtes?

Jeg mener: Dit eget eksempel giver 255^5 = 1078203909375 kombinationer!!

Det kan jo ikke outputtes....

Det kunne bla. bruges til at finde passwordet på en Excel Workbook. Der kan man jo blive ved med at prøve password indtil man finder det rigtige.

Jeg havde dog ikke beregnet antallet af muligheder før jeg skrev dette indlæg. Det er et imponerende antal man kommer frem til. Det kommer nok til at tage et stykke tid for computeren og prøve alle sammen igennem.

Koden virker ikke helt som planlagt.

Jeg går ud fra at variablen i5 bare skal hedde i
x = x & Chr(i5)

Når jeg stepper igennem koden, bliver x i første omgang n antal karakterer lang, og længden bliver derefter forøget med 1 karakter af gangen.
Der bliver altså ikke fundet alle kombinationer med n antal karakterer.

Du kunne jo starte med at kun se på store/små bogstaver samt tal, som er de mest sandsynlige i et password. Det giver

(28+28+19)^5 = 1.252.332.567, altså kun godt 1000 milliarder kombinationer.

Og det er jo væsenligt mindre end 1.078.203.909.375, som jo er godt en million milliarder kombinationer.

he he

Er antallet af kombinationer for øvrigt ikke

256^5 = 1.099.511.627.776

Det er jo fra og med 0 til og med 255, som jo giver 256 forskellige karakterer.

Den korrekte måde at opbygge passwordet ville vel også være

Først at teste med 1 karakter og så 2 karakterer og så 3 karakterer osv. osv.

12/12-2007 16:50:18>

Jeg går ud fra at variablen i5 bare skal hedde i> Korrekt.

> Når jeg stepper igennem koden, bliver x i første omgang n antal karakterer lang, og længden bliver derefter forøget med 1 karakter af gangen.

Variablen x skal overføres med ByVal - det lyder som om at du får den overført som ByRef i stedet.

x bliver ved med at vokse i antal karakterer.

Hvordan ser din kode ud?

Jeg har kun testet i Excel VBA
Her er koden

Sub KaldAlleKombi()
  Dim x As String
  Call AlleKombi(x, 2)
End Sub

Sub AlleKombi(ByVal x As String, l As Long)
    Dim i As Long
    If l > 0 Then
        For i = 1 To 255
            x = x & Chr(i)
            Call AlleKombi(x, l - 1)
        Next
    Else
        Debug.Print x
    End If
End Sub

Prøv dette i stedet:

Sub KaldAlleKombi()
    Dim x As String
    Call AlleKombi(x, 2)
End Sub

Sub AlleKombi(ByVal x As String, l As Long)
    Dim i As Long
    If l > 0 Then
        For i = 1 To 255
            Call AlleKombi(x & Chr(i), l - 1)
        Next
    Else
        Debug.Print x
    End If
End Sub

måske:

        For i = 0 To 65535
            Call AlleKombi(x & ChrW(i), l - 1)
        Next

epimetheus, har du fået kigget på det?

??

Så har jeg fået kigget på det.
Jeg har afprøvet det i Excel for at se resultatet visuelt.

Det virker fint.

Sub KaldAlleKombi()
    Dim x As String
    Dim i As Long
    For i = 1 To InputBox("Indtast antal cifre.", "Antal cifre")
      Call AlleKombi(x, i)
    Next
End Sub

Sub AlleKombi(ByVal x As String, l As Long)
    Dim i As Long
    Dim r As Long
    If l > 0 Then
        For i = 33 To 255
            Call AlleKombi(x & Chr(i), l - 1)
        Next
    Else
      Sheet1.Range("A" & Sheet1.Range("A65536").End(xlUp).Row + 1) = x
    End If
End Sub

Jeg har udvidet koden, så den først finder 1 ciffer, derefter 2 cifre osv. osv.

Antallet af kombinationer bliver hurtigt astronomisk, hvilket vist ikke egner sig til at køre i VB. En udvidelse til alle kombinationer i Unicode er vist ikke realistisk.

Tak for hjælpen.

Så smider jeg da et svar :^)