Can I encrypted the source to CaseCase?

[d2010]

How convert normal source at CaseCase of source?
This CaseCase is worst for reverse-hacker from .exe to .pascal?

Code: Pascal  [Select][+][-]

1. procedure vla_ppostmig_topoglist1(opentok:word);
2. Var ase:integer;
3.     namf,fnam:shortstring;
4. Begin
5.     namf:='THIS IS CaseCase you see the lines 201..209';
6.     fnam:='';  //
7.     for ase:=201 to 209 do
8.      case ase of
9. 201: if (opentok=-046) then fnam:=ktrampath_vai44basarab;
10. 202: hcmoldo_set_drmv2('Eu multumesc tie Ilie Lacatusu."');
11. 203: if (opentok=0086) then fnam:=ktrampath_vai46garanod;
12. 204: hcmoldo_set_drmv2('-getkword100="aboutlib_inmem()"');
13. 205: if (fnam<>'') then
14.         Begin SetLibPk_name_of_library(1050,fnam,con_systemdrive);
15.               Coregio9002_aduiLibPk(2141,libpk.namef1,libpk.namef2);
16.         End;
17. 206: hcmoldo_set_drmv2('-getkword100="aboutlib_inmem()"');
18. 207: namf:=extrage_fisierul_din_linia_de_comanda_zipbatch(libPk.name_of_library, '');
19. 208: Begin   lpstr_lpCmdLine:=namf;
20.              libPk.name_of_library:=namf;
21.              namf :=concat('zip=',libPk.name_of_library) ;
22.              hc_moldo.argv_set(1, namf);
23.              hc_moldo.argv_set(7, namf); // setez aici deoarece apare ung bug;
24.       End;
25. 209:
26.    End;
27. End;//off("case")
28.  

[Thaddy]

You only have to encrypt/decrypt the literals and for that you can write a simple xor function.
Also note that to prevent hacking you need to prevent those strings to be stored in a data or rodata section.
Because a hacker will know it is encrypted data anyway.