[Amin_Mansouri]

Another ported Anti Sandbox code from VB6

کد:

(*********************************
Ported from VB6 to Delphi by Gakh
VB6 Source Code by: haZl0oh
www.ic0de.org
*********************************)

program AntiNormanOnlineSandBox;

uses
  Windows,
  SysUtils;

function NormanOnlineSandbox : Boolean;
var
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0));
  NormanOnlineSandbox := Path = 'C:\analyzer\scan\';
end;

begin
  if NormanOnlineSandbox = True then
  begin
    MessageBox(0, PChar('SandBox Detected'), 'Test', 64);
  end else
  MessageBox(0, PChar('SandBox Not Detected'), 'Test', 64);
end.

Reply  Reply With Quote  Thanks