網路包探測軟體 (轉)

網路包探測軟體 (轉)[@more@]

包探測 DSoft Sniffer 2.9 是不錯的Shareware，但有時間限制，如何去除
呢？
以下是5寫的核心部分。

var
  r: TRegistry;
  t: D;
begin
  r := TRegistry.Create;
  try
  r.Key := 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;