ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: PasswordEye 1.12 : ダウンロード+実行スクリプト
名前: lightbox
処理選択
パスワード

件名 PasswordEye 1.12 : ダウンロード+実行スクリプト
名前 lightbox
コメント
@HTML
<a href="http://instany.seesaa.net/article/120296195.html" target="_blank"><img src="http://winofsql.jp/image/instany.png" galleryimg="no" style='border-style:solid;border-width:1px;border-color:#000000' /><br />PasswordEye 1.12 : *で隠されているパスワードを取得するソフトですが、使い道はそれだけではありません</a>
@HEND

@DIV
<JOB>
<COMMENT>
************************************************************
■ 使用方法 

	エクスプローラから実行して下さい

	SQLの窓サイトにアップロード済の PasswordEye.zip
	をダウンロードして解凍して実行します

■著作権その他

【重要】PasswordEye は、Tatsuya Bunei 氏の著作物です。

このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(lightbox)が保有しています。
また、本ソフトを運用した結果については、作者は一切責任を
負えせんのでご了承ください。
************************************************************
</COMMENT>

<OBJECT id="Fso" progid="Scripting.FileSystemObject" /> 
<OBJECT id="WshShell" progid="WScript.Shell" /> 

<SCRIPT language="VBScript"
	src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

Dim strFile : strFile = "PwdEye.exe"

if Not Fso.FileExists( TempDir & "\PasswordEye\PasswordEye\" & strFile ) then

	strDownloadPlace = "http://winofsql.jp/download/PasswordEye.zip"
	ret = HTTPDownload( strDownloadPlace, TempDir & "\PasswordEye.zip" )
	if not ret then
		Wscript.Echo ErrorMessage
		Wscript.Quit
	end if
	' Wscript.Echo strDownloadPlace & " をダウンロードしました"

	strDownloadPlace = "http://lightbox.in.coocan.jp/Lhasa.exe"
	ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
	if not ret then
		Wscript.Echo ErrorMessage
		Wscript.Quit
	end if
	' Wscript.Echo strDownloadPlace & " をダウンロードしました"

	strCommand = Dd( TempDir & "\Lhasa.exe" ) & " -d- -a -q -f -e- " & Dd(TempDir & "\PasswordEye.zip")
	Call WshShell.Run( strCommand, 0, True )

else
	'Wscript.Echo "既に " & strFile & " はダウンロード済です"
end if

Dim strCommand : strCommand = Dd(TempDir & "\PasswordEye\PasswordEye\" & strFile)

Call WshShell.Run( strCommand )

</SCRIPT>

</JOB>
@END