Random Character String
This snippet generates strings of user definable length built from a user defined character set.
Here's some sample output,
anQ4io0UjWstUs1V
l2dFJKUkxP0vmdN2
8nTeLf646zyM6M7q
kZArBHKmbkMqB3BQ
txzQCmGEJ1Nfm7AN
2nbTUsJkXmrb44lw
L0CA2pdQ0xySTKxu
m17W5FtbXoKeNe42
NiaqgI2wSPsaVMGb
wgQbtcwcpGzXJWFp
H4nVZyccywwUbl6y
aaaO1PYLgCnrQWY8
XrXVetTNjNpRXy8V
WbwxGsOlOSoMa0oC
k3w07DcGFuQDU7cc
KtBvCOGbvdlxGkr2
[pbcode]
// --------------------------------------------------------------
// Build the character set string from A-Z and the digits 0 to 9
// --------------------------------------------------------------
CharacterSet$=""
For lp=asc("a") to asc("z")
CharacterSet$+=chr$(lp)
CharacterSet$+=upper$(chr$(lp))
next
For lp=asc("0") to asc("9")
CharacterSet$+=chr$(lp)
next
print characterSet$
// --------------------------------------------------------------
// Create a bunch of random character strings from the character set
// --------------------------------------------------------------
StringSize=16
For Count=1 to 16
ThisString$=""
For lp=1 to StringSize
THisChr=floor(rndrange#(1,len(CHaracterSet$)))
ThisString$+=mid$(CharacterSet$,ThisChr,1)
next
print ThisString$
next
// --------------------------------------------------------------
// Flip the buffers and wait for a key press
// --------------------------------------------------------------
sync
waitkey
[/pbcode]