<?php
// Modified from the script found at:
//   http://guildwarsholland.nl/phphulp/testspambot.php
//
// Modified by: MysteryFCM
//    Date: 21-09-2008
//
// Modification corrected by my friend SysAdMini at MalwareDomainList (cheers dude :))
// .... well, it is only my second PHP script, and I didn't write all of this myself hehe.

function checkSpambots($mail,$ip,$name){
    $sfsspambot = false;
    $fslspambot = false;
    $spambot = false;
    echo 'Checking fSpamList ....<br />';
    //check the e-mail address against fSpamlist
    $xml_string = file_get_contents('http://www.fspamlist.com/xml.php?email='.$mail);
    $xml = new SimpleXMLElement($xml_string);
    if($xml->Email == 'True'){
        $fslspambot = true;
        echo '<span style="color: #ff0000">E-mail found in: fSpamList</span><br />';
    }elseif($fslspambot != true){
        //e-mail not found in the database, now check the ip
        $xml_string = file_get_contents('http://www.fspamlist.com/xml.php?ip='.$ip);
        $xml = new SimpleXMLElement($xml_string);
        if($xml->IP == 'True'){
            $fslspambot = true;
            echo '<span style="color: #ff0000">IP found in: fSpamList</span><br />';
        }elseif($fslspambot != true){
            // IP not found, lets check the username
            $xml_string = file_get_contents('http://www.fspamlist.com/xml.php?username='.$name);
            $xml = new SimpleXMLElement($xml_string);
            if($xml->Username == 'True'){
                $fslspambot = true;
                echo '<span style="color: #ff0000">Username found in: fSpamList</span><br />';
            }
        }
    }
    echo 'fSpamList checked....<br />';
    echo 'Checking StopForumSpam ....<br />';
    //check the e-mail address against StopForumSpam
    $sfsxml_string = file_get_contents('http://www.stopforumspam.com/api?email='.$mail);
    $sfsxml = new SimpleXMLElement($sfsxml_string);
    // Used for debugging
    //$sfsxml_string = str_replace("<", "&lt;", $sfsxml_string);
    //$sfsxml_string = str_replace(">", "&gt;", $sfsxml_string);
    //echo $sfsxml_string;
    //echo '<br />';
    // END Used for debugging
    if($sfsxml->appears == 'yes'){
        $sfsspambot = true;
        echo '<span style="color: #ff0000">E-mail found in: StopForumSpam</span><br />';
    }elseif($sfsspambot != true){
        //e-mail not found in the database, now check the ip
        $sfsxml_string = file_get_contents('http://www.stopforumspam.com/api?ip='.$ip);
        $sfsxml = new SimpleXMLElement($sfsxml_string);
        if($sfsxml->appears == 'yes'){
            $sfsspambot = true;
            echo '<span style="color: #ff0000">IP found in: StopForumSpam</span><br />';
        }elseif($sfsspambot != true){
            // IP not found, lets check the username
            $sfsxml_string = file_get_contents('http://www.stopforumspam.com/api?username='.$name);
            $sfsxml = new SimpleXMLElement($sfsxml_string);
       if($sfsxml->appears == 'yes'){
                $sfsspambot = true;
                echo '<span style="color: #ff0000">Username found in: StopForumSpam</span><br />';
      }
        }
    }
    echo 'StopForumSpam Checked ....<br />';
    // create a .txt file with the info of the spambot, if this one already exists, increase its amount of try's
    if($sfsspambot == true){
        $spambot = true;
        $file = str_replace("*", "", $mail);
        if(file_exists('spambots/sfs_'.$file.'.txt')){
            $spambot_old_info = file_get_contents('spambots/sfs_'.$file.'.txt');
            $spambot_old_info = explode(',',$spambot_old_info);
            $spambot_old_info[2] = $spambot_old_info[2]+1;
            $spambot_old_info = implode(',',$spambot_old_info);
            file_put_contents('spambots/sfs_'.$file.'.txt',$spambot_old_info);
        }else{
            $spambot_info = $ip.','.$name.',1';
            file_put_contents('spambots/sfs_'.$file.'.txt',$spambot_info);
        }
    }
    if($fslspambot == true){
        $spambot = true;
        $file = str_replace("*", "", $mail);
        if(file_exists('spambots/fsl_'.$file.'.txt')){
            $spambot_old_info = file_get_contents('spambots/fsl_'.$file.'.txt');
            $spambot_old_info = explode(',',$spambot_old_info);
            $spambot_old_info[2] = $spambot_old_info[2]+1;
            $spambot_old_info = implode(',',$spambot_old_info);
            file_put_contents('spambots/fsl_'.$file.'.txt',$spambot_old_info);
        }else{
            $spambot_info = $ip.','.$name.',1';
            file_put_contents('spambots/fsl_'.$file.'.txt',$spambot_info);
        }
    }
    return $spambot;
}
if(isset($_GET['email'])){
    $spambot = checkSpambots($_GET['email'],$_GET['ip'],$_GET['name']);
    if($spambot == true){
        echo '<span style="color: #ff0000">Spammer identified!</span>';
    }else{
        echo 'Nope, it\'s not a spammer';
    }
}else{
   echo 'Enter the e-mail AND username (or IP) you\'d like to check (only the e-mail is mandatory)';
}
?>
<form method='GET' name='checkspamdb'>
Name: <input type='text' name='name' value='<?php if(isset($_GET['name'])){echo $_GET['name'];} ?>'><br>
E-mail: <input type='text' name='email' value='<?php if(isset($_GET['email'])){echo $_GET['email'];} ?>'><br>
IP: <input type='text' name='ip' value='<?php if(isset($_GET['ip'])){echo $_GET['ip'];} ?>'><br>
<input type='submit' name='submit' value='check'>
</form>

   '// Blacklists
   Function IsUserBlacklisted(sIP, sName, sEMail)
      '// We need to make sure we can actually create the MSXML object
      If IsObject(CreateObject("MSXML2.ServerXMLHTTP")) = False Then IsUserBlacklisted = "Error: MSXML2.ServerXMLHTTP could not be created, please check MSXML is installed (v6 or above is recommended)": Exit Function
      '// Set init bool to false
      bBlacklisted = False
      set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
      objXMLHTTP.open "GET", "http://www.stopforumspam.com/api?username=" & sName & "&email=" & sEMail & "&ip=" & sIP, false
      objXMLHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_HOST")
      objXMLHTTP.send ""
      if objXMLHTTP.status = 200 then
         If Instr(1, objXMLHTTP.ResponseText, " yes ", vbTextCompare) > 0 Then bBlacklisted = True
      end if
      set objXMLHTTP = nothing
      '// Check fSpamList.com
      set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
      objXMLHTTP.open "GET", "http://www.fspamlist.com/xml.php?username=" & sName & "&ip=" & sIP & "&email=" & sEMail, false
      objXMLHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_HOST")
      objXMLHTTP.send ""
      if objXMLHTTP.status = 200 then
         If Instr(1, objXMLHTTP.ResponseText, "True", vbTextCompare) > 0 Then bBlacklisted = True
      end if
      set objXMLHTTP = nothing
      IsUserBlacklisted = bBlacklisted
   End Function

<?

include("config.php");

?>
<html>

<head>
<title><? echo $page_title ?></title>
</head>

<body>

<table align="center" cellpadding="2" cellspacing="0" style="border: <? echo $border ?> solid 0px;" width="100%">
  <tr>
    <td><table border="0" align="center" cellpadding="2" cellspacing="0" style="border: <? echo $border ?> solid 1px;" width="100%">
      <tr>
        <td align="center" bgcolor="<? echo $header_title_bg ?>" style="border: <? echo $border ?> solid 0px;" background="<? echo $header_title_image ?>" height="30" width="100%"><font size="4" color="<? echo $header_title_text ?>" face="<? echo $font ?>">&nbsp;<b>SpamBot Search Tool</b>&nbsp;</font></td>
      </tr>
      <tr>
        <td align="center" valign="top" bgcolor="<? echo $body_bg ?>" style="border: <? echo $border ?> solid 0px; border-top-width: 1px;"><div align="center"><table border="0" cellpadding="4" cellspacing="0" width="100%">
         <tr>
            <td>
           
            <? include("check_spammers.php"); ?>
           
            </td>
          </tr>
        </table>
        </div></td>
      </tr>
      <tr>
        <td align="center" bgcolor="<? echo $footer_title_bg ?>" style="border: <? echo $border ?> solid 0px; border-top-width: 1px;" height="24"><font size="1" color="<? echo $footer_title_text ?>" face="<? echo $font ?>"><b>Copyright © <?php echo $CopyrightYear; ?> MysteryFCM</b></font></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</body>
</html>

<?php

$page_title='SpamBot Search Tool';
$border='#000000';
$header_title_image='http://your_website.com/path/to/tile_back.gif';
$header_title_bg='#E7E9EB';
$footer_title_bg='#EFEFEF';
$body_bg='#EEEEEE';
$header_title_text='#000000';
$footer_title_text='#000000';
$font='Verdana, Arial, Helvetica, sans-serif';
$Year = date('Y');
if ($Year > 2008) {
$CopyrightYear = "2008 - $Year";
}
else {
$CopyrightYear = $Year;
}

?>