Generate Secret Key from Password

The GenEncodedSecretKey method provides a way to produce a secret key from an arbitrarily sized password string. The secret key produced will be equal in bit length to the KeyLength. A given string passed to GenEncodedSecretKey will always produce the same key. (In other words, this is really a hash function and not a random key generator.)

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$crypt = new chilkat::CkCrypt2();

$success = $crypt->UnlockComponent("Anything for 30-day Trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

$crypt->put_CryptAlgorithm("aes");
$crypt->put_KeyLength(128);

#  Transform an arbitrary-length password to a secret key
#  equal in bit-length to the KeyLength:

$hexKey = $crypt->genEncodedSecretKey("my_password","hex");

#  Set the secret key:
$crypt->SetEncodedKey($hexKey,"hex");

#  The hexKey is 16 bytes in length:
print $hexKey . "\n";