[VB6] BruteForce *Updated*
Hier ein kleiner BruteForce code den ich für mein MD5 Tool verwende. Er ist Vollständig von mir Entwickelt :P . Er funtzt soweit ganz gut ist nur bissle lahm. Wenn ihr extra zeichen adden wollt müsst ihr die Zeichen ins das Array eintragen und die länge der Schleifen anpassen.
Edit:// So hab bissle verbessert
Code:
Dim char()
char = Array()
char = Array("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")
'------------------------* 1 *------------------------
For i = 0 To 25
'------------------------* 2 *------------------------
For d = 0 To 25
'------------------------* 3 *------------------------
For c = 0 To 25
'------------------------* 4 *------------------------
For e = 0 To 25
'------------------------* 5 *------------------------
For r = 0 To 25
'------------------------* 6 *------------------------
For t = 0 To 25
'------------------------* 7 *------------------------
For f = 0 To 25
'------------------------* 8 *------------------------
For g = 0 To 25
DoEvents
tmp2 = char(i) + char(d) + char(c) + char(e) + char(r) + char(t) + char(f) + char(g)
tmp3 = MD5.CalculateMD5(tmp2)
If Text4.Text = tmp3 Then
MsgBox ("Your Hash: " + tmp3 + vbNewLine + "Your Password: " + tmp2)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Greetz Zer0Flag
