Шифрование текстовых фрагментов в теле программы. Опции

[ZeroLink]

Шифрование текстовых фрагментов в теле программы относится к разделу
антиюзериады. В последнее время развелось много юзеров, которые гордятся
своим умением нажать F4 на exeшнике и посмотреть, нет ли там строк "Copyright",
"Автор программы ....." и изменять их типа на "Автор проги хакер Вася" и т.п.
Поэтому я предлагаю небольшой антиюзерский приём (См. CRYPT.RAR)

[xds]

Помню, в годы моего развращенного детства (классе в 8-9), я успешно пользовался следующим тривиальным, но действенным методом:

Код

program Crypt;

procedure Recrypt(var Buf; Count: Word); assembler;
asm
 mov dx,Count
 or dx,dx
 jz @3
 les di,Buf
 cld
@1:
 mov ah,es:[di]
 mov cx,8
@2:
 shl ah,1
 rcr al,1
 loop @2
 stosb
 dec dx
 jnz @1
@3:
end;

var
 sf, df: File;
 Buf: array[0..4095] of Byte;
 r: Word;

begin
 Assign(sf, ParamStr(1));
 Reset(sf, 1);
 Assign(df, ParamStr(2));
 Rewrite(df, 1);
 repeat
   BlockRead(sf, Buf, SizeOf(Buf), r);
   Recrypt(Buf, r);
   BlockWrite(df, Buf, r);
 until r < SizeOf(Buf);
 Close(df);
 Close(sf);
end.