R
RepAlciere
Here's a simple QBASIC program that generates an HTML page, maillist.htm, with
10,000 e-mail addresses at random. Run it, and then upload the page onto your
site, and link to it from your home page.
A sample of the output is at http://surnamesbytown.com/Italy/maillist.html
The spammers will slurp up all those bogus e-mail addresses and try to send to
them.
This should slow them down, if enough of us do it.
To change the quantity of bogus e-mail addresses, change the line that says
IF k > 10000 THEN GOTO 1000
to IF k> ...(some other number) ... THEN GOTO 1000
here's the program:
RANDOMIZE TIMER
OPEN "c:\maillist.htm" FOR OUTPUT AS #1
PRINT #1, "<HTML><HEAD></HEAD><BODY>"
100 PRINT #1, "<BR>": s$ = "": t$ = ""
IF k > 10000 THEN GOTO 1000
LET N = 3 + INT(9 * RND)
LET D = 3 + INT(9 * RND)
FOR X = 1 TO N
IF RND > .5 THEN LET s$ = s$ + LCASE$(CHR$(65 + INT(26 * RND)))
IF RND <= .5 THEN LET s$ = s$ + CHR$(65 + INT(26 * RND))
NEXT X
FOR X = 1 TO D
IF RND > .5 THEN LET t$ = t$ + LCASE$(CHR$(65 + INT(26 * RND)))
IF RND <= .5 THEN LET t$ = t$ + CHR$(65 + INT(26 * RND))
NEXT X
PRINT #1, "<a href="; CHR$(34); "mailto:"; s$; "@"; t$; ".com"; CHR$(34); ">";
s$; "@"; t$; ".com</A>"
LET k = k + 1
GOTO 100
1000 PRINT #1, "</BODY></HTML>"
CLOSE #1
10,000 e-mail addresses at random. Run it, and then upload the page onto your
site, and link to it from your home page.
A sample of the output is at http://surnamesbytown.com/Italy/maillist.html
The spammers will slurp up all those bogus e-mail addresses and try to send to
them.
This should slow them down, if enough of us do it.
To change the quantity of bogus e-mail addresses, change the line that says
IF k > 10000 THEN GOTO 1000
to IF k> ...(some other number) ... THEN GOTO 1000
here's the program:
RANDOMIZE TIMER
OPEN "c:\maillist.htm" FOR OUTPUT AS #1
PRINT #1, "<HTML><HEAD></HEAD><BODY>"
100 PRINT #1, "<BR>": s$ = "": t$ = ""
IF k > 10000 THEN GOTO 1000
LET N = 3 + INT(9 * RND)
LET D = 3 + INT(9 * RND)
FOR X = 1 TO N
IF RND > .5 THEN LET s$ = s$ + LCASE$(CHR$(65 + INT(26 * RND)))
IF RND <= .5 THEN LET s$ = s$ + CHR$(65 + INT(26 * RND))
NEXT X
FOR X = 1 TO D
IF RND > .5 THEN LET t$ = t$ + LCASE$(CHR$(65 + INT(26 * RND)))
IF RND <= .5 THEN LET t$ = t$ + CHR$(65 + INT(26 * RND))
NEXT X
PRINT #1, "<a href="; CHR$(34); "mailto:"; s$; "@"; t$; ".com"; CHR$(34); ">";
s$; "@"; t$; ".com</A>"
LET k = k + 1
GOTO 100
1000 PRINT #1, "</BODY></HTML>"
CLOSE #1