网络包探测软件

网络包探测软件 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;

 

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值