10-18-2011، 03:39 AM
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