1*ebfedea0SLionel Sambuc#! /usr/pkg/bin/perl -w 2*ebfedea0SLionel Sambuc 3*ebfedea0SLionel Sambuc# netpgp bindings for perl 4*ebfedea0SLionel Sambuc 5*ebfedea0SLionel Sambucuse lib "/usr/src/crypto/external/bsd/netpgp/dist/bindings/perl"; 6*ebfedea0SLionel Sambuc 7*ebfedea0SLionel Sambucuse netpgpperl; 8*ebfedea0SLionel Sambuc 9*ebfedea0SLionel Sambuc# initializations 10*ebfedea0SLionel Sambuc$n = netpgpperlc::new_netpgp_t(); 11*ebfedea0SLionel Sambucnetpgpperlc::netpgp_setvar($n, "homedir", $ENV{'HOME'}."/.gnupg"); 12*ebfedea0SLionel Sambucnetpgpperlc::netpgp_setvar($n, "hash", "SHA256"); 13*ebfedea0SLionel Sambucnetpgpperlc::netpgp_init($n); 14*ebfedea0SLionel Sambuc 15*ebfedea0SLionel Sambuc# get the default userid 16*ebfedea0SLionel Sambuc$userid = netpgpperlc::netpgp_getvar($n, "userid"); 17*ebfedea0SLionel Sambuc 18*ebfedea0SLionel Sambucforeach $i (0 .. $#ARGV) { 19*ebfedea0SLionel Sambuc # set up file names 20*ebfedea0SLionel Sambuc my $in = $ARGV[$i]; 21*ebfedea0SLionel Sambuc my $out = $in . ".gpg"; 22*ebfedea0SLionel Sambuc 23*ebfedea0SLionel Sambuc # sign the file, output is in $out 24*ebfedea0SLionel Sambuc netpgpperlc::netpgp_sign_file($n, $userid, $in, $out, 0, 0, 0); 25*ebfedea0SLionel Sambuc 26*ebfedea0SLionel Sambuc # verify the signed file $out 27*ebfedea0SLionel Sambuc netpgpperlc::netpgp_verify_file($n, $out, "/dev/null", 0); 28*ebfedea0SLionel Sambuc} 29