Here's my code to date:

*
* Test Encryption Program
*
ALGORITHM    = 'rc4'
CRYPT.ACTION = 1
TEXT         = 'THIS IS A TEST'
TEXT.LOC     = 1
KEY          = 'ABCDEFG'
KEY.LOC      = 1
KEY.ACTION   = 1
SALT         = ''
IV           = ''
RESULT       = ''
RESULTLOC    = 1
STATUS = ENCRYPT(ALGORITHM, CRYPT.ACTION, TEXT, TEXT.LOC, KEY, KEY.LOC,
KEY.ACTION, SALT, IV, RESULT, RESULTLOC)
PRINT 'STATUS    = ' : STATUS
PRINT 'RESULT    = ' : RESULT
PRINT 'RESULTLOC = ' : RESULTLOC
STOP
END

And here's what it shows:

> RUN USER-FORMS TEST.ENCRYPT

STATUS    = 1
RESULT    =
RESULTLOC = 1

What am I missing?
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to