くだらない質問はここに書き込め!なんでもアリ33

[0696 名無しさん＠お腹いっぱい。 NG NG]

#!/usr/bin/perl -w
# 2chtrip.pl

die( sprintf "usage: %s <tripkey>\n", __FILE__ ) unless @ARGV;
my $tripkey = $ARGV[0];
my $salt = substr substr( $tripkey, 1, 2 ) . "H.", 0, 2;
$salt =~ tr{:;<=>?\@[\\]^_`}{ABCDEFGabcdef};
$salt =~ s{[^./0-9A-Za-z]}{.}g;
my $trip = substr crypt( $tripkey, $salt ), -10;
printf "◆%s\n", $trip;

1;