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...
