わざわざ移動するの面倒だから貼ってやる
$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";
>>83は2chのトリップ計算式
Perlのcrypt()を使ってるらしい