Random Character String

[kevin]

Random Character String

 This snippet generates strings of user definable length built from a user defined character set.

 Here's some sample output,

Code Select Expand



anQ4io0UjWstUs1V
l2dFJKUkxP0vmdN2
8nTeLf646zyM6M7q
kZArBHKmbkMqB3BQ
txzQCmGEJ1Nfm7AN
2nbTUsJkXmrb44lw
L0CA2pdQ0xySTKxu
m17W5FtbXoKeNe42
NiaqgI2wSPsaVMGb
wgQbtcwcpGzXJWFp
H4nVZyccywwUbl6y
aaaO1PYLgCnrQWY8
XrXVetTNjNpRXy8V
WbwxGsOlOSoMa0oC
k3w07DcGFuQDU7cc
KtBvCOGbvdlxGkr2




PlayBASIC Code: [Select]

 // --------------------------------------------------------------
 // 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