【 スクリプト改造工房 PART 5 】

[0900 899 03/03/03 22:54 ID:7VkorLNn]

ちなみに追加した部分はこれっす。

#トリップ処理
{
$name =~s/◆/◇/g;

my ($key,$salt);
if($name=~/#(.+)/){
$key = $1;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-11);
}

$in{'name'} =~ s/#.*//g;

if($trip){
$name=" "if($name);
$name=$trip;
}

$name =~ s/$trip/◆<\/b>$trip<b>/g;

}