!!!BASE64 エンコード・デコード
{{category ScrapCode,VBScript,nolink}}BASE64エンコード/デコードするVBScript。ファイルを扱うのに ADODB.Stream を、エンコード・デコード処理に Microsoft.XMLDOM を使用します。

!!!EncodeBase64
{{code Text,4,
Option Explicit
'' StreamTypeEnum Values
Const adTypeBinary = 1 ' バイナリ データ
Const adTypeText   = 2 ' テキスト データ
'' SaveOptionsEnum Values
Const adSaveCreateNotExist  = 1 ' ファイルがないとき作成する
Const adSaveCreateOverWrite = 2 ' ファイルがあるとき上書きする

Dim srcFile, distFile
srcFile  = "input.bin"  ' 入力ファイル
distFile = "output.txt" ' 出力ファイル

Dim stream, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("work")
node.DataType = "bin.base64"

Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.LoadFromFile srcFile
node.NodeTypedValue = stream.Read
stream.Close
Set stream = Nothing

Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeText
stream.charset = "iso-8859-1"
stream.Open
stream.writeText Replace(node.Text, vbLf, vbCrLf)
stream.saveToFile distFile, adSaveCreateOverWrite
stream.Close
Set stream = Nothing
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set file = fso.CreateTextFile distFile,False
'file.Write node.Text

Set node = Nothing
Set xmldom = Nothing
}}

!!!DecodeBase64
{{code Text,4,
Option Explicit
'' StreamTypeEnum Values
Const adTypeBinary = 1 ' バイナリ データ
Const adTypeText   = 2 ' テキスト データ
'' SaveOptionsEnum Values
Const adSaveCreateNotExist  = 1 ' ファイルがないとき作成する
Const adSaveCreateOverWrite = 2 ' ファイルがあるとき上書きする

Dim srcFile, distFile
srcFile  = "input.txt"  ' 入力ファイル
distFile = "output.bin" ' 出力ファイル

Dim stream, data, xmldom, node
Set xmldom = CreateObject("Microsoft.XMLDOM")
Set node = xmldom.CreateElement("work")
node.DataType = "bin.base64"

'Set fso = CreateObject("Scripting.FileSystemObject")
'Set file = fso.OpenTextFile srcFile
'node.Text = file.ReadAll
Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeText
stream.charset = "iso-8859-1"
stream.Open
stream.LoadFromFile srcFile
node.Text = stream.ReadText
stream.Close
Set stream = Nothing

Set stream = CreateObject("ADODB.Stream")
stream.Type = adTypeBinary
stream.Open
stream.write node.NodeTypedValue
stream.saveToFile distFile, adSaveCreateOverWrite
stream.Close
Set stream = Nothing

Set node = Nothing
Set xmldom = Nothing
}}