Ayuda con Encriptamiento de Texto

[donald shimoda]

Empezado por yelian

Hola donald shimoda

**Puedes colocar un botón que dispare el procedimiento de encriptado, pasandole como parámetro la propiedad Text del edit. O bien en el evento onexit del edit.**

-Como puedo hacer esto...

Usando el código que pasaste:

Código Delphi [-]
function Encriptar(aStrEncriptar: String): string; 
var   
  i : byte; 
begin   
  for i:=1 to strlen(aStrEncriptar) do   
  begin     
     result := aStrEncriptar[i]+3;   
  end; 
end;

En el onexit del botón suponiendo que se llame MyButton y que lo quieras guardar encriptado en aStrDestino

Código Delphi [-]
  aStrDestino := Encriptar(MyButton.Text);

enjoy!