ばかみたいにコメントがいっぱいあるのは、
初心者でもなんとなく処理内容の意味がわかるようにするためです。

もとにした2chトリップ生成ソースは

$salt = substr($key.'H.', 1, 2);
$salt =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./;
$salt =~ s/[^\.\/0-9A-Za-z]/\./g;
$trip = substr(crypt($key, $salt), -10);

の、4行です。
自分はPHP最強房なのでperlよくわかんなかったです。
なので意味の解釈を間違っているかもしれません。
そのへんはperl最強房さんが解説していただけたらとか思ってます。

くだ質で聞こうかとも思ったけど、ここで晒して叩かれたほうが早いと思ったので載せました。