TheGameCreators - CodeBase

Category: Input / Output

Version: 1.0

Information

Uploaded: 14th Jun 2004 14:27

Modified: 1st Jan 1970 01:00

Author: Snookums

Summary

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

Full Description

DarkBASIC Professional Source Code

` 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

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

Download

Please login to download

Comments

No comments yet.

CodeBase - WepKey Gen.

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Snookums
CodeBase Entries:	1