perlスクリプト⇒phpスクリプト移植要望スレ

>>483

if (dsbl($_SERVER['REMOTE_ADDR'])) {
    echo '<span class="alert">LISTされてますよ（￣ー￣）ﾆﾔﾘｯ</span><em>
    <a href="http://dsbl.org/listing?' . htmlspecialchars($_SERVER['REMOTE_ADDR']) . '">more details</a></em><br>';
} else {
    echo '<span class="safe">まだ大丈夫。(^o^)</span><br>';
} 

function dsbl($dnsbl_target) {
   $dnsbl_check = array('list.dsbl.org',
                      // 'niku.2ch.net'
                       );
   if ($dnsbl_target) {
       $rip = implode('.', array_reverse(explode('.', $dnsbl_target)));
       for ($i = 0; $i < count($dnsbl_check); $i++) {
           if (checkdnsrr($rip . "." . $dnsbl_check[$i] . '.', 'A')) {
               $listed .= $dnsbl_check[$i] . ' ';
           }
         }
       if ($listed) { return $listed; } else { return false; }
   }
}