Re: SPAM from stockhunt needs to stop

["Bill Buckels" <bbuckels@mts.net>]

"Jim" <jim@magrathea.plus.com> wrote in message 
news:slrng90j1u.et9.jim@wotan.magrathea.local...

> Just as a data point, it seems to have stopped here. So either it really 
> has stopped or my usenet provider is filtering it out.

Hi Jim,

Well of course I hope it has too. I am cautiously optimistic and also 
prepared for some interesting replies from these Jerks and I don't have much 
faith in their ability to cut their crap-off that quickly unless it was 
their site administrator that was spamming us. In which case if he isn't the 
owner he may be fired this morning and may retaliate.

> "Sometimes when I talk to a Windows person about using a Mac,I feel like 
> I'm explaining Van Halen to a horse." Merlin Mann

Some things are mutually exclusive like "Military Intelligence" and 
sometimes when I talk to a Mac user about using Unix, I feel like I'm 
explaining God to an atheist.

For those who believe in a higher power and who have already figured-out 
that my posturing as a Linux-basher is a sham of the first order see below 
(it may be time for a resurrection): For those who are as bewildered as I am 
with the current inmactuation with the iPhone also see below...

Bill

"I have always wished for my computer to be as easy to use as my telephone; 
my wish has come true because I can no longer figure out how to use my 
telephone".  Bjarne Stroustrup

x--- snip ---x

#!/usr/local/bin/perl

# ---------------------------------------------------------------------
# Program Name : robomail.pl
# Author       : Bill Buckels
# Date         : January 1997
# Purpose      : Simple Bulk Mailer in Perl for Unix Shell
#
# Revised September 1998 to allow additional commandline options including
#   a repetition loop. I added this so I could send up to 999 copies of
#   a single message to a spammer, to put a load on his ISP and his
#   mailbox, in retaliation for being spammed...
# ---------------------------------------------------------------------

# ---------------------------------------------------------------------
# vars.
# set program defaults
$mailprog    = '/usr/lib/sendmail';
$true  = 1;
$false = 0;
$debug = $false;               # debug mode set from command line
$banner = $true;               # banner in message set from command line
$repetitions = 1;              # send multiple duplicate messages

# ---------------------------------------------------------------------
# print title...
print "ROBOMAIL.PL(C)\n";
print "Version 2.0 Copyright Bill Buckels 1997, 1998\n";
print "---------------------------------------------\n";

# ---------------------------------------------------------------------
# get standard command line args
die "Usage is : robomail sender message.txt database.txt subject 
[options]\n"
unless ($ARGV[0] ne '' &&
        $ARGV[1] ne '' &&
        $ARGV[2] ne '' &&
        $ARGV[3] ne '');

# vars.
$sender    = $ARGV[0];
$message   = $ARGV[1];
$database  = $ARGV[2];
$subject   = $ARGV[3];

# ---------------------------------------------------------------------
# get optional args...
# these are not listed in usage, just added as required...
# too much work to maintain.
# perhaps to do in the future, but not a priority...
# ---------------------------------------------------------------------
for ($options = 4; $options < 7; $options++) {
  if ($ARGV[$options] ne '') {
    if ($ARGV[$options] eq 'debug' || $ARGV[$options] eq 'DEBUG') {
       $debug = $true;
       next;
     }
    if ($ARGV[$options] eq 'nobanner' || $ARGV[$options] eq 'NOBANNER') {
       $banner = $false;
       next;
     }
     $a = int($ARGV[$options]);
     if ($a > 0 && $a < 1000) {
       $repetitions = $a;
     }
  }
}

# ---------------------------------------------------------------------
# open message
open(MESSAGE,  "$message") || die "Can't open $message $!\n";
@MESSAGELINES=<MESSAGE>;
close(MESSAGE);
$MESSAGESIZE=@MESSAGELINES;

# ---------------------------------------------------------------------
# open mailing list
open(DATABASE, "$database") || die "Can't open $database $!\n";
@DATALINES=<DATABASE>;
close(DATABASE);
$DATASIZE=@DATALINES;

# ---------------------------------------------------------------------
# print a banner
print "Sender           : $sender\n";
print "Message File     : $message\n";
print "Address Database : $database\n";
print "Message Subject  : $subject\n";
print "Options          :\n";
print "Banner           : ";
if ($banner == $true) {
  print "Included in Message\n";
}
else {
  print "Excluded from Message\n";
}
print "Repetitions      : $repetitions\n";
print "Mode             : ";
if ($debug == $true) {
  print "DEBUG\n";
}
else {
  print "Normal\n";
}

print "---------------------------------------------\n";
print "Copies  Recipient\n";

# ---------------------------------------------------------------------
# send the message to each address on the list
# skip the recipient if they are the same as the sender
# because a confirmation will be sent at the end of the process...
for ($i = 0; $i < $DATASIZE; $i++) {
  $recipient = $DATALINES[$i];
  $a = chop($recipient);
  if ($a ne "\n") {
    $recipient = $DATALINES[$i];
  }
  if ($recipient ne $sender) {
    for ($k = 0; $k < $repetitions; $k++) {
      printf("%0003d   : ", $k + 1);
      print "$recipient                    \r";
      &sendmail;
    }
    print "\n";
  }
}
$recipient = $sender;
&sendmail;
print "Done!                                               \n";


# ------------------------------------------------------------
# sendmail
# subroutine to send a message
# ------------------------------------------------------------
sub sendmail {

  if ($debug == $true) {
    open (MAIL, ">>debug.txt") || die "Can't open $mailprog!\n";
  }
  else {
    open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
  }
  print MAIL "To: $recipient\n";
  print MAIL "From: $sender\n";
  print MAIL "Reply-to: $sender\n";
  print MAIL "Subject: $subject\n\n";
  print MAIL "---------------------------------\n";

  # confirmation to sender
  if ($recipient eq $sender || $banner == $true) {
     print MAIL "The following message was bulk-mailed by ROBOMAIL.PL(C)\n";
     print MAIL "Version 2.0 Copyright Bill Buckels 1997, 1998\n";
     if ($recipient eq $sender) {
        print MAIL "The Recipients' email adresses follow the message.\n";
     }
     print MAIL "---------------------------------\n";
  }
  for ($j = 0; $j < $MESSAGESIZE; $j++) {
    $line = $MESSAGELINES[$j];
    chop($line);
    print MAIL "$line\n";
  }
  # recipient names to sender only
  if ($recipient eq $sender) {
    print MAIL "---------------------------------\nMailed To : ";
    for ($k = 0; $k < $DATASIZE; $k++) {
      $confirm = $DATALINES[$k];
      chop($confirm);
      if ($confirm ne $recipient) {
        print MAIL "$confirm; ";
      }
    }
    print MAIL "\n";
  }
  print MAIL "---------------------------------\n";
  close (MAIL);
}