Public Class Form1

    Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click

        ' 1337 Encrypter
        If rdo1337.Checked Then

            Dim str As String, myNewstr As String
            str = txtINPUT.Text

            For Each stt As String In str

                Select Case True

                    Case stt = "a"
                        stt = "4"
                    Case stt = "b"
                        stt = "8"
                    Case stt = "c"
                        stt = "©"
                    Case stt = "d"
                        stt = "d"
                    Case stt = "e"
                        stt = "3"
                    Case stt = "f"
                        stt = "|="
                    Case stt = "g"
                        stt = "g"
                    Case stt = "h"
                        stt = "h"
                    Case stt = "i"
                        stt = "1"
                    Case stt = "j"
                        stt = "_|"
                    Case stt = "k"
                        stt = "|<"
                    Case stt = "l"
                        stt = "1"
                    Case stt = "m"
                        stt = "|\/|"
                    Case stt = "n"
                        stt = "|\|"
                    Case stt = "o"
                        stt = "0"
                    Case stt = "p"
                        stt = "p"
                    Case stt = "q"
                        stt = "q"
                    Case stt = "r"
                        stt = "®"
                    Case stt = "s"
                        stt = "5"
                    Case stt = "t"
                        stt = "7"
                    Case stt = "u"
                        stt = "|_|"
                    Case stt = "v"
                        stt = "\/"
                    Case stt = "w"
                        stt = "w"
                    Case stt = "x"
                        stt = "x"
                    Case stt = "y"
                        stt = "¥"
                    Case stt = "z"
                        stt = "2"
                    Case stt = " "
                        stt = "  "
                    Case stt = "A"
                        stt = "4"
                    Case stt = "B"
                        stt = "13"
                    Case stt = "C"
                        stt = "©"
                    Case stt = "D"
                        stt = "d"
                    Case stt = "E"
                        stt = "3"
                    Case stt = "F"
                        stt = "|="
                    Case stt = "G"
                        stt = "9"
                    Case stt = "H"
                        stt = "|-|"
                    Case stt = "I"
                        stt = "1"
                    Case stt = "J"
                        stt = "_|"
                    Case stt = "K"
                        stt = "|<"
                    Case stt = "L"
                        stt = "1"
                    Case stt = "M"
                        stt = "|\/|"
                    Case stt = "N"
                        stt = "|\|"
                    Case stt = "O"
                        stt = "0"
                    Case stt = "P"
                        stt = "p"
                    Case stt = "Q"
                        stt = "q"
                    Case stt = "R"
                        stt = "®"
                    Case stt = "S"
                        stt = "5"
                    Case stt = "T"
                        stt = "7"
                    Case stt = "U"
                        stt = "|_|"
                    Case stt = "V"
                        stt = "\/"
                    Case stt = "W"
                        stt = "w"
                    Case stt = "X"
                        stt = "x"
                    Case stt = "Y"
                        stt = "¥"
                    Case stt = "Z"
                        stt = "2"

                End Select

                myNewstr &= stt
            Next

            myNewstr = Replace$(myNewstr, "¥0|_|", "j00")
            myNewstr = Replace$(myNewstr, "pw|\|3d", "pwnz0rz")
            myNewstr = Replace$(myNewstr, "d|_|d3", "d00d")
            myNewstr = Replace$(myNewstr, "¥4¥", "w00t")
            myNewstr = Replace$(myNewstr, "5|<", "w00t")
            myNewstr = Replace$(myNewstr, "!", " !!!1!one!111!!")
            myNewstr = Replace$(myNewstr, "73h", "teh")
            myNewstr = Replace$(myNewstr, "7h3", "teh")
            myNewstr = Replace$(myNewstr, "h4©|<3®", "haxxz0rz")
            myNewstr = Replace$(myNewstr, "31173", "1337")
            myNewstr = Replace$(myNewstr, "3\/3®", "evar")
            myNewstr = Replace$(myNewstr, "15", "ist")
            myNewstr = Replace$(myNewstr, "0h  |\/|¥  g0d", "OMFG")
            myNewstr = Replace$(myNewstr, "0\/\/|\|", "pwn")
            myNewstr = Replace$(myNewstr, "0\/\/|\|3d", "pwnz0rd")
            txtOUTPUT.Text = myNewstr
        End If

        ' ROT-13 Encrypter
        If rdoROT13Encrypt.Checked Then

            Dim n As Integer, i As Integer, myNewstr As String
            n = 13
            myNewstr = txtINPUT.Text
            For i = 1 To Len(myNewstr)
                Mid(myNewstr, i, 1) = Chr(Asc(Mid(myNewstr, i, 1)) + n)
            Next i
            txtOUTPUT.Text = myNewstr

        End If

        ' ROT-13 Decrypter
        If rdoROT13Decrypt.Checked Then

            Dim n As Integer, i As Integer, myNewstr As String
            n = 13
            myNewstr = txtINPUT.Text
            For i = 1 To Len(myNewstr)
                Mid(myNewstr, i, 1) = Chr(Asc(Mid(myNewstr, i, 1)) - n)
            Next i
            txtOUTPUT.Text = myNewstr

        End If
        ' Morse Code Encrypter
        If rdoMorseCodeEncrypt.Checked Then

            Dim str As String, myNewstr As String
            str = txtINPUT.Text

            For Each stt As String In str

                Select Case True

                    Case stt = "a"
                        stt = " .-"
                    Case stt = "b"
                        stt = " -..."
                    Case stt = "c"
                        stt = " -.-."
                    Case stt = "d"
                        stt = " -.."
                    Case stt = "e"
                        stt = " ."
                    Case stt = "f"
                        stt = " ..-."
                    Case stt = "g"
                        stt = " --."
                    Case stt = "h"
                        stt = " ...."
                    Case stt = "i"
                        stt = " .."
                    Case stt = "j"
                        stt = " .---"
                    Case stt = "k"
                        stt = " -.-"
                    Case stt = "l"
                        stt = " .-.."
                    Case stt = "m"
                        stt = " --"
                    Case stt = "n"
                        stt = " -."
                    Case stt = "o"
                        stt = " ---"
                    Case stt = "p"
                        stt = " .--."
                    Case stt = "q"
                        stt = " --.-"
                    Case stt = "r"
                        stt = " .-."
                    Case stt = "s"
                        stt = " ..."
                    Case stt = "t"
                        stt = " -"
                    Case stt = "u"
                        stt = " ..-"
                    Case stt = "v"
                        stt = " ...-"
                    Case stt = "w"
                        stt = " .--"
                    Case stt = "x"
                        stt = " -..-"
                    Case stt = "y"
                        stt = " -.--"
                    Case stt = "z"
                        stt = " --.."
                    Case stt = " "
                        stt = "  "
                    Case stt = "."
                        stt = "  /"
                    Case stt = "A"
                        stt = " .-"
                    Case stt = "B"
                        stt = " -..."
                    Case stt = "C"
                        stt = " -.-."
                    Case stt = "D"
                        stt = " -.."
                    Case stt = "E"
                        stt = " ."
                    Case stt = "F"
                        stt = " ..-."
                    Case stt = "G"
                        stt = " --."
                    Case stt = "H"
                        stt = " ...."
                    Case stt = "I"
                        stt = " .."
                    Case stt = "J"
                        stt = " .---"
                    Case stt = "K"
                        stt = " -.-"
                    Case stt = "L"
                        stt = " .-.."
                    Case stt = "M"
                        stt = " --"
                    Case stt = "N"
                        stt = " -."
                    Case stt = "O"
                        stt = " ---"
                    Case stt = "P"
                        stt = " .--."
                    Case stt = "Q"
                        stt = " --.-"
                    Case stt = "R"
                        stt = " .-."
                    Case stt = "S"
                        stt = " ..."
                    Case stt = "T"
                        stt = " -"
                    Case stt = "U"
                        stt = " ..-"
                    Case stt = "V"
                        stt = " ...-"
                    Case stt = "W"
                        stt = " .--"
                    Case stt = "X"
                        stt = " -..-"
                    Case stt = "Y"
                        stt = " -.--"
                    Case stt = "Z"
                        stt = " --.."
                End Select
                myNewstr &= stt
            Next
            txtOUTPUT.Text = myNewstr
        End If
        ''Morse Code Decrypter
        'If rdoMorseCodeDecrypt.Checked Then

        '    Dim str As String, myNewstr As String
        '    str = txtINPUT.Text

        '    For Each stt As String In str

        '        Select Case True

        '            Case stt = " .-"
        '                stt = "a"
        '            Case stt = " -..."
        '                stt = "b"
        '            Case stt = " -.-."
        '                stt = "c"
        '            Case stt = " -.."
        '                stt = "d"
        '            Case stt = " ."
        '                stt = "e"
        '            Case stt = " ..-."
        '                stt = "f"
        '            Case stt = " --."
        '                stt = "g"
        '            Case stt = " ...."
        '                stt = "h"
        '            Case stt = " .."
        '                stt = "i"
        '            Case stt = " .---"
        '                stt = "j"
        '            Case stt = " -.-"
        '                stt = "j"
        '            Case stt = " .-.."
        '                stt = "l"
        '            Case stt = " --"
        '                stt = "m"
        '            Case stt = " -."
        '                stt = "m"
        '            Case stt = " ---"
        '                stt = "o"
        '            Case stt = " .--."
        '                stt = "p"
        '            Case stt = " --.-"
        '                stt = "q"
        '            Case stt = " .-."
        '                stt = "r"
        '            Case stt = " ..."
        '                stt = "s"
        '            Case stt = " -"
        '                stt = "t"
        '            Case stt = " ..-"
        '                stt = "u"
        '            Case stt = " ...-"
        '                stt = "v"
        '            Case stt = " .--"
        '                stt = "w"
        '            Case stt = " -..-"
        '                stt = "x"
        '            Case stt = " -.--"
        '                stt = "y"
        '            Case stt = " --.."
        '                stt = "z"

        '            Case stt = "A"
        '                stt = " .-"
        '            Case stt = "B"
        '                stt = " -..."
        '            Case stt = "C"
        '                stt = " -.-."
        '            Case stt = "D"
        '                stt = " -.."
        '            Case stt = "E"
        '                stt = " ."
        '            Case stt = "F"
        '                stt = " ..-."
        '            Case stt = "G"
        '                stt = " --."
        '            Case stt = "H"
        '                stt = " ...."
        '            Case stt = "I"
        '                stt = " .."
        '            Case stt = "J"
        '                stt = " .---"
        '            Case stt = "K"
        '                stt = " -.-"
        '            Case stt = "L"
        '                stt = " .-.."
        '            Case stt = "M"
        '                stt = " --"
        '            Case stt = "N"
        '                stt = " -."
        '            Case stt = "O"
        '                stt = " ---"
        '            Case stt = "P"
        '                stt = " .--."
        '            Case stt = "Q"
        '                stt = " --.-"
        '            Case stt = "R"
        '                stt = " .-."
        '            Case stt = "S"
        '                stt = " ..."
        '            Case stt = "T"
        '                stt = " -"
        '            Case stt = "U"
        '                stt = " ..-"
        '            Case stt = "V"
        '                stt = " ...-"
        '            Case stt = "W"
        '                stt = " .--"
        '            Case stt = "X"
        '                stt = " -..-"
        '            Case stt = "Y"
        '                stt = " -.--"
        '            Case stt = "Z"
        '                stt = " --.."
        '        End Select
        '        myNewstr &= stt
        '    Next
        '    txtOUTPUT.Text = myNewstr
        'End If




    End Sub


End Class