Snippet

Mini-Kódovač Console

Přidáno: 15.8.2009 Kategorie: VB.NET - Texty a řetězce Autor: Ondřej Ondryáš

A zde slibovaný návod na Console kódovač. A nezapomeňte na IMPORTS!

Imports System.Convert
Imports System.Text
Imports System.Console
Module Module1

    Sub Main()
        Console.WriteLine("Vítejte v programu kódovač")
        Console.WriteLine("Příkaz: (-> je pro zakódování, <- pro okódování)")
        Dim com As String = ReadLine()
        If com = "->" Then
            WriteLine()
            WriteLine("Zadejte text:")
            Dim t1 As String = ReadLine()
            Do While t1 = ""
                WriteLine("Zadejte text!:")
                t1 = ReadLine()
            Loop
            WriteLine()
            WriteLine("Zakódovaný text:")
            WriteLine(ToBase64String(Encoding.UTF8.GetBytes(t1)))
            WriteLine()
        ElseIf com = "<-" Then
            WriteLine()
            WriteLine("Zadejte kód:")
            Dim t1 As String = ReadLine()
            Do While t1 = ""
                WriteLine("Zadejte kód!:")
                t1 = ReadLine()
            Loop
            WriteLine()
            WriteLine("Výsledek:")
            WriteLine(Encoding.UTF8.GetString(FromBase64String(t1)))
            WriteLine()
        End If
        WriteLine("(©) Copyright Ondryáš Ondřej  2009")
        ReadKey()
    End Sub

End Module