|
'Brute Force By Piero Tofy © 'Http://www.pierotofy.too.it Public Sub BruteForce(output As TextBox) On Error GoTo 1 Dim base base = Array("", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "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", "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") Dim x As Single x = UBound(base) 'Cerca la password di 10 caratteri For zero = 0 To x DoEvents zerox = base(zero) For uno = 0 To x DoEvents unox = base(uno) For due = 0 To x DoEvents duex = base(due) For tre = 0 To x DoEvents trex = base(tre) For quattro = 0 To x DoEvents quattrox = base(quattro) For cinque = 0 To x DoEvents cinquex = base(cinque) For sei = 0 To x DoEvents seix = base(sei) For sette = 0 To x DoEvents settex = base(sette) For otto = 0 To x DoEvents ottox = base(otto) For nove = 0 To x DoEvents novex = base(nove) output.Text = zerox & unox & duex & trex & quattrox & cinquex & seix & settex & ottox & novex output.Refresh Next nove Next otto Next sette Next sei Next cinque Next quattro Next tre Next due Next uno Next zero Exit Sub 1 MsgBox Err.Description, 48, "Chiusura in Corso..." End End Sub Private Sub cmdstart_Click() BruteForce txtbru End Sub Private Sub Form_Unload(Cancel As Integer) MsgBox "Http://www.pierotofy.too.it", , "Exit" End End Sub
|
|
