$tripkey = "#istrip"; # トリップキー文字列(# 付き)
$tripkey = substr $tripkey, 1;
$salt = substr $tripkey . "H.", 1, 2;
$salt =~ s/[^\.-z]/\./g;
$salt =~ tr/:;<=>?@[\\]^_`/A-Ga-f/;
$trip = crypt $tripkey, $salt;
$trip = substr $trip, -10;
$trip = "◆" . $trip;
print $trip, "\n";
全くわからん。