' WEP-Schl�sselgenerator
' (c) 2004 by Andreas Meile, CH-8242 Hofen SH

DECLARE FUNCTION HexFuehrNull$ (w%, b%)

RANDOMIZE TIMER

PRINT "Generator f�r einen WEP-Schl�ssel f�r 128 Bit Verschl�sselungsst„rke"
PRINT "Es werden abz�glich des Initalisierungsvektors total 26 Hexstellen"
PRINT "erzeugt. Dazu nachfolgend bitte v”llig zuf„llige Tasten dr�cken"
PRINT
PRINT "0x"; STRING$(26, "*");
LOCATE , 3

s$ = ""
FOR i% = 1 TO 13
  DO
    ta$ = INKEY$
  LOOP WHILE ta$ = ""
  t! = TIMER
  z1% = ASC(RIGHT$(ta$, 1))
  t2! = t! * 256! / 3600!
  z2% = CINT(INT(256! * (t2! - INT(t2!))))
  z3% = CINT(INT(256! * RND))
  ' PRINT z1%; z2%; z3%
  z% = z1% XOR z2% XOR z3%
  PRINT HexFuehrNull$(z%, 2);
  s$ = s$ + HexFuehrNull$(z%, 2)
NEXT i%

PRINT
PRINT "Schl�ssel wurde generiert"

FUNCTION HexFuehrNull$ (w%, b%)
  h$ = HEX$(w%)
  HexFuehrNull$ = STRING$(b% - LEN(h$), "0") + h$
END FUNCTION