NAME

Crypt::OpenSSL::Base::Func - Base Functions, using the OpenSSL libraries

SYNOPSIS

    use Crypt::OpenSSL::Base::Func;

Methods

ecdh

    z_bin = ecdh(local_priv_pem_file, peer_pub_pem_file)

aes_cmac

RFC4493: aes_cmac

    mac = aes_cmac(key, plaintext, cipher_name)

    my $key = pack("H*", '2b7e151628aed2a6abf7158809cf4f3c');
    my $msg_1 = pack("H*", '6bc1bee22e409f96e93d7e117393172a');
    my $mac_1 = aes_cmac($key, $msg_1, 'aes-128-cbc');
    print unpack("H*", $mac_1), "\n";

    #$ echo -n '6bc1bee22e409f96e93d7e117393172a' | xxd -r -p | openssl dgst -mac cmac -macopt cipher:aes-128-cbc -macopt hexkey:2b7e151628aed2a6abf7158809cf4f3c 
    #(stdin)= 070a16b46b4d4144f79bdd9dd04a287c

PKCS12_key_gen

RFC7292 : PKCS12_key_gen

see also openssl/crypto/pkcs12/p12_key.c

    PKCS12_key_gen(password, salt_hexstr, id, iteration, outlen, digest_name)

    my $macdata_key = PKCS12_key_gen('123456', pack("H*", 'e241f01650dbeae4'), 3, 2048, 32, 'sha256');
    print unpack("H*", $macdata_key), "\n";

PKCS5_PBKDF2_HMAC

RFC2898 : PBKDF2

see also openssl/crypto/evp/p5_crpt2.c

    PKCS5_PBKDF2_HMAC(password, salt, iteration, digest_name, outlen)

    my $pbkdf2_key = PKCS5_PBKDF2_HMAC('123456', pack("H*", 'b698314b0d68bcbd'), 2048, 'sha256', 32);
    print unpack("H*", $pbkdf2_key), "\n";

bn_mod_sqrt

see also openssl/crypto/bn/bn_sqrt.c

    s = bn_mod_sqrt(a, p)

    my $a = '04'; #hexstring
    my $p = '05'; #hexstring
    my $s = bn_mod_sqrt($a, $p); #hexstring
    print $s, "\n";
    #03

evp_pkey_from_point_hex

    my $ec_pkey_pub = evp_pkey_from_point_hex($ec_group, $ec_point_hex, $bn_ctx);

evp_pkey_from_priv_hex

    my $ec_pkey_priv = evp_pkey_from_priv_hex($ec_group, $ec_priv_hex); 

pem_write_evp_pkey

    my $ret = pem_write_evp_pkey($dst_fname, $evp_pkey, $is_priv);

pem_read_pkey

    my $evp_pkey = pem_read_pkey($key_file, $is_priv);

ecdh_pkey

    my $z = ecdh_pkey($pkey_priv, $pkey_peer_pub);

generate_ec_key

    my $ec_key_hash_ref = generate_ec_key( $group, $priv_bn, $point_compress_t, $ctx );

random_bn

    my $random_bn = random_bn($Nn);

    my $Nn = 16;
    my $random_bn = random_bn($Nn);
    print $random_bn->to_hex, "\n";

point2hex

    my $point_hex = point2hex($group_name, $point, $point_compress_t);

cpanm Crypt::OpenSSL::Base::Func

perl -MCPAN -e shell
install Crypt::OpenSSL::Base::Func