misc.log

日常茶飯事とお仕事と

Base64エンコーディングと、デコーディング

文字列をBase64エンコード、デコードするロジックの例を忘れないように書いておく。

エンコードのサンプル

SOURCEの部分は適宜置き換えて。指定された文字列をBase64エンコードする処理の例。

Dim base64Encoder As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim encodedString As String = Convert.ToBase64String(base64Encoder.GetBytes([SOURCE]))




デコードのサンプル

SOURCE(Base64)の部分は適宜置き換えて。この例では戻り値としてCharを1文字だけ返す(入力も1文字)というものだったので、Returnのところで文字列→Char変換をやってます。

'Base64エンコードされた文字列として取り出されるので、デコードする
Dim base64String As String = [SOURCE(Base64)]
Dim base64Encoder As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")

Dim decordedString As String = base64Encoder.GetString(Convert.FromBase64String(base64String))

Return Char.Parse(decordedString)