VBScript : Base64 エンコード( UTF-8 )

  通常 WEB で利用されている JavaScript のライブラリを利用



Javascript base64 - Javascript tutorial with example source code にあるソースコードを base64.js としてあらかじめ作成しておきます

VBScript( WSH ) から JavaScript を呼び出す場合は、JavaScript を先にローディングするように、先頭に記述して下さい。

JavaScript( WEB ) を前提としているコードなので、日本語は UTF-8 を想定して下さい。
※ UTF-8N で書かれた PHP のコードで変換した文字列と一致するテストを行っています

  
<JOB>
<SCRIPT language="JavaScript" src="base64.js"></SCRIPT>
<SCRIPT language=VBScript>

' 日本語は、UTF-8 でエンコードされた後に base64 でエンコードされます

str = ""
For I = 0 to 127
	str = str & Chr(I)
Next


strPhp = "AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKiss"
strPhp = strPhp & "LS4vMDEyMzQ1Njc4OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJ"
strPhp = strPhp & "TVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eH"
strPhp = strPhp & "l6e3x9fn8="
if Base64.encode(str) = strPhp then
	MsgBox("一致しました")
end if

str = "VBScriptにはありませんが、JavaScriptにはたくさんのライブラリがあります"
MsgBox(Base64.encode(str))


' **********************************************************
' PHP のコード
' **********************************************************
'$str = "";
'for( $i = 0; $i < 128; $i++ ) {
'	$str .= chr($i);
'}
'$str = base64_encode($str);
'print $str;
'

</SCRIPT>
</JOB>
  

















   SQLの窓    create:2010/05/26  update:2015/11/02   管理者用(要ログイン)





フリーフォントWEBサービス

SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ