多くの友人が Dugu Swordsman によって作成された iphunter を使用しています。これは、チャット ルームに写真を投稿するという原理を利用しており、実際、誰かがあなたのマシンにアクセスしている限り、あなたはただのチャット ルームではありません。この原理は Lao Yao のソフトウェア Deer Hunter でも使用されており、Delphi を使用して IPhunter とまったく同じソフトウェアを作成します。 今日のプログラマーはアセンブリ労働者になっていると言う人もいますが、これは実際には理にかなっています。Delphi 5.0 は豊富なインターネット制御セットを提供しており、この問題は TCP を使用することで解決できます。 /IP クライアントサーバー。主要なコントロールは ServerSocket で、IPhunter のインターフェイスを模倣し、button1 (ボタン) と combobox1 (表示用) を使用します。これらの 3 つの最も基本的なコントロールを空白のフォームに配置すると、コードの作成を開始できます。 まず、この combobox1 は複数の IP を表示できる必要があります。 combobox1.items[y], var y:integer; を蓄積する変数 y を設定します。 TCP/IP プロトコルに基づく IP アドレス リンクを要求すると、相手の IP 値が返され、表示のためにコンボボックスに渡されます。 Button1 は、ServerSocket のアクティブ化、つまりポートの開閉を制御します。 コード PROcedure TForm1.ServerSocket11ClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin combobox1.Items.Insert(y,');// 空のレコードを追加します combobox1.Items[y]: =socket.RemoteAddress;//相手のIPを取得するlabel1.Text:='Captured in total'+inttostr(y+1)+'IPs';//ラベルを使用して、キャプチャされた IP の総数を表示します y:=y+1;//count 変数を 1 増やします次に、button1 の caption 属性を「Start」に設定し、そのクリック イベント プロシージャ TForm1.SpeedButton7Click(Sender: TObject); に次のコードを追加します。 Speedbutton7.Caption='Start' then beginserversocket11.Port:=80;//この文は、ブラウザ接続をキャプチャするためにサーバーソケットのプロパティに設定できます ServerSocket11.Active:=true;//ポートをアクティブ化しますspeedbutton7.Caption:=' Stop'; end else beginserversocket11.Active:=false;//ポートを閉じますspeedbutton7.Caption:='Start'; combobox1.Clear;//キャプチャを終了し、履歴情報をクリアします y:=0;//カウント変数をリセットします end;これで、IPhunter は基本的に使用できるようになります。これは、独自に作成したインターフェイスを使用することで、ネットワーク ハッキング ツールとしても使用できます。 ClientSocket を追加すると、Agent Hunter のようなスキャン ツールを作成できます。これらについては、Lao Yao の今後の記事で紹介します。 次回は、Delphi を使用して OICQ ツール、匿名情報、IP チェック、情報爆弾などを作成する方法を発表する予定です。