SQLの窓

2014年09月27日


VBScript : JavaScript のライブラリを呼び出して、Base64 エンコードを行う

世の中には、VBScript のサンプルよりはるかに JavaScriptで動作するものがたくさんあるので、VBScript より呼び出して利用します。

Javascript base64 - Javascript tutorial with example source code にあるソースコードを base64.js としてあらかじめ作成しておきます。そのファイルを、Google ドライブの共有で外部から参照可能にしておいて使用しています。

このサンプルは、WEB 関連の用途を前提としているので、日本語は UTF-8 に変換されたものが Base64 にエンコードされますので注意して下さい。
<JOB>
<SCRIPT language="JavaScript" src="https://e71762ff0667a838154428843724525602513494.googledrive.com/host/0B9Jymqpro6gSbTZnNHVOODFnTE0/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>



タグ:Base64
posted by lightbox at 2014-09-27 22:37 | VBS + JavaScript | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

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

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
PHP正規表現チェッカー
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり