Just makes wep keys, its not the best but for 20 minutes of work its no bad. supports upto 512bit key and as small as 16bit

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `just somthing i manage to make as fast as i can =) -20min
`beef_jerkpi@yahoo.com

_a:
   cls : randomize timer()
   print "<WepKey Gen.>"
   print ""
   print "========================="
   print "Input number if bits."
   print "(ex.128 or 64 for normal)"
   print "Must be multiples of 8"
   print "========================="
   print ""
   input "Bits\>",bits
   if bits > 512 then bits = 512
   if bits < 16 then bits = 16
   bits = (bits/2)
   for key = 1 to bits
      key1 = rnd(15)
      inc num,1 : if num = 2 then gosub add
      if num = 1
         if key1 = 10 then key1$ = "A"
         if key1 = 11 then key1$ = "B"
         if key1 = 12 then key1$ = "C"
         if key1 = 13 then key1$ = "D"
         if key1 = 14 then key1$ = "E"
         if key1 = 15 then key1$ = "F"
         if key1 < 10 then key1$ = str$(key1)
      endif
      if num = 2
         if key1 = 10 then key2$ = "A"
         if key1 = 11 then key2$ = "B"
         if key1 = 12 then key2$ = "C"
         if key1 = 13 then key2$ = "D"
         if key1 = 14 then key2$ = "E"
         if key1 = 15 then key2$ = "F"
         if key1 < 10 then key2$ = str$(key1)
      endif
   next key
   gosub done
   writefile(key_fin$)
   suspend for key
gosub _a

add:
   num=0
   key_fin$ = key_fin$+(key1$+key2$)
return

done:
   if key_fin$ = "" then print "ERROR" else print key_fin$
return

function writefile(key_fin$)
   file=1
   do
      file$=str$(file)+".txt"
      if file exist(file$)
         inc file,1
      else
         exit
      endif
   loop
   open to write file,file$
   write string file,";<WepKey Gen.>"
   write string file,""
   write string file,";Wep Key#"
   write string file,key_fin$
   close file file
endfunction