Simple Xor Encryption

[bubzuru]

from my edit server, simple encryption

Code: [Select]

function Encrypt(s:string):string;
var i:integer;
begin
  for i := 1 to length(s) do
    s[i] := char(ord(s[i]) xor 444);
  result := s;
end;


Code: [Select]

var := Encrypt('helllllllo');