[VB6] BruteForce *Updated*

[Zer0Flag]

Hier ein kleiner BruteForce code den ich für mein MD5 Tool verwende. Er ist Vollständig von mir Entwickelt . 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

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

[G36KV]

lol also das ist wirklich ein extrem schlechter code schnipsel. Klar das das total langsam ist. Besonders langsam wird es, weil du dauernd mit den Textboxen arbeitest...

bsp:
tmp.Text = MD5.CalculateMD5(Text5.Text)

Was glaubst du warum es in Programmiersprachen variablen gibt?

[Zer0Flag]

Ich weiß das ich das in Variablen Speichern kann. Wie gesagt hab ich den auf mein MD5Tool zugechnitten damit mit man z.b. Das PW sieht das gerade benutzt wird. Ausserdem ist es eine ältere Version und dient zu lern Zwecken.

Trozdem danke für deine Hinweise


greezt Zer0Flag