Traducción de función desde delphi

[Novás]

Hola quisiera pediros una ayuda para traducir esta función de delphi a php ya que estoy migrando una aplicación de delphi a php y todavía soy un poco "dummy". Muchas gracias

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((ord(Value[CharIndex])));
end;

[Ñuño Martínez]

Atentos a la tontería:

Código PHP:

function EnDeCrypt ($Value)
{
  return "$Value";
} 


De hecho, la función Pascal podría simplificarse de la misma forma:

Código Delphi [-]
FUNCTION EnDeCrypt (CONST Value : STRING) : STRING;
BEGIN
  RESULT := Value;
END;

¿Y por qué?, se preguntará alguno: pues simplemente porque:

CHR ((ORD (Value[CharIndex]))) <=> Value[CharIndex];

Puesto que "ORD (x: CHAR)" devuelve el valor ASCII del caracter mientras que "CHR (ascii: INTEGER)" devuelve el caracter del valor ASCII...

O eso, o es que hoy tengo el día tonto... Que también puede ser.

Nota: Las comillas del código PHP son, en cierto modo, cosméticas pero de esta forma nos aseguramos de que lo que devuelve la función es una cadena de caracteres, independientemente del tipo del valor recibido.