Creating a CrackMe with Simple Algorithm [Help]

[pwnium]

Hello there !   

am using delphi 7 Lite 

this is a simple code i wrote   : 

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

the problem is , when i debug my little CrackMe , i can see the correct password just by a simple search  (reference text string) ! 

see the picture  : http://i63.tinypic.com/30rxhj8.png

how to hide strings ? 

- another question : 

i've created a simple algorithm : 

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;

how to convert this code to a CrackMe ? because i tried too many times and i i couldn't figure out the correct way  ! 

please help , i completely new to Delphi 

Greeting,

Edited December 15, 2018 by abdelhamid

[pwnium]

i've found a solution for the second question ! 
now how can i encrypt string of messagebox in delphi ? 

 

[NOP]

You could create a hash of the serial number (eg: MD5), hash the input box and check the result with your stored hash 😁

[pwnium]

5 hours ago, NOP said:

You could create a hash of the serial number (eg: MD5), hash the input box and check the result with your stored hash 😁

thank you for replying my topic , i'll do my best to apply what you've mentioned !

greetz,