' Starke Zufallszahlen mit Methode PuTTY-SSH-Keygen/CheckPoint
' Firewall One-RSA-Schlüsselpaarerzeugung

ScreenRes 600, 400
Width 75, 25
Print "Bitte Maus im Rechteck beliebig bewegen"
Print "Fertig:";
Color 9
Print String(25, 219);
Color 14

Line (30, 40)-(530, 340), 2, bf

Dim x As Integer, y As Integer
Dim t As String, xAlt As Integer, yAlt As Integer, d2 As Integer

Dim stand As Integer, wuerfel(199) As Integer, z As Single, i As Integer

Randomize
xAlt = -2
yAlt = -2
stand = 0
While stand < 200
	GetMouse x, y
	If x >= 30 And y >= 40 And x <= 530 And y <= 340 Then
		d2 = (x - xAlt) * (x - xAlt) + (y - yAlt) * (y - yAlt)
		If d2 > 10 Then
			z = Timer
			wuerfel(stand) = (3 * x + 5 * y + CInt(20.0 * _
			(z - Int(z))) + CInt(300.0 * Rnd))Mod 6 + 1
			Line (56 + stand, 16)-Step(0, 15), 15
			stand += 1
			Locate 2, 35
			Print Using "###.#%"; 100.0 * CSng(stand) / 200.0
			xAlt = x
			yAlt = y
		EndIf
	EndIf	
	Sleep 20
Wend

Locate 4, 1
For i = 0 To 199
	Print wuerfel(i);
	If i Mod 20=19 Then
		Print
	EndIf
Next
Sleep