1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function decode(text: PChar): PChar; export;
var current, text2, result2: String;
begin
  result2 := '';
  text2 := String(text);
  while not (text2 = '') do
  begin
    current := Copy(text2,1,Pos('z',text2)-1);
    text2 := Copy(text2,Pos('z',text2)+1,Length(text2)-Pos('z',text2));
    result2 := result2 + Chr(Byte(StrtoInt(current)));
  end;
  result := PChar(result2);
end;