Hola
Este es un sencillo componente para encriptar datos que pueden ser archivos o variables.

Está en fase beta, pero es pequeño así que dudo que haya muchos errores aunque alguno habrá. Principalmente al convertirlo de clase a componente supongo.

Como hay muchos algoritmos para elegir por defecto está AES256 así que si no decís nada ese es el que se usa. Si queréis cambiar podéis usar la lista

Código:

 
Dim F as new MyCipher F.Cipher=F.CipherList.Des3,,,,,,

Se puede encriptar una variable. Algo como esto

Código:

 
Dim F as new MyCipher, Var as string, var2 as string Var="hola mundo"Var2=F.StrEncode(Var) 

Como no dije nada se habra encriptado con AES256 pero podría haber elegido otro.
Como no dije nada el resultado será binario, pero podría haberlo pasado a base64 añadiendo un parámetro.

Aquí está el proyecto
https://gitlab.com/kabronsete/mycipher

Y aquí está la documentación
https://gitlab.com/kabronsete/mycipher/-...cipher.pdf

¡Gracias! De momento el encriptado no entra en mi horizonte, aunque sí lo hizo en el pasado. Alguien pedía algo así hace unas semanas en el foro para encriptar una base sqlite después de su uso. Siempre viene bien un recurso como éste.


Saludos.