Algoritmos criptograficos

Algoritmo CESAR

1. Inicio
2. Se crea una tabla de comparación
Donde :

A=d, b=e, c=f, d=f, t=h, f=i, g=j, h=k, i=L, j=m, k=n, L=o, m=n, n= q
O=r, p=s, q=t, r=u, s= v , t=w, u=x, v=y, w=z , x=a, y=b, z=c

3. Se pide la palabra a encriptar
4.Se compara letra por letra de la palabra a auxiliar con la tabla creada
5. Se sustituye letra por letra de acuerdo con el correspondiente de la tabla
6. Se crea una cadena de letras cifradas de acuerdo a la sustitución de letras
7. Imprimir resultado
8. fin

METODO DE CESAR
Private Sub Label10_Click()
Dim res As String ' Resultado desencriptado

If (Check1.Value = 1 AndCheck2.Value = 1) Or (Check1.Value = 0 And Check2.Value = 0) Then
MsgBox "Seleccione solo una dirección derecha/izquierda", vbExclamation, "Decoded Cesar Strings"
Else
If Check1.Value = 1 Then
Dim i As Integer 'variable que recorre letra por letra
For i = 1 To Len(Text1.Text)
res = res & Chr(Asc(Mid(Text1.Text, i, 1)) + Text3.Text)
Next
EndIf
If Check2.Value = 1 Then
Dim z As Integer 'variable que recorrde el texto
For z = 1 To Len(Text1.Text)
res = res & Chr(Asc(Mid(Text1.Text, z, 1)) - Text3.Text)
Next
End If
Label4.Caption = res
Label7.Caption = StrReverse(Label4.Caption)
End If
End Sub
Private Sub Label11_Click()
Form2.Show
End Sub

Private Sub Label9_Click()Text1.Text = ""
Text3.Text = ""
Label4.Caption = ""
Label7.Caption = ""
End Sub

ALGORITMO ATBASH

1. Inicio
2. Se crea una tabla de comparación donde:

A=z, b=y, c=x, d=w, e=v, t=u, g=t, h=s, i=r, j=q, k=p, l=o, m=n
N=m, o=l, p=k, q=j, r=i, s=h, i=g, u=f, v=e, w=d, x=c, y=b, z= a

3. Se escribe la palabra a cifrar
4. Se compara letra por letra de lapalabra a cifrar conforme a la tabla creada
5. Sustituir letra por letra de acuerdo con el correspondiente de la tabla
6. Se crea una cadena de letras cifradas de acuerdo a las sustitución de letras
7. Imprimir resultado
8. fin

METODO DE ATBASH
Private Sub botones_Click(Index As Integer)
Select Case Index
Case 0
encriptar
Case 1desencriptar
Case 2
limpiar
Case 3
cerrar
End Select
End Sub
Sub encriptar()
Dim i As Integer
Rem verificar que todas las cajas esten llenas
For i = Text1.Count - 1 To 0 Step -1
If Text1(i) = "" Then
MsgBox "Falta una caja a llenar"
Exit Sub
End If
Next i
i = i + 1


Remponer los caracteres al password
o = Text1(9) & "anc" & Text1(0) & "pas" & Text1(4) & "con" & Text1(8) & "pub" & Text1(2) & "jab" & Text1(7) & "cam" & Text1(3) & "hol" & Text1(5) & "per" & Text1(6) & "mib" & Text1(1) & "tro"
encriptado = o
u = Text1(9) & Text1(0) & Text1(6) & Text1(8) & Text1(2)& Text1(7) & Text1(3) & Text1(5) & Text1(4) & Text1(1)
Rem solo el password encriptado
passenc = u
End Sub
Sub desencriptar()
Dim i As Integer
Rem verificar que todas las cajas esten llenas
For i = Text1.Count - 1 To 0 Step -1
If Text1(i) = "" Then
MsgBox "Falta una caja a llenar"
Exit Sub
End If
Next ii = i + 1
e = Text1(0) & Text1(1) & Text1(2) & Text1(3) & Text1(4) & Text1(5) & Text1(6) & Text1(7) & Text1(8) & Text1(9)
Rem desemcriptar
desemcriptado = Text1(0) & "pas" & Text1(1) & "tro" & Text1(2) & "jav" & Text1(3) & "hol" & Text1(4) & "con" & Text1(5) & "per" & Text1(6) & "mib"...