This is the most classic algorithm I have ever seen. I have written ASP.NET version address: http://dingxsoft.com/whois/whois.aspx
// list of who is servers for easy domain type // Domain Extension, Whois Server, NOT Registered Flag
$ DTD [] = "AC, WHOIS. NIC.AC, NO Match"; $ DTD [] = ". Af, Whois.NetNames.net, No Match"; $ DTD [] = ". com.ag, whois .nic.ag, does not exist "; $ dtd [] =" edu.ag, whois.nic.ag, does not exist "; $ dTD [] =". gov.ag, whois.nic.ag, does Not exist "; $ dtd [] =" Net.ag, whois.nic.ag, does not exist "; $ dTD [=" org.ag, whois.nic.ag, does not exist "; $ dtd [] = ". AG, WHOIS.NIC.AG, DOES NOT"; $ DTD [] = "AM, WHOIS.NIC.AM, NO MATCH"; $ DTD [] = ". AS, Whois.nic. AS, Not Found "; $ DTD [] =" ac.at, regard "; $ dtd [] =". Co.at, whois.aco.net, nothing found; $ dtd [] = "gv.at, regard, nothing found"; $ dtd [] = ". oor.at, whois.aco.net, nothing found"; $ dtd [] = ", WHOIS .aco.net, Nothing Found "; $ DTD [] =" asn.au, regard.ausregistry.net.au, no data found "; $ dTD [] =". com.au, whois.Ausregistry.net. Au, No Data Found "; $ DTD [] =" edu.au, whois.aunic.net, no entries "; $ DTD [] =". id.au, whois.Ausregistry.net.au, no data found "; $ DTD [] =" Net.au, Whois.Ausregistry.Net.au, no data found "; $ dtd [] =" org.au, whois.Ausregistry.net.au, no data found; $ DTD [] = ". ac.be, * bewhois, free"; $ dTD [] = ". be, * bewh OIS, Free "; $ DTD [] =" BG, WHOIS.RIPE.NET, NO ENTRIES "; $ DTD [] =" Agr.br, Whois.nic.br, No Match "; $ dtd [] = ".am.br, WHOIS.NIC.BR, NO MATCH"; $ DTD [] = "Art.br, Whois.nic.br, No Match"; $ dTD [] = ". com.br, whois. Nic.br, no match "; $ DTD [] =" Coop.br, Whois.nic.br, no match "; $ DTD [] =" ESP.BR, WHOIS.NIC.BR, NO MATCH "; $ DTD [] = "etc.br, regard.nic.br, no match"; $ dTD [] = "far.br, whois.netic.br, no match"
$ DTD [] = "fm.br, whois.nic.br, no match"; $ dtd [] = ". g12.br, whois.neic.br, no match"; $ dtd [] = ". GOV .br, WHOIS.NIC.BR, NO MATCH; $ DTD [] = "IMB.br, Whois.nic.br, no match"; $ dtd [] = ", ind.br, whois.nic.br "No match"; $ dTD [] = "inf.br, regard"; $ dtd [] = ". MiL.br, Whois.nic.br, no match"; $ dtd [ ] = "Net.br, Whois. Nic.br, no match"; $ dTD [] = "org.br, whois.br, no match"; $ dTD [] = ". psi.br, Whois.nic.br, no match "; $ DTD [] =". Rec.br, Whois.nic.br, no match "; $ dtd [] =". srv.br, Whois.nic.br, No Match "; $ dtd [] =" tmp.br, whois.nic.br, no match "; $ dTD [] =" Tur.br, Whois.nic.br, no match "; $ dtd [] =" .tv.br, whois.nic.br, no match "; $ DTD [] =" Edu.br, Whois.Nic.br, no match "; $ dTD [] =". Nom.br, Whois.nic .br, no match "; $ DTD [] =" adm.br, whois.neic.br, no match "; $ dtd [] =" adv.br, whois.nic.br, no match "; DTD [] = "ARQ.BR, WHOIS.NIC.BR, NO MATCH"; $ DTD [] = "ato.br, whois.br, no match"; $ dTD [] = ". BIO. Br, WHOIS.NIC.BR, NO MATCH; $ DTD [] = ". BMD.br, Whois. Nic.br, no match"; $ dTD [] = ". Cim.br, Whois.nic.br, No match "; $ dTD [] =". cng.br, whois.neic.br, no match "; $ dTD [] =". cnt.br, Whois.nic.b r, no match "; $ dTD [] =" Ecn.br, whois.neic.br, no match "; $ dtd [] =". eng.br, whois.br, no match "; $ dtd [] = ". ETI.br, whois.nic.br, no match"; $ dTD [] = "fnd.br, whois.br, no match"; $ DTD [] = ". fot.br , WHOIS.NIC.BR, NO MATCH; $ DTD [] = "fst.br, whois.netic.br, no match"; $ dTD [] = ". GGF.br, Whois.nic.br, NO Match "; $ DTD [] =" jor.br, whois.nic.br, no match "; $ dTD [] ="
. de Match "; $ DTD [] =" Mat.br, Whois.Nic.br, No Match "; $ DTD [] =". Med.br, Whois.nic .br, no match "; $ dtd [] =" Mus.br, Whois.nic.br, no match "; $ dtd [] =" not.br, whois.nic.br, no match "; DTD [] = "ntr.br, whois.nic.br, no match"; $ DTD [] = ". ODo.Br, whois.nic.br, no match"; $ DTD [] = ". PPG. Br, WHOIS.NIC.BR, NO MATCH "; $ DTD [] =" PRO.BR, WHOIS.NIC.BR, NO MATCH "; $ DTD [] =" Psc.br, Whois.nic.br, No match "; $ dtd [] =". qsl.br, whois.nic.br, no match "; $ dtd [] =". trd.br, whois.netic.br, no match "; $ dtd [] = ". vet.br, whois.nic.br, no match"; $ dtd [] = "zlg.br, whois.nic.br, no match"; $ dTD [] = ". Br, Whois.nic .br, no match "; $ dTD [] =" com.bz, whois.belizenic.bz, no match "; $ DTD [] =". net.bz, whois.belizenic.bz, no match "; DTD [] = "org.bz, whois.belizenic.bz, no match"; $ DTD [] = "BZ, WHOIS.BELIZENIC.BZ, NO MATCH"; $ DTD [] = ". bc.ca, Whois.cira.ca, Status: avail "; $ DTD [] =". Mb.ca, regard.cira.ca, status: avail "; $ DTD [] =". Nb.ca, Whois.cira.ca, Status: avail "; $ dtd [] =" nf.ca, regard.cira.ca, status: avail "; $ dtd [] =" ns.ca, regard.cira.ca, status: Avail "; $ DTD [] =" nt.ca, regard.cira.ca, status: avail "; $ dtd [] =" on.ca, regard.cira.ca, status: avail "; $ dtd [ ] = "PE.CA, WHOIS.CIRA.CA, STATUS: Avail"; $ DTD [] = "qc.ca, regard.cira.ca, status: avail"; $ dTD [] = ". SK. CA, WHOIS.CIRA.CA, STATUS: AVAIL "; $ DTD [] =" yk.ca, regard.cira.ca, status: avail "; $ dTD [] =". ca, whois.cira.ca, Status: avail "; $ dTD [] ="
.CD, WHOIS.CD, NO MATCH; $ DTD [] = ". CL, WHOIS.NIC.CL, NO EXISTE"; $ DTD [] = ". Ch, Whois.nic.ch, we do not have an "; $ DTD [] =". Co.,,,,,,,,,,,,,,,,,, No entries found "; $ dtd [] =" gov.ck, regard.ck-nic.org.ck, no entries found "; $ dTD [] =". Net.ck, Whois.ck-nic.org. CK, No Entries Found "; $ DTD [] =" org.ck, whois.ck-nic.org.ck, no entries found, $ dtd [] = ", cm, whois.ripe, no entries found $ DTD [] = "edu.cn, regard, whois.cnic.net.cn, no matching record"; $ dTD [] = "ac.cn, whois.cnic.net.cn, no matching record; DTD [] = ". Ah.cn, regard.cnic.net.cn, no matching record"; $ dtd [] = "bj.cn, whois.cnic.net.cn, no matching record"; $ dtd [ ] = ". com.cn, nois.cnnic record"; $ DTD [] = ". CQ.cn, whois.cnic.net.cn, no matching record"; $ dtd [] = ".gd.cn, whois.cnnic.net.cn, no matching record"; $ DTD [] = "gov.cn, whois.cnic.net.cn, no matching record"; $ DTD [] = ". Gs.cn, whois.cnic.net.cn, no matching record "; $ dtd [] =" gx.cn, regard.cnic.net.cn, no match means "; $ dTD [] =". Gz. CN, WHOIS.CNNIC.NET.CN, NO M ATCHING RECORD "; $ DTD [] =" hb.cn, regard.cnnic.net.cn, no matching record "; $ dTD [] =". He.cn, Whois.cnnic.net.cn, No Matching Record "; $ DTD [] =" hi.cn, regard.cnnic.net.cn, no matching record "; $ dtd [] =" hk.cn, regard.cnic.net.cn, no match means $ DTD [] = "hl.cn, whois.cnic.net.cn, no matching record"; $ DTD [] = "hn.cn, whois.cnic.net.cn, no matching record; $ dtd [] = ". jl.cn, whois.cnic.net.cn, no matching record"; $ dtd [] = "
.js.cn.cnnic.net.cn, no matching record "; $ DTD [] =" .mbn, regard "; $ dTD [] =". Net .cn, nois.cnic.net.cn, no matching record "; $ DTD [] =" nm.cn, whois.cnic.net.cn, no matching record "; $ DTD [] =". nx.cn WHOIS.CNNIC.NET.CN, NO MATCHING RECORD "; $ DTD [] =" ln.cn, regard1.cnic.net.cn, no matching record "; $ DTD [] =" org.cn, WHOIS .cnnic.net.cn, no matching record "; $ DTD [] =". qh.cn, whois.cnic.net.cn, no matching record "; $ dTD [] =". sc.cn, whois.cnnic .NET.CN, NO MATCHING RECORD "; $ DTD [] =" SH.CN, WHOIS.CNNIC.NET.CN, NO MATCHING RECORD "; $ DTD [] =". sn.cn, whois.cnnic.net .cn, no matching record "; $ DTD [] =" tj.cn, regard.cnnic.net.cn, no matching record "; $ dTD [] =". tw.cn, whois.cnnic.net.cn , NO Matching Record "; $ DTD [] =". Yn.cn, whois.cnic.net.cn, no matching record "; $ DTD [] =". xj.cn, whois.cnic.net.cn, nois Matching record "; $ DTD [] =". xz.cn, regard.cnic.net.cn, no matching record "; $ dTD [] =" zj.cn, whois.cnic.net.cn, no match replan "; $ DTD [] =". CN, WHOIS.CNNIC.NET.CN, NO MATCHING RECORD "; $ DTD [] =" CX, Whois.nic.cx, no match "; $ d TD [] = "CZ, WHOIS.RIPE.NET, NO DATA FOUND"; $ DTD [] = "DE, WHOIS.DENIC.DE, NO ENTRIES"; $ DTD [] = "DJ, * DJWHOIS, Domain is available "; $ DTD [] =" DK, WHOIS.DK-HOSTMASTER.DK, NO ENTRIES "; $ DTD [] =" es, * eswhois, encontrado "; $ DTD [] =". ac. FJ, WHOIS.USP.AC.FJ, WAS Not Found "; $ DTD [] =" Biz.fj, WHOIS.USP.AC.FJ, WAS NOT FOUND "; $ DTD [] =". com.fj, Whois.usp.ac.fj, Was Not Found "; $ DTD [] =" Gov.fj, whois.usp.ac.fj, Was Not Found "; $ DTD [] ="
.info.fj, WHOIS.usp.ac.fj, Was Not Found "; $ DTD [] =" Mil.fj, whois.usp.ac.fj, was not found "; $ dTD [] =". name .fj, WAOS.usp.ac.fj, WAS NOT FOUND "; $ DTD [] =" Net.fj, whois.usp.ac.fj, WAS NOT FOUND "; $ DTD [] =". Org.fj , WAS.usp.ac.fj, Was Not Found "; $ DTD [] =" PRO.FJ, WHOIS.USP.AC.FJ, WAS NOT FOUND "; $ DTD [] =". School.fj, Whois .usp.ac.fj, WAS NOT FOUND "; $ DTD [] =" fm, * fmwhois, no match "; $ dTD [] =" fo, whois.rotld.ro, no entries "; $ dtd [ ] = ". asso.fr, whois.nic.fr, no entries"; $ dtd [] = "com.fr, whois.nic.fr, no entries"; $ DTD [] = ". Nom.fr, Whois.nic.fr, no entries "; $ DTD [] =" prd.fr, regard.nic.fr, no entries "; $ dTD [] =". Presse.fr, Whois.nic.fr, no entries "; $ DTD [] =" TM.FR, WHOIS.NIC.FR, NO ENTRIES "; $ DTD [] =" fr, whois.nic.fr, no entries "; $ DTD [] =". Co .gg, whois.isles.net, Domain Not Found "; $ DTD [] =" gov.gg, whois.isles.net, Domain Not Found "; $ DTD [] =" Net.GG, Whois.isles .NET, DOMAIN NOT FOUND "; $ DTD [] =" org.gg, Whois.isles.net, Domain Not Found "; $ DTD [] =" Sch.GG, Whois.isles.net, Domain Not Found "; $ DTD [] =" GG, Whois.isles.net, Domain Not Found "; $ DTD [] =". GL, Whois.ripe. NET, NO ENTRIES FOUND "; $ DTD [] =" GM, WHOIS.RIPE.NET, NO ENTRIES FOUND "; $ DTD [] =" Gr, * GrWhois, No Match "; $ DTD [] =". Co., * GrWhois, No Match "; $ DTD [] =". com.gr, * grwhois, no match "; $ dtd [] =" net.gr, * Grwhois, no match "; $ DTD [ ] = "Edu.gr, * GrWhois, No Match"; $ DTD [] = "org.gr, * GrWhois, No Match"; $ DTD [] = ". GS, Whois.adamsnames.tc, Not registered "; $ DTD [] =". com.hk, regard.hkdnr.net.hk, no match ";
$ DTD [] = "edu.hk, regard.hkdnr.net.hk, no match"; $ dtd [] = "gov.hk, regard.hkdnr.net.hk, no match"; $ dtd [] = "Net.hk, regard.hkdnr.net.hk, no match"; $ DTD [] = "org.hk, regard.hkdnr.net.hk, no match"; $ dtd [] = ". hm WHOIS.REGISTRY.HM, (NULL) "; $ DTD [] =" Co.hu, whois.ripe.net, Object Shown Below is not "; $ dTD [] =" info.hu, whois.ripe .NET, OBJECT Shown Below Is Not "; $ DTD [] =" org.hu, whois.ripe.net, Object Shown Below Is Not "; $ DTD [] =". priv.hu, whois.ripe.net , Object Shown Below Is Not "; $ DTD [] =". Sport.hu, Whois.Ripe.Net, Object Shown Below Is Not "; $ DTD [] =" TM.hu, Whois.Ripe.net, Object SHOWN BELOW Is Not "; $ DTD [] =" HU, WHOIS.RIPE.NET, OBJECT Shown Below Is Not "; $ DTD [] =" IE, Whois.DomainRegistry.ie, No Match "; $ DTD [ ] = ". ac .il, whois.isoc.org.il, no data was found"; $ dTD [] = "ci, regard.isoc.org.il, no data was found"; $ DTD [ ] = ". gov.il, whois.isoc.org.il, no data was found"; $ dTD [] = "idf.il, whois.isoc.org.il, no data was found"; $ dtd [ ] = "K12.il, Whois.Iisoc.org.il, no data was found"; $ dtd [] = ". muni.il, whois.isoc.org.il, no data was found"; $ DTD [ ] = "Net.il , WHOIS.ISOC.ORG.IL, NO DATA WAND "; $ DTD [] =" org.il, whois.isoc.org.il, no data was found "; $ dTD [] =". ac .ir , WHOIS. NIC.IR, NO ENTRIES FOUND "; $ DTD [] =" Co.ir, Whois.Nic.ir, No Entries Found "; $ DTD [] =". gov.ir, whois.nic.ir No Entries Found "; $ DTD [] =" Id.ir, Whois.Nic.ir, No Entries Found "; $ DTD [] =" Net.ir, Whois. NIC.IR, NO ENTRIES FOUND "; $ DTD [] = "org.ir, whois.nic.ir, no entries found, $ dtd [] ="
. Sch.ir, Whois.nic.ir, No Entries Found "; $ DTD [] =" Ir, WHOIS.NIC.IR, NO ENTRIES FOUND "; $ DTD [] =" IS, WHOIS.isnet.is "No Entries Found"; $ DTD [] = "IT, WHOIS.NIC.IT, NO ENTRIES FOUND"; $ DTD [] = "Je, Whois.isles.net, Domain Not Found"; $ DTD [] = ". ac .jp, whois.nic.Ad.jp, no match"; $ dtd [] = "ad.jp, regard"; $ dTD [] = ". co .jp, whois.nic.ad.jp, no match "; $ dTD [] =" ed.jp, whois.nic.jp, no match "; $ DTD [] =". holo.jp, WHOIS .nic.AD.jp, no match "; $ dtd [] =" ne.jp, whois.nic.ad.jp, no match "; $ dTD [] =". Or.jp, Whois.nic.ad .jp, no match "; $ DTD [] =" geo.jp, whois.nic.jp, no match "; $ dtd [] =". ac.kr, whois.krnic.net, Domain Name IS NOT "; $ dtd [] =". Co. Kr, Whois.krnic.net, Domain Name is not "; $ DTD [] =". hol, whois.krnic.net, Domain name is not "; DTD [] = "NE.KR, WHOIS.KRNIC.NET, DOMAIN Name is not"; $ DTD [] = "or.kr, whois.krnic.net, Domain name is not"; $ dtd [] = ".pe.kr, whois.krnic.net, domain name is not"; $ dTD [] = ". Re.kr, regard.krnic.net, domain name is not"; $ dTD [] = ". Seoul. KR, WHOIS.KRNIC.NET, DOMAIN Name is not "; $ DTD [] =". Kyonggi.kr, Whois.krnic.net, Domain N AME IS Not "; $ DTD [] =" La, Whois.nic.la, no match "; $ dtd [] =" li, whois.nic.li, do not have an entry "; $ DTD [] = "LT, WHOIS.RIPE.NET, NO MATCHES FOUND"; $ DTD [] = "Lu, WHOIS.DNS.LU, NO ENTRIES FOUND"; $ DTD [] = ". Asn.lv, Whois.ripe .NET, NO ENTRIES FOUND "; $ DTD [] =" com.lv, whois.ripe.net, no entries found "; $ DTD [] =" Conf.lv, Whois.Ripe.Net, No Entries Found "; $ DTD [] =" Edu.lv, whois.ripe.net, no entries found "; $ dtd [] ="
.gov.lv, whois.ripe.net, no entries found, $ dtd [] = "id.lv, whois.ripe.net, no entries found"; $ dtd [] = ". Mil.LV, WHOIS .ripe.net, no entries found, $ dtd [] = "net.lv, whois.ripe.net, no entries found"; $ dtd [] = "org.lv, whois.ripe.net, nois.ripe.net, nois Entries Found "; $ DTD [] =" LV, WHOIS.RIPE.NET, NO ENTRIES FOUND "; $ DTD [] =" TM.MC, WHOIS.RIPE.NET, NO ENTRIES FOUND "; $ DTD [] = ". asso.mc, whois.ripe.net, no entries found"; $ DTD [] = "MC, WHOIS.RIPE.NET, NO ENTRIES FOUND"; $ DTD [] = ". MS, Whois.adamsnames .tc, not registered "; $ dtd [] =" com.mt, whois.ripe.net, no entries found "; $ dtd [] =" edu.mt, whois.ripe.net, no enties found $ DTD [] = "Net.mt, regard"; $ dtd [] = "org.mt, whois.ripe.net, no entries found, $ dtd [] = ".tm.mt, regard"; $ dtd [] = "uu.mt, whois.ripe.net, no entries found"; $ DTD [] = "MT, WHOIS. Ripe.net, No Entries Found "; $ DTD [] =". com.mx, whois.nic.mx, no encontradas "; $ dtd [] =". edu.mx, whois.nic.mx, no encontradas $ DTD [] = ". gob.mx, whois.nic.mx, no encontradas"; $ dTD [] = "net.mx, whois.nic.mx, no encontradas"; $ DTD [] = ". oral g.mx, whois.nic.mx, no encontradas "; $ DTD [] =" MX, WHOIS.NIC.MX, NO ENCONTRADAS "; $ DTD [] =". com.my, * mywhois, does not exist "; $ DTD [] =" Net.my, * mywhois, does not exist "; $ DTD [] =" org.my, * mywhois, does not exist "; $ dtd [] =". Gov.my , * MyWhois, Does Not Exist "; $ DTD [] =" Edu.my, * MyWhois, Does Not Exist "; $ dtd [] =". Mil.my, * MyWhois, Does Not Exist "; $ DTD [ ] = ". my, * mywhois, does not exist"; $ dTD [] = "nl, * nlwhois, free"
$ DTD [] = "no, whois.norid.no, no matches"; $ dtd [] = "nu, whois.nic.nu, no match"; $ dTD [] = ". Biz.pl, Whois .dns.pl, no information "; $ dtd [] =" com.pl, whois.dns.pl, no information "; $ dtd [] =" Net.pl, whois.dns.pl, no information " $ DTD [] = "org.pl, whois.dns.pl, no information"; $ dtd [] = "pl, whois.dns.pl, does not exist"; $ dTD [] = ". AC .nz, whois.domainz.Net.nz, Available "; $ DTD [] =" Co.nz, WHOIS.DOMAINZ.NET.NZ, AVAILABLE "; $ DTD [] =". CRI.NZ, WHOIS.DOMAINZ .NET.NZ, AVAILABLE "; $ DTD [] =" Gen.NZ, WHOIS.DOMAINZ.NET.NZ, AVAILABLE "; $ DTD [] =". Govt.nz, Whois.domainz.Net.nz, Available "; $ DTD [] =" iwi.nz, whois.domainz.net.nz, available "; $ dtd [] =" net.nz, regard.domainz.net.nz, available "; $ dtd [] = ". org.nz, whois.domainz.net.nz, available"; $ dtd [] = "mil.nz, whois.domainz.net.nz, available"; $ dtd [] = "PM, Whois .nic.fr, no entries found "; $ DTD [] =" School.nz, regard.domainz.net.nz, not listed "; $ DTD [] =", re, whois.nic.fr, no entries "; $ dtd [] =" arts.ro, whois.rotld.ro, no entries "; $ dtd [] =" com.ro, whois.rotld.ro, no entries "; $ dtd [] = ".firm.ro, whois.rotld.ro, no entries"; $ dtd [ ] = "info.ro, regard.rotld.ro, no entries"; $ dtd [] = "nom.ro, whois.rotld.ro, no entries"; $ dtd [] = ". nt.ro, Whois.ROTLD.RO, NO ENTRIES "; $ DTD [] =" org.ro, whois.rotld.ro, no entries "; $ DTD [] =". REC. RO, WHOIS.ROTLD.RO, NO ENTRIES "; $ DTD [] =". store.ro, regard.rotld.ro, no entries "; $ dtd [] =" TM.RO, WHOIS.ROTLD.RO, NO ENTRIES "; $ DTD [] =" . www.ro, whois.rotld.ro, no entries, $ dtd [] = "ro, whois.rotld.ro, no entries";
$ DTD [] = "com.ru, whois.ripn.ru, no entries found"; $ dtd [] = "net.ru, whois.ripn.ru, no entries found; $ dtd [] =" . RU, NO ENTRIES FOUND "; $ DTD [] =" Ru, WHOIS.RIPN.RU, NO ENTRIES FOUND "; $ DTD [] =". com.sa, * sawhois, NOT Registered "; $ DTD [] =" edu.sa, * sawhois, not registered "; $ dtd [] =" gov.sa, * sawhois, not registered "; $ dTD [] =". med.sa , * Sawhois, Not Registered "; $ DTD [] =" Net.sa, * sawhois, not registered "; $ dtd [] =" org.sa, * sawhois, not registered "; $ dtd [] =" .pub.sa, * sawhois, not registered; $ dtd [] = "sch.sa, * sawhois, not registered"; $ dtd [] = "pp.se, Whois.nic-se.se, nois. Data Found "; $ DTD [] =". Press.se, Whois.nic-se.se, no data found, $ dtd [] = "org.se, Whois.nic-se.se, no data found "; $ DTD [] =" SE, WHOIS.NIC-SE.SE, NO DATA FOUND "; $ DTD [] =" com.sg, whois.nic.net.sg, nomatch "; $ dtd [] = "edu.sg, regard"; $ dtd [] = "gov.sg, whois.nic.net.sg, nomatch"; $ dTD [] = ". Not.sg , WHOIS.NIC.NET.SG, NOMATCH "; $ DTD [] =" org.sg, whois.neic.net.sg, nomatch "; $ dTD [] =". PER.SG, Whois.nic.net .SG, Nomatch "; $ DTD [] =" com.sh, whois.nic.sh, no match "; $ dTD [] =" . co.sh, whois.nic.sh, no match "; $ dTD [] =" net.sh, regard "; ="; $ dTD [] = ". Org.sh, Whois.nic .sh, no match "; $ dtd [] =" edu.sh, regard.nic.sh, no match "; $ dtd [] =" gov.sh, regard.nic.sh, no match "; $ DTD [] = "mil.sh, regard.nic.sh, no match"; $ dTD [] = ". sh, regard"; $ dTD [] = ". si, whois. ARNES.SI, NO ENTRIES "; $ DTD [] =" SK, WHOIS.RIPE.NET, NO ENTRIES FOUND "; $ DTD [] ="
. SM, WHOIS.RIPE.NET, NO ENTRIES FOUND "; $ DTD [] =" STRIES FOUND "; $ DTD [] =" SU, Whois.ripn.Net, NO ""; $ DTD [] = ". TC, WHOIS.ADAMSNAMES.TC, NOT Registered"; $ DTD [] = "TF, WHOIS.ADAMSNAMES.TC, NOT Registered"; $ DTD [] = ". ac. TH, WHOIS.THNIC.NET, NO ENTRIES FOUND "; $ DTD [] =" Co.th, WHOIS.THNIC.NET, NO ENTRIES FOUND "; $ DTD [] ="., WHOIS.THNIC. NET, NO ENTRIES FOUND "; $ DTD [] =" in.th, whois.thnic.net, no entries found "; $ dtd [] =". mi.th, whois.thnic.net, no entry found ; $ dtd [] = "net.th, regard"; $ dtd [] = "or.th, whois.thnic.net, no entries found, $ dtd [] = ".tj, regard.nic.tj, no match for"; $ DTD [] = "TM, WHOIS.NIC.TM, NO MATCH"; $ DTD [] = ". to, whois.tonic.to, nois Match "; $ DTD [] =". bbs.tr, whois.ripe.net, not found in database "; $ dtd [] =" com.tr, whois.ripe.net, not found in database "; $ DTD [] = "edu.tr, whois.ripe.net, not found in database"; $ dtd [] = "gen.tr, whois.ripe.net, not found in catabase; $ dtd [] = ".gov.tr, WHOIS.RIPE.NET, NOT FOUND in Database"; $ DTD [] = "K12.TR, WHOIS.RIPE.NET, NOT Found in Database"; $ DTD [] = "Mil.tr, WHOIS.RIPE.NET, NOT FOUND in Database"; $ DTD [] = "Net.tr, WHOIS.RIPE.NET, Not Found in Database"; $ DTD [] = ". NOM .TR, WHOIS.RIPE.NET, NOT FOUND in Database "; $ DTD [] =" org.tr, whois.ripe.net, not found in database "; $ DTD [] =" TV, * TVWhois, Is Available "; $ DTD [] =" com.tw, whois.twnic.net, no match "; $ DTD [] =" Idv.tw, whois.twnic.net, no match "; $ dtd [] = "Net.tw, whois.twnic.net, no match"; $ DTD [] = "
.org.tw, whois.twnic.net, no match, $ dTD [] = ".uaa, regard"; $ dtd [] = ". Edu.ua, WHOIS. Ripe.net, No Entries Found "; $ DTD [] =" Gov.ua, whois.ripe.net, no entries found "; $ dtd [] =" org.ua, whois.ripe.net, no entries "; $ dtd [] =" net.ua, regard "; $ dTD [] ="; Co. ug, wawa.eahd.or.ug, no entries found; $ DTD [] = "or.ug, wawa.eahd.or.ug, no entries found"; $ dtd [] = ". ac.ug, wawa.eahd.or.ug, no entries found; $ dtd [ ] = "sc.ug, wawa.eahd.or.ug, no entries found"; $ DTD [] = ".o.ug, wawa.eahd.or.ug, no entries found, $ dtd [] = ".ne.ug, wawa.eahd.or.ug, no entries found"; $ dtd [] = "ac.uk, regard.ja.net, no entries were found"; $ dtd [] = ". Co .uk, WHOIS.NIC.UK, NO MATCH; $ DTD [] = "Gov.uk, Whois.ja.net, No Entries WERE FOUND"; $ DTD [] = ". Ltd.uk, Whois.nic .uk, no match "; $ DTD [] =". M.uk, Whois.nic.uk, no match "; $ dtd [] =" Net.uk, Whois.nic.uk, no match "; DTD [] = "org.uk, whois.nic.uk, no match"; $ dtd [] = "PLC.UK, Whois.nic.uk, no match"; $ dTD [] = ". SCH. UK, Whois.nic.uk, no match "; $ DTD [] =" UK.co, Whois.uk.co, No matches "; $ dtd [] =". US, WH Ois.nic.us, not found "; $ DTD [] =" va, regard ";" $ dtd [] = ". VG, Whois.adamsnames.tc, not registered DTD [] = "com.ws, regard"; $ dtd [] = "edu.ws, regard"; $ dTD [] = ". GOV. WS, WHOIS.WORLDSITE.WS, NO MATCH "; $ DTD [] =" Net.ws, Whois.Worldsite.ws, No Match "; $ DTD [] =" org.ws, whois.worldsite.ws, No match "; $ dTD [] =". WS, WHOIS.WORLDSITE.WS, NO MATCH ";
$ DTD [] = "br.com, whois.centralnic.com, no match"; $ dtd [] = ". cn.com, whois.centralnic.com, no match"; $ DTD [] = ". de .com, nois.centralnic.com, no match "; $ dtd [] =" eu.com, whois.centralnic.com, no match "; $ dtd [] =". GB.com, Whois.centralnic.com "No match"; $ dtd [] = "GB.NET, WHOIS.CENTRALNIC.com, No Match"; $ dtd [] = "hu.com, whois.centralnic.com, no match"; $ dtd [ ] = "No..com, no match"; $ dtd [] = "qc.com, whois.centralnic.com, no match"; $ dTD [] = ". ru.com, Whois.centralnic.com, no match "; $ dTD [] =" sa.com, regard "; $ dtd [] =". SE.COM, Whois.centralnic.com, No Match "; $ dtd [] =" se.net, regard "; $ dtd [] =" uk.com, whois.centralnic.com, no match "; $ dtd [] =" .uk.net, WHOIS.centralnic.com, no match "; $ dtd [] =" us.com, whois.centralnic.com, no match "; $ dtd [] =". UY.com, Whois.centralnic .com, no match "; $ dtd [] =" za.com, whois.centralnic.com, no match "; $ dTD [] =". com, whois.crsnic.net, no match "; $ DTD [ ] = "Net, WHOIS.CRSNIC.NET, NO MATCH"; $ DTD [] = "ORG, WHOIS.PUBLICINTERESTREGISTRY.NET, NOT FOUND"; $ DTD [] = "Info, WHO Is.afilas.Net, Not Found "; $ DTD [] =" Name, WHOIS.NIC.NAME, NO MATCH "; $ DTD [] =" Biz, Whois.neulevel.biz, Not Found "; $ DTD [] = "CC, WHOIS.NIC.CC, NO MATCH"; $ DTD [] = "EDU, WHOIS.EDUCAUSE.NET, NO MATCH"; $ DTD [] = ". Mil, Whois.nic.MIL "No match"; $ dTD [] = "int, regard"; $ dTD [] = ". Coop, Whois.nic.coop, no objects found;
Function CWhois ($ DOM, $ DOMT, & $ Regdetails) {Global $ DTD; $ DOM = TRIM ($ DOM); $ DOMT = TRIM ($ DOMT); // Check Referer IF (1! = Checkrefer ()) { Return (4); // Referer is not allowed} $ dom = strtolower ($ DOM); $ domt = strtolower ($ domt); // remove http: // www. or www. if User added thisiff (strcmp "http: // www.", Substr ($ DOM, 0, 11)) == 0) {$ DOM = Substr ($ DOM, 11, Strlen ($ DOM) -11);}} (strcmp ("www Substr ($ DOM, 0, 4)) == 0) {$ DOM = SUBSTR ($ DOM, 4, Strlen ($ DOM) -4);} // if $ domt is blank kiln Try to Get IT $ FOUND = 0; if ($ domt == ") {// Treat .Name Slightly Differently IF (Substr ($ DOM, STRLEN ($ DOM) -5, 5) ==" Name ") {$ DOMT = ".name"; $ DOM = SUBSTR ($ DOM, 0, Strlen); $ found = 1;} else {// Get Domain Extension by Taking Everything from first '.' $ POS = Strpos $ DOM, "."); IF (is_integer ($ POS)) {$ PDOMT = Substr ($ DOM, $ POS, Strlen ($ DOM) - $ POS);} for ($ index = 0; $ index Strtok (","); break;}}}}}}}}}}}} ($ serv == ") {return (2); // Domain type not recognod} $ available = 0; // address for domains that late nois server but in Domains That Have nois Server But Use a script to perform lookup. // Whois server is actually a function name flagged with a * as the first character Which We Remove. IF (Substr ($ serv, 0, 1)! = "*") {// EXEC ( "WHOIS-H $ SERV $ DOMT", $ Regdetails, $ RETURNVALUE); // EXEC ("FWhois $ DOM $ DOMT @ $ SERV", $ Regdetails, $ RETURNVALUE); $ r = WH ($ serv, $ Dom. $ DOMT, $ regdetails;} else {$ func = SUBSTR ($ Serv, 1, Strlen ($ serv) -1); Return ($ FUNC ($ DOM, $ DOMT, $ regDetails); // Return Direct from Handling Function} $ NOSERV2 = 0; IF ($ regdetails == "*") {$ regdetails = ""; $ noserv2 = 1;} // if checking .com or .net the also try whois .NET INSTEAD IF FAILD IF (($ DOMT == ") || ($ DOMT ==" ($ DOMT == "))) {IF (($ regdetails <= 1) || ($ r == 0) ) {$ R. = wh ("Whois.Internic.Net", $ DOM. $ DOMT, $ regdetails; if (($ regdetails) <= 1) || ($ r == 0 )) Return (5); // no connection of blocked etc for .com or .net}} = f (($ regdetails) == 0) || ($ RSCK == 0)) {Return (5); // No Connection to Whois Server Made} $ serv2 = ""; for ($ index = 0; $ index IF (IS_INTEGER ($ POS)) {$ available = 1;}}} ($ available == 1) {return (0); // Domain is not registered} if ($ NOSERV2 == 1) Return (1); // Return Now As Full Whois Not Required for the Following Extensions IF (($ DOMT == ") || ($ DOMT ==" (Net ") || ($ DOMT ==") | ($ DOMT == ")) {IF ($ serv2! =") {// EXEC ("WHOIS -H $ Serv2 $ DOM $ DOMT", $ Regdetails, $ RETURNVALUE); // EXEC ( "FWhois $ DOM $ DOMT @ $ serv2", $ Regdetails, $ RETURNVALUE); $ RSCK = WH ($ serv2, $ dom. $ domt, $ regdetails2); // if checking.com or .net and whois fails kil Whois.Networksolutions.com IF (($ regdetails2) <= 1) || ($ RSCK == 0)) {IF (($ DOMT == ") || ($ DOMT ==". Net ")) {$ RSCK = WH (" Whois.NetworkSolutions.com ", $ DOM. $ DOMT, $ regdetails2);}} f (($ regdetails2) <= 1) || ($ r == 0 )) {RETURN (1); // no connection to second WHOIS Server Made But Return That Domain is registered} $ regdetails = $ regdetails2;}} Return (1); // Domain is registered} Function WH ($ serv, $ dom, & $ regdet) {$ regdet = "; $ connection = @ fsockopen ($ serv, 43, $ errorno, $ errorDesc); if ($ Connection) {FPUTS ($ Connection, "$ DOM / R / N"); While (! Feof ($ connection) {$ regdet [] = fgets ($ connection, 255);} fclose ($ connection); Return (1);} else return (0); Function checkreferr () {global $ http_referer, $ allowed; if ($ allowed == ") {RETURN (1); // Don't Care Who Called US} $ REF = STRTOLOWER ($ http_refere); $ allowed = strtolower ($ allowed); $ reall = split (",", $ allowed, 100); for ($ index = 0; $ index Function Checkvaliddomain ($ DOM, $ DOMT) {$ DOM = STRTOLOWER ($ DOM); $ DOMT = STRTOLOWER ($ DOMT); // Handle .Name SEPERATELY IF ($ DOMT == ") {$ first = STRTOK ($ DOM, "."); $ last = strtok ("."); if (EREG ("^ [- A-ZA-ZA-Z0-9] {1,63} $", $ first)! = TRUE) Return (0); IF ($ first [0] == "-") || ($ first [Strlen ($ first) -1] == "-")) Return (0); if (EREG (" ^ [- A-ZA-Z0-9] {3,63} $ ", $ last)! = true) return (0); if ($ Last [0] ==" - ") || ($ Last [Strlen ($ last) -1] == "-")) Return (0); return (1);} // .ac.uk, .gov.uk, .ltd.uk, .plc.uk and. Sch.uk Do Not ALLOW 1 Character Domain Names IF (($ DOMT == ") || ($ DOMT ==". Gov.uk ") || ($ DOMT ==". Ltd.uk ") || ($ DOMT ==". PLC.UK ") || ($ DOMT ==". Sch.uk ")) {IF (Strlen ($ DOM) <= 1) Return (0);} / / .co.uk, .me.uk, .org.uk and .net.uk do not allow 1 Character Domain names IF (($ domt == ". co.uk") || ($ domt == ". Me.uk ") || ($ domt ==". Org.uk ") || ($ DOMT ==". Net.uk ")) {IF (Strlen ($ DOM) = 2) Return (0) } // .info and .biz Dont Allow 1 and 2 Character Domain Names IF (($ DOMT == ") || ($ DOMT =="))) {IF (Strlen <= 2) Return (0);} // all Other Domain Extensions IF (EREG ("^ [- a-ZA-ZA-Z0-9] {1,63} $", $ DOM)! = true) return (0); if (($ DOM [0] == "-") || ($ DOM [Strlen ($ DOM) -1] == "-")) Return (0); return (1); Function Sendtohost ($ HOST, $ Method, $ PATH, $ DATA, & $ BUF, $ Useragent = 0) {// Supply a Default Method of get if the one passed WAS EMPTY IF (Empty ($ Method) $ METHOD = 'Get'; $ method = strtoupper ($ method); $ fp = fsockopen ($ Host, 80); if ($ Method == 'get') $ PATH. = '?'. $ Data; fputs ($ FP, "$ Method $ PATH HTTP / 1.1 / N"); FPUTS ($ FP, "Host: $ Host / N"); FPUTS ($ FP, "Content-Type: Application / X-WWW-FORM-URLENCODED / N" FPUTS ($ FP, "Content-Length:": ". Strlen ($ data)." / N "); if ($ Useragent) FPUTS ($ FP," User-Agent: Msie / N "); FPUTS ($ FP, "Connection: Close / N / N"); if ($ Method == 'POST') FPUTS ($ FP, $ DATA); While (! Feof ($ fp)) $ buf [] = fgets ($ fp) , 128); Fclose ($ FP); Return $ BUF;} Function Sendtohost2 ($ Host, $ Method, $ PATH, $ DATA, & $ BUF, $ Useragent = 0) {// Reads WebPage in One Big Buffer // Supply a default method of get if the one passed Was Empty IF (Empty ($ Method)) $ Method = 'get'; $ Method = Strtoupper ($ Method); $ fp = fsocken ($ Host, 80); if ($ Method == 'get') $ PATH. = '?'. $ data; fputs $ FP, "$ Method $ PATH HTTP / 1.1 / N"); FPUTS ($ FP, "Host: $ Host / N"); FPUTS ($ FP, "Content-Type: Application / X-WWW-FORM-URLENCODEDED / N "); FPUTS ($ FP," Content-Length: ". Strlen ($ data)." / n "); if ($ usenergy) FPUTS ($ FP," User-Agent: MSIE / N "); FPUTS ($ FP, "Connection: Close / N / N"); if ($ Method == 'POST') FPUTS ($ FP, $ DATA); $ BUF = FREAD ($ FP, 100000); Fclose ($ FP RETURN $ BUF;} Function MyWhois ($ DOM, $ DOMT, & $ Regd) {$ regdet = ""; sendtohost ('www.mynic.net.my', 'pos',' / mynic / search / dname.cfm ',' DomainName = $ DOM. '& domaintype ='. $ DOMT, $ BUF); $ start = 0; for ($ k = 0; $ k // Now Output Line if not Skipped and already Started IF (($ BUF [$ K])> 1) && ($ START == 1) && ($ SKIP == 0)) $ regdet [] = $ buf [$ K]; $ SKIP = 0;} // Get Rid of One Spurious Output Line $ I = Count ($ regdet); if ($ I> 5) $ regdet [$ I-5] = ""; // IF WHOIS Not Contactable if ($ regdet) == 0) Return (5); // no connection to whois server name $ available = 0; for ($ index = 0; $ index Function Sawhois ($ DOM, $ DOMT, & $ Regdet) {$ regdet = ""; if (! ($ fH = @ fopen ("http://www.saudinic.net.sa/cgi-bin/whois.cgi Domain = "$ dom." & Level = "$ DOMT," R "))) Return (5); $ buf =" "; while (! Feof ($ fh)) $ buf [] = fgets ($ FH, 128); Fclose ($ fh); $ fnd = 0; for ($ k = 0; $ k Function Eswhois ($ DOM, $ DOMT, & $ Regdet) {$ regdet = ""; if (! ($ fH = @ fopen ("http://ineco.nic.es/cgi-bin/consulta.whois?list = Dominios & Key = "$ DOM. $ DOMT." & TIPO = procesar "," R ")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) Return (5); $ BUF =" "; $ BUF = FH, 100000); Fclose ($ FH) $ BUF = EREGI_REPLACE ("", "/ n", $ buf); $ buf = strip_tags ($ buf); $ buf2 = evLode ("/ n", $ buf); $ blankflag = 0; For ($ k = 0; $ k Function FMWhois ($ DOM, $ DOMT, & $ Regdet) {$ regdet = ""; if (! ($ fH = @ fopen ("http://www.dot.fm/whois.cfm?domain=". DOM. $ DOMT, "R")))) Return (5); $ BUF = ""; $ buf = fread ($ fH, 100000); fclose ($ fh); $ buf = strip_tags ($ buf); $ buf2 = ExPlode ("/ n", $ buf); $ blankflag = 0; for ($ k = 0; $ k Function TVWhois ($ DOM, $ DOMT, & $ Regdet) {$ regdet = ""; if (! ($ fH = @ fopen ("http://www.tv/en-def-5e58a43774d2/cgi-bin/multilookup .cgi? Domain = "$ dom." & TV = 1 "," r "))))))) {RETURN (5);} $ buf ="; $ buf = fread ($ fH, 100000); fclose ($ fH $ BUF = Strip_Tags ($ BUF); $ POS = STRPOS ($ BUF, $ DOM. $ DOMT. "Is not available"); if (is_integer ($ pOS)) {$ regdet [] = $ dom. $ "is not available"; $ regdet [] = "full whois for". $ DOMT. "Domains not available"; return (1);} $ POS = STRPOS ($ BUF, $ DOM. $ DOMT. "IS "); if (is_integer ($ pos)) {$ regdet [] = $ DOM. $ DOMT." IS available "; return (0);} $ POS = STRPOS ($ BUF, $ DOM. $ DOMT." IS An available premium name "); IF (is_integer ($ pos)) {$ regdet [] = $ DOM. $ DOMT." is an available premium name "; $ POS = STRPOS ($ BUF," $ ", $ POS $ POS2 = STRPOS ($ BUF, ", $ POS); $ premium = Substr ($ BUF, $ POS 1, $ POS2- $ POS-1); $ premium = EREGI_REPLACE (", "," " $ premium); $ premium = Sprintf ("% 01.2f", $ premium); $ regdet [] = $ premium; return (6);} return (1);} Function DJWHOIS ($ DOM, $ DOMT, & $ Regdet) {$ regdet = ""; sendtohost ('www.dj-domains.com', 'pos ",' / chk / index.php ',' Domain_Name = '. $ DOM, $ BUF); if (count ($ buf) == 0) Return (5); // no connection to whois server name $ available = 0; $ premium = 0; for ($ k = 0; $ K)
