Encriptación.

[[seoane]]

Empezado por egostar

Y estan usando una suma en lugar de AND, eso cambia todo el resultado.

Creo recordar, de la época en que me toco usar el Vb, que el operador & sirve para concatenar cadenas. Es decir que mi traducción es correcta, para mas información, lee un manual de visual basic

[[egostar]]

Empezado por seoane

lee un manual de visual basic

ok ok, entendido y anotado

Saludos

[BuenaOnda]

Tplockbox.zip:
Your file of 1,01 MB bytes exceeds the forum's limit of 29,3 KB for this filetype.

este errr me apaece al intentar subir los componentes de encriptacion... alguien me puede decir como los puedo subir para compartirlos con todos Uds..??

[dec]

Hola,

Los archivos que pueden adjuntarse en los hilos de los foros están limitados en tamaño. Por el momento tendrías que enlazar la URL desde la que descargar el archivo en cuestión. Si no dispones de espacio Web puedes utilizar algún servicio gratuito que te lo proporcione: en Genbeta se listan algunos.

Por otro lado, y si lo prefieres, puedes enviarme el archivo a la dirección de correo: davidesperalta (ARROBA) gmail.com

Yo me encargaré de subirlo a mi espacio Web en el ClubDelphi y pondré aquí mismo la URL desde la que podrán descargarse los componentes.

Lo dejo a tu elección. Si tienes algún otro comentario no dudes en hacerlo.

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

[Redneck]

Muchas gracias a todos por su pronta respuesta

[roman]

La página del proyecto TurboPower LockBox:

http://sourceforge.net/projects/tplockbox

// Saludos