ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
パスワードを base64 で記述 ( No.1 )
日時: 2007/05/30 21:02
名前: lightbox



http://winofsql.jp/php/cnvtext/frame.htm
↑で base64 に変換して、↓のように記述

VB
Module MyModule
Sub Main()

	Dim base64 as String = "cGFzc3dvcmQ="
	Dim BArray() as Byte = System.Convert.FromBase64String(base64)
	Dim str as String = System.Text.Encoding.GetEncoding(932).GetString(BArray)

	Dim WshNetwork as Object

	WshNetwork = CreateObject("WScript.Network")
	on error resume next
	Call WshNetwork.MapNetworkDrive ("Z:", "\\layla\hdd", False, "lightbox",str )
	on error goto 0

End Sub
End Module
Jscript
import System;

var base64 = "cGFzc3dvcmQ=";
var BArray = System.Convert.FromBase64String(base64);
var str = System.Text.Encoding.GetEncoding(932).GetString(BArray);

var WshNetwork = new ActiveXObject("WScript.Network");

try {
	WshNetwork.MapNetworkDrive ("Z:", "\\\\layla\\hdd", false, "lightbox", str);
}
catch( e ) {
}