Criptograma con codigo desarrollado por mikey

Criptograma con  codigo desarrollado por mikey gomez 

El criptograma esta  desarrollado en visual profesional 2013 esta basado  en la transposición lo que realiza el codigo en exactitud es seleccionar los caracteres uno por uno y pasarlo a código ascci y  sumarle 5 unidades a lo que  volvemos a pasar a código ascci en esto consiste la encriptación y para desencriptar se realiza el mismo proceso pero esta vez restándole 5 unidades esta diseñado en una aplicación de escritorio que envía mensajes secretos por medio del correo electrónico y solo se puede desencriptar o leer  el mensaje secreto si la otra persona  también posee  el programa

Imports System.Net.Mail

Public Class criptogramamiguel

    Dim message As New MailMessage

    Dim smtp As New SmtpClient

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub botonencrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botonencrip.Click

        Dim cad As String 'profe  esto hace referencia a  la cadena

        Dim p As Integer  'profe  esto hace referencia a  lapocicion

        For p = 1 To Len(TextBox1.Text) 'profe aqui p recorre la cadena del texto letra por letra

            cad = Mid(TextBox1.Text, p, 1) ' profe aqui se extrae letra por letra del texto a encriptar

            cad = Asc(cad) + 5

            TextBox2.Text = TextBox2.Text & ChrW(cad) 'profe aque ChrW pasa el numero ascci al caracter

        Next

    End Sub

    Private Sub botondesen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botondesen.Click

        Dim cad As String 'profe  esto hace referencia a  la cadena

        Dim p As Integer 'profe  esto hace referencia a  la pocicion

        For p = 1 To Len(TextBox1.Text) ''profe aqui p recorre la cadena del texto letra por letra

            cad = Mid(TextBox1.Text, p, 1) ' profe aqui se extrae letra por letra del texto a encriptar

            cad = Asc(cad) - 5 'profe aqui asc saca el codigo ascci de cada letra

            TextBox2.Text = TextBox2.Text & ChrW(cad) ' aquie se revela la encriptacion ya ChrW pasa el numero ascci a caracter nuevamente

        Next

    End Sub

    Private Sub botonenviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botonenviar.Click

        message.From = New MailAddress(tucorreo.Text)

        message.To.Add(destinatario.Text)

        message.Body = TextBox2.Text

        message.Subject = asunto.Text

        message.Priority = MailPriority.Normal

        smtp.EnableSsl = True

        smtp.Port = "587"

        smtp.Host = "smtp.gmail.com"

        smtp.Credentials = New Net.NetworkCredential(tucorreo.Text, contraseña.Text)

        smtp.Send(message)

        MsgBox("mensaje secreto enviado ", MsgBoxStyle.Information, "enviado")

    End Sub

    Private Sub botonborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botonborrar.Click

        TextBox1.Clear()

    End Sub

    Private Sub destinatario_TextChanged(sender As Object, e As EventArgs) Handles destinatario.TextChanged

    End Sub

    Private Sub tucorreo_TextChanged(sender As Object, e As EventArgs) Handles tucorreo.TextChanged

    End Sub

    Private Sub botonborrartodo_Click(sender As Object, e As EventArgs) Handles botonborrartodo.Click

        TextBox1.Clear()

        TextBox2.Clear()

        tucorreo.Clear()

        contraseña.Clear()

        destinatario.Clear()

        asunto.Clear()

    End Sub

    Private Sub botonborrar2_Click(sender As Object, e As EventArgs) Handles botonborrar2.Click

        TextBox2.Clear()

    End Sub

    Private Sub botonsalir_Click(sender As Object, e As EventArgs) Handles botonsalir.Click

        Me.Close()

    End Sub

End Class

    

Enlace para descargar el ejecutable del criptograma  https://mega.co.nz/#!aNxViJiA!BM6zRfbzsR7cVY-r6LE2qqwO3YG8am5esbpTuA_4fJo