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

[0910 nobodyさん 03/03/04 12:15 ID:???]

>899

sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -10) ;
}

呼び出し方
$name =~ s/#(.*)$/trip($1)/eg;


これでトリップが入った$nameが出来上がるが、これじゃ駄目？