Re: RPG program to generate MI-program 'cipher'

There was in S/38, but IBM has removed that functionality from
the AS/400. Maybe as a response to US Munitions regulations.
There are many PC-programs that can decrypt DES.

----- Original Message -----
From: Colin Williams <Williamsc@technocrats.co.uk>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, May 27, 1999 9:13 AM
Subject: RE: RPG program to generate MI-program 'cipher'


> 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
> +---
>

+---
| 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
+---