k, something like this should do the trick.
so, you want fries with that?
code:
$pass = Character(65,90)
$pass=$pass+Character(65,90,$pass)

for $=3 to 6
 $pass = $pass+Character(48,57,right($pass,1))
next

? $Pass

Exit 0


Function Character( $min , $max, optional $not)
 dim $,$c
 $ = SRnd(@MSECS)
 $ = Rnd()

 Do
  $c = Rnd($max)+$min
 Until $c =>$min AND $c =<$max and $c<>$not
EndFunction
_________________________
!

download KiXnet