Mini Projeto 12

Imports System.Security.Permissions
Imports System.Windows.Forms
Imports System.Threading
Module Module1
    Dim opcao, code As Integer
    Dim str, codificar, descodificar, letra, copy As String

    Sub Main()
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")
        Console.WriteLine("_____ MINI PROJETO 12 _____")
        Console.WriteLine("")
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")

        'site http://sticksandstones.kstrom.com/appen.html

        Do

            Console.Clear()

            Console.WriteLine("Escolha uma opção: ")
            Console.WriteLine("1. [Codificar]")
            Console.WriteLine("2. [Descodificar]")
            Console.WriteLine("3. [Sair]")
            Console.WriteLine("")
            Console.Write("OPÇÃO -> ")
            opcao = Console.ReadLine


            Console.WriteLine("")
            If opcao = 1 Or opcao = 2 Then
                Console.Write("Digite uma frase: ")
                str = Console.ReadLine
            ElseIf opcao = 3 Then
                End
            Else
                MsgBox("OPÇÃO INVÁLIDA!")
                End
            End If

            'Apenas para o programa esvaziar as variaveis após o loop

            codificar = ""
            descodificar = ""

            'Processo de encriptamento

            If opcao = 1 Then

                For i = 1 To Len(str)
                    letra = Mid(str, i, 1)

                    code = Asc(letra)

                    'Apenas letras minúsculas

                    If code >= 97 And code < 120 Then
                        code = code + 3

                    ElseIf code >= 120 And code <= 122 Then
                        code = code - 23
                    End If

                    'Apenas letras maiúsculas

                    If code >= 65 And code < 88 Then
                        code = code + 3

                    ElseIf code >= 88 And code <= 90 Then
                        code = code - 23
                    End If

                    codificar = codificar + Convert.ToChar(code)

                Next
                Console.WriteLine("")
                Console.WriteLine("A frase codificada é: " & codificar)

            End If

            'Processo de desencriptar
            'É só fazer o processo inverso

            If opcao = 2 Then

                For i = 1 To Len(str)
                    letra = Mid(str, i, 1)

                    code = Asc(letra)

                    'Apenas letras minúsculas

                    If code >= 100 And code <= 122 Then
                        code = code - 3

                    ElseIf code >= 97 And code <= 99 Then
                        code = code + 23
                    End If

                    'Apenas letras maiúsculas

                    If code >= 68 And code <= 90 Then
                        code = code - 3

                    ElseIf code >= 65 And code <= 67 Then
                        code = code + 23
                    End If

                    descodificar = descodificar + Convert.ToChar(code)

                Next
                Console.WriteLine("")
                Console.WriteLine("A frase descodificada é: " & descodificar)

            End If

            Console.WriteLine("")

            'Timer de 2 segundos até aparecer as opções

            Thread.Sleep(2000)

            'Caixa para perguntar se o utilizador deseja copiar o resultado

            copy = MsgBox("Você deseja copiar o resultado?", vbQuestion + vbYesNo)

            If copy = vbYes Then
                If opcao = 1 Then
                    Clipboard.SetText(codificar)

                ElseIf opcao = 2 Then
                    Clipboard.SetText(descodificar)
                End If

            End If

        Loop

        Console.ReadKey()


    End Sub

End Module