Arkadaşlar selamlar
2 php dosyasından oluşmaktadır. Site sahipleri veya hostingciler sunucu ip adreslerini ekleyerek , belirli saatlere cronlayarak ip adresleri kara listeye girdiği an bilgi sahibi olabilirler.
(* * * * * blacklistcron.php cronlanacak)

blacklistdetail.php
<?php
    set_time_limit(0);
/***************************************************************************************
This is a simple PHP script to lookup for blacklisted IP against multiple DNSBLs at once.
You are free to use the script, modify it, and/or redistribute the files as you wish.
Homepage: http://dnsbllookup.com
****************************************************************************************/
function flush_buffers(){ 
    ob_end_flush(); 
    flush(); 
    ob_start(); 
} 
function dnsbllookup($ip)
{
    $dnsbl_lookup=array(
"bl.score.senderscore.com",
"bl.mailspike.net",
"bl.spameatingmonkey.net",
"b.barracudacentral.org",
"bl.deadbeef.com",
"bl.emailbasura.org",
"bl.spamcannibal.org",
"bl.spamcop.net",
"blackholes.five-ten-sg.com",
"blacklist.woody.ch",
"bogons.cymru.com",
"cbl.abuseat.org",
"cdl.anti-spam.org.cn",
"combined.abuse.ch",
"db.wpbl.info",
"dnsbl-1.uceprotect.net",
"dnsbl-2.uceprotect.net",
"dnsbl-3.uceprotect.net",
"dnsbl.inps.de",
"dnsbl.sorbs.net",
"drone.abuse.ch",
"drone.abuse.ch",
"duinv.aupads.org",
"dul.dnsbl.sorbs.net",
"dul.ru",
"dyna.spamrats.com",
"dynip.rothen.com",
"http.dnsbl.sorbs.net",
"ips.backscatterer.org",
"ix.dnsbl.manitu.net",
"korea.services.net",
"misc.dnsbl.sorbs.net",
"noptr.spamrats.com",
"ohps.dnsbl.net.au",
"omrs.dnsbl.net.au",
"orvedb.aupads.org",
"osps.dnsbl.net.au",
"osrs.dnsbl.net.au",
"owfs.dnsbl.net.au",
"owps.dnsbl.net.au",
"pbl.spamhaus.org",
"phishing.rbl.msrbl.net",
"probes.dnsbl.net.au",
"proxy.bl.gweep.ca",
"proxy.block.transip.nl",
"psbl.surriel.com",
"rbl.interserver.net",
"rdts.dnsbl.net.au",
"relays.bl.gweep.ca",
"relays.bl.kundenserver.de",
"relays.nether.net",
"residential.block.transip.nl",
"ricn.dnsbl.net.au",
"rmst.dnsbl.net.au",
"sbl.spamhaus.org",
"short.rbl.jp",
"smtp.dnsbl.sorbs.net",
"socks.dnsbl.sorbs.net",
"spam.abuse.ch",
"spam.dnsbl.sorbs.net",
"spam.spamrats.com",
"spamlist.or.kr",
"spamrbl.imp.ch",
"t3direct.dnsbl.net.au",
"tor.dnsbl.sectoor.de",
"torserver.tor.dnsbl.sectoor.de",
"ubl.lashback.com",
"ubl.unsubscore.com",
"virbl.bit.nl",
"virus.rbl.jp",
"web.dnsbl.sorbs.net",
"wormrbl.imp.ch",
"xbl.spamhaus.org",
"zen.spamhaus.org",
"zombie.dnsbl.sorbs.net",
    ); // Add your preferred list of DNSBL's
    $AllCount = count($dnsbl_lookup);
    $BadCount = 0;
    if($ip)
    {
        $reverse_ip = implode(".", array_reverse(explode(".", $ip)));
        foreach($dnsbl_lookup as $host)
        {
            if(checkdnsrr($reverse_ip.".".$host.".", "A"))
            {
                
   mail("blacklist@xxx.com", "$ip ip adresi kara listede.", "".$host."! listesinde. http://mxtoolbox.com/SuperTool.aspx?action=blacklist%3a$ip&run=toolpage" );
                echo "<strong><span style='color: red'>Listed on ".$host."!</span></strong><br/>";
                flush_buffers();
                $BadCount++;
            }
           
        }
    }
    else
    {
        echo "Empty ip!<br/>";
        flush_buffers();
    }
    echo "This ip has ".$BadCount." bad listings of ".$AllCount."!<br/>
http://mxtoolbox.com/SuperTool.aspx?action=blacklist%3a$ip&run=toolpage
";
    flush_buffers();
}
if(preg_match("/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\z/",@$_GET['ip']) == true)
{
    dnsbllookup($_GET['ip']);
}
   
?>

blacklistcron.php
<?php
    set_time_limit(0);
$ipList = array(
'1.1.1.1',
'2.2.2.2',
);
foreach($ipList as $ip){ 

$ch = curl_init("http://xxx.com/blacklistdetail.php?ip=" . $ip); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 
$result = curl_exec($ch); 
curl_close($ch);
echo $result; 
echo "";
}