网络包探测软件

ether

于 2000-12-28 17:50:00 发布

阅读量937

点赞数

CC 4.0 BY-SA版权

文章标签：网络 delphi

本文链接：https://blog.youkuaiyun.com/ether/article/details/6497

博客介绍了网络包探测软件DSoft Sniffer 2.9是有时间限制的Shareware，给出了用Delphi5编写的去除其时间限制的核心代码，代码通过操作注册表修改相关日期值，最后根据操作结果给出相应提示信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware，但有时间限制，如何去除
呢？
以下是Delphi5写的核心部分。

var
r: TRegistry;
t: DWORD;
begin
r := TRegistry.Create;
try
    r.RootKey := HKEY_LOCAL_MACHINE;
    r.OpenKey('/SOFTWARE/Dsoft/License/Products/3/2', True);
    t := DWORD(r.ReadInteger('LastDate')); // Pass while Sniffer is installed.
    r.WriteInteger('LastDate', $8f904923);
except
    t := $ffffffff;
end;
r.Free;
if t=$ffffffff then
    Application.MessageBox(
      'DSoft Sniffer 2.9 not installed!',
      'Error',
      MB_OK+MB_ICONERROR)
else
    Application.MessageBox(
      'Success! You may use it for a long time.   :)',
      'Message',
      MB_OK+MB_ICONINFORMATION);
end;