portscanner

[bonanza]

das soll ein portscanner werden ^^
doch macht er einen dummen fehler beim compilieren in der Project1.DPR...

Komplettes Projekt siehe anhang...
wäre super nett, wenn jemand sagen könnte, wo der fehler liegt, und wie ich ihn behebn könnte..

Hier der Code:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ScktComp;

type
  TForm1 = class(TForm)
    Ed_Ip1: TEdit;
    Ed_Ip2: TEdit;
    Ed_Port: TEdit;
    Bt_Start: TButton;
    Me_Output: TMemo;
    Bt_Stop: TButton;
    ClientSocket: TClientSocket;
    gauge1: TProgressBar;
    procedure ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure Bt_StartClick(Sender: TObject);
    procedure Bt_StopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  over,over2:Boolean;
  z,i1,i2,i3,scanips:Integer; // IP-Nr. 127.i1.i2.i3
  var Ipnr1, Ipnr2: array of integer; // Array of Start and Stop IP
implementation

{$R *.dfm}

procedure Scan(ClientSocket: TClientSocket; Me_Output: TMemo;
Bt_Start,Bt_Stop: TButton; Gauge1: TProgressBar);
var strtemp1,iptemp: String;
var perc_real,progr_real:Real;
var progr_int,error:Integer;
begin

  if (ipnr1[0] >= ipnr2[0]) and (i1 >= ipnr2[1]) and
     ((i2 >= ipnr2[2])or over = true) and ((i3 > ipnr2[3]) or over = true) then
  begin
    Me_Output.Lines.Add('Scanning finish!');
    Bt_Start.Enabled := true;
    Bt_Stop.Enabled := false;
  end
  else
  begin
  // Progress
  inc(z);
  perc_real := 100 / scanips;
  progr_real := z * perc_real;
  Str(progr_real:3:0,strtemp1);
  Val(strtemp1,progr_int,error);
  gauge1.Position := progr_int;
  // Build IP
  Str(Ipnr1[0],strtemp1);
  iptemp := strtemp1 + '.';
  Str(i1,strtemp1);
  iptemp := iptemp + strtemp1 + '.';
  Str(i2,strtemp1);
  iptemp := iptemp + strtemp1 + '.';
  Str(i3,strtemp1);
  iptemp := iptemp + strtemp1;
  ClientSocket.Host := iptemp;

  inc(i3);     // Inc IP
  if i3 > 255 then begin i3 := 0; inc(i2); over := true end;
  if i2 > 255 then begin i2 := 0; inc(i1); over2 := true end;
  if i1 > 255 then begin i1 := 0; end;

  ClientSocket.Open;
  end; // End Scan

end;



procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode := 0;
Scan(ClientSocket, Me_Output, Bt_Start, Bt_Stop, Gauge1); // Call Procedure Scan
end;

procedure TForm1.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Me_Output.Lines.Add('Port open: ' + ClientSocket.Host);
  ClientSocket.Close;
  Scan(ClientSocket, Me_Output, Bt_Start, Bt_Stop, Gauge1); // Call Procedure Scan
end;

procedure TForm1.Bt_StartClick(Sender: TObject);

var iptemp,ipnrtemp,strtemp1:String;
var i,ipnrint,error,inttemp1:Integer;
var realerror:Boolean;
begin
  SetLength(Ipnr1, 4);
  SetLength(Ipnr2, 4);
  z := 0;
  over := false;
  over2 := false;
  Gauge1.Position := 0;
  realerror := false;
  Me_Output.Clear;
  Bt_Start.Enabled := false;
  Bt_Stop.Enabled := true;
  {Begin Check IP}


   iptemp := Ed_Ip1.Text;
   for i := 0 to 3 do
   begin
     If i <> 3 then ipnrtemp := Copy(iptemp,1,Pos('.',iptemp)-1)
     else ipnrtemp := iptemp;
     val(ipnrtemp,ipnrint,error);
     If error = 0 then
     begin
       IPnr1[i] := ipnrint;
       Delete(iptemp,1,Pos('.',iptemp));
     end // End If
     else realerror := true;
   end; // End For


   iptemp := Ed_Ip2.Text;
   for i := 0 to 3 do
   begin
     If i <> 3 then ipnrtemp := Copy(iptemp,1,Pos('.',iptemp)-1)
     else ipnrtemp := iptemp;
     val(ipnrtemp,ipnrint,error);
     If error = 0 then
     begin
       IPnr2[i] := ipnrint;
       Delete(iptemp,1,Pos('.',iptemp));
     end // End If
     else realerror := true;
   end; // End For

   If (Ipnr1[0] > 255)or(Ipnr1[1] > 255)or(Ipnr1[2] > 255)or(Ipnr1[3] > 255)or
      (Ipnr2[0] > 255)or(Ipnr2[1] > 255)or(Ipnr2[2] > 255)or(Ipnr2[3] > 255)or
      (IPnr1[1] > Ipnr2[1])or(IPnr1[2] > Ipnr2[2])or(IPnr1[3] > Ipnr2[3])
   then realerror := true;

   If realerror = true then Me_Output.Lines.Add('Start or End IP is wrong!')
   else
   begin
   {Begin Ip right / Start Scan}
     If Ipnr1[0] < Ipnr2[0] then Me_Output.Lines.Add('Start Ip must be smaller then End IP!') else
     begin
       If Ipnr1[0] <> Ipnr2[0] then Me_Output.Lines.Add('The differnt between Start and End Ip is to big!') else
       begin

       scanips := Ipnr2[3] - Ipnr1[3] + 1;
       scanips := scanips + ((Ipnr2[2] - Ipnr1[2]) * 256);
       scanips := scanips + ((Ipnr2[1] - Ipnr1[1]) * 256 * 256);
       // Count the to scanning IPs
       Str(scanips,strtemp1);
       Me_Output.Lines.Add('Scanning: ' + strtemp1 + ' IPs');
       VAL(Ed_Port.Text,inttemp1,error);
       If error = 0 then
       begin
         ClientSocket.Port := inttemp1;

         i1 := Ipnr1[1];
         i2 := Ipnr1[2];
         i3 := Ipnr1[3];

         Scan(ClientSocket, Me_Output, Bt_Start, Bt_Stop, Gauge1); // Call Procedure Scan

       end {End CheckPort}
       else Me_Output.Lines.Add('Port Error');
       end; {End Ip1 <> Ip2}
     end; {End Ip1 < Ip2}
   {End Ip right / Start Scan}
   end; {End no error!}
  {End Check IP}

end;

procedure TForm1.Bt_StopClick(Sender: TObject);
begin
  Bt_Start.Enabled := true;
  Bt_Stop.Enabled := false;
  i1 := Ipnr2[1];
  i2 := Ipnr2[2];
  i3 := Ipnr2[3];
  Me_Output.Lines.Add('Stop!');
end;

end.

[flomei]

Nun, wenn du uns sagen könntest welchen "dummen Fehler" er meldet, dann wäre das schonmal hilfreich.
Nicht jeder wird dein Programm runterladen wollen um dir zu helfen.

MfG Florian

[bonanza]

es kommt der Fehler:

Zitat:

[Error] Project1.dpr(11): Undeclared identifier: 'Form1'

bezogen auf die Zeile:

  Application.CreateForm(TForm1, Form1);

[ste_ett]

Bei den globalen Variablen fehlt bei dir noch:

Form1: TForm1;

[Sebastian R.]

Dein Portscanner ist ein bisschen umständlich. Probier doch einfach mal folgenden Code:

Delphi-Quellcode:

var host: pHostEnt;
    dwIP: DWORD;
    sock: TSocket;
    saddr: SOCKADDR_IN;
    from_port, to_port, i, ret: integer;
begin
host := GetHostByName(pchar('localhost'));
dwIP := htonl(integer(pointer(host^.h_addr^)^));
ZeroMemory(@saddr,sizeof(SOCKADDR_IN));
saddr.sin_family := AF_INET;
saddr.sin_addr.S_addr := htons(dwIP);
sock := socket(AF_INET, SOCK_STREAM, 0);
for i := from_port to to_port do begin
saddr.sin_port := ntohl(i);
ret := connect(sock, saddr, sizeof(saddr));
if ret = SOCKET_ERROR do begin
// Closed
end
else begin
// Open
end;
end;
end;

Natürlich keine Garantie für die Richtigkeit, habs grad aus dem Stand getippt!

MfG, Sebastian!

[A-M-X]

Zitat von Sebastian R.:

Dein Portscanner ist ein bisschen umständlich. Probier doch einfach mal folgenden Code:

Delphi-Quellcode:

var host: pHostEnt;
    dwIP: DWORD;
    sock: TSocket;
    saddr: SOCKADDR_IN;
    from_port, to_port, i, ret: integer;
begin
host := GetHostByName(pchar('localhost'));
dwIP := htonl(integer(pointer(host^.h_addr^)^));
ZeroMemory(@saddr,sizeof(SOCKADDR_IN));
saddr.sin_family := AF_INET;
saddr.sin_addr.S_addr := htons(dwIP);
sock := socket(AF_INET, SOCK_STREAM, 0);
for i := from_port to to_port do begin
saddr.sin_port := ntohl(i);
ret := connect(sock, saddr, sizeof(saddr));
if ret = SOCKET_ERROR do begin
// Closed
end
else begin
// Open
end;
end;
end;

Natürlich keine Garantie für die Richtigkeit, habs grad aus dem Stand getippt!

MfG, Sebastian!

Ein Portscanner interessiert mich auch, habs deswegen getestet.

Klappt alles nur bei der zeile

dwIP := htonl(integer(pointer(host^.h_addr^)^)); kommt ein fehler:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 0044D9FD in Modul 'Project1.exe'. Lesen von Adresse 0000000C'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

[Phoenix]

Schau doch mal was htonl() an Parameter verlangt und was dort übergeben wird, und dann korrigier mal die Dereferenzierung des Pointers

[A-M-X]

Zitat von Phoenix:

Schau doch mal was htonl() an Parameter verlangt und was dort übergeben wird, und dann korrigier mal die Dereferenzierung des Pointers

Ehrlichgesagt beschäftige ich mich mit sowas ned sehr arg; wollte das nur mal testen

[Sebastian R.]

Probiert mal htons anstatt htonl. Dann müssts klappen!

[A-M-X]

Zitat von Sebastian R.:

Probiert mal htons anstatt htonl. Dann müssts klappen!

Leider nicht