d c. DO	CRY
╚ c.		Encripts/Decripts a text file.
,c.
Рc.	Performs a simple key .or. on the data in the file with a
Їc. change in the start point based on the number of characters in the
Xc. file, mode=0, or on the data, mode=1,2
╝c.
 c.	Mode=0, is its own inverse.
Дc.	Mode=1 (encript) is inverted by Mode=2 (decript)
шc.
Lc. Input (for005)		Input file
░c.				Output file
c.				Key
xc.				Mode
▄c.
@c.-end.of.info-
дc.
	IMPLICIT INTEGER (A-Z)
l	COMMON /CRYPT/ ISEED, MODE, LENKEY, KEY, LENLIN, LINE
╨	BYTE KEY(128), LINE(1024)
4C.
Ш	CHARACTER*1024 INFILE, OUTFILE
№C.
`	C.	.........
─	9010	FORMAT( A )
(
9020	FORMAT( 1024A1 )
М
C.	.........
Ё
C.
TC... GET INFILE, OUTFILE, KEY
╕C.
	WRITE( 6, 9010 ) '$Input  file_'
А	READ ( 5, 9010 ) INFILE
ф	OPEN(UNIT=1,NAME=INFILE,TYPE='OLD',CARRIAGE CONTROL='LIST')
HC.
м	WRITE( 6, 9010 ) '$Output file_'
	READ ( 5, 9010 ) OUTFILE
t	IF( OUTFILE.EQ.' ' ) OUTFILE = INFILE
╪	OPEN(UNIT=2,NAME=OUTFILE,TYPE='NEW',CARRIAGE CONTROL='LIST')
<C.
а	WRITE( 6, 9010 ) '$Crypto  Key_'
	READ ( 5, 9020 ) KEY
h	LENKEY = ISLEN( KEY )
╠	IF( LENKEY.EQ.0 ) THEN
0	  LENKEY = 127
Ф	  DO 50 I=1,127
°	    KEY(I) = I
\50	  CONTINUE
└	ENDIF
$C.
ИC.
ь	WRITE( 6, 9010 ) '$Crypto Mode_'
P	READ ( 5, 110  ) MODE
┤110	FORMAT( I )
C.
|500	CONTINUE
р	READ( 1, 510, ERR=9000 ) LENLIN,(LINE(I),I=1,LENLIN)
D510	FORMAT( Q, 1024A1 )
и	IXLINE = IXLINE+1
	IF( LENLIN.NE.0 ) THEN
p	  CALL ENCRYPT
╘	  WRITE( 2, 9020 ) (LINE(I), I=1,LENLIN)
8	ELSE
Ь	  WRITE( 2, 9020 )
 	ENDIF
d	GOTO 500
╚C.	.........
,C.
Р9000	CONTINUE
Ї	TYPE 9100, IXLINE
X9100	FORMAT( I10, ' Lines crypted' )
╝	END
  
d C+++++++++
╚ C.CALL	ENCRYPT .. TO ENCRIPT DATA
,C-
Р	SUBROUTINE ENCRYPT
Ї	IMPLICIT INTEGER (A-Z)
X	COMMON /CRYPT/ ISEED, MODE, LENKEY, KEY, LENLIN, LINE
╝	BYTE KEY(128), LINE(1024)
 C.
Д	IF( ISEED.LT.0 ) ISEED = -ISEED
ш	ISEED = MOD( ISEED, LENKEY )+1
L	IREC = IREC+1
░	IF( MODE.EQ.1 ) THEN
	  ISH = LINE(1)
x	ELSE IF( MODE.EQ.2 ) THEN
▄	  ISH = LINE(1).XOR.KEY(ISEED)
@	ENDIF
д	DO 90 I=1, LENLIN
	  IF( ISEED.GT.LENKEY ) ISEED=1
l	  LINE(I) = LINE(I) .XOR. KEY(ISEED)
╨	  ISEED = ISEED+1
490	CONTINUE
Ш	ISEED = ISEED + ISH
№C.
`		RETURN
─		END
  
d C+++++++++
╚ C.I=	ISLEN( KEY ) .. TO FIND THE LENGTH OF A KEY
,C.
Р	FUNCTION ISLEN( KEY )
Ї	BYTE KEY(128)
XC.
╝	ISLEN = 0
 	DO 190 I=1,128
Д	  IF( KEY(I).NE.' ' ) ISLEN = I
ш190	CONTINUE
LC.
░	RETURN
	END