Encriptación.

[BuenaOnda]

amigos estos son los componentes de encriptacion http://files.to/get/323241/29686/Tplockbox.zip

para utilizarlos deben incluir las librerias de los componentes en el USES (sin colocar ningun compoente sobre algun DataModule o Form)

implementation

{$R *.dfm}
Uses LbCipher,LbString;
type
TEncryption = (eBf, eBfCbc, eDes, eDesCbc, e3Des, e3DesCbc, eRdl,
eRdlCbc);

Var { Definimos las variables para la Encriptación... }
Key64 : TKey64;
Key128 : TKey128;
Key192 : TKey192;
Key256 : TKey256;


luego debemos escribir las Funciones para Encriptar y Desencriptar :


function Encriptar(eTexto, Clave: String): String;
var
txtEncriptado : String;
begin
txtEncriptado:='';
Reactivar(Clave); //
txtEncriptado:=RDLEncryptStringCBCEx(eTexto,Key64,16,True);
Result:=txtEncriptado;
end;


function Desencriptar(dTexto, Clave: String): String;
var
tDesEncriptado : String;
begin
tDesEncriptado:='';
Reactivar(Clave); //
tDesEncriptado:=RDLEncryptStringCBCEx(dTexto,Key64,16,False);
Result:=tDesEncriptado;
end;


procedure .Reactivar(pClave: String);
begin
GenerateLMDKey(Key64,SizeOf(Key64),pClave);
GenerateLMDKey(Key128,SizeOf(Key128),pClave);
GenerateLMDKey(Key192,SizeOf(Key192),pClave);
GenerateLMDKey(Key256,SizeOf(Key256),pClave);
end;


El parámetro "Clave", utilizado en las funciones "Encriptar y Desencriptar" nos indica cual sera la "Clave" en la que se basará nuestra encriptación...

okas.. espero que les sirva...