decrypt.pl

#!/usr/bin/perl

use GnuPG;
$username=$ARGV[0];
$keyring=$ARGV[1];
$pass=$ARGV[2];
$en_file=$ARGV[3];
$size=@ARGV;
if($size!=4){
print "usage:decrypt.pl \n";
exit(0);
}
#$username="admin11";

#$keyring="/home/admin11/test.txt.gpg";

#$pass="123456";

#$en_file="/home/admin11/test.txt";

my $gpg=new GnuPG();
sub decrypt_test {
    printf "%-40s", "Decrypt a file";
    $gpg->decrypt(
                    output => "$en_file",
                    ciphertext => "$keyring",
                    passphrase => "$pass",
                 );
}





    eval {
        no strict 'refs'; # We are using symbolic references

        &decrypt_test();
    };
    if ( $@ ) {
        print "not ok: $@";
    } else {
        print "ok \n";
    }