Imports System.Text

Imports System.IO

Partial Class _Default

    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label2.Text = Convert.ToBase64String(System.Text.Encoding.GetEncoding("euc-kr").GetBytes(TextBox1.Text))

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim b1 As Byte() = System.Convert.FromBase64String(Label2.Text)

        Label3.Text = New String(System.Text.Encoding.GetEncoding("euc-kr").GetChars(b1))

    End Sub

End Class