[ ~ Modified ~ ZARA-128 ENCRYPTION ~ ]

Public Class Form1
    Public Function ZARA128_Encode(ByVal input As String) As String
        Dim out As New System.Text.StringBuilder
        For Each c As Char In input
            Dim temp As Integer = Asc(c) + 1337
            out.Append(temp.ToString & " ")
        Next
        Return out.ToString.Substring(0, out.Length - 1)
    End Function



    Public Function ZARA128_Decode(ByVal input As String) As String
        Dim out As New System.Text.StringBuilder
        Dim data As String() = Split(input, " ")
        For Each s As String In data
            Dim temp As Integer = s - 1337
            out.Append(Chr(temp))
        Next
        Return out.ToString

    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TxtEnc.Text = ZARA128_Decode(TxtPlain.Text)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TxtEnc.Text = ZARA128_Encode(TxtPlain.Text)
    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles TxtPlain.TextChanged

    End Sub
End Class