pr00f

Poftim fetele http://rstcenter.com/forum/31130-source-pr00fs-md5-bruteforcer-dictionary.rst#post210953 > pentru voi toate.

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.

Dupa ce ca in comment am dat tot mura-n-gura, mai si vrei sursa ?

Comment : - Introduceti o lista de cuvinte (plain text, nu md5), introduceti Md5-ul dorit, si apasati decrypt. - Ce/cum face ? Ia pe rand din lista respectiva cate o linie (pot fi mai multe cuvinte pe linie, orice combinatie) si o cripteaza prin algoritmul Md5, apoi verifica daca este identic cu hash-ul vostru. - Foarte rapid. - Edit : cand am timp fac si pentru SHA1 / SHA256. Images : Scan : Download : Multiupload.com - upload your files to multiple file hosting sites! Passw0rd : TWQ1X0JydXRlZm9yY2Vy

@ HellScream : tu chiar ai vecini ?!

Nu vreau sa iti stric oferta, dar uite aici acelasi cacat moka.

Eu... am fost credincios. Pana acum 1-2 ani, cand m-am 'trezit' putin la realitatea... mea. De mic am fost crescut si de parinti si de bunici, si mi-au fost bagate-n cap anumite lucruri cu forta, sa zic asa. In ultima perioada si nu numai, am avut destule probleme personale si nu numai, puteam sa dau si la altii si inca ramaneam cu multe pe cap. Plus ca eu sunt genul de om care nu crede pana nu vede. Extraterestrii ? Nu, glume ale americanilor. Fete virgine ? Meh, las-o asa. Dumnezeu ? Um... Nu. Toata chestia asta cu dumnezeu, iisus & co. nu o inteleg. "Nu ca el ne ajuta si ne binecuvanteaza si ..." - Nu prea cred. Daca dansul chiar ar exista si i-ar pasa de oameni, de ce pula mea sunt razboaie, de ce iarba nu e legala, de ce este restrictie la porno, etc. Iisus vindeca oamenii punand mana pe ei ? Nu, el inventase aspirinadin fecale de porc. S-a sacrificat pentru omenire ? Nu, lui ii era frica sa nu si-o ia mai rau. Dumnezeu e sus si ne vegheaza ? Nu frate, se uita satelitele google la noi in casa cand ne-o frecam, si dupa ne miram de ce sunt atatea site-uri porno pline.

Sper ca intelegi faptul ca nu il cunosc, n-am nici o treaba cu el, nu stiu ce ras? e, de unde vine si ce cacat mananca. Va uitati la IP-uri, pnm, nu stiu ce faceti dar na, nici obligat n-as face asa ceva.

@ little123 : Cand ti-oi lipi un crac peste bot nu mai comentezi. Invata sa faci diferenta intre un om normal si un nenorocit de fan. NU IL MAI BAGATI IN SEAMA .

Nu-l baga in seama, e doar retardat. Fan <3.

Atentie la data-cur astia Site-ul web de la data-game.ro con?ine elemente de pe site-ul huaned.net, care pare a g?zdui programe malware (software care poate d?una computerului sau care poate func?iona f?r? consim??mântul dvs.). Computerul poate fi infectat prin simpla accesare a unui site care con?ine programe malware. Pentru informa?ii detaliate despre problemele legate de aceste elemente, accesa?i Pagina de diagnostic Navigare sigur? Google pentru huaned.net.

Dam vina pe gugal sau pe lumea care a corectat traducerea ?

38/43. The message you have entered is too short.

Sunt bestiali. Sa mi se arda sursa !

O sa ajungem ca domnisoara ... Poza cu boarfele ude pe o plaja din Panamea.

M-am uitat peste sursa si nu e nimic legat de JS. Doar un basic HTML + JavaScript pentru design.

Merge perfect, +1 rep.

Am IPv6 de la RDS | crapu.ro < ?sta cic? are ipv6 de la RDS.

A apasat prea devreme pe tragaci.

Sales : http://www.autotrafficmachines.com Download : http://www.autotrafficmachines.com/Download34985/

?i eu care credeam c? se vorbe?te despre McDonald's. P.S. : Ghici Cine.

Mie imi merge. Multumesc Gonzales, +rep.

Cu 100.000 euro cumperi 5 cat ea si le tii toata viata.

Da, soft-ul updatat Nokia OVI Suite, si la conectare alegi optiunea prin bluetooth. Daca esti pe laptop, ai deja bluetooth, dar daca esti pe PC, ai nevoie de un stick pt bluetooth.

De curiozitate, stii ca FearDotCom se citeste ca fi?r punct com si se intelege a fi un domeniu care nu este inregistrat, rezulta ca iti faci reclama negativa ?