view release on metacpan or search on metacpan
dropbear/libtomcrypt/makefile_include.mk view on Meta::CPAN
mkdir -p libtomcrypt-$(VERSION)/doc
cp doc/crypt.pdf libtomcrypt-$(VERSION)/doc/crypt.pdf
tar -c libtomcrypt-$(VERSION)/ | xz -6e -c - > crypt-$(VERSION).tar.xz
zip -9rq crypt-$(VERSION).zip libtomcrypt-$(VERSION)
rm -rf libtomcrypt-$(VERSION)
gpg -b -a crypt-$(VERSION).tar.xz
gpg -b -a crypt-$(VERSION).zip
codecheck: $(call print-help,codecheck,Check the code of the library)
perl helper.pl -a
perlcritic *.pl
view release on metacpan or search on metacpan
.travis.yml view on Meta::CPAN
- perl: 5.26
env: COVERAGE=1 # enables coverage+coveralls reporting
allow_failures:
- perl: "5.28"
before_install:
- curl https://coreos.com/dist/pubkeys/app-signing-pubkey.gpg | sudo apt-key add -
- wget https://github.com/coreos/etcd/releases/download/${ETCD_VER}/etcd-${ETCD_VER}-linux-amd64.tar.gz -O /tmp/etcd-${ETCD_VER}-linux-amd64.tar.gz
- mkdir -p /tmp/test-etcd
- tar xzvf /tmp/etcd-${ETCD_VER}-linux-amd64.tar.gz -C /tmp/test-etcd --strip-components=1
- /tmp/test-etcd/etcd -version
- git clone git://github.com/travis-perl/helpers ~/travis-perl-helpers
view release on metacpan or search on metacpan
any concern to you, by all means verify the signature of this file and
contact the author if any discrepancy is detected.
You can find more information about this at the following URL
http://mipagina.cantv.net/lem/gpg/
COPYRIGHT AND LICENSE
This code is released under the same terms as Perl itself
view release on metacpan or search on metacpan
lib/Net/FullAuto/FA_Core.pm view on Meta::CPAN
#
## For root access on Ubuntu and Amazon EC2 servers
#
# sudo su -or- sudo bash -l
#
## For creating gpg secret key for use with cpansign -s
#
# gpg --gen-key (then follow onscreen instructions)
#
# Export Public Key: http://www.gnupg.org/gph/en/manual/x56.html
# http://keyserver.ubuntu.com:11371
# http://pgp.mit.edu
# https://keyserver.pgp.com
#
# http://irtfweb.ifa.hawaii.edu/~lockhart/gpg/gpg-cs.html (gpg cheatsheet)
#
## For running CPAN with sudo
#
# sudo -i cpan (-i loads the root environment)
#
view release on metacpan or search on metacpan
lib/Net/Launchpad/Role/Person.pm view on Meta::CPAN
with 'Net::Launchpad::Role::Common';
# ABSTRACT: Person roles
method gpg_keys {
return $self->collection('gpg_keys');
}
method irc_nicks {
return $self->collection('irc_nicknames');
}
lib/Net/Launchpad/Role/Person.pm view on Meta::CPAN
version 2.101
=head1 METHODS
=head2 gpg_keys
Returns list a gpg keys registered
=head2 irc_nicks
Returns list of irc nicks
view release on metacpan or search on metacpan
SHA1 bdd52baa1a968cc0e1a577a7b073f046d563a317 t/release-kwalitee.t
SHA1 ca37d7b91c2299a98877a6f36d3fab51e8dd906f t/release-pod-coverage.t
SHA1 e7fc4d8f3f29ee522cb53914648393524fc7a6d4 t/release-pod-syntax.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1
Comment: GPGTools - http://gpgtools.org
iQIcBAEBAgAGBQJVnlYEAAoJEHwWRyBU62lqtMYP/29a+elaoBZicm8JOIzvOmzU
9UBmBAQr/N4ns6Y3zdIMUyHLr27pCf30O3qwhBGI9wW3YRXfJXOHiNLM7h9wmrVt
oLxNK9RYkoo9OQc4o5vNQ8bnXt9kHc5ZYnA2g8UwHFixuva7kSODMKW1ykhoqLw8
3YXOMr9BvmvIxn4+zg4erLxA+BDvnRCHVnu23TTbZsnWx5hJWw7aH7W1DDNGjrCX
view release on metacpan or search on metacpan
Features
- return the port num as 5th return value with ack (jfraire)
2.57 Wed Feb 1 19:34:03 CET 2017 (rurban)
Bugfixes
- Resigned with new gpg key
2.56 Wed Jan 18 16:00:00 2017 -0700 (bbb)
Bugfixes
- Stabilize tests
view release on metacpan or search on metacpan
any concern to you, by all means verify the signature of this file and
contact the author if any discrepancy is detected.
You can find more information about this at the following URL
http://mipagina.cantv.net/lem/gpg/
COPYRIGHT AND LICENSE
Copyright © 2006 Luis E. Muñoz <luismunoz@cpan.org>
view release on metacpan or search on metacpan
any concern to you, by all means verify the signature of this file and
contact the author if any discrepancy is detected.
You can find more information about this at the following URL
http://mipagina.cantv.net/lem/gpg/
COPYRIGHT AND LICENSE
Original work (c) Christopher Masto. Changes (c) 2002,2003 Luis
E. Muñoz <luismunoz@cpan.org>.
view release on metacpan or search on metacpan
samples/resume_put.pl view on Meta::CPAN
#
use strict;
use warnings;
@ARGV == 2 or die "Usage:\n resume_put.pl file_len gpg_id\n\n";
my ($len, $id) = @ARGV;
use Net::SFTP::Foreign;
my $base;
samples/resume_put.pl view on Meta::CPAN
while ($len > 0) {
print $fh substr $base, 0, $len;
$len -= length $base
}
close $fh;
unlink 'local.txt.gpg';
system 'gpg', '--encrypt', '--recipient', $id, 'local.txt';
read_file("local.txt.gpg", binmode => ':raw');
}
open STDERR, ">", "Net-SFTP-Foreign.debug";
$Net::SFTP::Foreign::debug = 3+32+128+4096+16384;
samples/resume_put.pl view on Meta::CPAN
my $i = 1;
eval {
while (1) {
my $s;
my $content = create_file(1 + int rand $len);
my $gpg_len = length $content;
for (1..100) {
my $remote = 1 + int rand length $content;
print STDERR "\n\n############################## ${i}:$remote/$gpg_len ################################\n\n";
print " ${i}:$remote/$gpg_len";
$i++;
$s //= Net::SFTP::Foreign->new('localhost');
$s->setcwd($pwd);
write_file("remote.txt.gpg", {binmode => ':raw'}, substr($content, 0, $remote));
$s->put("local.txt.gpg", "remote.txt.gpg", resume => 1);
if ($s->error) {
print $s->error . "!";
undef $s;
next;
}
my $rcontent = read_file("remote.txt.gpg", binary => ':raw');
unless ($content eq $rcontent and
(stat "remote.txt.gpg")[7] == (stat "local.txt.gpg")[7]) {
die "\ndifferent contents\n";
}
}
}
};
view release on metacpan or search on metacpan
SHA1 f8022c20ba6a94c9c24b4576c76527bf16a9f94a lib/Net/SFTP/Constants.pm
SHA1 0c32c77688f35877944eb886a1005edf1e425116 lib/Net/SFTP/Util.pm
SHA1 f16f22aefa48564da5c7d5186a35ce7900933f07 t/01-load.t
SHA1 9f73570113ff6c5110b5ac5a63ce73236f420fa4 t/06-circular.t
-----BEGIN PGP SIGNATURE-----
Comment: GPGTools - http://gpgtools.org
iQEcBAEBCAAGBQJZUtOuAAoJEC3vSbXAsR2+54MIAJH88INyz4A52lY7ub/mrlsh
EHtjSXj4tC/dZEQ66mBYmJyceB3MtmSDRar66qwirW12FDrvyA+ZlyWEo7ijThRE
PDAASsMFOUtJRhN9ppQJQetBhvvdXFi0YJAQScScVXql6D6KEdoKpQHk+IMbq2nc
K5Fn8DJOMszIXusB5FOrqzwk6wlDc0+jBlMS/Rj3xsKa9xGBZoHLVAXLlR5hWYBL
view release on metacpan or search on metacpan
Automaton.pm view on Meta::CPAN
=item SECRING
The full path to the secret keyring file.
eg: /home/user/.gnupg/secring.gpg
=item PUBRING
The full path to the public keyring file.
eg: /home/user/.gnupg/pubring.gpg
=item COMPAT
The compatibility mode for Crypt::OpenPGP (PGP2, PGP5 or GnuPG)
view release on metacpan or search on metacpan
lib/Net/Whois/Object.pm view on Meta::CPAN
my $primary_key = $object->syncupdates_create( { password => $password } );
# or
my $primary_key = $object->syncupdates_create( { pgpkey => $keyID, align => 8 } );
The pgp key must be an eight digit hexadecimal key ID known to the local
C<gpg> executable.
If the C<pgpkey> key is present in the hash reference passed to
syncupdates_create, you can also pass in the C<pgpexec> key to chose a program
to execute for signing (C<gpg> by default), and C<pgpopts>, which must be an
array reference of additional options to pass to the signing binary.
The primary key of the object created is returned.
The attribute used as primary key can be obtained through
C<$object->attribute('primary')>
lib/Net/Whois/Object.pm view on Meta::CPAN
return $response_text;
}
=head2 B<_pgp_sign( $text, $auth )>
Sign the C<$text> with the C<gpg> command and gpg information in C<$auth>
Returns the signed text.
=cut
sub _pgp_sign {
my ( $self, $text, $auth ) = @_;
my $binary = $auth->{pgpexec} || 'gpg';
my $key_id = $auth->{pgpkey};
my @opts = @{ $auth->{pgpopts} || [] };
$key_id =~ s/^0x//;
my $pid = open2( my $child_out, my $child_in, $binary, "--local-user=$key_id", '--clearsign', @opts );
view release on metacpan or search on metacpan
lib/Net/XMPP/Roster.pm view on Meta::CPAN
my $status = $Roster->resourceQuery(Net::XMPP::JID,"Work","status");
my @resource = $Roster->resources('bob@jabber.org');
my @resource = $Roster->resources(Net::XMPP::JID);
$Roster->resourceStore('bob@jabber.org',"Home","gpgkey",key);
$Roster->resourceStore(Net::XMPP::JID,"logged on","2004/04/07 ...");
$Roster->store('bob@jabber.org',"avatar",avatar);
$Roster->store(Net::XMPP::JID,"display_name","Bob");
view release on metacpan or search on metacpan
lib/Net/XMPP3/Roster.pm view on Meta::CPAN
my $status = $Roster->resourceQuery(Net::XMPP3::JID,"Work","status");
my @resource = $Roster->resources('bob@jabber.org');
my @resource = $Roster->resources(Net::XMPP3::JID);
$Roster->resourceStore('bob@jabber.org',"Home","gpgkey",key);
$Roster->resourceStore(Net::XMPP3::JID,"logged on","2004/04/07 ...");
$Roster->store('bob@jabber.org',"avatar",avatar);
$Roster->store(Net::XMPP3::JID,"display_name","Bob");
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
/doc/libgphoto2-2/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/libgpgme11/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/libgpg-error0/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/libgp11-0/
t/test1.xml view on Meta::CPAN
/doc/bridge-utils/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/gpgv/
</key>
</vulnerability>
<vulnerability id="http-generic-browsable-dir" resultCode="VE">
<key>
/doc/graphviz/
view release on metacpan or search on metacpan
externals/OPTIMADE/external/GNU_Units/definitions.units view on Meta::CPAN
# Water is "hard" if it contains various minerals, expecially calcium
# carbonate.
#
clarkdegree grains/brgallon # Content by weigh of calcium carbonate
gpg grains/usgallon # Divide by water's density to convert to
# a dimensionless concentration measure
#
# Shoe measures
#
view release on metacpan or search on metacpan
* added LICENSE head1 to pod, fixes t/z_kwalitee.t
0.12 2013-04-05 rurban
* remove outdated SIGNATURE and META files from repo.
* fix t/kwalitee.t to use generated MYMETA.yml
* Update SIGNATURE with new gpg key
0.11 2011-12-06 rurban
* remove Opcode, Carp and AutoLoader, too heavy and not needed.
Loads 4 files and 1162 lines less.
view release on metacpan or search on metacpan
opengl_array.xs view on Meta::CPAN
for (i=0; i<count; i++)
mat[i] = (GLfloat)SvNV(ST(i+1));
}
#if 0 /* Need to figure out why this is slower than CPU calcs */
/* Use GPU if FBOs and Fragment Programs are supported */
fbo_width = gpgpu_width(len);
if (dim == 4 && fbo_width)
{
GLuint target = GL_TEXTURE_RECTANGLE_ARB;
int w = fbo_width;
int h = len / (w*3);
view release on metacpan or search on metacpan
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
}
sub export_key {
my $self = shift;
return scalar `gpg --armor --export $self->{keyid}`;
}
sub test {
my $self = shift;
return ($self->{gnupg} and $self->{gnupg}->test_default_key_passphrase);
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
# pgp support broken, so...
$cipher_level &= ~CIPHER_PGP;
$auth_level &= ~AUTH_PGP;
}
elsif ($keyid) {
unless ($Pubkey = `gpg --armor --export $keyid`) {
$cipher_level &= ~CIPHER_PGP;
$auth_level &= ~AUTH_PGP;
}
}
elsif (!`gpg --version`) {
$cipher_level &= ~CIPHER_PGP;
$auth_level &= ~AUTH_PGP;
}
else {
$cipher_level &= ~CIPHER_PGP unless $clientflag;
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
my ($self, $pass) = @_;
$self->{gnupg}->passphrase($self->{pass} = $pass);
}
sub gpg_setup {
my ($input, $output, $stderr) = (
IO::Handle->new(),
IO::Handle->new(),
IO::Handle->new(),
);
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
if ($method eq 'decrypt' and not defined $self->{pass}) {
print "error: no passphrase for $self->{who}.\n";
exit;
}
my ($i, $o, $e, $h) = gpg_setup();
my $pid = $self->{gnupg}->$method(
handles => $h,
command_args => (
($method eq 'clearsign') ? (
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
no warnings 'redefine';
sub import_key {
my ($self, $pubkey) = @_;
open my $FH, '| gpg --import --quiet --batch';
print $FH $pubkey;
close $FH;
return $pubkey;
}
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
open my $FH, '>', 'encrypt' or die "$!";
print $FH $message;
close $FH;
return if system("gpg --yes --encrypt --quiet --batch --always-trust --armor -r $self->{who} -o encrypt.gpg encrypt");
local $/;
open $FH, 'encrypt.gpg' or die "$!";
$message = <$FH>;
close $FH;
unlink 'encrypt';
unlink 'encrypt.gpg';
return $message;
}
sub clearsign {
lib/OurNet/BBS/Authen.pm view on Meta::CPAN
open my $FH, '> encrypt' or die "$!";
print $FH $message;
close $FH;
return if system(
"gpg --yes --clearsign -u $self->{keyid} -o encrypt.gpg encrypt"
);
local $/;
open $FH, 'encrypt.gpg' or die "$!";
$message = <$FH>;
close $FH;
unlink 'encrypt';
unlink 'encrypt.gpg';
return $message;
}
.
view release on metacpan or search on metacpan
t/certs/server.key view on Meta::CPAN
8wiFY5G/LMp7Oi6zhVNrHvrxoAEhNj5pJto2EOCduuSGkqBVwhsNFyNiY20Qj72A
qeMSWeawGiLng3JlnQ/S7R+Meo6KKQfhJmBEwKdYUFWL6kDp6d8BAWprMQFoavv2
vgjRLdGRboWzcVWYbp1YvT2JY0Duj+amiP0LhadNqEn3reOH7XV+xWSmxvgcD7oW
RwrzZFpdSnVSKEMSJSzwoAV+8FgDRsUbTBlsj9N6ZUn4hCsGDH5L5qTQT3d4bRrw
wsKb01PJAgMBAAECggEAKCGr0B124/ZJgYjBcsomBQFrA+K5a6PoiUEQwK8DkK+a
Bh216lwgTITj1xRGxVdUxAzKCgpg7LFrw03OxvEm12ryQGBtPdNuRsfUKKbUq8g/
Yc1/0IhhlpjXV0mfr4JZk4/iDFzUAFr3UeXpLBP5kAXy58sUIP48f7Apnj7wZPL2
XG4OjP1voq9sWZgZ38jUG/tad4TRtj5NBaeET/f3YAzg3EBLgyxSEX6OPoTnlxrZ
wbE/EijOoR2cN/97StQZ+SRgGDDugcvXIMOmDLPwE6HXuu/BQa4FNdx6paEWd7vQ
dTiQlNzxhoQqYWwZR1CcO6S/ylCpOymVYh4t8G0EAQKBgQD+HxpnGDGVDlomE0nS
54EaIurSRFE4biFmdt7xI3mzRhJ7k8qjvXtCQb5OaxDSLCNV6BCxutpWz1X9/NvO
view release on metacpan or search on metacpan
lib/PAR/Dist.pm view on Meta::CPAN
return $files;
}
=head2 sign_par
Digitally sign a PAR distribution using C<gpg> or B<Crypt::OpenPGP>,
via B<Module::Signature>.
=cut
sub sign_par {
lib/PAR/Dist.pm view on Meta::CPAN
_verify_or_sign(%args, action => 'sign');
}
=head2 verify_par
Verify the digital signature of a PAR distribution using C<gpg> or
B<Crypt::OpenPGP>, via B<Module::Signature>.
Returns a boolean value indicating whether verification passed; C<$!>
is set to the return code of C<Module::Signature::verify>.
view release on metacpan or search on metacpan
script/tkpp view on Meta::CPAN
perl_path => $EXECUTABLE_NAME,
pp_path => File::Spec->catfile( dirname($PROGRAM_NAME), 'pp' . $pp_extension ),
log_path => 'tkpp.log',
commandline_path => 'tkpp_command.bat',
tkpp_conf => 'tkpp_conf.tkpp',
gpg_path => undef,
perl_version => $PERL_VERSION,
tk => {
name_application => 'Tkpp',
header_title => "Tkpp is a GUI frontend to pp, which can turn perl scripts \n"
. 'into stand-alone PAR files, perl scripts or executables.',
view release on metacpan or search on metacpan
die( "The key could not be found, or there was one than one match.\n" ) unless defined($obj);
print $obj->result; # the keyid found.
print $obj->name; # the name associated with the key.
# We could call `gpg --recv-key $obj->result` here.
=head1 DESCRIPTION
Perl interface to finding PGP keyids from e-mail addresses.
view release on metacpan or search on metacpan
lib/PGP/Finger/App.pm view on Meta::CPAN
$q = lc($q);
if( $q eq 'dns' ) {
$src = PGP::Finger::DNS->new();
} elsif( $q eq 'keyserver' ) {
$src = PGP::Finger::Keyserver->new();
} elsif( $q eq 'gpg' ) {
$src = PGP::Finger::GPG->new();
} elsif( $q eq 'file' ) {
$src = PGP::Finger::File->new(
input => $self->input,
format => $self->format,