加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 大数据 > 正文

perl dns record check

发布时间：2020-12-16 00:19:24 所属栏目：大数据 来源：网络整理
导读：说明： 主要用于获取及检查DNS server 信息，确保其安全可靠运行。 根据使用需求可以调整sub 函数来取得想要的信息。 ? #!/usr/bin/perl? use?strict;? ? use?Net::DNS;? ? #my?$domain=$ARGV[0];? #my?$dns_server=$ARGV[1];? my?$domain= "google.com" ;?
 说明： 主要用于获取及检查DNS server 信息，确保其安全可靠运行。
 根据使用需求可以调整sub 函数来取得想要的信息。

?

 
 
    

  1. #!/usr/bin/perl?
    2. 
  
  
  2. use?strict;?
    3. 
  
  
  3. ?
    4. 
  
  
  4. use?Net::DNS;?
    5. 
  
  
  5. ?
    6. 
  
  
  6. #my?$domain=$ARGV[0];?
    7. 
  
  
  7. #my?$dns_server=$ARGV[1];?
    8. 
  
  
  8. my?$domain="google.com";?
    9. 
  
  
  9. my?$dns_server="ns2.google.com";?
    10. 
  
  
  10. ?
    11. 
  
  
  11. #PRES();?
    12. 
  
  
  12. Separate?("List?A_Record");?
    13. 
  
  
  13. A_Record();?
    14. 
  
  
  14. ?
    15. 
  
  
  15. Separate?("List?SOA_Record");?
    16. 
  
  
  16. SOA_Record();?
    17. 
  
  
  17. ?
    18. 
  
  
  18. #Check_open_dns();?
    19. 
  
  
  19. Separate?("List?MX_Record");?
    20. 
  
  
  20. MX_Records();?
    21. 
  
  
  21. ?
    22. 
  
  
  22. Separate?("List?NS_Record");?
    23. 
  
  
  23. NS_Records();?
    24. 
  
  
  24. ?
    25. 
  
  
  25. Separate?("List?SPF_Record");?
    26. 
  
  
  26. SPF_Record();?
    27. 
  
  
  27. ?
    28. 
  
  
  28. Separate?("List?AXFR_Record");?
    29. 
  
  
  29. #AXFR();?
    30. 
  
  
  30. ?
    31. 
  
  
  31. sub?Separate?{?
    32. 
  
  
  32. ????????my?$key=shift;?
    33. 
  
  
  33. ????????print?"n";?
    34. 
  
  
  34. ????????print?"---------------------?$key?----------------------------nn";?
    35. 
  
  
  35. }?
    36. 
  
  
  36. ?
    37. 
  
  
  37. sub?A_Record?{?
    38. 
  
  
  38. ????????my?@hosts=qw(www?ftp?mail?dns?vpn?sslvpn);?
    39. 
  
  
  39. ????????my?$res?=?Net::DNS::Resolver->new;?
    40. 
  
  
  40. ????????foreach?my?$host?(@hosts)?{?
    41. 
  
  
  41. ????????????????my?$query_A=$res->search("$host.$domain");?
    42. 
  
  
  42. ?
    43. 
  
  
  43. ????????????????if?($query_A)?{?
    44. 
  
  
  44. ????????????????????????foreach?my?$rr?($query_A->answer)?{?
    45. 
  
  
  45. ????????????????????????next?unless?$rr->type?eq?"A";?
    46. 
  
  
  46. ????????????????????????print?"$host.$domain:?";?
    47. 
  
  
  47. ????????????????????????print?$rr->address,?"n";?
    48. 
  
  
  48. ????????????????}?
    49. 
  
  
  49. ????????????????}?else?{?
    50. 
  
  
  50. ????????????????????????warn?"Unable?to?obtain?A?record?:?",?$res->errorstring,?"n";?
    51. 
  
  
  51. ????????????????}?
    52. 
  
  
  52. ????????}?
    53. 
  
  
  53. }?
    54. 
  
  
  54. ?
    55. 
  
  
  55. ?
    56. 
  
  
  56. sub?AXFR?{?
    57. 
  
  
  57. ?????????print?"AXFR?records?:n";?
    58. 
  
  
  58. ?????????my?$res??=?Net::DNS::Resolver->new;?
    59. 
  
  
  59. ?????????$res->nameservers("$dns_server");?
    60. 
  
  
  60. ?????????my?@zone?=?$res->axfr("$domain");?
    61. 
  
  
  61. ?????????foreach?my?$rr?(@zone)?{?
    62. 
  
  
  62. ??????????????????$rr->print;?
    63. 
  
  
  63. ?????????}?
    64. 
  
  
  64. }?
    65. 
  
  
  65. ?
    66. 
  
  
  66. sub?PRES?{?
    67. 
  
  
  67. ????????use?Net::DNS::Resolver::Recurse;?
    68. 
  
  
  68. ????????my?$pres?=?Net::DNS::Resolver::Recurse->new;?
    69. 
  
  
  69. ????????$pres->tcp_timeout(2);?
    70. 
  
  
  70. ????????$pres->udp_timeout(2);?
    71. 
  
  
  71. ????????$pres->debug(1);?
    72. 
  
  
  72. ????????my?@root_ns?=?map?$_?.?'.root-servers.net',?'a'..'m';?
    73. 
  
  
  73. ????????$pres->hints(@root_ns);?
    74. 
  
  
  74. ????????my?$packet?=?$pres->query_dorecursion($domain,?"NS");?
    75. 
  
  
  75. ????????print?"Parent?Nameservers:n";?
    76. 
  
  
  76. ????????foreach?my?$pns?($packet->additional)?{?
    77. 
  
  
  77. ???????????????????print?$pns->name,"(",?$pns->rdatastr,")n";?
    78. 
  
  
  78. ????????}?
    79. 
  
  
  79. }?
    80. 
  
  
  80. ?
    81. 
  
  
  81. sub?SOA_Record?{?
    82. 
  
  
  82. ????????print?"SOA?record:?n";?
    83. 
  
  
  83. ????????my?$res=Net::DNS::Resolver->new;?
    84. 
  
  
  84. ????????my?$soa_query?=?$res->query($domain,?'SOA');?
    85. 
  
  
  85. ????????if?($soa_query)?{?
    86. 
  
  
  86. ????????????????($soa_query->answer)[0]->print,?"n";?
    87. 
  
  
  87. ????????}?
    88. 
  
  
  88. ????????else??{?
    89. 
  
  
  89. ????????????print?"SOA?record?fail.?Result:n",$res->errorstring;?
    90. 
  
  
  90. ????????}?
    91. 
  
  
  91. }?
    92. 
  
  
  92. ?
    93. 
  
  
  93. sub?Check_open_dns?{?
    94. 
  
  
  94. ????????print?"Checking?recursion?(open?dns?server)...n";?
    95. 
  
  
  95. ????????my?@nservers?=?qw(ns.xtera-ip.com.cn);?
    96. 
  
  
  96. ????????my?$rres?=?Net::DNS::Resolver->new(?
    97. 
  
  
  97. ????????????????nameservers?=>?[@nservers],?
    98. 
  
  
  98. ????????????????recurse?????=>?1,?
    99. 
  
  
  99. ????????????????debug???????=>?0,?
    100. 
  
  
  100. ????????????????);?
    101. 
  
  
  101. ????????my?$dest;?
    102. 
  
  
  102. ????????my?$r_query?=?$rres->query($dest,"A");?
    103. 
  
  
  103. ????????my?@dest_ips=();?
    104. 
  
  
  104. ????????if?($r_query)?{?
    105. 
  
  
  105. ????????????????foreach?my?$rrr?($r_query->answer)?{?
    106. 
  
  
  106. ????????????????????????next?unless?$rrr->type?eq?"A";?
    107. 
  
  
  107. ????????????????????????print?"Recursive?lookups?are?ENABLED?in?",$rres->nameserver(),":?",$rrr->address,?"n";?
    108. 
  
  
  108. ????????????????}?
    109. 
  
  
  109. ????????}?else?{?
    110. 
  
  
  110. ????????????????warn?"OK.?Recursive?queries?are?not?answered.??Result:?",?$rres->errorstring,?"n";?
    111. 
  
  
  111. ????????}?
    112. 
  
  
  112. }?
    113. 
  
  
  113. ?
    114. 
  
  
  114. sub?MX_Records?{?
    115. 
  
  
  115. ????????print?"MX?Records?is?:n";?
    116. 
  
  
  116. ????????my?$res??=?Net::DNS::Resolver->new;?
    117. 
  
  
  117. ????????my?@mx???=?mx($res,?$domain);?
    118. 
  
  
  118. ????????if?(@mx)?{?
    119. 
  
  
  119. ???????????????foreach?my?$rr?(@mx)?{?
    120. 
  
  
  120. ????????????????????print?$rr->preference,?"?",?$rr->exchange,?"n";?
    121. 
  
  
  121. ??????????????}?
    122. 
  
  
  122. ????????}?else?{?
    123. 
  
  
  123. ???????????????warn?"Can't?find?MX?records?for?$domain:?",?"n";?
    124. 
  
  
  124. ????????}?
    125. 
  
  
  125. }?
    126. 
  
  
  126. ?
    127. 
  
  
  127. sub?NS_Records?{?
    128. 
  
  
  128. ????????print?"NS?Records?:?n";?
    129. 
  
  
  129. ????????my?$res???=?Net::DNS::Resolver->new;?
    130. 
  
  
  130. ????????my?$query?=?$res->query("$domain",?"NS");?
    131. 
  
  
  131. ????????if?($query)?{?
    132. 
  
  
  132. ????????????foreach?my?$rr?(grep?{?$_->type?eq?'NS'?}?$query->answer)?{?
    133. 
  
  
  133. ????????????????????print?$rr->nsdname,?"n";?
    134. 
  
  
  134. ????????????}?
    135. 
  
  
  135. ????????}?
    136. 
  
  
  136. ????????else?{?
    137. 
  
  
  137. ????????????warn?"query?failed:?",?"n";?
    138. 
  
  
  138. ????????}?
    139. 
  
  
  139. }?
    140. 
  
  
  140. ?
    141. 
  
  
  141. sub?Reverse_MX?{?
    142. 
  
  
  142. ????????my?$ip;?
    143. 
  
  
  143. ????????print?"nChecking?Reverse?MX?Records?...n";?
    144. 
  
  
  144. ????????my?$mx_res?=?Net::DNS::Resolver->new();?
    145. 
  
  
  145. ????????my?$mxanswer?=?$mx_res->query($ip->reverse_ip(),'PTR');?
    146. 
  
  
  146. ????????if($mxanswer)?{?
    147. 
  
  
  147. ??????????????foreach?my?$mrr?(grep?{$_->type?eq?"PTR"?}?$mxanswer->answer)?{?
    148. 
  
  
  148. ???????????????print?$ip->reverse_ip(),"?PTR?",$mrr->ptrdname,"n";?
    149. 
  
  
  149. ???????????????}?
    150. 
  
  
  150. ?
    151. 
  
  
  151. ?
    152. 
  
  
  152. ?????????}?else?{?
    153. 
  
  
  153. ??????????print?"MX?records?not?foundn";?
    154. 
  
  
  154. ?????????}?
    155. 
  
  
  155. }?
    156. 
  
  
  156. ?
    157. 
  
  
  157. sub?SPF_Record?{?
    158. 
  
  
  158. ????????print?"SPF?Records?is?:?n";?
    159. 
  
  
  159. ????????#my?$domain=shift;?
    160. 
  
  
  160. ????????my?$res=Net::DNS::Resolver->new();?
    161. 
  
  
  161. ????????my?$spf_query=$res->query($domain,"TXT");?
    162. 
  
  
  162. ????????if?($spf_query)?{?
    163. 
  
  
  163. ????????????????foreach?my?$rr?($spf_query->answer)?{?
    164. 
  
  
  164. ????????????????????????print?"SPF?record?ok:?",$rr->txtdata,?"n";?
    165. 
  
  
  165. ????????????????}?
    166. 
  
  
  166. ????????}?
    167. 
  
  
  167. ????????else?{?
    168. 
  
  
  168. ????????????????warn?"unable?to?get?SPF?record?:?",?"n";???????}?
    169. 
  
  
  169. }?
    170. 
 
 

脚本输出结果：
root@ubuntu:~/script# perl dns_check_google.pl

--------------------- List A_Record ----------------------------

www.google.com: 74.125.128.99
www.google.com: 74.125.128.103
www.google.com: 74.125.128.104
www.google.com: 74.125.128.105
www.google.com: 74.125.128.106
www.google.com: 74.125.128.147
Unable to obtain A record : NXDOMAIN
mail.google.com: 74.125.128.17
mail.google.com: 74.125.128.18
mail.google.com: 74.125.128.19
mail.google.com: 74.125.128.83
Unable to obtain A record : NXDOMAIN
vpn.google.com: 64.9.224.68
vpn.google.com: 64.9.224.69
vpn.google.com: 64.9.224.70
Unable to obtain A record : NXDOMAIN

--------------------- List SOA_Record ----------------------------

SOA record:
google.com.     86050   IN      SOA     ns1.google.com. dns-admin.google.com. (
                                        2013015000      ; Serial
                                        7200    ; Refresh
                                        1800    ; Retry
                                        1209600 ; Expire
                                        300 )   ; Minimum TTL

--------------------- List MX_Record ----------------------------

MX Records is :
10 aspmx.l.google.com
20 alt1.aspmx.l.google.com
30 alt2.aspmx.l.google.com
40 alt3.aspmx.l.google.com
50 alt4.aspmx.l.google.com

--------------------- List NS_Record ----------------------------

NS Records :
ns4.google.com
ns1.google.com
ns2.google.com
ns3.google.com

--------------------- List SPF_Record ----------------------------

SPF Records is :
SPF record ok: v=spf1 include:_netblocks.google.com include:_netblocks6.google.com ip4:216.73.93.70/31 ip4:216.73.93.72/31 ~all

--------------------- List AXFR_Record ----------------------------

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同