Bonjour,

J'ai un petit problème pour passer outre le clavier de l'utilisateur.
Je vais mieux m'expliquer.

Le but de mon script est de décrypté un fichier qui a été crypté en RSA avec une passphrase.


Voici la partie du code de ma fonction qui a comme paramètre le contenu du fichier :
use strict;
use warnings;

use Term::ReadKey;
use Crypt::RSA;
use Crypt::RSA::Key::Private;

print "Enter pass phrase: ";
ReadMode 'noecho';
my $passphrase = ReadLine 0;
ReadMode 'restore';
print "\n";

my $private =
Crypt::RSA::Key::Private->new(
Filename => 'key.private',
Password => $passphrase,
);

my $cypher = $_[0];

my $rsa = Crypt::RSA->new();

my $message =
$rsa->decrypt(
Cyphertext => $cypher,
Key => $private,
Armour => 1,
)
or die "Unable to decrypt cypher! - ".$rsa->errstr();

print "The message reads:\n$message\n";
Je souhaiterais outrepasser cette partie du code :

print "Enter pass phrase: ";
ReadMode 'noecho';
my $passphrase = ReadLine 0;
ReadMode 'restore';
print "\n";
En faisant comme ceci :

my $private =
Crypt::RSA::Key::Private->new(
Filename => 'key.private',
Password => 'ma jolie passphrase',
);
Quelqu'un aurait-il une idée car j'ai déjà passé pas mal de temps là dessus et je suis un peu bloqué ?

Merci par avance pour votre aide !