Códificación Vigenere
Les pido disculpas si no es del todo apropiado pero la verdad fue hecho a pelo en unos 20 minutos para superar un reto así que es posible que aún tenga sus detalles si alguien quiere usarlo y cambiar las funciones puede hacerlo, si creen que alguno de los cambios hechos por ustedes puede mejorar el código, con gusto agradeceré sus comentarios. ' Este programa fue hecho con la intención de usar la codificación Vigenere que fue el ' primer método de cifrado polialfabetico ' Y fue hecho usando la tabla original, en realidad se podría usar una variante de esta o ' incluir más carácteres de los que actualmente tiene, pero eso ya es otra historia. '================================= Variables ============================================ Dim Tabla(26, 26) As String, Mensaje As String, Pass As String, i1 As Integer, Resulta As String Dim Aux As String, Car As Integer, MSpa As String, MPas As String, EspaM As Integer Dim UbicaEspM() As Integer , EspaP As Integer, U