◆ 全サーバトリップ統一作戦

[102 鳥屋™ ◆No1111111k 03/10/31 14:11 ID:3mWstkGf]

#>ABxxxxxxxx
#<ABhhhhhhhhhhhhhhhh
にて実装してみました。ついでにMD5トリップも通るようにしてみました。

http://users72.psychedance.com/test/read.cgi/2chdown/1065795263/190

ついでに、トリップ変換テストもつくってみました。
http://users72.psychedance.com/test/trip.cgi

今回のソースはこんな感じ。
$key = $1;
($key =~ /^&lt;(..)([0-9A-F]{16})/i ? ($key = pack('H16', $2))
: $key =~ /^&gt;(..)(.+)$/i ? ($key = $2)
: ($key.'H.') =~ /^.(..+)/);
$salt = $1;
$salt =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./ unless $salt =~ /^\$\d/;
$FLAG{'trip'} = substr(crypt($key, $salt),-10);