[Tokyo.pm] Re: [Tokyo.pm] Re: 簡単なパスワードジェネレータって

[Dan Kogai]

On Thursday, Nov 28, 2002, at 16:36 Asia/Tokyo, Keiichi Okabe wrote:
>> パスワードジェネレータを一行野郎で書けます？
>
> こんなのどうでしょう？
>
> C:\>perl -e "@a = (0..9,a..z,A..Z); map {print $a[int 
> (rand(62))]}(1..8)"
> zPtO1cuZ

先を越されたか。

# わりと素直
perl -e 'for (1..8){$p.=(0..9,a..z,A..Z,qw[. /])[int rand 64]} print 
"$p\n"'
# こんなのもありか
perl -e '$_="password";s:.:(0..9,a..z,A..Z,qw[. /])[int rand 64]:ge; 
print "$_\n"'
# rand を使わないってのもありかな
perl -e 'open R, shift; read R, $r, 8;' \
	-e '@r = map {(0..9,a..z,A..Z,qw[. /])[$_/4]}unpack("C8", $r);' \
	-e 'print @r, "\n"' /dev/urandom


Dan the Randomized Man