perl troubles with vhcs

[KeNt]

code] ./vhcs2-vrl-traff
If specified by -literal_key, then the key length must be equal to the chosen cipher's key length of 56 bytes at /var/www/vhcs2/engine/traffic/../vhcs2_common_code.pl line 1443
Compilation failed in require at ./vhcs2-vrl-traff line 53.[/code]

Code:

cat vhcs2_common_code.pl | head -n1460 | tail -n20
    }

    my $cipher = Crypt::CBC -> new(
                                    {
                                        'key'             => $main::db_pass_key,
                                        'cipher'          => 'Blowfish',
                                        'iv'              => $main::db_pass_iv,
                                        'regenerate_key'  => 0,
                                        'padding'         => 'space',
                                        'prepend_iv'      => 0
                                    }
                                  );

    my $decoded = decode_base64("$pass\n");

    my $plaintext = $cipher -> decrypt($decoded);


    push_el(\@main::el, 'decrypt_db_password()', 'Ending...');

debian sarge + backports + vhcs2.4.7.1
failed up after updates
how to fix that?

[grungy]

This is not the place to search support for VHCS.

[grungy]

Try ispCP:

http://downloads.sourceforge.net/ispcp/i...2c.tar.bz2

[KeNt]

sorry
simple i mean this forum so smartly for answers
the server is up and that is a problem
no time for reinstall
just help with perl and move topic to right place

p.s. sorry for bad english

[KeNt]

when upgrade script to migrate from vhcs to ispcp is done i'm will migrate to ispcp

[joximu]

The subroutine in ispcp is this one:

Code:

sub encrypt_db_password {

    my ($pass) = @_;

    push_el(\@main::el, 'encrypt_db_password()', 'Starting...');

    if (!defined($pass) || $pass eq '') {

        push_el(\@main::el, 'encrypt_db_password()', 'ERROR: Undefined input data ($pass)...');

        return (1, '');

    }

    my $cipher = Crypt::CBC -> new(
                                    {
                                        'key'             => $main::db_pass_key,
                                        'keysize'                 => 32,
                                        'cipher'          => 'Blowfish',
                                        'iv'              => $main::db_pass_iv,
                                        'regenerate_key'  => 0,
                                        'padding'         => 'space',
                                        'prepend_iv'      => 0
                                    }
                                  );

    my $ciphertext = $cipher->encrypt($pass);

    my $encoded = encode_base64($ciphertext); chop($encoded);

    push_el(\@main::el, 'encrypt_db_password()', 'Ending...');

    return (0, $encoded);

}

so, if you try the line "keysize" in your vhcs, maybe it helps...

[Zothos]

keysize should help. Had the same error on my old vhcs server.