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

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.

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.

PHP كود :

procedure TMain.CheckItSelf;
var MyStream: TMemoryStream;
  StoredChecksum, CalculateChecksum: integer;
begin
  MyStream := TMemoryStream.Create;
  MyStream.LoadFromFile(Application.ExeName);
  MyStream.Seek(-4, soFromEnd);
  MyStream.Read(StoredChecksum, 4);
  StoredChecksumEdt.Text := IntToHex(StoredChecksum, 8);
  MyStream.Seek(0, soFromBeginning);
  MyStream.SetSize(MyStream.Size - 4);
  CalculateChecksum := GetMemoryStreamCrc32(MyStream);
  MyStream.Free;
  CalculateChecksumEdt.Text := IntToHex(CalculateChecksum, 8);
  if StoredChecksum <> CalculateChecksum then
  begin
    MessageBox(Handle, 'File Corrupted | Please scan your System | Maybe Virus infection.'#13 +
      'Reinstall application to fix problem.'#13#13 +
      'STRELiTZIA | AT4RE'#13 +
      'www.delphi4arab.net', 'File Corrupted', MB_ICONWARNING);
    Application.Terminate;
  end;
end;

PHP كود :

procedure TMain.FormCreate(Sender: TObject);
begin
  CheckItSelf;
end;

كود :

procedure TForm1.Button1Click(Sender: TObject);
var MyStream: TMemoryStream;
    
begin
  MyStream := TMemoryStream.Create;
  Try
  MyStream.LoadFromFile(Application.ExeName);
  Edit1.Text:=MD5DigestToStr(MD5Stream(mystream));
  Finally
  MyStream.Free
  end;

end;

كود :

procedure TForm1.Button2Click(Sender: TObject);
  var registre:TRegistry;
begin
  Registre:=Tregistry.Create;
  Registre.RootKey:=HKEY_CURRENT_USER;
  Try
  Registre.OpenKey('Software\Delphi4Arab',true);
  Registre.WriteString('MyMd5',Edit1.Text);
  Label1.Caption:='HKEY_CURRENT_USER\SOFTWARE\DELPHI4ARAB';
  Finally
  Registre.Free;
  end;
end;

كود :

procedure TForm1.FormCreate(Sender: TObject);
var registre:TRegistry;
   // MyStream: TMemoryStream;

begin

  Registre:=Tregistry.Create;
  Registre.RootKey:=HKEY_CURRENT_USER;
  Try
  Registre.OpenKey('Software\Delphi4Arab',true);
  Label1.caption:=Registre.ReadString('MyMd5');

  Finally
  Registre.Free;

  end;


  Button1Click(Sender);

  if Label1.Caption <> Edit1.Text then ShowMessage('MD5 Hash modified') else
    Form1.Caption:=Form1.Caption+' -[Md5 Hash OK]';


end;