コメント |
@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 |