Ver Mensaje Individual
  #1  
Antiguo 13-05-2016
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Reputación: 18
gdlrinfo Va por buen camino
Encryptacion con ORD

Estimados tengo una gran duda me estoy volviendo loco el tema es asi tengo un texto que tiene una serie de caracteres encriptados que lo encripto con la función ORD pero por ejemplo cuando encripta a la letra C me la pone como el símbolo œ ahora bien al desencriptar me trae uno símbolos raros lo cual antes lo hacia bien lo que noto que el problema esta al usar el not dejo un ejemplo!!!!
Código Delphi [-]
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

atte. Gracias como siempre

Última edición por Casimiro Notevi fecha: 13-05-2016 a las 21:50:59.
Responder Con Cita