Sigo revisando, son muchos! en la parte de criptografía vi un code que hace el cifrado de Cesar, obviamente lo haría más a lo bruto:
Dim Lista() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Dim Adelante As Integer = 3 ' modificando este valor es cuantos lugares adelantamos para reemplazar
Dim Letra As Char
Dim x As Integer
Dim cifrada As String = ""
Private Sub Cesar(palabra As String)
For i = 1 To Len(palabra)
Letra = GetChar(palabra, i)
For x = 0 To 26
If Letra = Lista(x) Then
x = (x + Adelante) Mod 27
Letra = CChar(Lista(x))
cifrada = cifrada + Letra
Exit For
End If
Next
Next
MsgBox(cifrada)
End Sub
'forma de uso
Cesar("elhacker")