Переведите код

[Tone]

Когда то давно писал хук на delphi, потом просрал исходник , осталась только одна DLL'ка. Вот содержимое хука

procedure EnableHook();
begin
{ '4125D0
loc_004125D0: push 00000000h
loc_004125D2: push 00000000h
loc_004125D4: push 00000003h
loc_004125D6: push 00000000h
loc_004125D8: push 00000003h
loc_004125DA: push 10000000h ; 'MZP'
loc_004125DF: push 00412638h ; '\\.\PhysicalDrive0'
loc_004125E4: call 00405B54h ; @CreateFile(%x1, %x2, %x3, %x4, %x5, %x6, %x7)
loc_004125E9: push 00000000h
loc_004125EB: push 00000000h
loc_004125ED: push 00000003h
loc_004125EF: push 00000000h
loc_004125F1: push 00000003h
loc_004125F3: push 10000000h ; 'MZP'
loc_004125F8: push 0041264Ch ; '\\.\PhysicalDrive1'
loc_004125FD: call 00405B54h ; @CreateFile(%x1, %x2, %x3, %x4, %x5, %x6, %x7)
loc_00412602: push 00000000h
loc_00412604: push 00000000h
loc_00412606: push 00000003h
loc_00412608: push 00000000h
loc_0041260A: push 00000003h
loc_0041260C: push 10000000h ; 'MZP'
loc_00412611: push 00412660h ; '\\.\PhysicalDrive2'
loc_00412616: call 00405B54h ; @CreateFile(%x1, %x2, %x3, %x4, %x5, %x6, %x7)
loc_0041261B: push 00000000h
loc_0041261D: push 00000000h
loc_0041261F: push 00000003h
loc_00412621: push 00000000h
loc_00412623: push 00000003h
loc_00412625: push 10000000h ; 'MZP'
loc_0041262A: push 00412674h ; '\\.\PhysicalDrive3'
loc_0041262F: call 00405B54h ; @CreateFile(%x1, %x2, %x3, %x4, %x5, %x6, %x7)
loc_00412634: ret
}
end;

Переведите кто-нить эту процедуру в delphi код

[Stilet]

procedure EnableHook();
begin
 CreateFile('\\.\PhysicalDrive0', $10000000, 3, 0, 3, nil, nil)
 CreateFile('\\.\PhysicalDrive1', $10000000, 3, 0, 3, nil, nil)
 CreateFile('\\.\PhysicalDrive2', $10000000, 3, 0, 3, nil, nil)
 CreateFile('\\.\PhysicalDrive3', $10000000, 3, 0, 3, nil, nil)
end;

Только это тебе не поможет )

[Tone]

Этот хук запрещает перезаписывать MBR

[Stilet]

Любопытно... И что, антивирь не против?

[Tone]

Ни однин антивирь не палит + после закрытия хук слетает