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.