This program is
http://forum.thegamecreators.com/?m=forum_view&t=103795&b=6
with many changes and optimizations.
My description there:
Quote: "
What this program does is generate random (invalid) Email addresses and use them to create a outputted HTML file that tricks spam bots into thinking that the addresses are real.The spammers' list of email addresses is then filled with garabage The HTML is saved as output.html. To use the output save the outputted html file on your website and link to it.
"
It is now 14 lines
It can now generate an infinite amount of email addresses
It now uses real words to generate the email addresses
It has a longer list of ISPs that it can use to generate the email addresses
It now generates text between the email addresses
And now the code:
randomize timer(): : OPEN TO WRITE 1,"output.html" : do : plus$ = "" : plus$ = plus$ + "<a href='" : plus$ = plus$ + "mailto:" : for t= 1 to rnd(30) : rand = rnd(72) : gosub cooldat : next t : plus$ = plus$ + "@" : rand = rnd(7) : if rand = 0 : plus$ = plus$ + "gmail.com" : endif : if rand = 1 : plus$ = plus$ + "yahoo.com" : endif : if rand = 2 : plus$ = plus$ + "hotmail.com" : endif : if rand = 3 : plus$ = plus$ + "aol.com" : endif : if rand = 4
plus$ = plus$ + "msn.com" : endif : if rand = 5 : plus$ = plus$ + "qwest.net" : endif : if rand = 6 : plus$ = plus$ + "mail.com" : endif : if rand = 7 : plus$ = plus$ + "hushmail.com" : endif : plus$ = plus$ + "'>" : for t= 1 to rnd(30) : rand = rnd(72) : gosub cooldat : next t : plus$ = plus$ + "</a>" : WRITE STRING 1,plus$ : print plus$ : for t = 1 to rnd(30) : for t = 1 to rnd(30) : plus$ = "" : rand = rnd(72) : gosub cooldat : WRITE STRING 1,plus$
print plus : next t : next t : loop : cooldat: : if rand = 0 : plus$ = plus$ + "Mexican" : endif : if rand = 1 : plus$ = plus$ + "Wolf" : endif : if rand = 2 : plus$ = plus$ + "A" : endif : if rand = 3 : plus$ = plus$ + "captive" : endif : if rand = 4 : plus$ = plus$ + "Mexican" : endif : if rand = 5 : plus$ = plus$ + "Wolf" : endif : if rand = 6 : plus$ = plus$ + "Canis"
endif : if rand = 7 : plus$ = plus$ + "lupus" : endif : if rand = 8 : plus$ = plus$ + "Mexican" : endif : if rand = 9 : plus$ = plus$ + "bailey" : endif : if rand = 10 : plus$ = plus$ + "at" : endif : if rand = 11 : plus$ = plus$ + "the" : endif : if rand = 12 : plus$ = plus$ + "National" : endif : if rand = 13 : plus$ = plus$ + "Sevilleta" : endif : if rand = 14 : plus$ = plus$ + "Wildlife" : endif
if rand = 15 : plus$ = plus$ + "Refuge" : endif : if rand = 16 : plus$ = plus$ + "New" : endif : if rand = 17 : plus$ = plus$ + "Mexico" : endif : if rand = 18 : plus$ = plus$ + "USA" : endif : if rand = 19 : plus$ = plus$ + "This" : endif : if rand = 20 : plus$ = plus$ + "critically" : endif : if rand = 21 : plus$ = plus$ + "endangered" : endif : if rand = 22 : plus$ = plus$ + "subspecies" : endif : if rand = 23
plus$ = plus$ + "of" : endif : if rand = 24 : plus$ = plus$ + "the" : endif : if rand = 25 : plus$ = plus$ + "Gray" : endif : if rand = 26 : plus$ = plus$ + "Wolf" : endif : if rand = 27 : plus$ = plus$ + "once" : endif : if rand = 28 : plus$ = plus$ + "ranged" : endif : if rand = 29 : plus$ = plus$ + "from" : endif : if rand = 30 : plus$ = plus$ + "central" : endif : if rand = 31 : plus$ = plus$ + "Mexico"
endif : if rand = 32 : plus$ = plus$ + "to" : endif : if rand = 33 : plus$ = plus$ + "the" : endif : if rand = 34 : plus$ = plus$ + "Southwestern" : endif : if rand = 35 : plus$ = plus$ + "United States" : endif : if rand = 36 : plus$ = plus$ + "In" : endif : if rand = 37 : plus$ = plus$ + "1980" : endif : if rand = 38 : plus$ = plus$ + "the" : endif : if rand = 39 : plus$ = plus$ + "last" : endif
if rand = 40 : plus$ = plus$ + "five" : endif : if rand = 41 : plus$ = plus$ + "known" : endif : if rand = 45 : plus$ = plus$ + "surviving" : endif : if rand = 46 : plus$ = plus$ + "members" : endif : if rand = 47 : plus$ = plus$ + "were" : endif : if rand = 48 : plus$ = plus$ + "captured" : endif : if rand = 49 : plus$ = plus$ + "to" : endif : if rand = 50 : plus$ = plus$ + "save" : endif : if rand = 51
plus$ = plus$ + "the" : endif : if rand = 52 : plus$ = plus$ + "species" : endif : if rand = 53 : plus$ = plus$ + "Now" : endif : if rand = 54 : plus$ = plus$ + "over" : endif : if rand = 55 : plus$ = plus$ + "300" : endif : if rand = 56 : plus$ = plus$ + "wolves" : endif : if rand = 57 : plus$ = plus$ + "are" : endif : if rand = 58 : plus$ = plus$ + "taking" : endif : if rand = 59 : plus$ = plus$ + "part"
endif : if rand = 60 : plus$ = plus$ + "in" : endif : if rand = 61 : plus$ = plus$ + "a" : endif : if rand = 62 : plus$ = plus$ + "wolf" : endif : if rand = 63 : plus$ = plus$ + "reintroduction" : endif : if rand = 64 : plus$ = plus$ + "program" : endif : if rand = 65 : plus$ = plus$ + "with" : endif : if rand = 66 : plus$ = plus$ + "at" : endif : if rand = 67 : plus$ = plus$ + "least" : endif
if rand = 68 : plus$ = plus$ + "fifty" : endif : if rand = 69 : plus$ = plus$ + "individuals" : endif : if rand = 70 : plus$ = plus$ + "in" : endif : if rand = 71 : plus$ = plus$ + "the" : endif : if rand = 72 : plus$ = plus$ + "wild" : endif : return
