Base64
電子メールではバイナリデータは送受信できないのでテキストデータに置換(エンコード)する必要がある
Base64はそのデータエンコード方式の1つ
なお、Base64は暗号化ではなくて符号化なので勘違いしないこと
Public Class Form1
'テスト用ドライバ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call ConvertBase64()
End Sub
'メイン
Private Sub ConvertBase64()
Dim strVal As String
Dim base64String As String
Dim strConvVal As String
strVal = "harada"
'UTF-8としてByteに変換
Dim bs() As Byte = System.Text.Encoding.UTF8.GetBytes(strVal)
'Base64に変換
base64String = System.Convert.ToBase64String(bs)
'結果を表示
MsgBox(base64String)
'Base64から元に戻す
bs = System.Convert.FromBase64String(base64String)
'UTF-8としてStringに変換
strConvVal = System.Text.Encoding.UTF8.GetString(bs)
'結果を表示
MsgBox(strConvVal)
End Sub
End Class
動作確認環境:Visual Stadio 2005