view release on metacpan or search on metacpan
lib/Net/FullAuto.pm view on Meta::CPAN
use Term::Menus 2.54;
use Tie::Cache;
use Sort::Versions;
use Crypt::CBC;
use Crypt::DES;
use JSON;
use URI;
use HTTP::Date;
use Capture::Tiny;
use Net::Telnet;
view release on metacpan or search on metacpan
lib/Net/SNMP.pm view on Meta::CPAN
The Net::SNMP module uses syntax that is not supported in versions of Perl
earlier than v5.6.0.
=item *
The non-core modules F<Crypt::DES>, F<Digest::MD5>, F<Digest::SHA1>, and
F<Digest::HMAC> are required to support SNMPv3.
=item *
In order to support the AES Cipher Algorithm as a SNMPv3 privacy protocol, the
view release on metacpan or search on metacpan
lib/Net/SSH/Perl/Cipher/DES.pm view on Meta::CPAN
=head1 DESCRIPTION
I<Net::SSH::Perl::Cipher::DES> provides DES encryption
support for I<Net::SSH::Perl>. To do so it wraps around
I<Crypt::DES>, a C/XS implementation of the DES algorithm.
The DES algorithm used here is in CBC filter mode with a
key length of 8 bytes.
=head1 AUTHOR & COPYRIGHTS
view release on metacpan or search on metacpan
lib/Net/VNC.pm view on Meta::CPAN
package Net::VNC;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use Crypt::DES;
use Image::Imlib2;
use IO::Socket::INET;
use bytes;
__PACKAGE__->mk_accessors(
qw(hostname port username password socket name width height depth save_bandwidth
lib/Net/VNC.pm view on Meta::CPAN
$realkey .= pack( 'b8', scalar reverse unpack( 'b8', $byte ) );
}
# warn unpack('b*', $realkey);
my $cipher = Crypt::DES->new($realkey);
my $response;
my $i = 0;
while ( $i < 16 ) {
my $word = substr( $challenge, $i, 8 );
view release on metacpan or search on metacpan
Better diagnostics from the test process.
Updated document to cut down sales-talk and beef up spelling.
New ciphers Crypt::DES_EDE3 and Crypt::Rijndael_PP are supported.
The NNTP backend now handles "id" and "title" predicably.
Fixed a bbscomd bug of not detecting wrong passphrases.
view release on metacpan or search on metacpan
lib/Palm/Keyring.pm view on Meta::CPAN
return $key, $hash;
}
sub _crypt3des
{
require Crypt::DES;
my ( $plaintext, $passphrase, $flag ) = @_;
$passphrase .= $SPACE x ( 16 * 3 );
my $cyphertext = $EMPTY;
lib/Palm/Keyring.pm view on Meta::CPAN
#print "STRING: '$plaintext' - Length: " . (length $plaintext) . "\n";
my @C;
for ( 0 .. 2 ) {
$C[$_] =
new Crypt::DES( pack 'H*', ( substr $passphrase, 16 * $_, 16 ));
}
for ( 0 .. ( ($size) / 8 ) ) {
my $pt = substr $plaintext, $_ * 8, 8;
lib/Palm/Keyring.pm view on Meta::CPAN
B<For v4 databases>
Digest::MD5
Crypt::DES
B<For v5 databases>
Digest::HMAC_SHA1
lib/Palm/Keyring.pm view on Meta::CPAN
Depending on how the database is encrypted
Crypt::CBC - For any encryption but None
Crypt::DES_EDE3 - DES_EDE3 encryption
Crytp::Rijndael - AES encryption schemes
=head1 THANKS
view release on metacpan or search on metacpan
t/data/03modlist.data view on Meta::CPAN
'Heuristic parse of C files',
'ILYAZ',
' 9'
],
[
'Crypt::DES',
'a',
'',
'',
'',
'?',
t/data/03modlist.data view on Meta::CPAN
'a',
'd',
'p',
'O',
'?',
'Cipherblock chaining for Crypt::DES/IDEA',
'LDS',
'14'
],
[
'Authen::ACE',
t/data/03modlist.data view on Meta::CPAN
'M',
'd',
'p',
'h',
'?',
'ECB mode for Crypt::DES, Blowfish, etc.',
'APPEL',
'14'
],
[
'Python',
view release on metacpan or search on metacpan
"Const::Fast" : "0",
"Coro" : "v6.52.0",
"Cpanel::JSON::XS" : "v4.7.0",
"Crypt::Argon2" : "v0.5.0",
"Crypt::CBC" : "v2.33.0",
"Crypt::DES" : "v2.7.0",
"Crypt::OpenSSL::RSA" : "v0.310.0",
"DBD::SQLite" : "v1.58.0",
"DBI" : "v1.641.0",
"Data::MessagePack" : "v1.10.0",
"Data::UUID" : "v1.221.0",
view release on metacpan or search on metacpan
share/32bit-5.18.2.1-no64.pp view on Meta::CPAN
'Crypt-OpenSSL-RSA',
'Alt::Crypt::RSA::BigInt', #XXX-TODO: a hack Crypt-RSA without Math::PARI
# this is subset of modules we install on64bit
qw/ Crypt::IDEA Crypt::Blowfish Crypt::Twofish Crypt::DES Crypt::DH /,
qw/ Crypt::Rijndael Crypt::CAST5_PP Crypt::CBC Crypt::DES_EDE3 Crypt::DSA Crypt::RIPEMD160 /,
{ module =>'Convert-PEM', ignore_testfailure=>1 }, #XXX-TODO
qw/ Class-Loader Convert-ASCII-Armor Sort-Versions Tie-EncryptedHash /,
#qw/ Crypt::Random /, #fails on 64bit
view release on metacpan or search on metacpan
lib/PerlIO/via/CBC.pm view on Meta::CPAN
=head2 PUSHED
=head1 REQUIRED MODULES
Crypt::CBC' => 2.12
Crypt::DES' => 2.03
=head1 SEE ALSO
L<PerlIO::via>
view release on metacpan or search on metacpan
lib/RPC/PlClient.pm view on Meta::CPAN
=item cipher
This attribute can be used to add encryption quite easily. PlRPC is not
bound to a certain encryption method, but to a block encryption API. The
attribute is an object supporting the methods I<blocksize>, I<encrypt>
and I<decrypt>. For example, the modules Crypt::DES and Crypt::IDEA
support such an interface.
Note that you can set or remove encryption on the fly (putting C<undef>
as attribute value will stop encryption), but you have to be sure,
that both sides change the encryption mode.
Example:
use Crypt::DES;
$cipher = Crypt::DES->new(pack("H*", "0123456789abcdef"));
$client = RPC::PlClient->new('cipher' => $cipher,
...);
=item maxmessage
view release on metacpan or search on metacpan
lib/SMB/Crypt.pm view on Meta::CPAN
my $data = shift // die "No 8-byte data to crypt";
my $str = shift // die "No 7-byte key to crypt";
my $forw = shift // 1;
if (has_Crypt_DES()) {
return Crypt::DES->new(des_str_to_key($str))->encrypt($data);
}
my $arr = [ map { ord($_) } split '', $data ];
my $key = [ map { ord($_) } split '', des_str_to_key($str) ];
lib/SMB/Crypt.pm view on Meta::CPAN
=head1 ABSTRACT
This module provides fallback implementations for DES, MD4 and MD5 in
pure perl to reduce dependence on non-standard perl modules.
However it is recommended to install L<Crypt::DES>, L<Digest::MD4> and
L<Digest::MD5> modules to get improved performance.
=head1 EXPORTED FUNCTIONS
By default, functions B<des_crypt56>, B<md4>, B<md5> and B<hmac_md5> are exported using the standard L<Exporter> mechanism.
lib/SMB/Crypt.pm view on Meta::CPAN
=item des_crypt56 EIGHT_BYTE_INPUT SEVEN_BYTE_KEY_STR [FORWARD=1]
Returns output of eight bytes that is a permutation of the input according to a key.
If L<Crypt::DES> is found, it is used, otherwise pure perl fallback implemenation is used.
=item md4 DATA
Returns digest of 16 bytes, similar to Digest::MD4::md4.
view release on metacpan or search on metacpan
Revision history for Socialtext-Utils
0.21 - Tue Jan 12 19:54:04 PST 2010
- Add dependency on Crypt::DES
0.20 - Tue Apr 21 13:46:23 PDT 2009
- Add ability to use an NLW-user cookie instead of user/pass.
- Bugfixes to better work with and without Crypt::CBC
view release on metacpan or search on metacpan
lib/Syntax/Highlight/Universal/hrc/base/perl-genkeywords.hrc view on Meta::CPAN
<word name="Crypt::Blowfish"/>
<word name="Crypt::Blowfish_PP"/>
<word name="Crypt::CBC"/>
<word name="Crypt::CBCeasy"/>
<word name="Crypt::CipherSaber"/>
<word name="Crypt::DES"/>
<word name="Crypt::DH"/>
<word name="Crypt::DSA"/>
<word name="Crypt::ECB"/>
<word name="Crypt::GOST"/>
<word name="Crypt::GPG"/>
view release on metacpan or search on metacpan
lib/Task/Cpanel/Internal.pm view on Meta::CPAN
=cut
use Compress::Zlib;
=item L<Crypt::DES_EDE3|Crypt::DES_EDE3>
Triple-DES EDE encryption/decryption
=cut
use Crypt::DES_EDE3;
=item L<Crypt::OpenPGP|Crypt::OpenPGP>
Pure-Perl OpenPGP implementation
view release on metacpan or search on metacpan
lib/Task/FusionInventory.pm view on Meta::CPAN
=item * Archive::Extract
=item * Compress::Zlib
=item * Crypt::DES
=item * Digest::MD5
=item * Digest::SHA
view release on metacpan or search on metacpan
lib/Tie/EncryptedHash.pm view on Meta::CPAN
=head1 SEE ALSO
Data::Dumper(3),
Crypt::CBC(3),
Crypt::DES(3),
Crypt::Blowfish(3),
Tie::SecureHash(3)
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/VOMS/Lite/PEMHelper.pm view on Meta::CPAN
# To encrypt or not to encrypt
if ( $passwd ne "" ) {
# Spin up the Crypto stuff
require Digest::MD5;
require Crypt::DES_EDE3;
# Make Initialisation vector
my $iv="";
while (length($iv)<8 ) {$iv.=chr((rand(255)+1));}
lib/VOMS/Lite/PEMHelper.pm view on Meta::CPAN
my $pad = ( 8 - (length($pri)%8) );
my $padding=chr($pad) x $pad;
$pri.=$padding;
# Encode Data
my $DES = Crypt::DES_EDE3->new($key);
my $cyphertextout="";
while ( my $len=length($pri) ) {
my $block=substr($pri,0,8);
$pri=substr($pri,8);
$block = $SALT ^ $block;
lib/VOMS/Lite/PEMHelper.pm view on Meta::CPAN
my $key=Digest::MD5::md5($passwd,$SALT);
while (length($key) < $keysize) { $key .= Digest::MD5::md5($key, $passwd, $SALT);}
$key=substr($key,0,$keysize);
# Decode Data
require Crypt::DES_EDE3;
my $DES = Crypt::DES_EDE3->new($key);
my $dataout="";
while ( my $len=length($cyphertext) ) {
my $block=substr($cyphertext,0,8);
$cyphertext=substr($cyphertext,8);
my $data=$SALT ^ $DES->decrypt($block);
view release on metacpan or search on metacpan
access/ssh.pm view on Meta::CPAN
gmp
Math::GMP
Convert::ASN1
Convert::PEM
Crypt::DH
Crypt::DES
Digest::SHA1
Convert::ASCII::Armour
Crypt::CBC
Tie::EncryptedHash
Crypt::Blowfish
access/ssh.pm view on Meta::CPAN
Data::Buffer
Crypt::Primes
MD5
Crypt::RSA
Digest::BubbleBabble
Crypt::DES_EDE3
);
# Net::SSH installation is interactive, should be installed by hand
@acmethod_ssh_classes_excp = qw(
Net::SSH::Perl
access/ssh.pm view on Meta::CPAN
Convert::ASCII::Armour => "1.4",
Convert::ASN1 => "0.16",
Convert::PEM => "0.06",
Crypt::Blowfish => "2.09",
Crypt::CBC => "2.08",
Crypt::DES => "2.03",
Crypt::DES_EDE3 => "0.0.1",
Crypt::DH => "0.03",
Crypt::DSA => "0.12",
Crypt::Primes => "0.49",
Crypt::Random => "1.11",
Crypt::RSA => "1.48",
access/ssh.pm view on Meta::CPAN
Convert::ASCII::Armour => "00:00:03",
Convert::ASN1 => "00:00:05",
Convert::PEM => "00:00:05",
Crypt::Blowfish => "00:00:07",
Crypt::CBC => "00:00:04",
Crypt::DES => "00:00:04",
Crypt::DES_EDE3 => "00:00:04",
Crypt::DH => "00:00:03",
Crypt::DSA => "00:00:30",
Crypt::Primes => "00:01:46",
Crypt::Random => "00:00:09",
Crypt::RSA => "00:02:41",
access/ssh.pm view on Meta::CPAN
Convert::ASCII::Armour => "Convert-ASCII-Armour-1.4.tar.gz",
Convert::ASN1 => "Convert-ASN1-0.16.tar.gz",
Convert::PEM => "Convert-PEM-0.06.tar.gz",
Crypt::Blowfish => "Crypt-Blowfish-2.09.tar.gz",
Crypt::CBC => "Crypt-CBC-2.08.tar.gz",
Crypt::DES => "Crypt-DES-2.03.tar.gz",
Crypt::DES_EDE3 => "Crypt-DES_EDE3-0.01.tar.gz",
Crypt::DH => "Crypt-DH-0.03.tar.gz",
Crypt::DSA => "Crypt-DSA-0.12.tar.gz",
Crypt::Primes => "Crypt-Primes-0.49.tar.gz",
Crypt::Random => "Crypt-Random-1.11.tar.gz",
Crypt::RSA => "Crypt-RSA-1.48.tar.gz",
access/ssh.pm view on Meta::CPAN
Convert::ASCII::Armour => 'Vipul Ved Prakash (mail@vipul.net)',
Convert::ASN1 => 'Graham Barr (gbarr@pobox.com)',
Convert::PEM => 'Benjamin Trott (ben@rhumba.pair.com)',
Crypt::Blowfish => 'Dave Paris (amused@pobox.com)',
Crypt::CBC => 'Lincoln D. Stein (lstein@cshl.org)',
Crypt::DES => 'Dave Paris (amused@pobox.com)',
Crypt::DES_EDE3 => 'Benjamin Trott (ben@rhumba.pair.com)',
Crypt::DH => 'Benjamin Trott (ben@rhumba.pair.com)',
Crypt::DSA => 'Benjamin Trott (ben@rhumba.pair.com)',
Crypt::Primes => 'Vipul Ved Prakash (mail@vipul.net)',
Crypt::Random => 'Vipul Ved Prakash (mail@vipul.net)',
Crypt::RSA => 'Vipul Ved Prakash (mail@vipul.net)',
view release on metacpan or search on metacpan
lib/NOTEDB/binary.pm view on Meta::CPAN
# create a new NOTEDB object
$db = new NOTEDB("binary", "/home/tom/.notedb", 4096, 24);
# decide to use encryption
# $key is the cipher to use for encryption
# $method must be either Crypt::IDEA or Crypt::DES
# you need Crypt::CBC, Crypt::IDEA and Crypt::DES to have installed.
$db->use_crypt($key,$method);
# do not use encryption
# this is the default
$db->no_crypt;
view release on metacpan or search on metacpan
lib/RPC/pClient.pm view on Meta::CPAN
=item cipher
This attribute can be used to add encryption quite easily. pRPC is not
bound to a certain encryption method, but to a block encryption API. The
attribute is an object supporting the methods I<blocksize>, I<encrypt>
and I<decrypt>. For example, the modules Crypt::DES and Crypt::IDEA
support such an interface.
Note that you can set or remove encryption on the fly (putting C<undef>
as attribute value will stop encryption), but you have to be sure,
that both sides change the encryption mode.
lib/RPC/pClient.pm view on Meta::CPAN
Do B<not> modify this attribute directly, use the I<encrypt> method
instead! However, it is legal to pass the attribute to the constructor.
Example:
use Crypt::DES;
$crypt = DES->new(pack("H*", "0123456789abcdef"));
$client->Encrypt($crypt);
# or, to stop encryption
$client->Encrypt(undef);