view release on metacpan or search on metacpan
lib/App/ColorNamer.pm view on Meta::CPAN
['CABB48', 'Turmeric'],
['CADCD4', 'Paris White'],
['CAE00D', 'Bitter Lemon'],
['CAE6DA', 'Skeptic'],
['CB8FA9', 'Viola'],
['CBCAB6', 'Foggy Gray'],
['CBD3B0', 'Green Mist'],
['CBDBD6', 'Nebula'],
['CC3333', 'Persian Red'],
['CC5500', 'Burnt Orange'],
['CC7722', 'Ochre'],
lib/App/ColorNamer.pm view on Meta::CPAN
['DE3163', 'Cerise Red'],
['DE6360', 'Roman'],
['DEA681', 'Tumbleweed'],
['DEBA13', 'Gold Tips'],
['DEC196', 'Brandy'],
['DECBC6', 'Wafer'],
['DED4A4', 'Sapling'],
['DED717', 'Barberry'],
['DEE5C0', 'Beryl Green'],
['DEF5FF', 'Pattens Blue'],
['DF73FF', 'Heliotrope'],
view release on metacpan or search on metacpan
lib/App/Serializer.pm view on Meta::CPAN
use Data::Dumper;
# use Compress::Zlib;
# use MIME::Base64;
# use Digest::HMAC_MD5;
# use Crypt::CBC;
use strict;
=head1 NAME
view release on metacpan or search on metacpan
lib/App/KamstrupKemSplit.pm view on Meta::CPAN
my $kem_xml = XMLin($input_file);
DEBUG "Decoding encrypted section from XML with key '$key'";
my $data = decode_base64( $kem_xml->{CipherData}->{CipherValue} );
my $fullkey = $key . ( "\0" x ( 16 - length($key) ) );
my $cipher = Crypt::Rijndael->new( $fullkey, Crypt::Rijndael::MODE_CBC() );
my $plain_xml = $cipher->decrypt($data);
my $fix_head = $kemformat == 2 ? "<Devices schem" : "<MetersInOrder";
# Fix the XML
view release on metacpan or search on metacpan
share/public_html/static/hls.js view on Meta::CPAN
this.subtle = subtle;
this.aesIV = iv;
}
AESCrypto.prototype.decrypt = function decrypt(data, key) {
return this.subtle.decrypt({ name: 'AES-CBC', iv: this.aesIV }, key, data);
};
return AESCrypto;
}();
share/public_html/static/hls.js view on Meta::CPAN
this.subtle = subtle;
this.key = key;
}
FastAESKey.prototype.expandKey = function expandKey() {
return this.subtle.importKey('raw', this.key, { name: 'AES-CBC' }, false, ['encrypt', 'decrypt']);
};
return FastAESKey;
}();
view release on metacpan or search on metacpan
public/javascripts/ace/mode-php.js view on Meta::CPAN
"int mb_substr_count(string haystack, string needle [, string encoding])",
"Count the number of substring occurrences"
],
"mcrypt_cbc": [
"string mcrypt_cbc(int cipher, string key, string data, int mode, string iv)",
"CBC crypt/decrypt data using key key with cipher cipher starting with iv"
],
"mcrypt_cfb": [
"string mcrypt_cfb(int cipher, string key, string data, int mode, string iv)",
"CFB crypt/decrypt data using key key with cipher cipher starting with iv"
],
view release on metacpan or search on metacpan
lib/App/OATH/Crypt.pm view on Meta::CPAN
use strict;
use warnings;
use App::OATH::Crypt::Rijndael;
use App::OATH::Crypt::CBC;
use String::Random qw{ random_string };
sub new {
my ( $class, $password ) = @_;
my $self = {
'workers' => {
'rijndael' => App::OATH::Crypt::Rijndael->new({ 'password' => $password }),
'cbcrijndael' => App::OATH::Crypt::CBC->new({ 'password' => $password, 'type' => 'Rijndael', }),
'cbcblowfish' => App::OATH::Crypt::CBC->new({ 'password' => $password, 'type' => 'Blowfish', }),
},
'type' => q{},
'check' => 'oath',
};
bless $self, $class;
view release on metacpan or search on metacpan
lib/App/PDF/Link/Icons/BandInABox.pm view on Meta::CPAN
DRpOB0mSYOWKlbDk2yXw+wcfSn/kwYd+lNxffPlvsG3zFqiuqgK93qAdRA3djpgjIyMrB/Qf
cCT43v6i/UNlWZZ6k9xVVYV+/frt/NEb0Wl3RlGBqgARiRk7kgbNeb65fPO6iMShnu5uFKV0
1pKlS/5QWlY6XKfT6a0RVi25paHr0bsogsfjAZfbdUbLb9qwAWprarXyRw09gizLkDcib7vV
ag2deAV7Cs7r9WQqh2HEiBE7uk7uCICqBIjMwBSbXG6JH/KG11G2dPjlfytBCHngga6T8eYt
m/PnPzb/zj8++ccJCKEMURT5oGWABg1dBUIIMMYQExl1Rsvr9QbQzjcNZ0MOyc/PXyVJEgso
DcK4CePGiWLv5XAopWA2m6uzMrP2nzm5IwBKCBCFgag3OIyRKUsEvbh40t3frUEINcL8rl8Y
J06cSJt3y7xLf//73890uV0TvV6vXhRFEEVRk2A09Cx6wRgIPbPJZiaTCbBG7Bp6gECFij0v
L29d8L2169Zm19TU9O3NZKosy5CVlbVz0KBBrT96jQQ2HahCAGOR6Iyxe0S95Y0xc19/bsaj
+z9HCDV240BETJw8ceK99937QGtr65OV1ZUzPB6P3mAwAMdxGrFr6DFEUYRt27fBtl278k63
3MpVq/Lsra2a3YCGHpNqampqweRJk0Plhxs2bJjs9XqNvflEqKoq5I3IW3VGARCjDPsrVMQm
0RC5dvjlf3780j/Xzo/NvuBQN0hduGzOZYmPzn/0Srfb/dbugt0P2FptMRazRatZ13BWodPp
view release on metacpan or search on metacpan
lib/App/Raps2/Password.pm view on Meta::CPAN
use strict;
use warnings;
use 5.010;
use Carp 'confess';
use Crypt::CBC;
use Crypt::Eksblowfish;
use Crypt::Eksblowfish::Bcrypt qw(bcrypt_hash en_base64 de_base64);
our $VERSION = '0.54';
lib/App/Raps2/Password.pm view on Meta::CPAN
$opt{salt} //= $self->{salt};
$opt{cost} //= $self->{cost};
my $eksblowfish
= Crypt::Eksblowfish->new( $opt{cost}, $opt{salt}, $self->{passphrase}, );
my $cbc = Crypt::CBC->new( -cipher => $eksblowfish );
return $cbc->encrypt_hex( $opt{data} );
}
sub decrypt {
lib/App/Raps2/Password.pm view on Meta::CPAN
$opt{cost} //= $self->{cost};
$opt{salt} //= $self->{salt};
my $eksblowfish
= Crypt::Eksblowfish->new( $opt{cost}, $opt{salt}, $self->{passphrase}, );
my $cbc = Crypt::CBC->new( -cipher => $eksblowfish );
return $cbc->decrypt_hex( $opt{data} );
}
sub bcrypt {
lib/App/Raps2/Password.pm view on Meta::CPAN
When anything goes wrong, App::Raps2::Password will use Carp(3pm)'s B<confess>
method to die with a backtrace.
=head1 DEPENDENCIES
Crypt::CBC(3pm), Crypt::Eksblowfish(3pm).
=head1 BUGS AND LIMITATIONS
Unknown.
=head1 SEE ALSO
Crypt::CBC(3pm), Crypt::Eksblowfish(3pm).
=head1 AUTHOR
Copyright (C) 2011-2015 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>
view release on metacpan or search on metacpan
logos/logo-small.svg view on Meta::CPAN
transform="scale(0.1,0.1)"
id="g12"><g
transform="scale(4682.4,4502.4)"
id="g14"><image
id="image16"
xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAB58AAAdUCAYAAABwqM6aAAAABHNCSVQICAgIfAhkiAAAIABJREFUeJzs3enPZOeZ3/fvfZZan61XNimqKQ01oqCZ0YwRDGADiT0IkEQvjMR5GwTJ3+A/YBIBCeIEhpEJECAGnCAxEscxJh54RjOGI2k00mijdlGkhhqKokh2k713P2stZ7nvv...
transform="matrix(1,0,0,-1,0,1)"
preserveAspectRatio="none"
height="1"
width="1" /></g></g></g></svg>
view release on metacpan or search on metacpan
t/retropan.t view on Meta::CPAN
SALVA/Compress-PPMd-0.11
IWADE/Convert-Bencode_XS-0.06
TODDR/XML-Parser-2.43
BJOERN/XML-SAX-Expat-0.51
GRANTM/XML-Simple-2.20
LDS/Crypt-CBC-2.33
NEELY/Data-Serializer-0.60
ROUZIER/Data-Serializer-Sereal-1.05
ADAMK/File-PathList-1.04
THALJEF/Perl-Critic-StricterSubs-0.03
THALJEF/Perl-Critic-1.123
view release on metacpan or search on metacpan
lib/App/Sandy/Command/Quality/Add.pm view on Meta::CPAN
The user must pass a file in fastq format or a file containing only the
ASCII-encoded phred-scores, as in this example:
===> my_qualities.txt
BECGF@F@DEBIDBE@DCC?HFH?BBB?H@FEEIFDCCECCCIGDIDI?@?CCC?AE?EC?F?@FB;<9<>9:599=>7:57614,30,440&"!***)#
@DCGIDBDECIHIG@FII?G?GCAD@BFECDCEF?H?GIHE?@GEECBCIHCABAFHDFAHBEBEB:5575678=75>657673-14,.113#"()#&)$
F?B@@DFAHIDD?EBFADICBFABCBBAHFCGF@@@?DEIAIEAFCEADC?B@IB?BIEABIBG@C<:;96<968:>::;778,+0203-3,#&'$$#&!
HAAAB@AGAEHC@CHE?EGI?@GFDFFAABDEBHBCDEAA?@IHEBCD@A@HDGFBA?@GHEGIE?5>;>8=75;5<6:<:76,.23-3141#("$"'%"
CDHC@ADAF?ED?GFFCFBDEE?BDACCEE??DA@?F@ABI@BHGIGFGBBDDBCHHEAIACC@GH<5577:><88;95>9:7///++24.2)"(#%&%$
...
view release on metacpan or search on metacpan
lib/App/SimpleBackuper/RegularFile.pm view on Meta::CPAN
use Crypt::Rijndael; # apt install libcrypt-rijndael-perl
srand(time ^ $$ ^ (unpack("%L*", `head /dev/urandom`) * unpack("%L*", `head /dev/urandom`))); # For randomness
sub encrypt {
my($self, $key, $iv) = @_;
my $cipher = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
$cipher->set_iv($iv);
$self->{data} = $cipher->encrypt($self->{data}
. "\0" x (length($self->{data}) % length($key) ? length($key) - length($self->{data}) % length($key) : 0)
) # aligning data for crypt. decompressor ignores it.
lib/App/SimpleBackuper/RegularFile.pm view on Meta::CPAN
}
sub decrypt {
my($self, $key, $iv) = @_;
my $cipher = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
$cipher->set_iv($iv);
$self->{data} = $cipher->decrypt($self->{data});
return;
view release on metacpan or search on metacpan
lib/App/Tweet.pm view on Meta::CPAN
use warnings;
use strict;
use Config::YAML;
use Crypt::CBC;
use File::HomeDir;
use File::Slurp;
use File::Spec;
use File::Touch;
use IO::Interactive qw(is_interactive);
lib/App/Tweet.pm view on Meta::CPAN
my $cipher_key = _get_cipher_key();
DEBUG "using cipher [$cipher_key]";
my $cipher = Crypt::CBC->new( -key => $cipher_key, -cipher => 'Blowfish' );
if ( not -e $config_file ) {
DEBUG "creating config file [$config_file]";
touch $config_file if not -e $config_file;
chmod oct(600), $config_file;
view release on metacpan or search on metacpan
lib/App/USBKeyCopyCon/Chrome.pm view on Meta::CPAN
'& c #B2B2B2',
'* c #B3B3B3',
'= c #B4B4B4',
'- c #B7B7B7',
'; c #B8B8B8',
'> c #BCBCBC',
', c #BDBDBD',
'a c #BEBEBE',
') c #C1C1C1',
'! c #C3C3C3',
'~ c #C5C5C5',
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Crypt::Blowfish" : "0",
"Crypt::CBC" : "0",
"Cwd" : "0",
"Data::Serializer" : "0",
"File::Copy" : "0",
"File::Path" : "0",
"File::Slurp" : "0",
view release on metacpan or search on metacpan
static/index.css view on Meta::CPAN
body {
background-color: #272B30;
color: #CBCBCB;
padding-left: 1em;
}
ul {
list-style-type: none;
view release on metacpan or search on metacpan
t/data/Q1085.json view on Meta::CPAN
"datatype": "time",
"hash": "4d16e5918c56db6eb8fe36f794d10de6e84241b4"
}
]
},
"id": "Q1085$4F3DDF89-668C-4541-BCBC-F6CE4FCE38FF",
"type": "statement",
"qualifiers-order": [
"P585",
"P459",
"P1013"
view release on metacpan or search on metacpan
t/lib/TestData.pm view on Meta::CPAN
phase => 'runtime',
relationship => 'requires',
version => '0',
},
{
module => 'Crypt::Mode::CBC',
phase => 'runtime',
relationship => 'requires',
version => '0',
},
{
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Pbs.pm view on Meta::CPAN
$release_url = undef;
# From http://www-tc.pbs.org/video/media/swf/PBSPlayer.swf
my $key = 'RPz~i4p*FQmx>t76';
my $cipher = Crypt::Rijndael->new($key, Crypt::Rijndael->MODE_CBC);
$iv = pack 'H*', $iv if 32 == length $iv;
$cipher->set_iv($iv);
$release_url = $cipher->decrypt(decode_base64($ciphertext));
$release_url =~ s/\s+$//;
view release on metacpan or search on metacpan
lib/App/locket/Locket.pm view on Meta::CPAN
my $key = sha256 $passphrase;
$key = $key_cipher->encrypt( $key ) for 1 .. $keylet->{ transform_count };
$key = sha256 $key;
$key = sha256 $keylet->{ transform_seed }, $key;
my $cipher = Crypt::Rijndael->new( $key, Crypt::Rijndael::MODE_CBC() );
$cipher->set_iv( $keylet->{ iv } );
return $cipher;
}
view release on metacpan or search on metacpan
t/335_negated_s.t view on Meta::CPAN
$line = "ACACA";
$ret = $line =~ s/A/B/g;
if ($ret == 3) {
if ($line eq "BCBCB") {
print qq{ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 "ACACA" =~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}
t/335_negated_s.t view on Meta::CPAN
$line = "ACACA";
$ret = $line !~ s/A/B/g;
if (not $ret) {
if ($line eq "BCBCB") {
print qq{ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}
else {
print qq{not ok - 8 "ACACA" !~ s/A/B/ --> ($ret)($line) $^X $__FILE__\n};
}
view release on metacpan or search on metacpan
],
"cookies": [],
"content": {
"size": 7325,
"mimeType": "image/png",
"text": "iVBORw0KGgoAAAANSUhEUgAAAhAAAABECAYAAADQgAxBAAAcZElEQVR4Ae3dB2wbV57H8RFFSYxsS5StRGed7Uy8K2VtxQ7tOPW8WXrT45xX8G3x4Rqvty28kuB6iEV6ZZqdrWZ67pSia2n2HYjgeuX1nuXVrdgwbXeNLe++D/gLeBg8jIbjGZEi3x/4YDxv3qPLlvnpvZlHz5UrV71TN9xww8+3wRNtj3Mcx...
"encoding": "base64"
},
"redirectURL": "",
"headersSize": -1,
"bodySize": 0,
view release on metacpan or search on metacpan
unzip-6.0/cmsmvs/unzmvsc.job view on Meta::CPAN
//*
//* LE COMPILE FOR UNZIP541.
//* ALL STEPS SHOULD GET COND CODE 0 EXCEPT FOR PLINK.PLKED WHICH GETS 4.
//*
//CBC JCLLIB ORDER=CBC.SCBCPRC
//UNZIP EXEC EDCC,COND=(0,NE),CREGSIZ='0M',
// INFILE='USERID.UNZIP.C(UNZIP)',
// OUTFILE='USERID.UNZIP.OBJ(UNZIP),DISP=SHR',
// CPARM='LONG,NOTERM,LIST,XREF,SOURCE',
// CPARM2='OPT(2),DEF(MVS),NOMAR,NOSEQ,CSECT'
view release on metacpan or search on metacpan
lib/Argon/Encryption.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Moose::Role;
use Moose::Util::TypeConstraints;
use Crypt::CBC;
use Path::Tiny qw(path);
use Argon::Types;
my %CIPHER;
lib/Argon/Encryption.pm view on Meta::CPAN
path($self->keyfile)->slurp_raw;
}
has cipher => (
is => 'ro',
isa => 'Crypt::CBC',
lazy => 1,
builder => '_build_cipher',
handles => {
encrypt => 'encrypt_hex',
decrypt => 'decrypt_hex',
lib/Argon/Encryption.pm view on Meta::CPAN
);
sub _build_cipher {
my $self = shift;
$CIPHER{$self->key} ||= Crypt::CBC->new(
-key => $self->key,
-cipher => 'Rijndael',
-salt => 1,
);
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Medical/Glutanimate.pm view on Meta::CPAN
Cayenne
cayetanensis
cayor
Caytine
cbc
CBCs
CBD
CBF
CBG
Cbl
CBS
view release on metacpan or search on metacpan
lib/Audio/M4P/Decrypt.pm view on Meta::CPAN
else {
print "User key is $userKey\n" if $self->{DEBUG};
}
my $md5 = new Digest::MD5;
$md5->add( $self->{QTStream}->{name}, $self->{QTStream}->{iviv} );
my $alg = new Crypt::Rijndael( $userKey, Crypt::Rijndael::MODE_CBC );
$alg->set_iv( $md5->digest );
$self->Decrypt(
\$self->{QTStream}->{priv}, 0,
length( $self->{QTStream}->{priv} ), $alg
);
if ( $self->{QTStream}->{priv} !~ /^itun/ ) {
carp "Priv decryption if $infile failed.";
return;
}
my $key = substr( $self->{QTStream}->{priv}, 24, 16 );
$alg = new Crypt::Rijndael( $key, Crypt::Rijndael::MODE_CBC );
$alg->set_iv( substr( $self->{QTStream}->{priv}, 48, 16 ) );
my $mdata = $self->{QTStream}->FindAtom('mdat');
my $posit = $mdata->start + 8;
foreach my $samplesize ( @{$sampleTable} ) {