⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.37
Server IP:
41.128.143.86
Server:
Linux host.raqmix.cloud 6.8.0-1025-azure #30~22.04.1-Ubuntu SMP Wed Mar 12 15:28:20 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.3.23
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libnet-dns-perl
/
examples
/
demo
/
View File Name :
mx
#!/usr/bin/perl # $Id: mx 1815 2020-10-14 21:55:18Z willem $ =head1 NAME mx - Print a domain's MX records =head1 SYNOPSIS C
I
=head1 DESCRIPTION C
prints a domain's MX records, sorted by preference. =head1 AUTHOR Michael Fuhr
=head1 SEE ALSO L
, L
, L
, L
, L
, L
, L
=cut use strict; use warnings; use File::Basename; use Net::DNS; die "Usage: ", basename($0), " domain\n" unless (@ARGV == 1); my $dname = $ARGV[0]; my $res = Net::DNS::Resolver->new; my @mx = mx($res, $dname); if (@mx) { foreach my $rr (@mx) { print $rr->preference, "\t", $rr->exchange, "\n"; } } else { print "Can't find MX hosts for $dname: ", $res->errorstring, "\n"; }