KENT WEB 総合スレ Part2

ちょっと間違った

$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/★/☆/g;
$in{'name'} =~ s/#$pass/★/g;
my ($key,$salt,$value);
if($in{'name'} =~ /#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$value = substr(crypt($key, $salt),-10);
$in{'name'} =~ s/#.*/◆$value/g;
}
if (!$in{'name'} ) { $in{'name'} = "名無しさん"; }

こうね