Check HTTPS:
https://www.ssllabs.com/
Check SMTP over TLS:
https://www.checktls.com/
Check SMTP:
https://www.wormly.com/test-smtp-server
Wednesday, May 29, 2019
Wednesday, May 1, 2019
A Perl script to verify if your SMTP server has enabled SMTP over TLS.
#!/usr/bin/perl
use IO::Socket;
$|=1;
if(($#ARGV + 1 ) != 2){
die "Usage: $0 host_ip smtp_port\n";
}
$host_ip=shift;
$smtp_port=shift;
$sock=IO::Socket::INET->new(PeerAddr => "$host_ip:$smtp_port", Timeout => 5) || die "$host_ip:$smtp_port is closed!\n";
$sock->recv($mem, 1000, 0);
$sock->send("EHLO test.com\r\n");
$sock->recv($mem2, 5000, 0);
$sock->shutdown(2);
if(lc($mem2)=~m/starttls/){
print "$host_ip:$smtp_port supports SMTP over TLS!\n";
}else{
print "$host_ip:$smtp_port does not support SMTP over TLS!\n";
}
exit(1);
use IO::Socket;
$|=1;
if(($#ARGV + 1 ) != 2){
die "Usage: $0 host_ip smtp_port\n";
}
$host_ip=shift;
$smtp_port=shift;
$sock=IO::Socket::INET->new(PeerAddr => "$host_ip:$smtp_port", Timeout => 5) || die "$host_ip:$smtp_port is closed!\n";
$sock->recv($mem, 1000, 0);
$sock->send("EHLO test.com\r\n");
$sock->recv($mem2, 5000, 0);
$sock->shutdown(2);
if(lc($mem2)=~m/starttls/){
print "$host_ip:$smtp_port supports SMTP over TLS!\n";
}else{
print "$host_ip:$smtp_port does not support SMTP over TLS!\n";
}
exit(1);
Subscribe to:
Posts (Atom)