Help for this page

Select Code to Download


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

  $PlainText = $Cipher->decrypt ( pack ( "H$Length", $ASCII ) );
  print "Try via ASCII string it's '$PlainText'.\n";
  2. or download this
    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 ''.