3 respuestas en este tema

[enecumene]

Aquí­ les dejo una función que codifica y decodifica valores strings para poder asegurar tus datos valiosos en sus aplicaciones, aquí­ los dejo:

delphi

function EnDecriptar(const Valor : String) : String;
var
  CharIndex : integer;
begin
  Result := Valor;
  for CharIndex := 1 to Length(Valor) do
    Result[CharIndex] := chr(not(ord(Valor[CharIndex])));
end;

Modo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := EnDecriptar(Edit1.Text); //Codificamos
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text := EnDecriptar(Edit2.Text); //Decodificamos
end;

Saludos.

[Delphius]

Hola Fernando,
Buen "truco" . Nunca me hubiera puesto a pensar que con un poco de Chr, not y ord se pudiera hacer un algoritmo simple de cifrado.

Espero que no te moleste si empleo el término cifrado e invito a usarlo; a mi me da cierta "cosa" emplear codificar y decodificar... lo mismo que encriptar y desencriptar... no son muy adecuados, según la RAE.

Saludos,

[egostar]

Hola Fernando,
Buen "truco" . Nunca me hubiera puesto a pensar que con un poco de Chr, not y ord se pudiera hacer un algoritmo simple de cifrado.

Espero que no te moleste si empleo el término cifrado e invito a usarlo; a mi me da cierta "cosa" emplear codificar y decodificar... lo mismo que encriptar y desencriptar... no son muy adecuados, según la RAE.

Saludos,

8-) Me parecio leer a alguien conocido

Salud OS descifrados como dirí­a nuestro amigo Al

[Delphius]

Jajaja... sabí­a que alguien dirí­a algo.

Pues amigo... yo antes empleaba el término encriptación, desencriptación, codificación, etc... Pero tras leer algunos textos más me encontraba con que se emplea el término cifrado. Y... si la mayorí­a opta por éste es por algo... que cabe la posibilidad de que estaba hablando mal. Y así­ es... estaba hablando mal; al menos esa es mi humilde opinión. Y si bien no soy Cervantes, o como el inigualable Benedetti (Off-topic: ¡Te fuiste pero seguirás con nosotros!), hago mi esfuerzo por hablar técnicamente bien, que no hace mucho daño.

Y al ser este sitio una fuente técnica de conocimiento, más considero que se deberí­a ser correctos en el uso de los conceptos y términos.

Saludos,