RE: Base64 encoding/decoding

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Scott Klement
Sent: Tuesday, April 22, 2008 12:05 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Base64 encoding/decoding


Bradley V. Stone wrote:

It is just one =.
My app (and I tested with Scott Klements too) ends like this:

WJrNzV=

Interesting. V= is invalid. V is #21, which is not legal. When the
string ends with a =, the last two bits of the 3rd byte must be zero,
which means the number has to be a multiple of 4. Since 21 isn't a
multiple of 4, something is wrong.

I'm trying to reproduce the problem. Here's the code I've written to do
that:

H DFTACTGRP(*NO) BNDDIR('MAIN')
/copy BASE64_H
D Input s 6a
D Output s 8a

/free

input = x'61626b3735';
Output = *blanks;

base64_encode( %addr(Input)
: %len(%trimr(Input))
: %addr(Output)
: %size(Output) );

dsply Output;
*inlr = *on;

/end-free

When I run this, however, I get the following:

DSPLY YWJrNzU=

So I'm unable to reproduce the problem. What value shall I feed into my
encoder to end up with V=?
--
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.