portscanner

[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
---------------------------