سؤال حول عمل CrackMe

[Rever7eR]

السلام عليكم أتمنى أن تكونو بصحة و عافية .
قمت بعمل CrackMe بسيط  

كود :

if edit1.text = '9987-5481-2548-2000' then
showmessage('Good Boy !') else showmessage('Bad Boy !');

عند تنقيحه تظهر عبارات Good Boy و BadBoy عند البحث في قائمة ال Strings 

ما الحل؟
الأمر الثاني ... كيف أبرمج كراك مي يعتمد على خوارزمية معينة بدل قيم ثابتة ؟ 
مثلا هذه خوارزمية بسيطة تعطي لكل اسم مدخل سريال خاص به : 

كود :

procedure TForm1.Button1Click(Sender: TObject);
    var i,s : integer;
begin
for i := 1 to length(edit1.text) do
     begin
         s := ord(edit1.text[i])
     end;
     s := s + $985;
     edit2.text := IntToStr(s);
end;

كيف أحول الكود التالي إلى كراك مي ؟ 
أفيدوني جزاكم الله خيرا 

[Sudan Tiger]

وعليكم السلام ورحمة الله اخي عبدالحميد

بالنسبة للاستفسار الاول عليك تعلم طرق تشفير النصوص 

اما بالنسبة للاستفسار الثاني

تحويلها بسيط خوارزمية الي [size=x-large]crack me[/size]

[size=x-large]انظر الي unit1 التالي[/size]

كود :

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   Edit2: TEdit;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,s : Integer;
begin
for i:=1 to Length(Edit1.Text) do
  begin
    s:=ord(Edit1.Text[i])
       end;
  s:=s+$985;
 IntToStr(s);

 if Edit2.Text=(IntToStr(s))then

 ShowMessage('Good boy!')
 else
 ShowMessage('Bad Boy!');
end;

end.

[size=x-large]هذه صور من crackme[/size]

[size=x-large][/size]

اخوك [size=medium]ɢᴇɴɴᴀʀᴏ[/size]

[Rever7eR]

بارك الله فيك يا أبو حاتم دائما في المساعدة   ما شاء الله عليك .

كل شيء واضح الان , غير انني عدلت في الكود الذي ارفقته ... لاني استعمل  Delphi 7 
الغريب انني استعملت كل انواع الجمل الشرطية و لم احصل على شيء في الوهلة الاولى . لكن الامور اتضحت 
بوركت

[محمد عبد العزيز]

السلام عليكم
لكل فعل ردع فعل

عند محاول الكسر عامة يتم البحث عن النصوص...عليك اخفاء النصوص او عدم اظهار رسالة الخطأ.

دائما فكر كيف تقوم بالكسر ثم فكر كيف تعيق ما قمت به للكسر