+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Cracking / Anti Crack (http://parsicoders.com/forumdisplay.php?fid=75)
+--- انجمن: Anti Debug (http://parsicoders.com/forumdisplay.php?fid=76)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=81)
+---- موضوع: Anti Norman Online SandBox (/showthread.php?tid=1110)
Anti Norman Online SandBox - Amin_Mansouri - 10-18-2011
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