Conference noted::hackers_v1

    I'd be interested in it as is, please drop me some mail about it's
    location.

These are all located on DELNI:: (you must NOT use wildcards for access)
    (Maybe we can find the sources are figure out how to UPDATE the
    data file with more and more information... ???)
    
Directory USER$180:[MHARRIS.COM]

TODAY.COM;1         

Total of 1 file.

Directory USER$180:[MHARRIS.DAT]

TODAY.DAT;1         

Total of 1 file.

Directory USER$180:[MHARRIS.EXE]

TODAY.EXE;1         

Total of 1 file.

Grand total of 3 directories, 3 files.

	The following two FORTRAN programs can be used to add
	information to the TODAY.DAT file. 

	The first program BREAK_TODAY will read the .DAT file and create
	a text file called TODAY.TXT. This file can then be edited using
	your favorite editor. 

	The second program BUILD_TODAY will create a new TODAY.DAT file
	using the TODAY.TXT file as input. 

	These programs were written rather quickly but I made several
	runs and they seem to work fine. 

	PROGRAM BREAK_TODAY
C
C This program takes the TODAY data file and creates a text file from it
C
C 		Written by John D. Bates    January 1988
C
	IMPLICIT INTEGER (A-Z)
	CHARACTER *84 IN
	INTEGER*4 NUM(21)
	EQUIVALENCE (IN,NUM)
C
	OPEN(UNIT=1,FILE='TODAY.DAT',STATUS='OLD')
	OPEN(UNIT=2,FILE='TODAY.TXT',STATUS='NEW',
     1	     CARRIAGECONTROL='LIST')
C
100	READ(1,110,END=1000)IN
110	FORMAT(A)
	I = NUM(1)/100
	J = NUM(1) - (I*100)
	WRITE(2,120)I,J,IN(5:84)
120	FORMAT(I2,'/',I2,' ',A)
	GOTO 100
C
1000	CLOSE(UNIT=1)
	CLOSE(UNIT=2)
	CALL EXIT
	END

	PROGRAM BREAK_TODAY
C
C This program takes the data file created by BREAK_TODAY and creates 
C a TODAY data file from it.
C
C 		Written by John D. Bates    January 1988
C
	IMPLICIT INTEGER (A-Z)
	CHARACTER *84 IN
	INTEGER*4 NUM(21)
	EQUIVALENCE (IN,NUM)
C
	OPEN(UNIT=1,FILE='TODAY.TXT',STATUS='OLD')
	OPEN(UNIT=2,FILE='TODAY.DAT',STATUS='NEW',
     1	     CARRIAGECONTROL='NONE')
C
100	READ(1,110,END=1000)I,J,IN(5:84)
110	FORMAT(I2,1X,I2,1X,A)
	NUM(1) = (I*100) + J
	WRITE(2,120)IN
120	FORMAT(A)
	GOTO 100
C
1000	CLOSE(UNIT=1)
	CLOSE(UNIT=2)
	CALL EXIT
	END

    OK guys, here's the challenge: "Who can put together the most
    interesting TODAY.DAT file?" Let's make it a real challenge
    and populate the files ONLY with REAL dated items from history...
    NOT just funny sayings or something else which could be random.
    
    Any takers??
    
    (I'll give it a shot myself and post any updates here)

    
    In the file today.com mentioned in .2 is the image today.exe required.
    
    My question is where to find the source for that file.
    I'm am reluctant to take just an .exe file due to
    the possibility of Trojan hoarses. No offence intended!
    Any idea for location?

    No sources have been traced. Although I have used the exe for
    2-3 years now... no problem. (btw, I got it on the EASYNET
    back then, but from who/where reminas a mystery.
    
    Mark

	The following is not the original source (it was written in
	PASCAL) but can be compiled on your system and will work the 
	same as the original. Enjoy!

					John

-------------------------------------------------------------------------------
	PROGRAM TODAY
C
C This program finds the current date, displays it, then scans the history 
C file pointed to by logical TODAY_FILE, and displays all information that 
C matches the key for the current date.
C
C 		Written by John D. Bates    January 1988
C
	IMPLICIT INTEGER*4 (A-Z)
	CHARACTER*84 IN
	INTEGER*4 NUM(21)
	EQUIVALENCE (IN,NUM)
C
C Get current date and display it
C
	CALL SYS$FAO('!%D',,IN,%VAL(0))
	WRITE(6,100)IN(1:11)
100	FORMAT(' Today is ',a,'.  On this day in history:')
	CALL IDATE(MM,DD,YY)
	MATCH = (MM*100) + DD
C
C Open history file
C
	OPEN(UNIT=1,FILE='TODAY_FILE',STATUS='OLD',SHARED,READONLY,
     1	     ERR=140)
C
C Read history file and look for matches
C
110	READ(1,120,END=1000)IN
120	FORMAT(A)
	IF(NUM(1) .LT. MATCH)GOTO 110
	IF(NUM(1) .GT. MATCH)GOTO 1000
C
C Display matches
C 
	WRITE(6,130)IN(5:84)
130	FORMAT(1X,A)
	GOTO 110
C
C ERROR - Unable to open history file
C
140	WRITE(6,150)
150	FORMAT(/,' %TODAY-F-NOFILE, no data file found.'/)
	WRITE(6,160)
160	FORMAT(' Check for logical TODAY_FILE and data file ',
     1	       'pointed to by TODAY_FILE')
	CALL EXIT
C
C Finished
C
1000	CLOSE(UNIT=1)
	CALL EXIT
	END

    For my fellow ULTRIX users, you can copy:
    
    	netrix::/usr/local/today.txt
    
    and the shell script:
    
    	netrix::/usr/local/today
    
    Make sure you edit "today" to look wherever you will be keeping
    "today.txt" if it is not going to be in /usr/local.

    A co-worker of mines husband mails to her a "Today in history"
    type thing everyday.  I talked her into forwarding them to me
    and I am converting to the same format that today.txt is in.
    
    If you only want to copy the new stuff (at least 12 events/day
    so far), I am keeping them in seperate files.
    
    	netrix::~michaud/misc/todaystuff/todayMMDD
    
    where MM = month (01-12) and DD = day (01-31).  (Make sure to
    use quotes around the file spec if you are on a VMS node).
    
    The today.txt in the same directory (or /usr/local/today.txt)
    will always contain the latest todayMMDD's merged in.