トリップ対応スレッド

16: ひろゆき ◆vzJLaTHZXo ＠てすとくん ★ 2014/04/12(土)18:23 ID:??? AAS
ててん

17: ひろゆき ◆vzJLaTHZXo ＠てすとくん ★ 2014/04/12(土)18:23 ID:??? AAS
あれ、、、不思議なことになった。。

18: ひろゆき ◆vzJLaTHZXo ＠てすとくん ★ 2014/04/12(土)18:24 ID:??? AAS
ソースですー。

my $etchi = substr($YOU->{FORM}->{TRIPKEY}, 0, 1) . "H";my $tripkey = substr($YOU->{FORM}->{TRIPKEY},1);
$etchi = substr($tripkey.'H.',1,2);

$etchi =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./;
$trip = substr(crypt($YOU->{FORM}->{TRIPKEY}, $etchi), -