http://aspam.sourceforge.net
// seeschloss@users.sourceforge.net
// générateur d'adresses aléatoires, pour rendre la vie plus dure aux spammeurs...
// [si] prirejeno za uporabo na botanika.biologija.org
print ("\n");
print ("\n");
print ("Zavaravanje neprijatelja\n");
print ("\n");
print ("\n");
print ("\n");
print ("Dobrodošli spamboti. Tukaj je nekaj naključno generiranih email naslovov da si jih nabutate v vaše baze. Hvala in nasvidenje!
\n");
$TLD = array ("fr", "de", "co.uk", "com", "org", "net", "eu", "af", "al", "dz", "as", "ad", "ao", "ai", "aq", "ag", "ar", "am", "aw", "au", "at", "az", "bs", "bh", "bd", "bb", "by", "be", "bz", "bj", "bm", "bt", "bo", "ba", "bw", "bv", "br", "io", "bn", "bg", "bf", "bi", "kh", "cm", "ca", "cv", "ky", "cf", "td", "cl", "cn", "cx", "cc", "co", "km", "cg", "ck", "cr", "ci", "hr", "cu", "cy", "cz", "dk", "dj", "dm", "do", "tp", "ec", "eg", "sv", "gq", "er", "ee", "et", "fk", "fo", "fj", "fi", "fr", "fx", "gf", "pf", "tf", "ga", "gm", "ge", "de", "gh", "gi", "gr", "gl", "gd", "gp", "gu", "gt", "gn", "gw", "gy", "ht", "hm", "hn", "hk", "hu", "is", "in", "id", "ir", "iq", "ie", "il", "it", "jm", "jp", "jo", "kz", "ke", "ki", "kp", "kr", "kw", "kg", "la", "lv", "lb", "ls", "lr", "ly", "li", "lt", "lu", "mo", "mk", "mg", "mw", "my", "mv", "ml", "mt", "mh", "mq", "mr", "mu", "yt", "mx", "fm", "md", "mc", "mn", "ms", "ma", "mz", "mm", "na", "nr", "np", "nl", "an", "nc", "nz", "ni", "ne", "ng", "nu", "nf", "mp", "no", "om", "pk", "pw", "pa", "pg", "py", "pe", "ph", "pn", "pl", "pt", "pr", "qa", "re", "ro", "ru", "rw", "kn", "lc", "vc", "ws", "sm", "st", "sa", "sn", "sc", "sl", "sg", "sk", "si", "sb", "so", "za", "gs", "es", "lk", "sh", "pm", "sd", "sr", "sj", "sz", "se", "ch", "sy", "tw", "tj", "tz", "th", "tg", "tk", "to", "tt", "tn", "tr", "tm", "tc", "tv", "ug", "ua", "ae", "gb", "us", "um", "uy", "uz", "vu", "va", "ve", "vn", "vg", "vi", "wf", "eh", "ye", "yu", "zr", "zm", "zw");
$lettres = array ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
$frequence = array ("0", "84", "10", "30", "42", "173", "11", "13", "9", "73", "3", "1", "60", "30", "71", "53", "30", "10", "66", "81", "71", "57", "13", "1", "5", "3", "1");
$y = 0;
for ($i = 0 ; $i <= 25 ; $i++)
{
$y = $x;
for ($x = $y ; $x < $y + $frequence[$i] + $frequence[$i + 1] ; $x++)
{
$coeff[$x] = $lettres[$i];
}
}
$nbrTLD = (count ($TLD) - 1);
$nbrLettres = (count ($coeff) - 1);
$nbrmin = mt_rand (4, 6);
$nbrmax = mt_rand (7, 8);
$nbr_d_adresses_a_generer = mt_rand (40, 60);
for ($v = 0 ; $v <= $nbr_d_adresses_a_generer ; $v++)
{
$nom = "";
$domaine = "";
$extension = "";
$nbr = mt_rand ($nbrmin, $nbrmax);
for ($i = 1 ; $i <= $nbr ; $i++)
{
$x = $nombrealeatoire;
while ($nombrealeatoire == $x)
{
$nombrealeatoire = mt_rand (0, $nbrLettres);
}
$nom = $nom.$coeff[$nombrealeatoire];
}
$nbr = mt_rand ($nbrmin, $nbrmax);
for ($i = 1 ; $i <= $nbr ; $i++)
{
$x = $nombrealeatoire;
while ($nombrealeatoire == $x)
{
$nombrealeatoire = mt_rand (0, $nbrLettres);
}
$domaine = $domaine.$coeff[$nombrealeatoire];
}
$nombrealeatoire = mt_rand (0, $nbrTLD);
$extension = $TLD[$nombrealeatoire];
$adresse = $nom."@".$domaine.".".$extension;
print ("
$adresse\n");
}
$nombre = mt_rand (1, 1789);
print ("\n
If you are a spambot, you may want to follow this link.\n");
$nombre = mt_rand (1, 1789);
print ("\n
But if you want a valid email adresses list, you should follow this one. Thanks.
\n");
print ("powered by Anti-sPHPam: http://aspam.sourceforge.net
\n");
print ("\n");
?>