端口扫描,用delphi如何做?(200分)

  • 主题发起人 主题发起人 aerobull
  • 开始时间 开始时间
A

aerobull

Unregistered / Unconfirmed
GUEST, unregistred user!
端口扫描,速度要快!!!,最好不会在对方计算机留下痕迹。
最好能给个例子。
 
for I := 1 to 1000 do
try
...连接I端口
except
...
end
 
用过CLIENTSOCKET吗?
 
各位,请出手啊
 
ICS控件组中有个多线程的CLIENT的例子,略作修改就可以用来扫描端口了。
 
以前讨论过的了,你查查看!
 
去down个NMAP看看吧
win2000下支持自定义IP头的。
 
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 by whaoye@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 by whaoye@21cn.com ==');
writeln('===============================================================================');
wsacleanup();
end.
 
直接连不好吧,异步通讯似乎好一点
 
我个人认为,那些syn扫描根本就没有必要,一般的站点,如果你能入侵进去,那么,根本就
不可能追到你,因为他们本生就不怎么样,所以根本就用不着
用raw socket,
不知道你们怎么看。
 
如果你实在是要写的话,建议你参考 nmapnt
这些软件都需要安装winpacp驱动,
 
呵呵!扫找软件用多了!
谁能用delphi写的个和绿鹰写那个扫找工具一样的来1
 
你说的那种没办法
 
各位大虾:tcp连接时的三次握手我能自己控制吗?
 
建议你看一看raw socket只能在2000和nt下实现。
 
后退
顶部