Perl crypter STDIN Mots de passe

Je produit un module PERL qui fournit une interface OO pour une API tierce. Je souhaite capturer et stocker le mot de passe de l'utilisateur dans un format crypté avant qu'il ne soit transmis à l'API tierce. Le module est destiné à être exécuté sur des systèmes basés sur UNIX uniquement.

J'ai produit le script suivant qui effectue la fonction de capture - est-ce correct en ce sens qu'il stocke uniquement la variable de mot de passe dans un format crypté? Je suis préoccupé par le fait que le mot de passe peut être disponible en mémoire ailleurs (par exemple moins de $ _ bien que $ _ adef). P>

NB. J'utilise STDIN plutôt que @Argv avec l'hypothèse que le système d'exploitation ne consomme pas l'entrée ou n'inclut pas le mot de passe dans le nom de processus. J'utilise une regex substitut plutôt que de chomber pour que l'entrée ne soit pas à stockée dans une variable temporaire non cryptée. Je suppose également qu'il n'est pas possible d'être complètement sécurisé en ce sens que le logiciel de capture d'entrée pourrait toujours capturer l'entrée de l'utilisateur. P>

Merci d'avance p>

use strict;
use warnings;
use Crypt::CBC;
use 5.14.0;

print 'Please enter your password: ';
system('tty -echo');
my $key = Crypt::CBC->random_bytes(56);
my $iv  = Crypt::CBC->random_bytes(8);
my $cipher = Crypt::CBC->new(-key    => $key,
                             -cipher => 'Blowfish',
                             -salt   => 1,
                             );
my $ciphertext = $cipher->encrypt(<STDIN> =~ s/\n$//r);
system('tty echo');