Chinaunix首页 | 论坛 | 博客
  • 博客访问: 486305
  • 博文数量: 279
  • 博客积分: 4467
  • 博客等级: 上校
  • 技术积分: 2830
  • 用 户 组: 普通用户
  • 注册时间: 2007-04-03 14:43
文章分类

全部博文(279)

文章存档

2013年(1)

2012年(39)

2011年(35)

2009年(29)

2008年(131)

2007年(44)

分类:

2008-07-02 11:52:04

#!/usr/bin/perl

use GnuPG;
$username=$ARGV[0];
$file=$ARGV[1];
$size=@ARGV;
if($size!=2){
print "usage: encrypt.pl \n";
exit(0);
}
#$username="admin11";

#$file="/home/admin11/key/test.txt";


$homedir="/home/$username/";
$gpg=substr($file,rindex($file,"/")+1);
$gpgfile=$homedir.$gpg.'.gpg';
my $gpg=new GnuPG();
sub encrypt_test {
    printf "%-40s", "Encrypt";
    $gpg->encrypt(
                  recipient => "$username",
                  output => $gpgfile,
                  armor => 1,
                  plaintext => "$file",
                 );
}
    eval {
        no strict 'refs'; # We are using symbolic references

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



阅读(453) | 评论(0) | 转发(0) |
0

上一篇:GnuPG用法gen_key.pl

下一篇:decrypt.pl

给主人留下些什么吧!~~