Crypt::Juniper - Encrypt/decrypt Juniper $9$ secrets |
Crypt::Juniper - Encrypt/decrypt Juniper $9$ secrets
Version 0.02
use Crypt::Juniper; my $secret = juniper_decrypt('$9$LbHX-wg4Z'); ## $secret="lc"; my $crypt = juniper_encrypt('lc'); ## encrypt it
juniper_decrypt($crypt)
Decrypt the string $crypt
, returning the corresponding plain-text.
Input string must be of the format ``$9$blahblah''. This function will
die()
if there any processing errors.
juniper_encrypt($secret)
Encrypt the plain text $secret
, returning a result suitable for
inclusion in a Juniper configuration.
kevin brintnall, <kbrint at rufus.net>
Copyright 2008 kevin brintnall, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Crypt::Juniper - Encrypt/decrypt Juniper $9$ secrets |