For stellen=1 to 49

cpass$=""

for cstellen=1 to stellen

for moeglichkeit=0 to 255

cpass$=cpass$+chr(moeglichkeit)

if cpass$=richtigespasswort$ then return "found"

next

next

next

Graphics 800,50,32,2
SetBuffer BackBuffer()

Dim pw(6)
For t=1 To 6
   pw(t) = Rand(0,40)
Next

Dim tc(6)


start = MilliSecs()
While Not KeyHit(1)


tc(6) = tc(6) + 1
g = g+1
If tc(6) = 41 Then tc(5)=tc(5)+1 : tc(6)=0
If tc(5) = 41 Then tc(4)=tc(4)+1 : tc(5)=0
If tc(4) = 41 Then tc(3)=tc(3)+1 : tc(4)=0
If tc(3) = 41 Then tc(2)=tc(2)+1 : tc(3)=0
If tc(2) = 41 Then tc(1)=tc(1)+1 : tc(2)=0
If tc(1) = 41 Then tc(1)=0

secs = (MilliSecs() - start) / 1000.0
per# = g / Float(40^6)
secs = Float(secs) / per#

days = Floor(secs/86400.0)
secs = secs - (days*86400)
d = (20*d + days) / 21

hours = Floor(secs/3600.0)
secs = secs - (hours*3600)
h = (20*h + hours)/21

mins = Floor(secs/60.0)
secs = secs - (mins*60)
m = (20*m + mins) / 21

s = (20*s + secs) / 21
Cls
Text 1,1,"Noch " + d + " Tage, "+h+" Stunden, "+m+" Minuten und "+s+" Sekunden."
Flip

Wend
End