[Source] pr00f's Md5 Bruteforcer by Dictionary

[pr00f]

Am vazut ca panicatii de pe forum mi-au sarit in cap ca am pus keylogger in Md5 Bruteforcer, si m-am gandit sa fac sursa publica ca toti copii sa fure si sa puna numele lor pe ea.

---------------------------------------------------

[1] Se introduc :

- un timer - 5 milisecunde / porneste cu form-ul

- un background worker pentru treaba.

[2] Se importa urmatoarele :

Imports System
Imports System.Text
Imports System.Security.Cryptography

[3] Se ia urmatoarea functie pentru Md5 care aparent NU se gaseste pe net .

Function getMd5Hash(ByVal input As String) As String
Dim md5Hasher As MD5 = MD5.Create()
Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
Dim sBuilder As New StringBuilder()
Dim i As Integer
For i = 0 To data.Length - 1
     sBuilder.Append(data(i).ToString("x2"))
Next i
Return sBuilder.ToString()
End Function

[4][a] Butonul pentru citit & split-uit wordlist-ul in listbox :

Try
            If CheckBox2.Checked = True Then 
                ListBox1.Items.Clear()
            Else
                ' Go fuck yourself ;D
            End If
            Dim ofd As New OpenFileDialog
            ofd.Filter = "Text files (*.txt) |*.txt"
            ofd.Title = "Open wordlist"
            ofd.ShowDialog()
            TextBox1.Text = ofd.FileName
            ListBox1.Items.AddRange(Split _
                                    (My.Computer.FileSystem.ReadAllText _
                                     (TextBox1.Text), vbNewLine))
        Catch ex As Exception
            MsgBox(ErrorToString, MsgBoxStyle.Critical, "Error loading wordlist")
        End Try

* Checkbox2 curata lista.

[4] Butonul care adauga o linie manual :

If CheckBox1.Checked = True Then
            ListBox1.Items.Clear()
            ListBox1.Items.Add(TextBox3.Text)
            TextBox3.Text = ""
        Else
            ListBox1.Items.Add(TextBox3.Text)
            TextBox3.Text = ""
        End If

[5] Timer-ul :

Label1.Text = "You have " & ListBox1.Items.Count & " lines."

[6] Butonul pentru decriptare care porneste background worker-ul :

BackgroundWorker1.RunWorkerAsync()

![7] Butonul pentru criptarea Md5 :

TextBox5.Text = getMd5Hash(TextBox4.Text)

!![8] Decriptarea pe baza de dictionar (munca background worker-ului) :

For Each item In ListBox1.Items
            Dim item_md5 As String = getMd5Hash(item)
            If TextBox2.Text = item_md5 Then
                MsgBox("Provided Md5 : " & TextBox2.Text & vbNewLine & "Plain text : " & item)
            End If
        Next

- Ia fiecare item din lista respectiva

- Il cripteaza in Md5

- Daca este identic cu Md5-ul vostru, a gasit plain.

---------------------------------------------------

Pentru cei care cunosc (orice) limbaj(e) de programare : a fost greu ? Important e sa ai imaginatie si restul vine de la sine.

Pentru toti copiii frustrati care vor copia sursa si isi vor pune numele lor pe ea : credite mie (pr00f), sau vin si va omor ra?a cu care faceti baie.

[shauru]

chiar nu trebuia sa te justifici si sa pui sursa.. care vrea descarca care nu! sa fie sanatos

[pr00f]

Nu vreau sa fiu vazut ca un copil ingamfat care la un release de genul se crede prea important. Codul e simplu. Mi-a luat ~15 minute sa stau sa-l scriu, nu e mare prostie. Oricum, e doar un inceput. Las toti copilasii sa se joace cu ea. Am alte planuri legate de un soft ca asta in ... viitor.

[IceCrash]

Nu vreau sa fiu vazut ca un copil ingamfat care la un release de genul se crede prea important. Codul e simplu. Mi-a luat ~15 minute sa stau sa-l scriu, nu e mare prostie. Oricum, e doar un inceput. Las toti copilasii sa se joace cu ea. Am alte planuri legate de un soft ca asta in ... viitor.

"Viitorul incepe azi"

[luke999]

cal'mea sursa si vad ca ai si explicat pasii pentru orice prost:)) Bravo!

[osyk]

@Pr00f nu era obligatoriu sa te justifici

@luke999 nu trebuie sa facem pe nimeni prost.Poate vroiai sa spui nestiutor. Si de ce sa nu zicem prost?Pentru ca fiecare le stie pe ale lui.

@IceCrash e bine c-a pus sursa, poate se mai joaca unu prin ea si cine stie ce mai descopera;).. ii vine vreo idee.Oricand e bine venit ceva, mai ales "free" in ziua de azi.

[nedo]

Felicitari, cred ca trebuie sa ma apuc si eu de vb .

Ps. Asta confirma ce ti-am raspuns la un alt post al tau

[doiulyka]

Sincer nu imi trebuie programul.. dar posturile ma-au miscat bravo tie!! data viitoare nu mai posta sursele.. lasa-i sa se chinuie.. cui ii trebuie respectivul program il downloadeaza si cu riscul de a lua pureci deci.. Succes!

[symboss]

Am vazut ca panicatii de pe forum mi-au sarit in cap ca am pus keylogger in Md5 Bruteforcer, si m-am gandit sa fac sursa publica ca toti copii sa fure si sa puna numele lor pe ea.

Bravo,pe linga ca ai publicat sursa,ai si explicato succint.Oricum insa,tu decizi sa publici codul sursa sau nu.Ai putea face citeva mici greseli in cod,pentru a evita "ca toti copii sa fure si sa puna numele lor pe ea".Cine are idei de vb.net isi va da seama de ce nu merge codul publicat de tine.