program Project1;
{$APPTYPE CONSOLE}
uses winsock,sysutils,windows;
const
startport=1;
stopport=30;
var
s:tsocket;
i,j,error:integer;
server:tsockaddrin;
wsa:twsadata;
begin
writeln('===============================================================================');
writeln('== Very Slow Port Scanner==');
writeln('== Edit bywhaoye@21cn.com ==');
writeln('===============================================================================');
writeln(' ====');
writeln(' ====');
writeln('=====================================================================');
writeln(' ====');
wsastartup(makeword(1,1),wsa);
server.sin_family:=AF_INET;
server.sin_addr.S_addr:=inet_addr('127.0.0.1');
for i:=startport to stopport do
begin
s:=socket(AF_INET, SOCK_STREAM, 0);
server.sin_port:=htons(i);
error:=connect(s,server,sizeof(server));
if error=0 then
begin
write(' == Scan port: '+inttostr(i));
for j:=0 to 5-length(inttostr(i)) do
write(' ');
writeln(' [ok] ==');
closesocket(s);
end;
end;
writeln(' ====');
writeln('=====================================================================');
writeln(' ====');
writeln(' ====');
writeln('============================================================================');
writeln('== Thank you for your test! Good luck!==');
writeln('== Edit bywhaoye@21cn.com ==');
writeln('===========================================================================');
wsacleanup();
readln;
end.
这个你看看？？
