[Tutorial] Encryption

' Description:This code is used in making a Encryption Tool 
' By: NextGen1 of Mpgh.net
' This code is copyrighted and comes  with no warranties.
' This code is intended for demonstration and all rights are granted soley to mpgh.net and it's members
' If you require any further information please contact me at mpgh.net via PM (Get an account if you don't have one) 
' Tutorials and apps create by me for mpgh.net will contain the following agreement 
' By adding this code in whole or part to any existing or new application you agree to the following terms 
' You agree to keep these notes connected with this code.
' You agree to grant credit to it's source (Mpgh.net)   
' You agree to keep this note in whole without edit inside of your code

Public Class Form1

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        Dim PassInt As Integer
        Dim i As Integer

        PassInt = GetIntegerFromPassword(TextBoxX1.Text)
        TextBoxX3.Text = ""


        For i = 1 To Len(TextBoxX2.Text)

            'this part decrypts the message by doing the opposite mathamatical equastion as givin in encrypt, in my example
            ' I used "/ 2 / 3 / 4 / 5 / 6" which divides, so to revers, we must do the opposite and multiply
            TextBoxX3.Text = String.Concat(TextBoxX3.Text, Chr(Asc(Mid(TextBoxX2.Text, i, 1)) / PassInt * 2 * 3 * 4 * 5 * 6))

        Next i

    End Sub
#Region "Transform operations, from Chars to Int and viceversa."

    Function GetIntegerFromPassword(ByVal Password As String) As Integer
        Dim i As Integer
        Dim passedt As Integer
        'Passes across the entire String 
        'Convert Password to integer
        For i = 1 To Len(Password)
            passedt = passedt + Asc(Mid(Password, i, 1))
        Next


        'returns the new integer
        Return passedt

    End Function

#End Region

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim PassInt As Integer
        Dim i As Integer

        ' Converts password into Numeric value

        PassInt = GetIntegerFromPassword(TextBoxX1.Text)
        TextBoxX3.Text = ""

        'Converts the message
        'You can use any mathimatical forumla you want here

        For i = 1 To Len(TextBoxX2.Text)

            TextBoxX3.Text = String.Concat(TextBoxX3.Text, CStr(Chr(CInt(Asc(Mid(TextBoxX2.Text, i, 1)) * PassInt / 2 / 3 / 4 / 5 / 6))))

        Next i
    End Sub

  
End Class