请问这个函数反值是什么？(10分)

ecode:='123';
function encrypt(ecode:string):string;

var
texts:string;
i:byte;
begin
texts:='';
for i:=1 to length(ecode) do
texts:=texts + chr(ord(ecode)+i);
encrypt := texts;
end;

ecode:='123';
function DeEncrypt(ecode:string):string;
var
texts:string;
i:byte;
begin
texts:='';
for i:=1 to length(ecode) do
texts:=texts + chr((ord(ecode)+256-i) mod 256);
DeEncrypt := texts;
end;