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 :
Je souhaiterais outrepasser cette partie du code :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";
En faisant comme ceci :print "Enter pass phrase: ";
ReadMode 'noecho';
my $passphrase = ReadLine 0;
ReadMode 'restore';
print "\n";
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é ?my $private =
Crypt::RSA::Key::Private->new(
Filename => 'key.private',
Password => 'ma jolie passphrase',
);
Merci par avance pour votre aide !
Partager