DevTek.Org 
Your PHP Solutions Resource 









Source Code for RandMail

Make sure you copy all the code for each file and paste it into a file with the same name I've provided.

This is the source of: index.php
This is the only file you'll really need.

<?php
//Title:                RandMail
//Filename:             randmail.php
//Function:             Creates a nasty spammer honeypot
//Date last modified:   8 Nov 04
//Coder:                Leif Gregory
//Website:              http://www.devtek.org/randmail
//E-mail:               leif@devtek.org

//Copyright (C) 2004  Leif Gregory

//This program is free software; you can redistribute it and/or
//modify it under the terms of the GNU General Public License
//as published by the Free Software Foundation; either version 2
//of the License, or (at your option) any later version.

//This program is distributed in the hope that it will be useful,
//but WITHOUT ANY WARRANTY; without even the implied warranty of
//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//GNU General Public License for more details.

//You should have received a copy of the GNU General Public License
//along with this program; if not, write to the Free Software
//Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.


$generateNumber "50"#number of addresses to generate
$userNameMin    "4"#Everything before the @ symbol
$userNameMax    "12"#Everything before the @ symbol
$hostNameMin  "4"#Everything after the @ symbol but before the .com, .net etc.
$hostNameMax  "12"#Everything after the @ symbol but before the .com, .net etc.

for ($i=0$i<$generateNumber$i++)
{
  
$userLength rand($userNameMin,$userNameMax);
  
$hostLength rand($hostNameMin,$hostNameMax);

  for (
$j=0$j<$userLength$j++)
  {
    
$upperLowerNumber rand(1,10);
  
    if (
$upperLowerNumber 9)          #Uppercase letters if 10
      
$gimmeLetter chr(rand(65,90));
    elseif (
$upperLowerNumber 8)      #Lowercase letters if 0 - 7
      
$gimmeLetter chr(rand(97,122));
    else 
    {
      
//Making sure a number doesn't become the first character of the username
      
if ($userName != ""
        {
          
$gimmeLetter rand(0,9);     #Numbers if an 8 or 9
        
}
      else
        
$j--;
    }
    
    
//Building the username one character at a time
    
$userName .= $gimmeLetter
    
$gimmeLetter="";
  } 
  
  for (
$j=0$j<$hostLength$j++)
  {
    
$upperLowerNumber rand(1,10);
  
    if (
$upperLowerNumber 9)          #Uppercase letters if 10
      
$gimmeLetter chr(rand(65,90));
    elseif (
$upperLowerNumber 8)      #Lowercase letters if 0 - 7
      
$gimmeLetter chr(rand(97,122));
    else 
    {
      
//Making sure a number doesn't become the first character of the hostname
      
if ($hostName != ""
        {
          
$gimmeLetter rand(0,9);
        }
      else
        
$j--;
    }    
    
    
//Building the hostname one character at a time
    
$hostName .= $gimmeLetter
    
$gimmeLetter="";
  } 
  
  
//Based on the last random numeber between 1 - 10 we're picking a domain
  
switch($upperLowerNumber)
  {
    case 
"1":
      
$domainName ".com";
      break;
    case 
"2":
      
$domainName ".net";
      break;
    case 
"3":
      
$domainName ".org";
      break;
    case 
"4":
      
$domainName ".ru";
      break;
    case 
"5":
      
$domainName ".tw";
      break;
    case 
"6":
      
$domainName ".edu";
      break;
    case 
"7":
      
$domainName ".gov";
      break;
    case 
"8":
      
$domainName ".mil";
      break;
    case 
"9":
      
$domainName ".us";
      break;
    case 
"10":
      
$domainName ".uk";
      break;
  }  

  
//Let's hook them spammers up!
  //We're using str_shuffle() to mix up the username and hostname so they don't 
  //match the mailto: address. Then we're using the shuffled names to look like 
  //first and last names.
  //You'll end up with something like this: rI3o yqjflfiqv e-mail
  //and where is says e-mail you'll have a hyperlink: mailto:I3or@vjqqyffil.net
  
echo str_shuffle($userName) . " " str_shuffle($hostName) . 
       
" <a href=mailto:" $userName "@" $hostName $domainName 
       
">e-mail</a><br>";
  
  
$userName="";
  
$hostName="";
}
echo 
'<a href="' htmlentities($_SERVER['PHP_SELF']) . '">Some more?</a>';
?>

This is the source of: site.css
You don't need to edit this page, but if you'd like to change the colors and such, you're more than welcome.

body {
    background: #FFFFFF;
    color: Black;
    font-family: Tahoma, Arial, sans-serif;
    font-size: 12px;
}

h2 { border-bottom: 3px solid red; }
table { border: 3px outset #ffcc00; }

p.pagetitle {
    color: #483D8B;
    font-size: xx-large;
    background: #ffcc00;
    font-weight: bold;
}

p.pagesubtitle {
    color: #7B68EE;
    font-size: x-large;
}

td.main {
    border: 3px green;    
    font-size: small;
    background-color: #7B68EE;
}

p.nav {
    font-size: small;
    background-color: #FFFFFF;
  border: 2px Black;
}

td.nav {
    font-size: small;
    background-color: #FFFFFF;
  border: 5px Green;
}

p.inset {
  border-style: inset; 
  padding: 10px;

Copyright 2015
All rights reserved.
Powered by PHP   Powered by PSPad   Powered by MySQL   Last Modified
May 15, 2012 @ 12:51