>>402
トライしました！完璧でした！

テスト#c+~=y:Ar　→　テスト◆NAOKmK0E

ありがとうございます！　ヽ(`Д´)ﾉ ｳﾜｧｧﾝ

ｺﾚから先に見る方が居るかもしれないので、
成功したﾔﾂを書いておきます！
本当にありがとうございました！

ここからｿｰｽ
書き込み処理直前、cookie発行後。

#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;


ここから、ﾄﾘｯﾌﾟ作成サブルーチン

#----------------#
# トリップ生成 #
#----------------#
sub trip {
my $key = shift;
my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x21\x23-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;
return substr(crypt($key, $salt), -8);
}