the same 3-character $reqText produces 50-character encrypted output on the new server.

Are you sure it's not 48 characters? Newer versions of Crypt::CBC transmit the string "RandomIV" followed by eight random characters, then the first eight-character encrypted block. That comes out to 48 hex digits. Older versions use an IV precomputed from the key, and start transmitting ciphertext immediately.

The versions of the CBC and IDEA modules vary on each server but only very slightly.

Specifically what version of Crypt::CBC do you have? The RandomIV thing was added in 1.21.

Unfortunately, I don't see any way to get old versions of Crypt::CBC to play nice with new versions without a lot of pain and agony. Is it workable for you to upgrade Crypt::CBC on one or both machines?

    $cipher = new Crypt::CBC('$key','IDEA');

[download]

I'm going to assume your actual code doesn't have $key in single quotes... right? I hope?

In reply to Re: Crypt CBC using IDEA - output differs btwn systems by no_slogan
in thread Crypt CBC using IDEA - output differs btwn systems by ewitch

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.