حماية البرامج من الهندسة العكسية

PHP كود :

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1 : TButton;
    procedure Button1Click(Sender : TObject);
  private
    { private declarations }
    procedure DrawTheResult(ArrayOfByte : Array of Byte; TextPosition : TPoint);
  public
    { public declarations }
  end;

const
  CharectorsArrayC : array[0..26] of char = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I',
  'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'X', 'W', 'Y', 'Z', ' ');
  CharectorsArrayS : array[0..26] of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i',
  'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'x', 'w', 'y', 'z', ' ');


var
  Form1 : TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender : TObject);
const
  GoodBoy : Array[0..8] of Byte = (19, 0, 13, 10, 26, 24, 14, 20, 26); // RightMessgae
  BadBoy : Array[0..5] of Byte = (18, 14, 17, 17, 24, 26);  // WrongMessage
begin
  DrawTheResult(GoodBoy, Point(10, 10));
  DrawTheResult(BadBoy, Point(10, 30));
end;

procedure TForm1.DrawTheResult(ArrayOfByte : array of Byte;
  TextPosition : TPoint);
var
  MessageText : string;
  i : Integer;
begin
  MessageText := '';
  for i := Low(ArrayOfByte) to High(ArrayOfByte)-1 do
    if i = Low(ArrayOfByte) then
      MessageText := MessageText + CharectorsArrayC[ArrayOfByte[i]]
    else
      MessageText := MessageText + CharectorsArrayS[ArrayOfByte[i]];
  Self.Canvas.TextOut(TextPosition.X, TextPosition.Y, MessageText);
end;

end.

أخي عبد العزيز شكرا على ما تقدمه و انا عندما قلت استخدام جملة الشرط if لم اعني ما قصدته تمام فجميع الطرق تعتمد على مبدأ المقارنة لكن أنا قصدت الجمل الضعيفة و التي رأيتها في الكثير من المنتيادات و لا أقصد الكل لكن تعد على رؤوس الأصابع على حسب ما رأيت

شكرا على كل الشرح و تقبل ***** Rolleyes