view release on metacpan or search on metacpan
dat/convert-map-utf8.pl view on Meta::CPAN
'docomo' => {
'unicode' => 'E645',
'type' => 'pictogram'
},
'kddi' => {
'unicode' => 'ECBC',
'type' => 'pictogram'
}
},
'E43A' => {
'docomo' => {
dat/convert-map-utf8.pl view on Meta::CPAN
'softbank' => {
'unicode' => 'E43C',
'type' => 'pictogram'
},
'kddi' => {
'unicode' => 'ECBC',
'type' => 'pictogram'
}
},
'E647' => {
'softbank' => {
dat/convert-map-utf8.pl view on Meta::CPAN
'docomo' => {
'unicode' => '',
'type' => 'name'
}
},
'ECBC' => {
'softbank' => {
'unicode' => 'E43C',
'type' => 'pictogram'
},
'docomo' => {
view all matches for this distribution
view release on metacpan or search on metacpan
examples/ssl/server.key view on Meta::CPAN
-----BEGIN RSA PRIVATE KEY-----
Proc-Type: 4,ENCRYPTED
DEK-Info: DES-EDE3-CBC,CEB8A2E7F9C59066
mUDYr4fgc2lba+qobTYxcq/8ZpRS1cdoiCe1QQeSQ2Bywrsgx8H40hqkBsKOYBPa
ZFC+EEQTfhGOswTD5YsgqfTyWc7w0qlXDlPCVgV28r96gKzpP6oEDoclriWsToDF
ZOsANyGcdl4D4VyY+oOf9crUFqIC4C/IfUJ++pZCUlGy8k/J0qHl/kCEP1bPg92q
tKrG/gcDtrqnVHYB22MruAXHSAo4JOO7A6ZmrRGH4XY5SKGZPF/T7kwLLzEXbPq2
view all matches for this distribution
view release on metacpan or search on metacpan
lib/FAST/Bio/Tools/SeqPattern/Backtranslate.pm view on Meta::CPAN
BAA BAC BAT BAG BCA BCC BCT BCG BTA BTC BTT BTG BGA BGC BGT BGG DAA DAC DAT
DAG DCA DCC DCT DCG DTA DTC DTT DTG DGA DGC DGT DGG HAA HAC HAT HAG HCA HCC
HCT HCG HTA HTC HTT HTG HGA HGC HGT HGG VAA VAC VAT VAG VCA VCC VCT VCG VTA
VTC VTT VTG VGA VGC VGT VGG ABA ABC ABT ABG ADA ADC ADT ADG AHA AHC AHT AHG
AVA AVC AVT AVG AAB AAD AAH AAV ACB ACD ACH ACV ATB ATD ATH ATV AGB AGD AGH
AGV CBA CBC CBT CBG CDA CDC CDT CDG CHA CHC CHT CHG CVA CVC CVT CVG CAB CAD
CAH CAV CCB CCD CCH CCV CTB CTD CTH CTV CGB CGD CGH CGV TBA TBC TBT TBG TDA
TDC TDT TDG THA THC THT THG TVA TVC TVT TVG TAB TAD TAH TAV TCB TCD TCH TCV
TTB TTD TTH TTV TGB TGD TGH TGV GBA GBC GBT GBG GDA GDC GDT GDG GHA GHC GHT
GHG GVA GVC GVT GVG GAB GAD GAH GAV GCB GCD GCH GCV GTB GTD GTH GTV GGB GGD
GGH GGV KAA KAC KAT KAG KCA KCC KCT KCG KTA KTC KTT KTG KGA KGC KGT KGG MAA
view all matches for this distribution
view release on metacpan or search on metacpan
t/examples/fb2/hell_example_133321.fb2 view on Meta::CPAN
<p>СÑиÑ
иÑпаÑÑÐµÑ ÑаÑпÑоÑÑÑаненнÑй ÑекламнÑй блок, оÑÑиÑÐ°Ñ Ð¾Ñевидное. РиÑмоединиÑа, как Ð±Ñ ÑÑо ни казалоÑÑ Ð¿Ð°ÑадокÑалÑнÑм, ÑонеÑиÑеÑки ÑÑ...
</section> <section id="c_6"><title><p>6</p>
</title><p><strong>[ÐомменÑаÑий] </strong>Ðаже еÑли ÑÑеÑÑÑ ÑазÑеженнÑй газ, заполнÑÑÑий пÑоÑÑÑанÑÑво Ð¼ÐµÐ¶Ð´Ñ Ð·Ð²ÐµÐ·Ð´Ð°Ð¼Ð¸, Ñо вÑе Ñавно Южное полÑÑаÑие неÑ...
</section> <section id="c_7"><title><p>7</p>
</title><p><strong>[ÐомменÑаÑий] </strong>ÐÑлÑминаÑÐ¸Ñ Ð´Ð¸ÑкÑеÑно пÑедÑÑавлÑÐµÑ Ñобой агÑобиогеоÑеноз, но еÑли Ð±Ñ Ð¿ÐµÑен бÑло Ñаз в пÑÑÑ Ð¼ÐµÐ½ÑÑе, бÑло Ð±Ñ Ð...
</section> </section> </body> <binary content-type="image/jpeg" id="_1001000.jpg">/9j/4AAQSkZJRgABAQEAeAB4AAD/4QEARXhpZgAATU0AKgAAAAgABQEaAAUAAAABAAAASgEbAAUAAAABAAAAUgEoAAMAAAABAAIAAAExAAIAAAASAAAAWodpAAQAAAABAAAAbAAAAAAAAAB4AAAAAQAAAHgAAAABUGFpbnQu...
view all matches for this distribution
view release on metacpan or search on metacpan
t/DROID_SignatureFile_V111.xml view on Meta::CPAN
</InternalSignature>
<InternalSignature ID="1629" Specificity="Specific">
<ByteSequence Reference="BOFoffset">
<SubSequence MinFragLength="0" Position="1"
SubSeqMaxOffset="0" SubSeqMinOffset="0">
<Sequence>9CCBCB8D1375D211915800C04F7956A4</Sequence>
<DefaultShift>17</DefaultShift>
<Shift Byte="00">6</Shift>
<Shift Byte="11">9</Shift>
<Shift Byte="13">12</Shift>
<Shift Byte="4F">4</Shift>
view all matches for this distribution
view release on metacpan or search on metacpan
libtomcrypt/src/headers/tomcrypt_cipher.h view on Meta::CPAN
/** The scheduled key */
symmetric_key key;
} symmetric_OFB;
#endif
#ifdef LTC_CBC_MODE
/** A block cipher CBC structure */
typedef struct {
/** The index of the cipher chosen */
int cipher,
/** The block size of the given cipher */
blocklen;
/** The current IV */
unsigned char IV[MAXBLOCKSIZE];
/** The scheduled key */
symmetric_key key;
} symmetric_CBC;
#endif
#ifdef LTC_CTR_MODE
/** A block cipher CTR structure */
libtomcrypt/src/headers/tomcrypt_cipher.h view on Meta::CPAN
@param skey The scheduled key context
@return CRYPT_OK if successful
*/
int (*accel_ecb_decrypt)(const unsigned char *ct, unsigned char *pt, unsigned long blocks, symmetric_key *skey);
/** Accelerated CBC encryption
@param pt Plaintext
@param ct Ciphertext
@param blocks The number of complete blocks to process
@param IV The initial value (input/output)
@param skey The scheduled key context
@return CRYPT_OK if successful
*/
int (*accel_cbc_encrypt)(const unsigned char *pt, unsigned char *ct, unsigned long blocks, unsigned char *IV, symmetric_key *skey);
/** Accelerated CBC decryption
@param pt Plaintext
@param ct Ciphertext
@param blocks The number of complete blocks to process
@param IV The initial value (input/output)
@param skey The scheduled key context
libtomcrypt/src/headers/tomcrypt_cipher.h view on Meta::CPAN
int (*omac_memory)(
const unsigned char *key, unsigned long keylen,
const unsigned char *in, unsigned long inlen,
unsigned char *out, unsigned long *outlen);
/** Accelerated one shot XCBC
@param key The secret key
@param keylen The key length (octets)
@param in The message
@param inlen Length of message (octets)
@param out [out] Destination for tag
libtomcrypt/src/headers/tomcrypt_cipher.h view on Meta::CPAN
int ofb_getiv(unsigned char *IV, unsigned long *len, const symmetric_OFB *ofb);
int ofb_setiv(const unsigned char *IV, unsigned long len, symmetric_OFB *ofb);
int ofb_done(symmetric_OFB *ofb);
#endif
#ifdef LTC_CBC_MODE
int cbc_start(int cipher, const unsigned char *IV, const unsigned char *key,
int keylen, int num_rounds, symmetric_CBC *cbc);
int cbc_encrypt(const unsigned char *pt, unsigned char *ct, unsigned long len, symmetric_CBC *cbc);
int cbc_decrypt(const unsigned char *ct, unsigned char *pt, unsigned long len, symmetric_CBC *cbc);
int cbc_getiv(unsigned char *IV, unsigned long *len, const symmetric_CBC *cbc);
int cbc_setiv(const unsigned char *IV, unsigned long len, symmetric_CBC *cbc);
int cbc_done(symmetric_CBC *cbc);
#endif
#ifdef LTC_CTR_MODE
#define CTR_COUNTER_LITTLE_ENDIAN 0x0000
view all matches for this distribution
view release on metacpan or search on metacpan
lib/File/KDBX.pm view on Meta::CPAN
Argon2d & Argon2id
=item *
CBC block mode
=item *
HMAC-SHA256
view all matches for this distribution
view release on metacpan or search on metacpan
lib/File/KeePass.pm view on Meta::CPAN
return $buffer;
}
sub decrypt_rijndael_cbc {
my ($self, $buffer, $key, $enc_iv) = @_;
#use Crypt::CBC; return Crypt::CBC->new(-cipher => 'Rijndael', -key => $key, -iv => $enc_iv, -regenerate_key => 0, -prepend_iv => 0)->decrypt($buffer);
my $cipher = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
$cipher->set_iv($enc_iv);
$buffer = $cipher->decrypt($buffer);
my $extra = ord(substr $buffer, -1, 1);
substr($buffer, length($buffer) - $extra, $extra, '');
return $buffer;
}
sub encrypt_rijndael_cbc {
my ($self, $buffer, $key, $enc_iv) = @_;
#use Crypt::CBC; return Crypt::CBC->new(-cipher => 'Rijndael', -key => $key, -iv => $enc_iv, -regenerate_key => 0, -prepend_iv => 0)->encrypt($buffer);
my $cipher = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
$cipher->set_iv($enc_iv);
my $extra = (16 - length($buffer) % 16) || 16; # always pad so we can always trim
$buffer .= chr($extra) for 1 .. $extra;
return $cipher->encrypt($buffer);
}
view all matches for this distribution
view release on metacpan or search on metacpan
U64(0xB877AA32, 0x36A4B449), U64(0x09BEFEB9, 0xFAD487C2), /* ~= 10^-17 */
U64(0xE69594BE, 0xC44DE15B), U64(0x4C2EBE68, 0x7989A9B3), /* ~= 10^-16 */
U64(0x901D7CF7, 0x3AB0ACD9), U64(0x0F9D3701, 0x4BF60A10), /* ~= 10^-15 */
U64(0xB424DC35, 0x095CD80F), U64(0x538484C1, 0x9EF38C94), /* ~= 10^-14 */
U64(0xE12E1342, 0x4BB40E13), U64(0x2865A5F2, 0x06B06FB9), /* ~= 10^-13 */
U64(0x8CBCCC09, 0x6F5088CB), U64(0xF93F87B7, 0x442E45D3), /* ~= 10^-12 */
U64(0xAFEBFF0B, 0xCB24AAFE), U64(0xF78F69A5, 0x1539D748), /* ~= 10^-11 */
U64(0xDBE6FECE, 0xBDEDD5BE), U64(0xB573440E, 0x5A884D1B), /* ~= 10^-10 */
U64(0x89705F41, 0x36B4A597), U64(0x31680A88, 0xF8953030), /* ~= 10^-9 */
U64(0xABCC7711, 0x8461CEFC), U64(0xFDC20D2B, 0x36BA7C3D), /* ~= 10^-8 */
U64(0xD6BF94D5, 0xE57A42BC), U64(0x3D329076, 0x04691B4C), /* ~= 10^-7 */
view all matches for this distribution
view release on metacpan or search on metacpan
examples/autofilter.pl view on Meta::CPAN
#!/usr/bin/perl
# Please don't encrypt me!
use Filter::CBC "Rijndael","my secret key";
# This file will be encrypted and overwritten.
# Make backups, damnit!
# Autofilter example
print "Don't try this at home, kids !";
view all matches for this distribution
view release on metacpan or search on metacpan
Decrypt/lib/Filter/Crypto/Decrypt.pm view on Meta::CPAN
=head1 SEE ALSO
L<Filter::Crypto>;
L<Filter::CBC>, L<Crypt::License>.
The latter two modules (in separate CPAN distributions, not related to the
Filter-Crypto distribution in any way) are both Perl-level source code filters
and are thus even less secure than this module is. (This module's filter code
is written in XS and C.)
view all matches for this distribution
view release on metacpan or search on metacpan
bin/encrypt.pl view on Meta::CPAN
my $headersize = 6;
my $fingerprint = pack( 'C*', 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 );
my $cipher = Crypt::Rijndael->new(
pack( 'C*', 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 ),
Crypt::Rijndael::MODE_CBC()
);
my $module_name = 'Filter::Rijndael';
die sprintf( "Usage: $0 <file>\n" ) if( ! scalar( @ARGV ) );
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Finance/Bank/Cahoot/CredentialsProvider/CryptFile.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '1.07';
use Carp qw(croak);
use Crypt::CBC;
use English '-no_match_vars';
use File::Slurp qw(slurp);
use IO::File;
sub _init
{
my ($self, $options) = @_;
croak 'No key provided' if not defined $options->{key};
my $cipher = Crypt::CBC->new(-key => $options->{key},
-cipher => 'DES_PP');
my $keyfile = $options->{keyfile};
$keyfile = $ENV{HOME}.'/.cahoot' if not defined $keyfile;
if (-e $keyfile) {
view all matches for this distribution
view release on metacpan or search on metacpan
scripts/wachovia.pl view on Meta::CPAN
if( $opts->{key} ){
# indicates we are storing/retrieving data from keyfile
eval {
require Crypt::CBC;
import Crypt::CBC;
};
if($@){ die "Must have Crypt::CBC and Crypt::DES_PP module installed to use --key feature: $@\n" }
# if here, then user provided key + some info, so we want to preserve whatever it is they provided
# while keeping whatever it is they didn't provide.
my $new_opts = {};
my $file_opts = get_account_info( $opts->{keyfile}, $opts->{key} );
scripts/wachovia.pl view on Meta::CPAN
sub get_account_info {
my($keyfile, $key) = @_;
my $opts;
return unless -e $keyfile;
open( F, $keyfile ) or die "Can't open ".$keyfile." for reading: $!";
my $cipher = Crypt::CBC->new({
'key'=> $key,
'cipher'=> 'DES_PP',
'iv'=> '%_j,!z"{'
});
my $plaintext = $cipher->decrypt( <F> );
scripts/wachovia.pl view on Meta::CPAN
# Writes an MD5 hash for the hash info.
sub save_account_info {
my $opts = shift;
open( F, '>', $opts->{keyfile} ) or die "Can't open ".$opts->{keyfile}." for writing: $!";
my $cipher = Crypt::CBC->new({
'key'=> $opts->{key},
'cipher'=> 'DES_PP',
'iv'=> '%_j,!z"{'
});
my $ciphertext = $cipher->encrypt( join('/', (map { "$_=>".$opts->{$_} } keys %$opts) ) );
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/kurs-transaksi-bi-2022-02-25.html view on Meta::CPAN
<input type="hidden" name="_wzSelected" id="_wzSelected" value="" />
<input type="hidden" name="MSOSPWebPartManager_OldDisplayModeName" id="MSOSPWebPartManager_OldDisplayModeName" value="Browse" />
<input type="hidden" name="MSOSPWebPartManager_StartWebPartEditingName" id="MSOSPWebPartManager_StartWebPartEditingName" value="false" />
<input type="hidden" name="MSOSPWebPartManager_EndWebPartEditing" id="MSOSPWebPartManager_EndWebPartEditing" value="false" />
<input type="hidden" name="_maintainWorkspaceScrollPosition" id="_maintainWorkspaceScrollPosition" value="0" />
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPDwUBMA9kFgJmD2QWAgIBD2QWBAIBD2QWAgIYD2QWAgIDD2QWAmYPZBYCZg88KwAGAGQCCQ9kFhgCAw9kFgYFJmdfMThhNzdlNTdfYjFlOV80MWEwXzk0ZjBfMzg3NzM4NGFmYjIwD2QWBGYPFgIeB1Zpc2libGVoZAIBDxYCHwBoZAUmZ18yMj...
</div>
<script type="text/javascript">
//<![CDATA[
var theForm = document.forms['aspnetForm'];
view all matches for this distribution
view release on metacpan or search on metacpan
Testing/Data/2dcb4dc1c1b5836b3f8e6324a04e12c6.txt view on Meta::CPAN
{"content":{"metadata":{"pageData":{"pageNumber":1,"pageSize":727,"totalPages":1},"size":727},"transactions":[{"cashTransaction":false,"closeLevel":"3755","currency":"£","date":"2020-12-11","dateUtc":"2020-12-11T15:28:24","instrumentName":"Avon Rubb...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Finance/SE/IDX/Static.pm view on Meta::CPAN
"Pengembangan",
],
[
"NISP",
"FINANCE",
"Bank OCBC NISP Tbk.",
"1994-10-20",
22715776032,
"Utama",
],
[
lib/Finance/SE/IDX/Static.pm view on Meta::CPAN
"Aktif",
"Jakarta Pusat",
],
[
"TP",
"OCBC SEKURITAS INDONESIA",
"Penjamin Emisi Efek, Perantara Pedagang Efek",
"Aktif",
"Jakarta Selatan",
],
[
view all matches for this distribution
view release on metacpan or search on metacpan
examples/examine_server.sh view on Meta::CPAN
#FORMAT=snl1d1t1c1p2ghvva2bapomwerr1dyj1x
#FORMAT=snl1t1d1c1p2poghv
SERVERURL=http://sg.finance.yahoo.com
STOCKS=OCBC.SI+JARD.SI+0307.HK
FORMAT=snl1d1t1c1p2pomwverdybaxq
#SERVERURL=http://finanzen.de.yahoo.com
#STOCKS=185775.F
##FORMAT=snl1d1t1c1p2poghwerdy
view all matches for this distribution
view release on metacpan or search on metacpan
my $response_body = qq([$response_type,$message_id,null,{"value":null}]);
_send_response_body($client, $response_body);
} elsif ($request->[2] eq 'WebDriver:Print') {
syswrite $client, qq(1475:[$response_type,$message_id,null,{"value":"JVBERi0xLjUKJbXtrvsKNCAwIG9iago8PCAvTGVuZ3RoIDUgMCBSCiAgIC9GaWx0ZXIgL0ZsYXRlRGVjb2RlCj4+CnN0cmVhbQp4nDNUMABCXUMgYW5ppJCcy1XIFahQyGVkoWdsaqQApUxNTfWMDQwVzI0hdFGqQrhCHpehAggWpSvoJx...
} elsif ($request->[2] eq 'WebDriver:TakeScreenshot') {
syswrite $client, qq(423:[$response_type,$message_id,null,{"value":"iVBORw0KGgoAAAANSUhEUgAABVYAAAAICAYAAAAShaQyAAAA8UlEQVR4Xu3YsQ0AIAwEMbL/0ICYgOud+isr1c2+txwBAgQIECBAgAABAgQIECBAgAABAgQIfAuMsPptZUiAAAECBAgQIECAAAECBAgQIECAAIEnIKx6BAIECBAgQIAAAQI...
} elsif ($request->[2] eq 'Marionette:GetContext') {
my $response_body = qq([$response_type,$message_id,null,{"value":"$context"}]);
_send_response_body($client, $response_body);
} elsif ($request->[2] eq 'Marionette:SetContext') {
my $response_body = qq([$response_type,$message_id,null,{"value":null}]);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Firefox/Sync/Client.pm view on Meta::CPAN
$s_key =~ s/8/l/g;
$s_key =~ s/9/o/g;
$s_key =~ s/-//g;
$s_key = uc($s_key);
my $raw_bits = MIME::Base32::decode($s_key);
my $key = hmac_sha256('Sync-AES_256_CBC-HMAC256' . $self->{'username'} . "\x01", $raw_bits);
return $key;
}
sub fetch_bulk_keys {
my $self = shift;
lib/Firefox/Sync/Client.pm view on Meta::CPAN
}
sub decrypt_payload {
my ($self, $payload, $key) = @_;
my $c = Crypt::Rijndael->new($key, Crypt::Rijndael::MODE_CBC());
$c->set_iv(decode_base64($payload->{'IV'}));
my $data = $c->decrypt(decode_base64($payload->{'ciphertext'}));
$data = repair_json($self, $data);
view all matches for this distribution
view release on metacpan or search on metacpan
t/Volt2ttf.sample.txt view on Meta::CPAN
Pair adjust: AW (AâW should be kerned)
Cursive attach: Ø¨ÙØ§ ÙØ§ (not sure how to test)
Mark to base: ب٠ا٠(Mark should be positioned)
Mark to ligature: ÙÙØ§Ù ÙÙØ§ ÙØ§Ù ÙÙØ§Ù
Mark to mark: بÙÛ Ø§ÙÛ (Both marks should be positioned)
Chained context: ABABCBC ADADCDC (middle B should be raised; middle D lowered)
view all matches for this distribution