PKEncoder ~ Encode your strings

Imports System.Text
Module Module1
    Dim nameofstring As String = ""
    Dim stringvalue As String = ""
    Dim amount As Integer = 1
    Sub Main()
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine("Name of the string : ")
        Console.ResetColor()
        nameofstring = Console.ReadLine
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine("String value : ")
        Console.ResetColor()
        stringvalue = Console.ReadLine
        Console.Write("> ")
        Console.ForegroundColor = ConsoleColor.Cyan
        Console.WriteLine("Amount of times to encode : ")
        Console.ResetColor()
        Try
            amount = Console.ReadLine()
        Catch ex As Exception
            amount = 1
        End Try

        Encode()
    End Sub
    Sub Encode()
        Dim code As String = stringvalue
        Dim i As Integer = 0
        Dim bytes As Byte()
        Dim codex As String = ""
        If i = 0 Then
            For k As Integer = 0 To amount
                bytes = Encoding.UTF8.GetBytes(code)
                Dim base64 = Convert.ToBase64String(bytes)

                code = base64
                If k = amount Then

                    codex = codex + "Dim " + nameofstring + " As String = " + Chr(34) + code + Chr(34) + Environment.NewLine
                    codex = codex + "Dim amount As Integer =" + amount.ToString + Environment.NewLine
                    codex = codex + "Dim lol As Integer = -1" + Environment.NewLine
                    codex = codex + "Do until lol = amount" + Environment.NewLine
                    codex = codex + "Dim dataz As Byte() = Convert.FromBase64String(" + nameofstring + ")" + Environment.NewLine
                    codex = codex + nameofstring + " = Encoding.UTF8.GetString(dataz)" + Environment.NewLine
                    codex = codex + "lol += 1" + Environment.NewLine
                    codex = codex + "Loop" + Environment.NewLine
                    codex = codex + "Console.WriteLine(" + nameofstring + ")" + Environment.NewLine
                End If
            Next k

            Dim file As System****.StreamWriter
            file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\" + Environment.UserName + "\desktop\YourCode.txt", True)
            file.WriteLine(codex)
            file.Close()
            Console.WriteLine("Done. Code was saved to desktop. Have fun. Press enter to exit.")
            Dim d As String = Console.ReadLine 'Wait until they press enter, Yes I know, lazy way of doing it.
        End If


    End Sub

End Module

Module Module1
    Dim chars As Integer
    Dim timesx As Integer
    Dim bytes As Integer
    Dim i As Integer = 0
    Sub main()
        Console.WriteLine("How many chars?")
        chars = Console.ReadLine()
        Console.WriteLine("Encode how many times?")
        timesx = Console.ReadLine()
        bytes = timesx
        Do Until i = timesx
            bytes = 4 * (bytes / 3)

            i += 1
            Console.WriteLine(bytes)
        Loop

        Console.ReadLine()

       
    End Sub



End Module

        public static string DecodeBase64(string s) {
            byte[] encodedBytes = Convert.FromBase64String(s);
            return Encoding.UTF8.GetString(encodedBytes);
        }

        private static bool IsStringBase64(string s) {
            try {
                if (s.Length % 4 != 0)
                    return false;

                Convert.FromBase64String(s);
                return true;
            }
            catch {
                return false;
            }
        }

        public static bool IsASCII(string value) {
            return Encoding.UTF8.GetByteCount(value) == value.Length;
        }

        public static string DecodeStringBase64UntilNormal(string s) {
            string lastString = s;

            while (IsStringBase64(s)) {
                lastString = s;
                s = DecodeBase64(s);

                // Checks if it decoded beyond the normal string state and prevents it
                if (!IsASCII(s))
                    return lastString;
            }

            return s;
        }

        static void Main(string[] args) {
            string myString = "Vm0wd2QyUXlVWGxXYTFwT1ZsZFNXRll3Wkc5V2JHeDBaRWhrVmxKc2NEQlVWbU0xVmpBeFYySkVUbGhoTVVwVVZtcEtTMU5IVmtkaVIwWlhWakZLU1ZkV1kzaFRNVWw0Vkc1T2FWSnNXbGhaYTJoRFZWWmFkR05GWkZwV01ERTFWa2QwYTFkSFNrZGpSbWhWVmtWYVNGUlVSbXRXTVd0NllVWlNUbFpVVmtsV2JUQXhWakpHYzFOdVVtaFNlbXhXVm0xNGQxWXhjRlpYYlhSWFRWWmFlVnBGV2xOVWJGcFZWbXhzVjFaNlFYaFZla3BIVmpGT2RWVnNXbWxoTUhCWlYxWlNSMWxXWkVkVmJGWlRZbFZhV0ZadGN6RmxSbHBZWlVaa1ZXSkdjRmxhU0hCRFZqSkZlVlJZYUZkaGExcHlWVEJhVDJOdFJraGhSbEpUVmxoQ1dWWXhaREJaVmsxNFdrVmtWMkpyTlZsWmJHaFRZMVpTVjFwRVFrOWlSM2hYVmpJeFIxWlhTa2RqUmxwWFlsaG9lbFpxU2tabFZsSlpZVVprYUdFeGNGbFhhMVpoVkRKTmVWSnJhR3hTYkVwVVZteG9RMWRzV1hoWGJYUk9VbXR3TUZadGRHdGhiRXBZVld4c1dtSkhhRlJaTVZwelkyeGtkRkp0ZUZkaWEwcElWakowYjJFeFdsaFRhMXBxVWxkU1dGUlhOVk5OTVZweFVtMUdUMkpGY0ZwWGExcHJWakZLVjJOR2JGaGhNVnBvVmtSS1RtVldTbkpoUjJoVFlYcFdXbFpYTVRCa01XUlhWMjVLV0dKSFVtRldha1pIVFRGU1ZtRkhPV2hXYTNCSVdUQmFVMWR0U2xsVmFrNWFaV3RhYUZsNlJsZGpNWEJIWVVkc1UySkdhM2hXYTFwaFZqSkZlRmRzYUZSaVJuQlpWbXRXZDFZeGJISlhhM1JVVW14d2VGVnRkREJoYXpGeVRsVndWazF1YUROWlZXUkdaV3hHY21KR1pHbFhSVXBKVm10U1IyRXhaRWRWYmtwb1VtczFjRlZzVWxkbGJHUllaRWRHYTAxWGVGaFdNV2h2V1ZaS1JsTnRPVlZXYkhCWVZHeGFWMlJIVWtoa1IyaFhZWHBXU0ZaSGVHdGlNVnAwVTJ0b2FGSldTbUZhVjNSaFpXeHJlV1ZIUmxkV2EzQXdXbFZhVDJGV1NuVlJiVVpYVFc1U1dGbHFTa1psUm1SWllrWlNhRTFzU25oV1YzaGhaREZaZUZkdVVteFNXRkpZVkZaYVlWTkdWbk5WYms1V1ZteGFWbFJWVW5KUVVUMDk=";
            Console.WriteLine(DecodeStringBase64UntilNormal(myString));
            Console.Read();
        }

bytes = 4 * (bytes / 3)

bytes = 4 * Math.Ceiling(Convert.ToDouble(bytes) / 3)

return Encoding.UTF8.GetString(Convert.FromBase64String(s));

<Module>.pinxalttx = new byte[]
		{
			107,
			96,
			97,
			100,
			107,
			48
		};