プログラム言語 エンコード・デコード処理

string[] s;
s = File.ReadAllLines(@"D:\～txt", Encoding.Default);
s = File.ReadAllLines(@"D:\～.txt", Encoding.GetEncoding(name: "Shift_JIS"));
s = File.ReadAllLines(@"D:\～.txt", Encoding.Unicode);
s = File.ReadAllLines(@"D:\～.txt", Encoding.UTF8);

File.WriteAllLines(@"D:\～txt", @"内容", Encoding.Default);
File.WriteAllLines(@"D:\～.txt", @"内容", Encoding.GetEncoding(name: "Shift_JIS"));
File.WriteAllLines(@"D:\～.txt", @"内容", Encoding.Unicode);
File.WriteAllLines(@"D:\～.txt", @"内容", Encoding.UTF8);

import java.io.IOException;
import org.apache.commons.codec.binary.Base64;

public class base64test {
　public static void main(String[] args) {
　　try{
　　　String after = encodeBase64("～");
　　}
　　catch ( ～ ){
　　　～
　　}
　}
　
　public static String encodeBase64(String before) throws IOException {
　　byte[] out = Base64.encodeBase64(before.getBytes());
　　return new String(out, "shift_jis");
　}
}

Sub main
　after = encode("～")
　after = decode("～")
End Sub

'Base64文字列にエンコードする
Public Function encode(val As String) As String

　Dim objBase64 As Object
　Dim b() As Byte
　b = stringToByte(val)
　
　'Msxml2.DOMDocumentオブジェクト ＝ XML操作オブジェクト
　Set objBase64 = CreateObject("MSXML2.DOMDocument").createElement("b64")
　objBase64.DataType = "bin.base64"
　objBase64.nodeTypedValue = b
　encode = objBase64.text
　
　Set objBase64 = Nothing

End Function

'Base64文字列をデコードする
Public Function decode(val As String) As String
　Dim objBase64 As Object
　'Msxml2.DOMDocumentオブジェクト ＝ XML操作オブジェクト
　Set objBase64 = CreateObject("MSXML2.DOMDocument").createElement("b64")
　objBase64.DataType = "bin.base64"
　objBase64.text = val
　
　Dim b() As Byte
　b = objBase64.nodeTypedValue
　decode = byteToString(b)
　
　Set objBase64 = Nothing

End Function

'文字列バイト列に変換する
Public Function stringToByte(ByVal strData As String) As Byte()

　Dim objStream As Object
　Set objStream = CreateObject("ADODB.Stream")
　
　objStream.Open
　objStream.Type = adTypeText
　objStream.Charset = "utf-8"
　objStream.WriteText strData
　
　objStream.Position = 0
　objStream.Type = adTypeBinary
　objStream.Position = 3
　stringToByte = objStream.Read
　
　objStream.Close
　Set objStream = Nothing
　
End Function