escribojava

Saludos amigos; en esta oportunidad hablaremos de Algoritmos de encriptacion en delphi lo que se nos vuelve en una necesidad al momento de implementar una aplicacion con base de datos que almacene contraseñas, otro aspecto resaltar es que estos algoritmos son en un solo sentido lo que quiere decir que al momento de hacer login, solo debes encriptar el contenido del campo clave y compararlo con el amacenado previamente en la base de datos. A continuacion muestro la unit con el nombre de Hashes que contiene los algoritmos de encriptacion md5 y sh1 la cual solo tienes que agregar a la clausula uses de la unidad donde estes encriptando datos. Asi:  ...   public     { Public declarations }   end; var   Form1: TForm1; implementation uses Hashes;// aqui... {$R *.dfm} ... En este ejemplo es Form1 en el cual yo tengo el campo de texto y los demas componentes para mostrar los textos encriptados con los dos algorimos esa clausula se en...

Saludos amigos aqui dejo un codigo de encriptacion basado en arreglos, nos sive para entnder como funciona y luego poder implementar algo de acuerdo a nuestra necesidad, hay muchas funciones que relizan esta labor como lo son XorEncode/XorDecode, RSA o MD claro esta para utilizar algunos de estos es necesario que incluyas sus librerias en tu proyecto . function TControl_Acceso.encriptar(c:string):string; var i,j,tam:integer; s:string; ch:char; begin tam:=length(c); ch:=c[1]; c[1]:=c[tam]; c[tam]:=ch; s:=''; j:=122; for i:=1 to tam do begin if ((i mod 2)<>0) then begin s:=s+chr(j)+c[i]; j:=j-1; s:=s+chr(j); j:=j-1; end else s:=s+c[i]; end; if (tam mod 2 =0) then s:=s+chr(j); encriptar:=s; end; //Para llamar encriptar: //control_acceso.encriptar(pasword.Text); function TControl_Acceso.desencriptar(c:string):string; var i,tam:integer; s:string; ch:char; begin tam:=length(c); s:=''; for i:=2 to tam do begin if ...