Snippet

Mini-Kódovač

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

Pokud chcete rychle zakódovat - ALE NE MOC/VŮBEC CHRÁNIT nějaké data, zakódujte je do base64. zde je kódovač textů.
Návod:
Vytvořit WinForm (nebo Console) Application, _
pokud děláte WinForm App tak si přidejte RichTextBox1 a 2 _
potom ještě 2 Buttony z textem třeba "Zakódovat" a "Odkódovat" _
a kód:
PS: Brzy asi přidám link na program který zakóduje, pošle po síti, na druhé straně odkóduje a zobrazí.

'--------------------------WinForm App----------------------------
Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        RichTextBox2.Text = System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(RichTextBox1.Text))
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        RichTextBox1.Text = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(RichTextBox2.Text))
    End Sub
End Class
'--------------------------------A console jindy :-)