[Mix6s]

тоже долго мучился с этой проблемой вот пока искал как сделать сам допер с кодированием))

/////////////////////раскодируем
function ruen(st:string):string;
var st1,st2:string;
i,l,l2:integer;
begin
st1:='';
st2:='';
l:=length(st);
for i:=0 to l-1 do
begin
if getchar(st,i)<>'%' then st2:=st2+getchar(st,i) else
begin
st1:=st1+chr(stringtointeger(st2));
st2:='';
end;
end;
ruen:=st1;
end;
//////////////////////////////////кодируем
function enru(st:string):string;
var st1,st2:string;
i,l,l2:integer;
begin
st1:='';
st2:='';
l:=length(st);
for i:=0 to l-1 do
begin
st1:=st1+integertostring(ord(getchar(st,i)))+'%';
end;
enru:=st1;
end;