Since those APIs only work on later OS/400 releases, I decided to use the
Cipher MI instruction instead of the API. It too is a bit complex, but not
nearly as screwy/confusing as the API.
If you have the xTools, you would just do this:
D szKey S 32A Varying
// Move the 16-byte key value into szKey
Callp aesDecrypt(data : %len(data) : szKey )
This will change the value of DATA from encrypted to the decrypted value.
This procedure wraps the MI instruction.
Since you're using the API, I won't bother posting the data structure I use
when calling CIPHER for AES encryption.
-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti
-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of
Martin.Verhoef@xxxxxxxxxxxxxxxxxxxxx
Sent: Wednesday, April 13, 2005 4:58 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: AES decryption with Qc3DecryptData API
Has someone experience with the Qc3DecryptData API ?
I have an encrypted string (AES) and a key (size 16) from a customer. The
encrypted string i want to decrypt
with the provided key and the api. Is it possible to use the api in this
way ?
How to provide the encrypted string and the key to the parameter group of
the api ?
I tried some parameter values but got errors back like 'Length of input
data not valid'.
Thanks and regards,
Martin Verhoef
Furness Logistics
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
