# □□□ トリップの算出方法(新鯖Ver) □□□

# ---トリップを作成するのに必要なデータ--- #

# 名前欄で最初に登場した"#"以降の全ての文字列。
# これが暗号化する文字列になります。
$tripkey = "ｋａｍｉ";

# ---------------------------------------- #

# 1. $tripkeyに「HG」を付け足す。(足りない場合を考慮して)
# 2. $tripkeyの先頭から1バイトスキップして、そこから2バイト取り出す。
# これがsaltになります。
$salt = substr($tripkey.'HG', 1, 2);

# saltに使用できない13文字(:;<=>?@[\]^_`)を使用可能な文字(ABCDEFGabcdef)にそれぞれ変換する
$salt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;

# saltに使用できない文字(./0-9A-Za-z以外)をある規則に則って変換する。
# この規則はらっしーさんが解析したものを参考にしてます。http://raccy.xrea.jp/
$salt  =~ tr/\x80-\xFF/\x00-\x7F/;
$salt  =~ tr/\x7B-\x7F/\x2e-\x32/;
$salt  =~ tr/\x14-\x2D/\x61-\x7A/;
$salt  =~ tr/\x00-\x13/\x47-\x5A/;

# $saltをsaltとして$tripkeyをcryptする。
# 返ってきた文字列の後ろから10文字、これがトリップになります。
$trip = substr(crypt($tripkey, $salt), -10);

print "◆$trip";
# ◆1CL6vYZ2rMと表示されるはずです。

# ※注
# crypt関数はマシン環境に依存します。
# 2chは56bitDESです。

# 新鯖でトリップが化ける原因や、新鯖の情報はこのサイトが参考になります
# http://yaoobuoo.2ch-trip.com/page010.html