perlスクリプト⇒phpスクリプト移植要望スレat PHP
perlスクリプト⇒phpスクリプト移植要望スレ - 暇つぶし2ch484:nobodyさん
06/02/14 03:30:15 .net
>>483

if (dsbl($_SERVER['REMOTE_ADDR'])) {
    echo '<span class="alert">LISTされてますよ( ̄ー ̄)ニヤリッ</span><em>
    <a href="URLリンク(dsbl.org)' . 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; }
   }
}



次ページ
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch