• 78 Vote(s) - 2.5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[DELPHI]Anti JoeBox, CwSandbox, Anubis
#1
Code:
function IsInSandbox(Serial: string):boolean;
var
  hOpen:    HKEY;
  sBuff:    array[0..256] of char;
  BuffSize: integer;
begin
  if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('Software\Microsoft\Windows\CurrentVersion'), 0, KEY_QUERY_VALUE, hOpen)) = ERROR_SUCCESS then begin
    BuffSize := SizeOf(sBuff);
    RegQueryValueEx(hOpen, PChar('ProductId'), nil, nil, @sBuff, @BuffSize);
    if sBuff = Serial then  Result := True;

    RegCloseKey(hOpen);
  end;
end;
وب سایت تحلیل ارز و دلار
http://tradingview.website
برای دریافت قیمت ها اخبار اقتصادی دلار و ارز حتما وارد کانال تلگرام شوید .
https://t.me/Tradegolds
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  [Delphi] Simple Code Virtualization (Virtual Machine / Emulator) Amin_Mansouri 1 3,910 03-15-2013، 01:35 AM
Last Post: Saeed7007
  Anti Norman Online SandBox Amin_Mansouri 0 3,052 10-18-2011، 03:39 AM
Last Post: Amin_Mansouri
  [UNIT] SAD (Simple Anti Debug) Magic_h2001 Amin_Mansouri 0 3,346 10-18-2011، 01:25 AM
Last Post: Amin_Mansouri
  DELPHI OutputDebugStringA Anti Emulator ShellCode Amin_Mansouri 0 3,090 10-17-2011، 11:00 PM
Last Post: Amin_Mansouri
  [Snip] Another anti debugger procedure Amin_Mansouri 0 3,035 10-17-2011، 08:19 PM
Last Post: Amin_Mansouri
  [DELPHI]detect debuggers Amin_Mansouri 0 3,224 10-16-2011، 09:25 PM
Last Post: Amin_Mansouri
  [DELPHI]detect vm by krippler Amin_Mansouri 0 3,217 10-16-2011، 08:23 PM
Last Post: Amin_Mansouri
  [DELPHI]Anti ThreatExpert Amin_Mansouri 0 2,766 10-16-2011، 08:20 PM
Last Post: Amin_Mansouri
  AntiEmulators delphi Amin_Mansouri 0 2,994 10-15-2011، 09:57 PM
Last Post: Amin_Mansouri
  Delphi Anti Virtual PC/VMware Amin_Mansouri 0 2,900 09-22-2011، 12:39 AM
Last Post: Amin_Mansouri

Forum Jump:


Users browsing this thread: 1 Guest(s)