** 谁要“多线程端口扫描程序”源码！ *** (0分)

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #1

不知道有谁对多线程端口扫描程序感兴趣！

程序下载 156K
http://d99.3322.net/SearchPort.exe

 

N

nzfsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #2

兄弟,源码给我看看.[8D]
我的妹儿:nzfboy@21cn.com

 

N

nzfsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #3

运行你的程序一下,你的原理肯定是多线程用Ping来实现的.
但用Ping有问题,好多网面拒绝Ping操作.

 

C

ccweifen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #4

谢谢，我想要一份
ccweifen@sina.com.cn

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #5

我的软件是用了多线程！

扫描的主要代码是这样的！
var
skt:TSOCKET;
WSAData:Twsadata;
Re:integer;
begin
try
if (Wsastartup(MAKEWORD(2,0),wsadata)<>0) then exit; //初始化Sock
skt:=Socket(AF_INET,SOCK_STREAM,0); //建立Socket
if (skt = INVALID_SOCKET) then exit; //如果建立Socket出错就退出
Re:=connect(skt,Taddr,sizeof(taddr)); //建立 Socket 连接
if Re=0 then begin
Synchronize(AddPort); //如果端口打开就把内容显示在文本框中
end;
if Terminated then Exit;
finally
closesocket(skt); //关闭Socket
Wsacleanup(); //关闭winsock
end;

//============================
我把全部的代码公开，我自己写的，希望大家一起修改代码！
希望你把你修改的代码放在网上，给大家一起分享！

源码:
http://d99.3322.net/SearchPort.zip

我把代码公开的目的:
1.想和网上的朋友一起把多线程端口扫描的代码简化和完善！
2.因为我线程刚学不久，想看看大家是怎样写的！
3.也想和大家一起分享!
===============================

我在
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1018311
这里看过一个异步socket的api端口扫描代码
但我试过，这种“异步socket的api端口扫描”程序的扫描还是会给服务器检查到！

大家一起来论坛吧！

 

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #6

TO ：paf先生
我下载不了你的代码,可以发一份比我吗,我邮箱是say-forevers@163.com
先谢了~~~!

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #7

我试过，可以下载啊！

好吧，我发给你吧！
记住修改的代码！给大家分享分享喔！

 

T

TigerDing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #8

我也下载不了

 

A

AI_Player

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #9

我也要一份
AI_Player@hotmail.com
谢了！

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #10

支持，up一下

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #11

我也下载不了，不是骗我们开心的吧？ Sorry，真的下不了!

me too: doll-paul@263.net

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #12

请再试试！

http://d99.3322.net/SearchPort.zip

 

D

doll_paul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #13

现在OK了，3Q~

 

B

birch2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-22

• #14

好象编译有错啊

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-22

• #15

编译有错！是吗？我也是这样编译的啊！

 

H

hotplum

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-22

• #16

不能下载http://d99.3322.net/SearchPort.zip
如方便，mailto:hotplum@vip.sina.com
谢谢！

 

P

paf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #17

不如谁有好的主页空间，把源文件放上去，每个人都用E-Mail发好麻烦！

 

E

ebeggar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #18

我也下载不了，
请mail一份到ebeggar@163.com吧，多谢！

 

A

aidren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #19

我也下载不了，给一份我吧。shiqinglangzi@163.net

 

L

lwowo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-17

• #20

我也下载不了，给一份我吧。mlx_ming@263.net