Sub Globals()
Dim NumBadPasswords As Int = 0
Dim PasswordTimeout As Long = 0
End Sub
Sub TryPassword(P As String) As Boolean 'restituisce True se la password è stata accettata, False in caso contrario
If DateTime.Now > PasswordTimeout Then
If P = "TopSecret42" Then
NumBadPasswords = 0
Return True
Else
NumBadPasswords = NumBadPasswords + 1
If NumBadPasswords => 3 Then
PasswordTimeout = DateTime.Now + 5 * 60 * 1000 '5 minuti
End If
Return False
End If
Else
Log("Troppe password sbagliate - attendere qualche minuto prima di riprovare")
Return False
End If
Return False 'non dovrebbe mai arrivare qui, ma... per sicurezza
End Sub