Этот крякми написан на дельфи и весит всего 15 килобайт, но вам его никогда не взломать, так как там настолько офигенная защита, что вы все рагьше повеситесь чем его взломаете.
Ну а если кто взломает, то это будет настоящий великий гуру кракинга!
Давайте зацените!!!

// DELETED by -= ALEX =-

| Сообщение посчитали полезным:

@S_T_A_S_
VMWare или VirtualPC нужно юзать

Не факт! Делаем на том же недзенском Delphi пару абзацев, как VIKT0R с wasm.ru написал и забиваем на виртуальные машины.

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;

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
mov eax, 1

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
add dword ptr [ecx+0B8h], 4
xor eax, eax
ret
@@ret:
end;

begin
if IsVMwarePresent()
then
writeln( 'Found VMware!');

begin
if running_inside_vpc
then
writeln( 'Found VirtualPC!');
end;

-----
ring 0

| Сообщение посчитали полезным:

Ну и что? Найдёт эта бяка виртуалку, но FS хоста всё равно не испортит.

| Сообщение посчитали полезным:

Если охота, связывайтесь - www.cyberpol.ru

| Сообщение посчитали полезным:

Ну и что? Найдёт эта бяка виртуалку, но FS хоста всё равно не испортит.
Да ничего она не сделает . Да вот кто-нибудь осторожный и попадется: ну проверяет она что-то и что?

-----
ring 0

| Сообщение посчитали полезным:

DrFits пишет:
Действительно отошлите письмо провайдеру, а то он в следующий раз (когда страх пройдет) ещё вирей на какой-нить сайт забросит.
Нужно наказать, обязательно. Чтобы не повадно было. А то решил го**юк потренироваться в искусстве программирования, "тренируйся на-а... кошках". Хорошо, что тревогу подняли вовремя, а так последствия были бы намного хуже. Нечего сказать, в опасное время живем...

-----
Сколько ни наталкивали на мысль – все равно сумел увернуться

| Сообщение посчитали полезным:

сегодня пришел ответ из лаборатории Касперского:

Это троянская программа Trojan.Win32.KillDisk.o.
детектирование будет добавлено в следующее обновление антивирусных баз.

С уважением,
Павел Зеленский
Вирусный аналитик

ЗАО "Лаборатория Касперского"
Тел/Факс: +7 (095) 797-8700
E-mail: newvirus@kaspersky.com
Internet: www.kaspersky.com, www.viruslist.com


> Attachment: Trojan.DiskKiller.ex_

| Сообщение посчитали полезным:

Кстати, кто-то мне говорил, что если писать из VMware прямо в порты, то ОС тоже может "накрыться", так как "не ожидает и не видит", что разделом пользуется еще одна ОС, хоть и виртуальная.

-----
ring 0

| Сообщение посчитали полезным:

Сама VMware может и накроется при каком-то стечении обстоятельств, но то, что для мулируемой ОС физический диск - для ОС хоста всего лишь обычный файл.

| Сообщение посчитали полезным:

Только это и больше ничего не надо

c3c5_me.txt

-----
Само плывет в pуки только то, что не тонет.

| Сообщение посчитали полезным: