Free SPAM program (add yourself to the idiot list)

JokeTribe - THE Best College Humor Archive of Funny Jokes

HERE IT IS: ABSOLUTELY FREE



Spam as many groups as you want with one command. Can post same
message to 14,000 groups in just a few hours.



Must have UNIX shell account, the attached script, and create two
ascii text files called groups.txt and message.txt. The file
groups.txt should contain a list of all groups you want to spam, one
per line. If you want to hit everything, you can just copy your
newsrc file, but you'll have to remove all index numbers and end of
line punctuation. The message.txt file is the actual message you want
to spam. It must contain the subject header on the first line, ie:
Subject: Spamming is Fun.



You may add in other headers, such as Organization, Paths, Reply to,

etc, but none are required. Do NOT put in a newsgroup header. The
script does that automatically. There must be a blank line between
the last header and the start of the actual message.



Then, download those two files plus the following script (call it
spamming.fun) to your home directory on the Unix shell account, type
"perl spamming.fun", and sit back to watch the fireworks.




-----------------------------------Cut Here--------------------



#!perl
#Assumes both Perl and Inews are accessible through
#your home directory. If not, either place them in your path
#or adjust the script.
#You must also have a ascii text file called groups.txt, which
#contains a list of each group you want to spam. One to a line.
#No punctuation at end of line.
#Your spam message must be called message.txt, and it should
#be in ascii. The first line must be you subject header:
# For example: Subject: this is a spam.
# You may add in other headers if you wish, but there must be a
#blank line before your actual message begins.
#run program by typing "perl spam.pl.
#
#
#!perl
print "Running...
";
$newsrc =
"$ENV{'HOME'}/testgrps.txt";
open(GROUPS, "$newsrc");
while($group=)
{print "Posting to: $group";
open(NEWS,"|inews -h");
print NEWS "Newsgroups: $group";
open(MESSAGE, "message.txt");
while($line=) {
print NEWS $line;
}
close NEWS;
if($?==0) { $success++ }
else { $fail++
}}$total = $success + $fail;print "Tried to post to $total
groups.
$success OK, $fail failed.
";

If you like what we have for you here on JokeTribe, please do consider donating to us. Any amount, even a small one, would truly be helpful.

 

About JokeTribe


These all are jokes that we've had the good fortune of having other people email to us or we've retrieved off the Internet. Over time, we've sent them on to the subscribers of our various jokes lists. Since we're talking some ten years of managing these emails lists, we've built up a pretty sizeable (and FUNNY) collection of jokes. They cover pretty much any category and topic that you can imagine; from clean jokes to dirty jokes and most everything in between, including the much loved lawyer jokes and the blonde jokes and the yo mama jokes as well as those redneck jokes. Remember, we did NOT author them, but we did take the time to convert the text files to html.

If you are certain of the authorship of any of these, email us the author's name along with relevant information on how we can verify that they truly are the author so we can give them the credit that they deserve.