10/07/17 02:07:55.90 IGrD+XQq0 BE:960542944-PLT(95845) 株主優待
sssp://img.2ch.net/ico/u_sii_angel.gif
sub trip {
local($name) = @_;
$name =~ s/◆/◇/g;
if ($i_nam =~ /#/) {
local($handle,$trip) = split(/#/, $name, 2);
# local($enc) = crypt($trip, $trip_key) || crypt ($trip, '$1$' . $trip_key);
# $enc =~ s/^..//;
# 2ch互換トリップ
my($trip_key) = substr(substr($trip,0,8).'H.', 1, 2);
$trip_key =~ s/[^\.-z]/\./go;
$trip_key =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
my($enc) = substr(crypt($trip, $trip_key), -10);
return "$handle◆$enc";
} else {
return $name;
}
}