The Art of Reversing by Ap0x - Tutoriali.org

potraje ali bruteforceovanje je bas takvo, ipak postoji “samo” 244,140,625
kombinacija koje treba proveriti.
Algoritam:
Dim table(1 To 26) As String
For i = 65 To 90
table(i - 64) = Chr(i)
Next i
Label3.Caption = "Time Start: " & Time$
Me.Refresh
For i1 = 1 To 26
For i2 = 1 To 26
For i3 = 1 To 26
For i4 = 1 To 26
For i5 = 1 To 26
For i6 = 1 To 26
sm = Asc(table(i1)) Xor Asc(table(i2)) Xor Asc(table(i3)) Xor Asc(table(i4))
Asc(table(i5)) Xor Asc(table(i6))
my = (Val(Text1.Text) Xor sm Xor Asc(table(i1)))
If my = 77 Then
my = (Val(Text2.Text) Xor sm Xor Asc(table(i2)))
If my = 90 Then
my = (Val(Text3.Text) Xor sm Xor Asc(table(i3)))
If my = 144 Then
my = (Val(Text4.Text) Xor sm Xor Asc(table(i4)))
If my = 0 Then
my = (Val(Text5.Text) Xor sm Xor Asc(table(i5)))
If my = 3 Then
my = (Val(Text6.Text) Xor sm Xor Asc(table(i6)))
If my = 0 Then
List1.AddItem table(i1) & table(i2) & table(i3) & table(i4) & table(i5) & table(i6)
GoTo 2
End If
End If
End If
End If
End If
End If
Label2.Caption = table(i1) & table(i2) & table(i3) & table(i4) & table(i5) & table(i6)
Form1.Caption = "BruteForcer - " & Label2.Caption
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
2
Form1.Caption = "BruteForcer"
Label3.Caption = Label3.Caption & " - End: " & Time$
Objasnjenje:
Tekstualna polja od 1 do 6 se
koriste za unosenje prvih sest
bajtova iz enkriptovanog fajla.
Ako koristite HEX vrednosti ne
zaboravite da ih unosite kao &H
pa tek onda HEX vrednost bajta.
Pritiskom na dugme BruteForce
algoritam odozgo se izvrsava i
krece se sa razbijanjem
passworda. Source se nalazi u
folderu ...\ Cas9\Source2\bforce
Xor
The Art of Reversing by Ap0x Page 177 of 293