Encriptación

[Novás]

Buen día a todo el mundo, veréis mi pregunta es la siguiente:

Tengo un código que uso para encriptar cadenas, pero este código está en Delphi y no controlo mucho como adaptarlo a php. ¿Alguién sería tan amable de traducirmelo a php? Muchas grácias

Código Delphi [-]
function EnDeCrypt(const Value : String) : String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

[Hagen]

Pues mas o menos asi:

Código PHP:

function EnDeCrypt ($value) {
  $Result = $value;
  for ($CharIndex=0; $CharIndex <= strlen($value) - 1; $CharIndex ++) {
    $Result[$CharIndex] = Chr(not(Ord($value[$CharIndex])));
  }
  return $Result;
} 


Espero te sirva...