WEB Chase PHP版ソースコード

ウェブ|ソースコード

/*************************************************** * ******************
* IP ソース追跡 Ver 1.1a
* 著者 pazee@21cn.com http://www.fogsun.com
* 2002/08/ 10
*
* プログラム内のデータベースは「Catch」から来ています。「Catch」内の wry.dll を関数の現在のディレクトリにコピーしてください。
* 検索対象のデータベースは dbf ファイルですが、拡張子名は dll に変更されます。
* 2000 年に、私は彼の DLL の本当の形式を偶然発見しました。その後の多くの記事でもこの形式について言及しました。
* 「Manhunt」のデータ ファイルは現在広く使用されており、多くの IP ソース チェック プログラムは基本的に彼のデータベースを使用しています。
* たとえば、広告を削除し、IP ソースを表示できる QQ が使用します。
* 私は 2001 年の初めに PHP 関数を作成しましたが、PHP の dbf モジュールのサポートが必要であり、多くの Web サイトではこのモジュールが提供されていませんでした。
* 現在のバージョンはバイナリファイルの読み書きを使用しており、php の dbf のサポートに依存していません。
* シェルコマンドは使用しません。
* データファイル自体は整っているため、非常に便利です。アルゴリズム
* は非常に高速です。現在の 20020325 バージョンのデータベースには約 28,905 件のレコードがあり、最大 14 件の比較が行われます。
*
* 「追求」の著者「Feng Zhihong」に感謝します
* ご質問がございましたら、お気軽にご連絡ください、ありがとうございます! pazee@21cn.com
*
*
* 声明:
* このプログラムは自由に拡散、コピー、改変することができますが、このテキストは保管してください。
* 商用ソフトウェアや不適切な場所でコードを使用しないでください (これは「Manhunt」の要件です)。
* 改めてありがとうございます。
************************************************ ***** **********************/

// wry.dll のパスを定義
define("DBFILENAME", "wry.dll");


クラス TRec
{
var $StartIP;
var $EndIP;
var $ Country;
var $Local;
}

クラス TWru
{
var $ip;
var $fp;
var $Rec;
var $DATAFIELDBEGIN= 0xc2;
var $RECORDLENGTH;

// IP チェックと IP フォーマット
function FormatIP($ip)
{
$ret= ereg("^([0-9]+).([0-9]+).([0-9] +).([0-9]+)$", $ip, $IPSection);
if ($ret == false)
return -1; // 不正な IP
$this->ip= '';
for ($i=1; $iif ($IPSection[$i] > 255)
return -1;
else
$this->ip.= sprintf("%03.0f", $IPSection[$i])。 (($i0を返す;
}

// DB からレコードを読み取ります
function ReadRec($RecNo)
{
$this->Seek($RecNo);
$buf= fread($this->fp, $this->RECORDLENGTH);
if (strlen($buf) == 0)
{
return 1;
}
$this->Rec->StartIP= (substr($buf, 0, 17));
$this->Rec->EndIP= トリム(substr($buf, 17, 22));
$this->Rec-> Country= トリム(substr($buf, 17+22, 13));
$this->Rec->Local= Trim(substr($buf, 17+22+13, 47));
0を返す;
}

// レコード番号に移動
function Seek($RecNo)
{
return fseek($this->fp, $RecNo * $this->RECORDLENGTH + $this->DATAFIELDBEGIN, SEEK_SET);
}

// Where_are_you Main Function
/********************************************
* 使用説明書
* パラメータ:
* IP は正当な IP アドレスです
* szLocal は返された結果文字列を保存するために使用されます
* 戻り値:
* この関数には戻り値があり、戻り値に基づいて結果を自分で処理できます
* 0: 検索成功しました
* -1 : 無効な IP
* 1: データベース ファイルを開けませんでした
* 2: データ ファイル エラー (有効なレコードが見つかりません)
* 3: 不明な IP
************* ***** ****************************/
function wru($ip, &$szLocal)
{
$this->Rec= new TRec;
$nRet= 0;
$this->RECORDLENGTH= 17 + 22 + 13 + 47 + 12 + 1;
if ($this->FormatIP($ip) != 0)
{
$szLocal= "無効なIP";
-1 を返します。
}

$this->fp= fopen(DBFILENAME, "rb");
if ($this->fp == NULL) {
$szLocal= "OpenFileError";
1を返します;
}

// レコード数を取得
fseek($this->fp, 0, SEEK_END);
$RecordCount= Floor((ftell($this->fp) - $this->DATAFIELDBEGIN) / $this->RECORDLENGTH);
if ($RecordCount {
$szLocal= "FileDataError";
$nRet= 2;
}
else
{
$RangB= 0;
$RangE= $RecordCount;
// 一致 ...
while ($RangB {
$RecNo= Floor(($RangB + $RangE) / 2);
$this->ReadRec($RecNo);
if (strcmp($this->ip, $this->gt;Rec->StartIP) >=0 && strcmp($this->ip, $this->Rec->EndIP) 休憩; //一致レコードが見つかりました
if (strcmp($this->ip, $this->Rec->StartIP) > 0)
$RangB= $RecNo;
それ以外の場合
$RangE= $RecNo;
}
if (!($RangB {
$szLocal= "UnknowLocal!";
$nRet= 3;
}
else
{ // マッチング成功
$szLocal= $this->Rec-> Country;
$szLocal.= $this->Rec->ローカル;
}
}
fclose($this->fp);
$nRet を返します;
}
}

/*************************************************** * ***************
* 変更記録:
* 2002/08/10 バージョン 1.0a 完成
* 2002/08/12 IP の標準フォーマットを提供する FormatIP メンバー関数を追加は、内部で 202.096.128.068 に自動的に変換される
* 202.96.128.68 をサポートしており、IP アドレスの完全かつ効果的なチェックも提供します。ルールは、4 つの整数部分のいずれも
* を超えず、255 を超える自然数であるということです。
************************************************ ********************/

// 以下、テストコードです。
$wru= 新しい TWru;
$szResult="";
$ip= "202.96.134.133";
// $ip= $REMOTE_ADDR;
$wru->wru($ip, $szResult);
echo $ip."
";
echo $szResult;
//----------------------------------------------- ----------------------------
?>