fork download 
  1. program ideone;
  2. var 
  3. t: string;
  4. cnt: integer;
  5. i: string;
  6. e: string;
  7. begin
  8.     t:='test';
  9.     i:='string';
  10.     e:='';
  11. 	for cnt:=1 to length(t) do
  12. 	  begin
  13. 	  e+=chr(ord(t[cnt]) xor ord(i[1]));
  14. 	  end;
  15. end.
Success #stdin #stdout 0s 340KB
comments ()
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/XGJqWH
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!