PasswordEye 1.12 : *で隠されているパスワードを取得するソフトですが、使い道はそれだけではありません 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <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>
<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>