Защита от взлома, Есть ли она? Опции

[Славик]

Всем привет. И спасибо за быстрые отклики в предыдущих темах.

Я искал на вашем форуме, но не нашел... по поводу вопроса:

Можно ли взломать ".exe" файл созданный на Турбо паскале 7 ? (чтобы был виден алгоритм)
Как это можно сделать?

Можно ли защитить файл от взлома, и как?
Или хотябы, при взломе, "не дать" прочитать часть или весь алгоритм.

Просьба обьяснить это попонятней, поскльку я новичок в программировании.

[Romtek]

Вставляй процедуры в критические места программы. Взято из книги Фаронова "Практика программирования на Турбо Паскаль 7.0".

Код

Procedure TrassBlock1;
 {îá¬α«ß ñ½∩ í«α∞íδ ß Γαáßß¿α«ó¬«⌐
  ß »«¼«Θ∞ε ¼«ñ¿Σ¿¬áµ¿¿ ¬«¼á¡ñδ}
inline(
{@0:}
 $0E/        {push cs}
 $E8/$00/$00/       {call @1}
{@1:}
 $5B/        {pop  bx}
 $83/$EB/$04/       {sub  bx,@1-@0}
 $07/        {pop  es}
 $53/        {push bx}
 $B4/$C3/       {mov  ah,$C3}
 $26/$88/$67/$11/$90/ {mov  es:[bx+@2-@0],ah}
{@2:}
 $90/        {nop}
 $B4/$90/       {mov  ah,$90}
 $26/$88/$67/$11/$90/ {mov  es:[bx+@2-@0],ah}
 $5B);        {pop  bx}
{------------------}
Procedure TrassBlock2;
 {ü«α∞íá ß Γαáßß¿α«ó¬«⌐ ß »«¼«Θ∞ε
  ¬«¡Γα«½∩ óαѼѡ¿}
var
 t1,t2: LongInt;
begin
 t1 := MemL[0:$046C];
 t2 := 0;
 repeat
    while MemL[0:$046C]=t1 do;
    while MemL[0:$046C]<t1+2 do
    inc(t2);
 until t2>=500;
 TrassBlock1;
end;  {TrassBlock2}

В кодировке ДОС