I need help with PERL

Discussion in 'Programming' started by jred2002, Jul 13, 2007.

  1. #1
    Hello,

    I am having to pass usernames and passwords with another website that is all set up to do this with a PERL scrip - this one -

    #!/usr/bin/perl

    use Crypt::CBC;
    use Crypt::Blowfish;

    my $key = 'my key';

    my $cipher = new Crypt::CBC($key,'Blowfish');
    my $crypt = $cipher->encrypt_hex(time() . ':' . 'USERNAME' . ':' . 'PASSWORD');

    print "Crypt: $crypt\n";

    my $decrypt = $cipher->decrypt_hex($crypt);

    print "Decrypt: $decrypt\n";


    The problem is I have never even looked at PERL code before. I have installed
    the newest version of PERL on to the server. I was wondering what to do with the "use" keyword. I have found both the Crypt::CBC and Crypt::Blowfish to download but I do not know how to associate them to this script. Any help would be greatly appreciated.

    Thank you in advance
     
    jred2002, Jul 13, 2007 IP