制作zmap的dns探针

最新推荐文章于 2023-07-27 00:33:46 发布

无名小卒一枚

最新推荐文章于 2023-07-27 00:33:46 发布

阅读量1.2k

点赞数

分类专栏： DNS

本文链接：https://blog.csdn.net/sdau_clt/article/details/103203430

版权

本文介绍了如何利用Perl的CPAN模块Net::DNS来制作DNS探针。首先，通过cpan命令行安装Net::DNS包，如果速度慢可以手动下载。接着，编写一个名为buildpacket.pl的Perl脚本用于生成DNS探针，如针对baidu.com的正向查询。运行此脚本后，探针文件可用于ZMap扫描，并且可以调整输出模式以获得不同的扫描结果。

摘要由CSDN通过智能技术生成

进入cpan
perl -MCPAN -e shell
安装相关包
install Net::DNS
（如果这种方式太慢，就到网站http://www.cpan.org/authors/01mailrc.txt.gz去下载，然后放到CPAN软件包下）
然后将以下代码保存成 buildpacket.pl (名字自定义就好)

    use Net::DNS;

    if ( $#ARGV != 0 ) {
        print "Usage: perl buildpacket.pl <domain>\n";
        print " Example: perl buildpacket.pl 1x1.cz\n";
        print " Coded by Vypor, https://github.com/Vypor\n";
        exit(1);
    }

    my $domain = $ARGV[0];

    my $dnspacket = new Net::DNS::Packet( $domain, 'IN', 'ANY' );
    $dnspacket->header->qr(0);    #Query Responce Flag
    $dnspacket->header->aa(0);    #Authoritative Flag
    $dnspacket->header->tc(0);    #Truncated Flag
    $dnspacket->header->ra(0);    #Recursion Desired
    $dnspacket->header->rd(1);    #Recursion Available
    $udp_max = $dnspacket->header->size(65527);