Ver Mensaje Individual
  #1  
Antiguo 13-07-2010
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Reputación: 21
Novás Va por buen camino
Traducción de función desde delphi

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;
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita