Visual Basic.NET - Encriptador

Dim UnaVariableDeTipoString As String = "La base de datos contiene los registros" ' Los 39 caracteres son caculado de 0 a 38 (Length - 1)

Dim MisPruebas As String

MisPruebas = UnaVariableDeTipoString.SubString(0)  ' MisPruebas contiene todo, de 0 hasta el ultimo caracter "s"

MisPruebas = UnaVariableDeTipoString.SubString(14)  ' MisPruebas contiene "os contiene los registros", todo después el indicio 14

MisPruebas = UnaVariableDeTipoString.SubString(0, 7)  ' MisPruebas contiene "La base", es dice 7 caracteres después el indicio 0

MisPruebas = UnaVariableDeTipoString.SubString(14, 7)  ' MisPruebas contiene "os cont", es dice 7 caracteres después el indicio 14

For c As Integer = 0 to UnaVariableDeTipoString.Length - 1

      MisPruebas = UnaVariableDeTipoString.SubString(c, 1)  ' Para cada ciclo, MisPruebas recibe 1 caracter, aquello del indicio c

      MessageBox.Show(MisPruebas) ' 39 messageBox para mostrar todo los caracteres, uno a uno

Next