Foro de elhacker.net

Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Dim Zahl5 As Integer
Dim Zahl6 As Integer
Dim chr1 As String
Dim chr2 As String
Dim chr3 As String
Dim chr4 As String
Dim chr5 As String
Dim chr6 As String

Private Sub Command1_Click()


    Do
        Zahl1 = Zahl1 + 1 '1.) character
        chr1 = Chr(Zahl1)


        If Zahl1 > 123 Then '2.) character
            Zahl1 = 48'Set Zahl1(Chr) = 48 (chr(48)=0)
            Zahl2 = Zahl2 + 1
            chr2 = Chr(Zahl2) 'Convert
        End If


        If Zahl2 > 123 Then '3.) character
            Zahl1 = 48
            Zahl2 = 48
            Zahl2 = Zahl2 + 1
            chr2 = Chr(Zahl2)
            Zahl3 = Zahl3 + 1
            chr3 = Chr(Zahl3)
        End If


        If Zahl3 > 123 Then '4.) character
            Zahl1 = 48
            Zahl2 = 48
            Zahl3 = 48
            Zahl2 = Zahl2 + 1
            chr2 = Chr(Zahl2)
            Zahl3 = Zahl3 + 1
            chr3 = Chr(Zahl3)
            Zahl4 = Zahl4 + 1
            chr4 = Chr(Zahl4)
        End If


        If Zahl4 > 123 Then '5.) character
            Zahl1 = 48
            Zahl2 = 48
            Zahl3 = 48
            Zahl4 = 48
            Zahl2 = Zahl2 + 1
            chr2 = Chr(Zahl2)
            Zahl3 = Zahl3 + 1
            chr3 = Chr(Zahl3)
            Zahl4 = Zahl4 + 1
            chr4 = Chr(Zahl4)
            Zahl5 = Zahl5 + 1
            chr6 = Chr(Zahl6)
        End If


        If Zahl5 > 123 Then '6.) character
            Zahl1 = 48
            Zahl2 = 48
            Zahl3 = 48
            Zahl4 = 48
            Zahl5 = 48
            Zahl2 = Zahl2 + 1
            chr2 = Chr(Zahl2)
            Zahl3 = Zahl3 + 1
            chr3 = Chr(Zahl3)
            Zahl4 = Zahl4 + 1
            chr4 = Chr(Zahl4)
            Zahl5 = Zahl5 + 1
            chr5 = Chr(Zahl5)
            Zahl6 = Zahl6 + 1
            chr6 = Chr(Zahl6)
        End If


        If Zahl6 > 123 Then '7.) character
            MsgBox "Uncracked"
            End
        End If


        DoEvents
            Cls
            Print Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6
            Me.Label1 = chr1 & chr2 & chr3 & chr4 & chr5 & chr6
        Loop

    End Sub


Private Sub Form_Load()

    Zahl1 = 48
    Zahl2 = 48
    Zahl3 = 48
    Zahl4 = 48
    Zahl5 = 48
    Zahl6 = 48
End Sub