I am trying to encrypt some information and add it to a web page form via a hidden form variable. The problem I am having is that I can't figure out how long the pack and unpack are supposed to be.

In other words, is the length of the encrypted data the same as the original data? It seems that it should be. My test code is as follows: 

  my $What = "Some text to be encrypted.";
  my $Length = length ( $What ) * 2;

  my $Cipher = Crypt::CBC->new ( [ key => $DBITT::CryptString ] );
  my $CipherText = $Cipher->encrypt ( $What );
  my $ASCII = unpack ( "H$Length", $CipherText );

  print "Encrypted result of $What is $ASCII.";
  print " That was " . length ( $ASCII ) . " bytes long.\n";

  my $PlainText = $Cipher->decrypt ( $CipherText );
  print "And back into the real world we have '$PlainText'.\n";

  $PlainText = $Cipher->decrypt ( pack ( "H$Length", $ASCII ) );
  print "Try via ASCII string it's '$PlainText'.\n";

[download]

and when I run it I get 

Encrypted result of Some text to be encrypted. is
52616e646f6d49568bd87928f7ccbbbef6b6fcd504407b611fd9.
That was 52 bytes long.
And back into the real world we have 'Some text to be encrypted.'.
Try via ASCII string it's ''.

[download]
The two values of $PlainText don't match. Assistance would be greatly appreciated.

--t. alex

"Here's the chocolates, and here's the flowers. Now how 'bout it, widder hen, will ya marry me?" --Foghorn Leghorn

In reply to Length of Crypt::CBC result by talexb

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.