ITPub博客

首页 > IT基础架构 > 网络安全 > 网络包探测软件 (转)

网络包探测软件 (转)

原创 网络安全 作者:worldblog 时间:2007-12-03 11:24:05 0 删除 编辑
网络包探测软件 (转)[@more@]

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


var
  r: TRegistry;
  t: Dword;
begin
  r := TRegistry.Create;
  try
  r.rootKey := HKEY_LOCAL_MACHINE;
  r.OpenKey('SOFTWAREDsoftLicenseProducts32', 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;

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-987650/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2448144