[تمرين] كيف احمي برنامجي من الـــ rce ؟

[SMP3]

كود :

function IsRing0DBG(S:string): Boolean; var hFile: Thandle; begin Result := False; hFile := CreateFileA(Pchar(S), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); if( hFile <> INVALID_HANDLE_VALUE ) then begin CloseHandle(hFile); Result := TRUE; end; end;

هناك Bug بهذه الدالة
[dcc32 Error] GbdItna.pas(64): E2010 Incompatible types: 'PAnsiChar' and 'PWideChar'

Delphi XE3

ليست Bug .. النسخ التي تدعم اليونيكود تعتبر PChar = PWideChar
في المثال تم استخدام الدالة CreateFileA يعني يجب استخدام PAnsiChar بدل PChar

[خالد على22]

هل لا زال الموضوع فعال ؟