Bei John Walkenbach steht das so...
10.05.2007 12:12:00
Luc:-?
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
...mein lieber Feuerspeier!
Das fkt. ganz normal! Es nutzt m.E. nur den Umstand aus, dass die meisten Leute relativ kurze, leicht merkbare Passwörter benutzen. Dadurch ergeben sich im Vgl zum Maximalpasswort zahlreiche gültige, aber nicht genutzte Passwortmöglichkeiten, deren erste dieses Pgm findet. Es fängt quasi hinten an.
Gruß Luc :-?
PS: Was sagt uns das...? Möglichst lange und kryptische Passwörter verwenden, dann haben's sogar Brute-Force-Passwort-Cracker schwer.