はい、できたよ。
短いからここで公開するよ。
使ったら犯罪だから絶対使うなよ。
---------ここから----------------------------
#!/usr/bin/perl
@key = split '', join '', (0..9, 'A' .. 'Z');
for($i=0;$i<20;$i++){
$str .= $key[rand $#key];
$str .= "-" if $i % 5 == 4;
}
chop $str;
printf ("Your key is %s\n", $str);
---------ここまで----------------------------
これをmkpass.plって名前で保存して、
perl mkpass.plとか、
chmod 755 mkkey.plしたあとに、
./mkkey.pl
ってやればキーが表示されます。
最後にもう一度言います。
くれぐれも表示されたキーを入力して試したりしないように。
あくまでも、
「俺様キーいっぱいもってるぜ、うひひ」
とかいって楽しむためだけに使ってください。