【求助】用delphi设计一个公司局域网的监控系统

2009-04-12 10:29:32 364 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Ubuntu22.04通过DKMS包安装Intel WiFi系列适配器（网卡驱动） Ubuntu安装Intel WiFi系列适配器（网卡驱动）阅读详情

如题，用delphi语言设计一个公司局域网的监控系统，可以实现一台主机控制整个公司局域网，限制聊天工具（QQ和MSN）的使用和下载工具的使用（迅雷、BT）。我现在的设想是监控可以用winPcap实现，一台主机控制整个局域网用ARP欺骗技术实现。请各个高手能不吝赐教。我邮箱moremore03@163.com ，QQ576681554.

...全文

LAP-D协议概述 Q.921协议由称为LAPD（链路访问协议-D通道），与HDLC的关系密切，它是在ISDN D通道上使用的数据链路协议。注：http://www.freesoft.org/CIE/Topics/125.htm LAP-D的帧格式标志、位填充技术和FCS校验计算与HDLC一致。 16位的地址包括C/R字段、SAPI(服务访问点标识)和TEI(端点标识)。TEI用于区分使用相同ISDN... 阅读详情

shrewdbean

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

我想要天山上的星星 2009-07-17

打赏
举报

帮忙顶一下~~~~~~~~~

hhocean 2009-05-15

打赏
举报

很多呀，http://www.jcb168.com.cn
http://www.jcb168.com

shrewdbean 2009-04-21

打赏
举报

谢谢wade520，大家都不容易，7楼的朋友至于冷嘲热讽吗？

lead001 2009-04-19

打赏
举报

给你个思路：
1、网络行为的识别：
可以用winpcap进行包捕获、解包、分析IM(qq/msn等)、p2p（迅雷/BT等）包特征进行匹配，识别到的进一步处理。

2、对识别到的包，给回应一个tcpreset、或其他的icmp网络不可达报文达到阻断效果，或直接禁用不需要的应用端口。

ahjoe 2009-04-17

打赏
举报

[Quote=引用 6 楼 shrewdbean 的回复:]
引用 5 楼 ahjoe 的回复:
ARP欺骗不是正常行为。可以轻易防欺骗的。
你需要的这些功能，用同步专家网吧版就可以了。免费的软件。

那还要源代码的，怎么办？
[/Quote]

拿刀来架我脖子上，我一害怕，就给你了。

哈哈的哈 2009-04-17

打赏
举报

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinSock, StdCtrls,unit2, Grids, ValEdit, ExtCtrls, ComCtrls;
From单元的引用

我已经测试过了可以用

哈哈的哈 2009-04-17

打赏
举报

楼主:你分数给的这么少``` 那我就给你个 arp攻击里面的一个函数吧不是我小气是等价对比

arp 里面获取局域网机子的mac地址(网卡地址) 函数

winPcap 里面有个 iphlpapi.dll 动态连接库没有网站上自己下个

我是新建个unit2 把要调用动态连接库的函数都写到这里放在FROM上麻烦而且代码很难看

Function SendARP(ipaddr:ulong;temp:dword;ulmacaddr:pointer;
ulmacaddrleng:pointer) : DWord;stdcall; far external 'Iphlpapi.dll' ;//获取MAC 函数

在from 窗体上引用 use unit2,WinSock;
Function GetMac(IPADD:string):string;//根据IP地址获取MAC地址（不要告诉我连网卡地址都不懂）
var
Curip:ulong;
CurMac:array[0..5] of byte;
CurMaclength:ulong;
ErrNo:integer;
begin
Curip := inet_addr(PChar(IPADD));
CurMaclength := length(CurMac);
ErrNo := sendarp(Curip,0,@CurMac,@CurMaclength);//获取的主机MAC函数在动态连接库上的方法
if ErrNo = 0 then
result := format('%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x',[CurMac[0],CurMac[1],
CurMac[2],CurMac[3],CurMac[4],CurMac[5]])//格式话主机的MAC地址
else result := '我日主机没开机或者网络不通';
end;

xiaowei_001 2009-04-17

打赏
举报

帮顶

chys3584 2009-04-17

打赏
举报

楼上的主意不错，支持！

shrewdbean 2009-04-16

打赏
举报

[Quote=引用 5 楼 ahjoe 的回复:]
ARP欺骗不是正常行为。可以轻易防欺骗的。
你需要的这些功能，用同步专家网吧版就可以了。免费的软件。
[/Quote]

那还要源代码的，怎么办？

shrewdbean 2009-04-13

打赏
举报

[Quote=引用 1 楼 gyk120 的回复:]
20分求一个完整程序加源码？程序员和程序就这么不值钱么……
给你个思路，Winpcap可行，网上有专为Delphi设计的头文件，不过如果局域网有人绑定了ARP或者有防火墙，那也没戏了
[/Quote]

不是啊，积分不是问题，只要您能帮上忙，我分全给你了。我是刚来这里不久，所以有些规矩不太熟悉，请见谅啊！

ahjoe 2009-04-13

打赏
举报

ARP欺骗不是正常行为。可以轻易防欺骗的。
你需要的这些功能，用同步专家网吧版就可以了。免费的软件。

hujun_zero 2009-04-13

打赏
举报

就是啊

mathsfan 2009-04-12

打赏
举报

有也不会给的，一些好用的源代码都是自己的心血啊...

gyk120 2009-04-12

打赏
举报

20分求一个完整程序加源码？程序员和程序就这么不值钱么……
给你个思路，Winpcap可行，网上有专为Delphi设计的头文件，不过如果局域网有人绑定了ARP或者有防火墙，那也没戏了

【求助】用delphi设计一个公司局域网的监控系统

相关推荐