Ver Mensaje Individual
  #1  
Antiguo 11-06-2007
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Reputación: 22
Novás Va por buen camino
Encriptación

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