XMJMCODE ;ISC-SF/GMB-Message En/Decryption ;08/24/2001 10:56
Source file <XMJMCODE.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
ENCMSG(XMZ) | ; Encode a message
|
|
ENCSTR(XMCLEAR) | ; Encode a string
|
|
DECMSG(XMZ) | ; Decode a message
|
|
DECSTR(XMCODED) | ; Decode a string
|
|
CRE8KEY(XMKEY,XMHINT,XMABORT) | ;
|
|
KEYOK(XMZ,XMHINT) | ; Ask user for key and make sure it's right
|
|
ASKKEY(XMKEY,XMABORT) | ;
|
|
GOODKEY(XMZ,XMKEY) | ; Function checks key and make sure it's right.
; If it is, XMSECURE is defined, and function returns 1; ; Else XMSECURE is not defined, and function returns 0 |
|
ADJUST(XMKEY) | ; Capitalize the key, pad the key, & adjust cylinder with key
|
|
LOADCODE | ; Load Bazeries Cylinder
|
|
Z | ;;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("EOFF" | ASKKEY+3 |
^%ZOSF("EON" | ASKKEY+3 |
^XMB(3.9 - [#3.9] | ENCMSG+4, DECMSG+4, KEYOK+4, GOODKEY+5 |
Name | Line Occurrences |
---|---|
$$DECSTR | DECMSG+4 |
$$ENCSTR | ENCMSG+4, GOODKEY+5 |
$$GOODKEY | KEYOK+13 |
ADJUST | GOODKEY+4 |
ASKKEY | CRE8KEY+1, KEYOK+12 |
LOADCODE | GOODKEY+3 |
Name | Field # of Occurrence |
---|---|
^(0 | ENCMSG+4*, DECMSG+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | CRE8KEY+2~ |
DIR("A" | CRE8KEY+4* |
DIR(0 | CRE8KEY+3* |
>> DTOUT | CRE8KEY+5 |
>> DUOUT | CRE8KEY+5 |
I | ENCMSG+1~, ENCMSG+3*, ENCMSG+4*, ENCSTR+1~, ENCSTR+3*, DECMSG+1~, DECMSG+3*, DECMSG+4*, DECSTR+1~, DECSTR+3* , ADJUST+1~, ADJUST+6*, ADJUST+9*, ADJUST+10, ADJUST+11, LOADCODE+1~, LOADCODE+2*, LOADCODE+3 |
IO | ASKKEY+3 |
IO(0 | KEYOK+2 |
J | ADJUST+1~, ADJUST+10*, ADJUST+11 |
U | ASKKEY+3, ASKKEY+4 |
X | CRE8KEY+2~ |
XMABORT | CRE8KEY~, CRE8KEY+1, CRE8KEY+5*, KEYOK+1~, KEYOK+10*, KEYOK+11, KEYOK+12, KEYOK+15, KEYOK+16, KEYOK+17 , ASKKEY~, ASKKEY+1, ASKKEY+4* |
XMCLEAR | ENCSTR~, ENCSTR+3, DECSTR+1~, DECSTR+2*, DECSTR+3*, DECSTR+4 |
XMCODED | ENCSTR+1~, ENCSTR+2*, ENCSTR+3*, ENCSTR+4, DECSTR~, DECSTR+3 |
XMHINT | CRE8KEY~, CRE8KEY+6*, KEYOK~, KEYOK+5, KEYOK+9 |
>> XMIA | ENCMSG+2, DECMSG+2 |
XMKEY | CRE8KEY~, CRE8KEY+1, KEYOK+1~, KEYOK+12, KEYOK+13, ASKKEY~, ASKKEY+1, ASKKEY+3*, ASKKEY+4, ASKKEY+5* , ASKKEY+6*, GOODKEY~, GOODKEY+4, GOODKEY+5, ADJUST~, ADJUST+2*, ADJUST+3*, ADJUST+4*, ADJUST+6, ADJUST+10 |
XMLINE | LOADCODE+1~, LOADCODE+2* |
XMOK | KEYOK+1~, KEYOK+10*, KEYOK+11, KEYOK+13*, KEYOK+15, KEYOK+16, KEYOK+17 |
>> XMPAKMAN | ADJUST+8 |
>> XMPAKMAN("XMRW" | ADJUST+8* |
XMRW | ADJUST+1~, ADJUST+5*, ADJUST+6*, ADJUST+7*, ADJUST+8, ADJUST+10 |
XMSECURE | ENCSTR+3, DECSTR+3, KEYOK+16!, GOODKEY+6!, ADJUST+3, ADJUST+4, ADJUST+6, ADJUST+9, LOADCODE+3* |
XMSECURE( | ENCSTR+3, DECSTR+3, ADJUST+10, ADJUST+11*, LOADCODE+2* |
XMTRY | KEYOK+1~, KEYOK+11*, KEYOK+14 |
XMZ | ENCMSG~, ENCMSG+4, DECMSG~, DECMSG+4, KEYOK~, KEYOK+4, KEYOK+13, GOODKEY~, GOODKEY+5 |
Y | CRE8KEY+2~, CRE8KEY+6 |
Name | Field # of Occurrence |
---|---|
$T(Z+I | LOADCODE+2 |