نقل قول: برنامه ای که احتمالاً می تواند محیط مجازی (مثل Virtual PC و یا VmWare) را از محیط واقعی تشخ
نقل قول:
راستش این برنامه با یک روش ابتکاری ساخته شده که در تستهای انجام شده با نرم افزار مجازی ساز Parallels Workstation به درستی عمل کرده است.
هدف من از ایجاد این تاپیک این است که دوستان این نرم افزار را تست کنند و نتیجه را در این تاپیک قرار دهند تا مطمئن شوم که آیا به درستی کار می کند یا خیر.
در ضمن از دوستان عزیز خواهشمندم که در صورت تست نام نرم افزار مجازی ساز را هم در این تاپیک ذکر کنند.
حقیقت امر اینه که از روی exe نمیشه راجع به روش ابتکاری و راه کارهای دیگه بحث کرد ، بهتر بود که سورسش رو قرار میدادید
اینها چندتا نمونه کد که شاید بدردتون بخوره
function running_inside_vpc: boolean; assembler;
asm
push ebp
mov ecx, offset @@exception_handler
mov ebp, esp
push ebx
push ecx
push dword ptr fs:[0]
mov dword ptr fs:[0], esp
mov ebx, 0 // flag
mov eax, 1 // VPC function number
// call VPC
db 00Fh, 03Fh, 007h, 00Bh
mov eax, dword ptr ss:[esp]
mov dword ptr fs:[0], eax
add esp, 8
test ebx, ebx
setz al
lea esp, dword ptr ss:[ebp-4]
mov ebx, dword ptr ss:[esp]
mov ebp, dword ptr ss:[esp+4]
add esp, 8
jmp @@ret
@@exception_handler:
mov ecx, [esp+0Ch]
mov dword ptr [ecx+0A4h], -1 // EBX = -1 -> not running, ebx = 0 -> running
add dword ptr [ecx+0B8h], 4 // -> skip past the detection code
xor eax, eax // exception is handled
ret
@@ret:
end;
function IsVMwarePresent(): LongBool; stdcall; begin
Result := False;
{$IFDEF CPU386}
try
asm
mov eax, 564D5868h
mov ebx, 00000000h
mov ecx, 0000000Ah
mov edx, 00005658h
in eax, dx
cmp ebx, 564D5868h
jne @@exit
mov Result, True
@@exit:
end;
except
Result := False;
end;
{$ENDIF}
end;
uses SysUtils;
function IsInsideVMWare: Boolean;
var
rc: Boolean;
begin
rc := False;
try
asm
push edx
push ecx
push ebx
mov eax, 'VMXh'
mov ebx, 0 // any value but not the MAGIC VALUE
mov ecx, 10 // get VMWare version
mov edx, 'VX' // port number
in eax, dx // read port
// on return EAX returns the VERSION
cmp ebx, 'VMXh' // is it a reply from VMWare?
setz [rc] // set return value
pop ebx
pop ecx
pop edx
end;
except
on EPrivilege do rc := False;
end;
Result := rc;
end;
موفق باشی
