電子メールではバイナリデータは送受信できないのでテキストデータに置換(エンコード)する必要がある
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