[ViNT]

Что касается декодера, я бы сделал так:

uses hexdec;

function DecodeText(Src:string):string;
var
 T,B:String;
 I,SC:integer;
 C:Char;
 L:Integer;
begin
 L:=Length(Src);
 I:=0;
 T:='';
 while I < L do
 begin
  C:=GetChar(Src,I);
  if C<>'%' then
  begin
   T:=T+C;
   I:=I+1;
  end
  else
  begin
   B:='';
   B:=B+GetChar(Src,I+1);
   B:=B+GetChar(Src,I+2);
   SC:=hex2dec(B);
    T:=T+Chr(SC+848);
   I:=I+3;
  end;
 end;
 DecodeText:=T;  
end;

Исходный текст до кодирования должен быть в win-1251.