SPF DNS
http://www.aloaha.com/download/fairy.zip
=======

This module is intended to address all people which
need a scriptable COM Object to access DNS Server
or to retrieve and evaluate SPF/SenderID/CallerID
records.

Since the Interface is such easy I will simply
add some examples below. If that is not enough
you can ask questions on http://www.aloaha.com
in the FAQ Section or directly contact
spfdns@aloaha.com.
An updated version of this document and the dll
you will find on http://www.aloaha.com/download/spfdns.txt


Thanks a lot
Frank Hellmann
(frank.hellmann@aloaha.com)

P.S.: The use of this module is free in 
      non-commercial applications and websites.
      For commercial use please contact sales@aloaha.com
      
===============================================================
Get first MX Record of domain.tld. All MX records or other
records are also possible. Please refer to FAQ

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.MX_Query("domain.tld") 



Reverse lookup 217.160.205.164

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.PTR_Query("217.160.205.164")



Get SPF record of domain.tld

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.get_spf_records("domain.tld")



Evaluate if 213.165.64.20 is a valid IP to Send mail on behalf
of gmx.ch.

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.eval_spf("gmx.ch", "213.165.64.20", "", "", "") 



Evaluate if 213.165.64.20 is a valid IP to Send mail on behalf
of yourdomain.tld. Use "buest guess" if no SPF record exist.

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.eval_spf("yourdomain.tld", "213.165.64.20", "v=spf1 mx/24 a/24 ptr -all", "", "") 



Evaluate if 213.165.64.20 is a valid IP to Send mail on behalf
of yourdomain.tld. Use "buest guess" if no SPF record exist and
use 127.0.0.1 to overwrite result if result is "fail"

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.eval_spf("yourdomain.tld", "213.165.64.20", "v=spf1 mx/24 a/24 ptr -all", "v=spf1 ip4:127.0.0.1 -all", "") 



RBL check if 127.0.0.2 is listed in relays.ordb.org

Set spf = CreateObject("spf_dns.DNSClass")
MsgBox spf.lookup_rbl("127.0.0.2", "relays.ordb.org")