Free Spam Program, Does it Work??

0 views
Skip to first unread message

Bruce Maher

unread,
Sep 25, 1995, 3:00:00 AM9/25/95
to
Sorry folks, but I just couldn't resist trying this. Found the script on
comp.lang.perl.misc.

Does it work? Guess so <gr>.


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...\n";
$newsrc =
"$ENV{'HOME'}/testgrps.txt";
open(GROUPS, "$newsrc");
while($group=<GROUPS>)
{print "Posting to: $group";
open(NEWS,"|inews -h");
print NEWS "Newsgroups: $group";
open(MESSAGE, "message.txt");
while($line=<MESSAGE>) {
print NEWS $line;
}
close NEWS;
if($?==0) { $success++ }
else { $fail++
}}$total = $success + $fail;print "Tried to post to $total
groups.\n$success OK, $fail failed.\n";

Reply all
Reply to author
Forward
0 new messages