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 "";
} 