SQLの窓

2014年08月13日


VBScript : ネイティブ(CAPICOM.Utilities) Base64 エンコード

Stream オブジェクトと併用するのがミソです。この場合、Shift_JIS の文字列を Base64 に変換します。

Microsoft のドキュメント

Utilities Object (Windows)

関連する記事

VBScript : ネイティブ SHA1、MD5、SHA256 変換
Set CAPIUtil = CreateObject( "CAPICOM.Utilities" )
Set Stream = CreateObject("ADODB.Stream")
Set StreamBin = CreateObject("ADODB.Stream")

'******************************
' Base64 エンコード
'******************************
Stream.Open
Stream.Charset = "shift_jis"
' shift_jis で入力文字を書き込む
Stream.WriteText "日本語表示OK"
Stream.Position = 0

' バイナリで開く
StreamBin.Open
StreamBin.Type = 1

' テキストをバイナリに変換
Stream.CopyTo StreamBin
Stream.Close

' 読み込みの為にデータポインタを先頭にセット
StreamBin.Position = 0

' 変換
strBinaryString = CAPIUtil.ByteArrayToBinaryString( StreamBin.Read )
strBase64 = CAPIUtil.Base64Encode( strBinaryString )
' 長い文字列は仕様として、(\r\n を含めて 76) 改行されます
strBase64 = Replace(strBase64,vbCrLf,"")

Wscript.Echo strBase64



タグ:Base64 CAPICOM
posted by lightbox at 2014-08-13 23:32 | VBS + オブジェクト | このブログの読者になる | 更新情報をチェックする
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり