code:

---

 
for $i = 1 to 50 ;modify how many you want to generate.
	? pword(10)
next

function Pword($length)
	dim $seed, $length, $i, $chr

	$seed = 5000
	$seedjump = 1000
	$length = val($length)

	for $i = 1 to $length
		$chr = random(33,126,$seed) $seed = $seed - $seedjump
		select
			case $i = 1
				while $chr >= 48 and $chr <=57
					$chr = random(33,126,$seed) $seed = $seed + $seedjump
				loop
			case $i = $length
				while $chr >= 48 and $chr <=57
					$chr = random(33,126,$seed) $seed = $seed - $seedjump
				loop
		endselect
		$pword = $pword + chr($chr)
	next
endfunction


function random($min, $max, optional $seed)
	DIM $i, $burn, $nul
	srnd((-1)*@ticks*(val($seed)+1))
	$burn = rnd(50)
	for $i = 1 to $burn
		$nul = rnd($max)
	next
	$random = rnd($max)
	while $random < $min or $random > $max
		$random = rnd($max)	
	loop	
endfunction

get $
 

---