Hi Alex!
$pword = join'', map { chr($_) } (36..128)[ eval "int(rand(128-36))," x 8 ];
P.S.: Ich glaube statt ASCII-128 als letztes Zeichen sollte man vielleicht doch nur bis 126 (~) gehen (127 = , 128 ~ Ç ) ;-)
Naja, zumindest die 128 wird ja mit obigem Code sowieso nie ausgewaehlt... ;-)
So long