1:
2:
3:
4:
5:
6:
7:
8:

     function xor_string($string)
      {
        $buf = '';
        $size = strlen($string);
        for ($i=0; $i<$size; $i++)
          $buf .= chr(ord($string[$i]) ^ 255);
        return $buf;
      }                    

1:
2:
3:
4:
5:
6:
7:
8:

function XOR_String(const S: String): String;
  var
    i: Integer;
begin
  Result := S;
  for i := 1 to Length(Result) do
    Result[i] := Chr(Ord(Result[i]) xor 255);
end;                    

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

function xor_string(Const aString : String) : String;
Var
  buf : String;
  i, size : IntegeR;

Begin
  buf := '';
  size = Length(aString);
  for i:=1 to size do 
    buf := buf + chr(ord(aString[i]) xor 255);

  result := buf;
end;