perlquestion
v4169sgr
<p>I use Perl 5.10 ActivePerl 5.14 on win7. I am a humble user, and don't really understand what I am doing.</p>
<p>I have a requirement to connect to a remote host and send locally encrypted messages, using DES ECB mode encryption. This is not my choice, but a part of the requirement. I am trying to find out how to implement DES ECB mode encryption simply in Perl</p>
<p>I do not have access to a C compiler, and cannot be the local administrator on my machine. I don't have download rights either, but can copy / paste source from CPAN into .pm files in my C:. I have copied the source for DES.pm and ECB.pm to C:\Perl 5.10\lib\Crypt\ from CPAN.</p>
<p>In my script I use</p>
<code>use Crypt::ECB qw(encrypt decrypt encrypt_hex decrypt_hex);</code>
<p>and try using it as a proof of concept - the text is from FIPS PUB 81:</p>
<code>print encrypt_hex("0123456789abcdef", "DES", "Now is the time for all ", "1") . "\n";</code>
<p>However, when trying to run this, I see the following error:</p>
<code>Couldn't load Crypt::DES: Attempt to reload Crypt/DES.pm aborted.
Compilation failed in require at (eval 27) line 3.
Are you sure 'DES' is correct? If so, install Crypt::DES in the proper path or choose some other cipher.</code>
<p>I think this is because I don't have a binary for DES (not sure what this means).</p>
<p>I did notice that there is a DES module written in Perl called Crypt::DES_PP. Would using this solve the problem and help me satisfy the requirement? If so, how can I use this module? (Basic, please, I don't understand much!)</p>
<p>Thanks in advance for any assistance!!!</p>