The art of cracking - Tutoriali

potraje ali bruteforceovanje je bas takvo, ipak postoji “samo” 244,140,625kombinacija koje treba proveriti.Algoritam:Dim table(1 To 26) As StringFor i = 65 To 90table(i - 64) = Chr(i)Next iLabel3.Caption = "Time Start: " & Time$Me.RefreshFor i1 = 1 To 26For i2 = 1 To 26For i3 = 1 To 26For i4 = 1 To 26For i5 = 1 To 26For i6 = 1 To 26sm = Asc(table(i1)) Xor Asc(table(i2)) Xor Asc(table(i3)) Xor Asc(table(i4)) XorAsc(table(i5)) Xor Asc(table(i6))my = (Val(Text1.Text) Xor sm Xor Asc(table(i1)))If my = 77 Thenmy = (Val(Text2.Text) Xor sm Xor Asc(table(i2)))If my = 90 Thenmy = (Val(Text3.Text) Xor sm Xor Asc(table(i3)))If my = 144 Thenmy = (Val(Text4.Text) Xor sm Xor Asc(table(i4)))If my = 0 Thenmy = (Val(Text5.Text) Xor sm Xor Asc(table(i5)))If my = 3 Thenmy = (Val(Text6.Text) Xor sm Xor Asc(table(i6)))If my = 0 ThenList1.AddItem table(i1) & table(i2) & table(i3) & table(i4) & table(i5) & table(i6)GoTo 2End IfEnd IfEnd IfEnd IfEnd IfEnd IfLabel2.Caption = table(i1) & table(i2) & table(i3) & table(i4) & table(i5) & table(i6)Form1.Caption = "BruteForcer - " & Label2.CaptionNext i6Next i5Next i4Next i3Next i2Next i12Form1.Caption = "BruteForcer"Label3.Caption = Label3.Caption & " - End: " & Time$Objasnjenje:Tekstualna polja od 1 do 6 sekoriste za unosenje prvih sestbajtova iz enkriptovanog fajla.Ako koristite HEX vrednosti nezaboravite da uh unosite kao &Hpa tek onda HEX vrednost bajta.Pritiskom na dugme BruteForcealgoritam od gore se izvrsava ikrece se sa razbijanjempassworda. Source se nalazi ufolderu ...\ Cas9\Source2\bforceThe Art of Cracking by Ap0x Page 106 of 165