Ok, sounds good.
Is there a de-crypt function also?
-----Original Message-----
From: leif@ibm.net [mailto:leif@ibm.net]
Sent: Thursday, May 27, 1999 1:29 PM
To: MIDRANGE-L@midrange.com
Subject: Re: RPG program to generate MI-program 'cipher'
This was a response to a request for a program that would
DES encrypt data. It takes three 8-char parms: a key, a text,
and the encrypted result.
----- Original Message -----
From: Colin Williams <Williamsc@technocrats.co.uk>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, May 27, 1999 2:17 AM
Subject: RE: RPG program to generate MI-program 'cipher'
> Sorry, but what will this program actually do?
>
> -----Original Message-----
> From: leif@ibm.net [mailto:leif@ibm.net]
> Sent: Thursday, May 27, 1999 12:50 AM
> To: MIDRANGE-L@midrange.com
> Subject: RPG program to generate MI-program 'cipher'
>
>
> sorry everybody (especially Njal). There were a few problems with the
> RPG
> program.
> Here is better version.
>
> This is also a useful skeleton for othe MI-programs
>
>
> E MI 1 20 80
> I DS
> I B 1 40#SRCLN
> I I 'CIPHER QGPL' 5 24 #PGMLB
> I 25 74 #TEXT
> I I '*NONE' 75 94 #SRCFL
> I 95 104 #MBR
> I 105 117 #CHGDT
> I 105 105 #CENT
> I 106 107 #YY
> I 108 111 #MMDD
> I 112 117 #HMS
> I 118 137 #PRTFL
> I B 138 1410#STRPG
> I 142 151 #AUT
> I 152 327 #OP
> I B 328 3310#NOOPT
> C CALL 'QPRCRTPG'
> C PARM MI
> C PARM 1600 #SRCLN
> C PARM #PGMLB
> C PARM 'Cipher' #TEXT
> C PARM #SRCFL
> C PARM #MBR
> C PARM #CHGDT
> C PARM ' ' #PRTFL
> C PARM 0 #STRPG
> C PARM '*USE' #AUT
> C PARM ' ' #OP
> C PARM 0 #NOOPT
> C MOVE *ON *INLR
> **
> DCL SPCPTR .KEY PARM;
> DCL SPCPTR .TXT PARM;
> DCL SPCPTR .DES PARM;
> DCL OL *ENTRY (.KEY, .TXT, .DES) PARM EXT MIN(3);
> DCL DD KEY CHAR(8) BAS(.KEY);
> DCL DD TXT CHAR(8) BAS(.TXT);
> DCL DD DES CHAR(8) BAS(.DES);
>
> DCL DD CONTROL CHAR(32);
> DCL DD FUNCTION CHAR(2) DEF(CONTROL) POS(1) INIT(X'0002');
> DCL DD TXT-SIZE BIN(2) DEF(CONTROL) POS(3) INIT(8);
> DCL DD OPTION CHAR(1) DEF(CONTROL) POS(5) INIT(X'00');
> DCL DD CTRL-KEY CHAR(8) DEF(CONTROL) POS(6);
>
> ENTRY * (*ENTRY) EXT;
> CPYBLA CTRL-KEY, KEY;
> CIPHER .DES, CONTROL, .TXT;
> RTX *;
>
> PEND;
>
>
> Leif Svalgaard
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
