This perl script will enumerate the SSL ciphers in use on any SSL encrypted service, including STARTTLS on SMTP. The script will warn the operator if a self signed certificate is detected on a https encrypted service.
b072fc02eb3c308b65335f16281547f292d409ddca19c12a820a6fe6a2d9eb2c