[تمرين] حماية ذاتية : البرنامج معطوب، مصاب بفيروس او تم العبث به

[Rover]

Library Code [ Lib.dll ]

PHP كود :

library Check_File_Hack;

uses
  ShareMem,
  SysUtils;

{$R *.res}
type
  Long = record
    LoWord: Word;
    HiWord: Word;
  end;

const
  CRCPOLY = $EDB88320;

var
  CRCTable: array[0..512] Of Longint;

procedure BuildCRCTable; 
var
  i, j: Word;
  r: Longint;
begin
  FillChar(CRCTable, SizeOf(CRCTable), 0);
  for i := 0 to 255 do
  begin
    r := i shl 1;
    for j := 8 downto 0 do
      if (r and 1) <> 0 then
        r := (r Shr 1) xor CRCPOLY
      else
        r := r shr 1;
    CRCTable[i] := r;
   end;
end;

function RecountCRC(b: byte; CrcOld: Longint): Longint;
begin
  RecountCRC := CRCTable[byte(CrcOld xor Longint(b))] xor ((CrcOld shr 8) and $00FFFFFF)
end;

function HextW(w: Word): string; stdcall;
const
  h: array[0..15] Of char = '0123456789ABCDEF';
begin
  HextW := '';
  HextW := h[Hi(w) shr 4] + h[Hi(w) and $F] + h[Lo(w) shr 4]+h[Lo(w) and $F];
end;

function HextL(l: Longint): string;
begin
  with Long(l) do
    HextL := HextW(HiWord) + HextW(LoWord);
end;

function GetCRC32(FileName: string): Boolean; stdcall;
var
  Buffer: PChar;
  f: File of Byte;
  b: array[0..255] of Byte;
  CRC: Longint;
  e, i: Integer;
begin
  BuildCRCTable;
  CRC := $FFFFFFFF;
  AssignFile(F, FileName);
  FileMode := 0;
  Reset(F);
  GetMem(Buffer, SizeOf(B));
  repeat
    FillChar(b, SizeOf(b), 0);
    BlockRead(F, b, SizeOf(b), e);
    for i := 0 to (e-1) do
     CRC := RecountCRC(b[i], CRC);
  until (e < 255) or (IOresult <> 0);
  FreeMem(Buffer, SizeOf(B));
  CloseFile(F);
  CRC := Not CRC;
  if HextL(CRC) = '2691ABA5' Then
  Result:= True
  Else
  Result:= False;
end;

Exports
GetCRC32;

end. 


Form Code

PHP كود :

unit Unit1;

interface

uses
  ShareMem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  function GetCRC32(FileName: string): Boolean; stdcall;
  External 'Lib.dll';

  { Using Dll With This Method >> will Cause Error
  in Delphi 7 But not Existed for previous versions}

type
  TForm1 = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  procedure FormCreate(Sender: TObject);

private
    { Private declarations }
public
    { Public declarations }
end;

  var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
Var
Check:Boolean;
begin

Check:= GetCRC32(Application.ExeName);
if Check then
      begin
      label1.Caption := '   > File Not Hacked !! ';
      label1.Font.Color := ClGreen;
      End
else
      Begin
      label1.Caption := '   > File Hacked !! ';
      label1.Font.Color := ClRed;
      end;
end;

end.