c
c This program generates random email addresses to stuff up spammers   
c It is rather simple so please make it better if you use it. 
c Michael Brown 19 Aug 1997 
c

      PROGRAM makemail 
c     
c     declarations
c
      INTEGER i, j, number, timearray(3) 
      CHARACTER m(30)      
      REAL n, rand
c    
c     Random number seed
c     
      call itime(timearray)
      i = rand ( timearray(1)+timearray(2)+timearray(3) )
c
c     Number of bogus addresses
c
      number=1000      
c     
c     Open output file
c
      OPEN(6, FILE='fake.html')
      WRITE (6,*) 'Welcome!<BR>'
      WRITE (6,*) '
     & <A HREF="http://astro.ph.unimelb.edu.au/~mbrown/aaa/makemail.f">
     & Fortran code to make a page similar to this</A> <BR>'
      WRITE (6,*) '<BR>'

c     
c     Main Loop
c
      DO 10 i = 1, number
c
c     Generate random characters
c
 	 DO 5 j = 1, 30
            
            n=rand(0)
            n=n*26+97
            m(j)=CHAR(INT(n))
            
 5       CONTINUE
c
c     Generate .com to put on the end
c
         n=rand(0)
         n=4*n+3
         m(INT(n))='@'

         n=rand(0)
         n=n*8+9
         IF (n.gt.14) THEN 
            m(INT(n-4.5))='.'
         ENDIF
         j=INT(n)
         m(j)='.'
         m(j+1)='c'
         m(j+2)='o'
         m(j+3)='m'
         n=j+4
c
c     Make sure the bit after the .com is blank
c
         DO 6 j = INT(n), 30
         
            m(j)=''

 6       CONTINUE
c
c     Write to file
c
         WRITE (6,*) '<A HREF="mailto:',m,'">',m,'</A>'
         WRITE (6,*) '<BR>'
         
 10   CONTINUE
    
c     
c     Write the counter file
c

      STOP 
      END