program ideone;
var 
t: string;
cnt: integer;
i: string;
e: string;
begin
    t:='test';
    i:='string';
    e:='';
	for cnt:=1 to length(t) do
	  begin
	  e+=chr(ord(t[cnt]) xor ord(i[1]));
	  end;
end.