世の中には、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>
VBScriptドキュメント
タグ:Base64
|
【VBS + JavaScriptの最新記事】
【VBScript関連のカテゴリ】