Algoritmo

[fernando2222]

Alguien conoce un algoritmo de encriptacion sencillo ?

[pkj]

El método más sencillo (aunque fácilmente desencriptable) es usar un XOR

Código vb:

Function EncDec(ByVal txtEntrada As String, ByVal bytePass As Byte) As String
  Dim F As Long
  For F = 1 To Len(txtEntrada)
    EncDec = EncDec & Chr$(Asc(Mid$(txtEntrada, F, 1)) Xor Asc(bytePass))
  Next F
End Function
 

Esta función encripta una cadena segun un valor que incluyes.
Para desencriptarla solo hay que volver a pasarla por la funcion usando el mismo valor:

Código vb:

Private Sub Command1_Click()
  Dim Cadena As String
  Cadena = "abcdefghijklmnopqrst"
 
  'La encriptamos
  Cadena = EncDec(Cadena, 34)
  MsgBox Cadena
 
  'y despues la desencriptamos
  Cadena = EncDec(Cadena, 34)
  MsgBox Cadena
 
End Sub
 

Saludos

[fernando2222]

Gracias, probaré así y te cuento

[fernando2222]

Éste no logro entenderlo.
El signo $ que significa ?

[pkj]

Eso es una deformación profesional

El $ significa que trabajas con cadenas alfanuméricas.
Creo que ya no es necesario, pero alguna versión de BASIC que he usado me exigía añadir el signo en algunos comandos y sigo con la costumbre.

Saludos

[fernando2222]

Ok gracias, sigo intentando

[fernando2222]

Cadena, 34 a que se refiere?

[pkj]

Date cuenta que es un método de encriptación básico, de modo que el descifrado no es nada difícil. De hecho es lo más simple que puedo imaginar y solo muestra el camino a seguir.

34 es simplemente la clave elegida como contraseña de encriptado y por extensión también es la contraseña de desencriptado. Puede ser cualquier valor entre 0 y 255.

El encriptado es una simple rotación de bits. Cada carácter se cambia por otro en función del valor ascii de ese caracter junto al número elegido como contraseña.
Cuando vuelves a aplicar el mismo método con el mismo valor de contraseña, los caracteres vuelven a cambiar quedando como al comienzo.

Se puede retorcer el método hasta donde quieras, para complicar el desencriptado, pero este ejemplo es lo más basico.

Saludos

[fernando2222]

Gracias por la explicación, fué muy clara.