Password Cracking Program code

//5 words password cracking programming, we can use for same 1 to 15 character password breaking,the same concept will apply//

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs) Handles Button1.Click
Dim cnt = 0, a = 0, b = 0, c = 0, d = 0, m = 0, o = 0, p = 0, q = 0, r = 0,_ i, j, k, l, ai, aj, ak, al, am As Integer
' Dim x As Char
'for(n=64;n<=90;n++)
'{
' x = TextBox1.Text
't = x
For m = 64 To 90
For l = 64 To 90
For k = 64 To 90
For j = 64 To 90
For i = 65 To 90
cnt += 1
If CheckBox6.CheckState = CheckState.Checked Then
If TextBox1.Text = Val(cnt) Then
GoTo line1
End If
End If
If (cnt < 26) Then
ProgressBar1.Maximum = 26
ElseIf (cnt < 676) Then
ProgressBar1.Maximum = 676
ElseIf (cnt < 17576) Then
ProgressBar1.Maximum = 17576
ElseIf (cnt < 456976) Then
ProgressBar1.Maximum = 456976
ElseIf (cnt < 11881376) Then
ProgressBar1.Maximum = 11881376
End If
If (cnt = 26) Then
CheckBox1.CheckState = CheckState.Checked
ElseIf (cnt = 676) Then
CheckBox2.CheckState = CheckState.Checked
ElseIf (cnt = 17576) Then
CheckBox3.CheckState = CheckState.Checked
ElseIf (cnt = 456976) Then
CheckBox4.CheckState = CheckState.Checked
ElseIf (cnt = 11881376) Then
CheckBox5.CheckState = CheckState.Checked
End If
ProgressBar1.Value = cnt
'//if(e>65)
' //{
' // cout<char(j)< ' //}
' // else
If (d = 92) Then
am = m + 32
al = l + 32
ak = k + 32
aj = j + 32
ai = i + 32
If (l = 64) Then
ElseIf (k = 64) Then
ElseIf (j = 64) Then
Else
r += 1
TextBox3.Text = (ChrW(m) & ChrW(l) & ChrW(k)_
& ChrW(j) & ChrW(i))
TextBox4.Text = (ChrW(am) & ChrW(al) & ChrW(ak)_ & ChrW(aj) & ChrW(ai))
If (TextBox1.Text = TextBox3.Text) Then
GoTo line1
ElseIf (TextBox1.Text = TextBox4.Text) Then
GoTo line1
End If
End If
ElseIf (c = 92) Then
al = l + 32
ak = k + 32
aj = j + 32
ai = i + 32
If (k = 64) Then
ElseIf (j = 64) Then
Else
q += 1
TextBox3.Text = (ChrW(l) & ChrW(k) & ChrW(j)_
& ChrW(i))
TextBox4.Text = (ChrW(al) & ChrW(ak) & ChrW(aj)_ & ChrW(ai))
If (TextBox1.Text = TextBox3.Text) Then
GoTo line1
ElseIf (TextBox1.Text = TextBox4.Text) Then
GoTo line1
End If
End If
ElseIf (b = 92) Then
ak = k + 32
aj = j + 32
ai = i + 32
If (j = 64) Then
Else
TextBox3.Text = (ChrW(k) & ChrW(j) & ChrW(i))
TextBox4.Text = (ChrW(ak) & ChrW(aj) & ChrW(ai))
If (TextBox1.Text = TextBox3.Text) Then
GoTo line1
ElseIf (TextBox1.Text = TextBox4.Text) Then
GoTo line1
End If
p += 1
End If
ElseIf (a > 66) Then
aj = j + 32
ai = i + 32
TextBox3.Text = (ChrW(j) & ChrW(i))
TextBox4.Text = (ChrW(aj) & ChrW(ai))
If (TextBox1.Text = TextBox3.Text) Then
GoTo line1
ElseIf (TextBox1.Text = TextBox4.Text) Then
GoTo line1
End If
o += 1
ElseIf (a < 65) Then
ai = i + 32
TextBox3.Text = (ChrW(i))
TextBox4.Text = (ChrW(ai))
If (TextBox1.Text = TextBox3.Text) Then
GoTo line1
ElseIf (TextBox1.Text = TextBox4.Text) Then
GoTo line1
End If
' n += 1
' If (t = i) Then
' GoTo password
Else

' textbox3.Text = "Sorry, We can't Solve more than_ five::"
' End If
End If
Next i
a = i + 1
Next j
b = j + 1
Next k
c = k + 1
Next l
d = l + 1
Next m
'e=n+1;
'}
'password:
' textbox3.Text = "Your Password is::" & ChrW(t)
' textbox3.Text = "Total no of words of 1 character checked::" & n
' textbox3.Text = "Total no of words of 2 character checked::" & o
' textbox3.Text = "Total no of words of 3 character checked::" & p
' textbox3.Text = "Total no of words of 4 character checked::" & q
' textbox3.Text = "Total no of words of 5 character checked::" & r
line1:
TextBox3.Text = TextBox1.Text
TextBox2.Text = cnt * 2
ProgressBar1.Value = ProgressBar1.Maximum
End Sub