Kbase 20523: Sample Code to Encode Text/Data in an R-CODE Program
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/16/2008 |
|
Status: Unverified
GOAL:
How to Encode Text/Data in an R-CODE Program
FIX:
The sample program that does not use encoding is as follows:
DEFINE VARIABLE cText AS CHARACTER NO-UNDO FORMAT "X(20)" INITIAL "*Hello".
DISPLAY cText.
The sample program to encode a text variable (character string) is as follows:
DEFINE VARIABLE cText AS CHARACTER NO-UNDO FORMAT "X(20)" INITIAL "Administrator".
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
DEFINE VARIABLE cEncoded AS CHARACTER NO-UNDO.
ASSIGN cEncoded = "DEFINE VARIABLE cCodedText AS INTEGER NO-UNDO EXTENT "
+ STRING(LENGTH(cText))
+ " INITIAL [ ".DO iLoop = 1 TO LENGTH(cText):
ASSIGN cEncoded = cEncoded + STRING(ASC(SUBSTRING(cText,iLoop,1)) + 123) + (IF iLoop <> LENGTH(cText) THEN "," ELSE "").
END.ASSIGN cEncoded = cEncoded + " ].".UPDATE cEncoded VIEW-AS EDITOR INNER-CHARS 70 INNER-LINES 5.
A sample program that uses the encoding is as follows:
DEFINE VARIABLE cCodedText AS INTEGER NO-UNDO EXTENT 17 INITIAL [165,195,224,231,231,234,155,203,237,234,226,237,224,238,238,165,42].
DEFINE VARIABLE cClearText AS CHARACTER NO-UNDO FORMAT "X(20)".
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
DO iLoop = 1 TO 17:
ASSIGN cClearText = cClearText + CHR(cCodedText[iLoop] - 123).
END.
DISPLAY cClearText.