Codebase list libcryptx-perl / 8763502
doc fixes Karel Miko 6 years ago
8 changed file(s) with 72 addition(s) and 79 deletion(s). Raw diff Collapse all Expand all
+19
-5
_generators/Mode.pm.tt less more
33
44 use strict;
55 use warnings;
6 our $VERSION = '0.001';
6 our $VERSION = '0.052';
77
88 use Crypt::Cipher;
99 use base 'Crypt::Mode';
4040 [%-END%]
4141 my $ciphertext = $m->add('some data');
4242 $ciphertext .= $m->add('more data');
43 [%-IF lc_name == 'ecb' or lc_name == 'cbc' %]
43 [%-IF lc_name == 'ecb' or lc_name == 'cbc' %]
4444 $ciphertext .= $m->finish;
4545 [%-END%]
4646
114114
115115 =head2 start_encrypt
116116
117 See example below L</finish>.
117 [%-IF lc_name == 'ecb' %]
118 $m->start_encrypt($key);
119 [%-ELSE%]
120 $m->start_encrypt($key, $iv);
121 [%-END%]
118122
119123 =head2 start_decrypt
120124
121 See example below L</finish>.
125 [%-IF lc_name == 'ecb' %]
126 $m->start_decrypt($key);
127 [%-ELSE%]
128 $m->start_decrypt($key, $iv);
129 [%-END%]
122130
123131 =head2 add
124132
125 See example below L</finish>.
133 # in encrypt mode
134 my $plaintext = $m->add($ciphertext);
126135
136 # in decrypt mode
137 my $ciphertext = $m->add($plaintext);
138
139 [%-IF lc_name == 'ecb' or lc_name == 'cbc' %]
127140 =head2 finish
128141
129142 #encrypt more chunks
152165 $plaintext .= $m->finish;
153166 [%-END%]
154167
168 [%-END%]
155169 =head1 SEE ALSO
156170
157171 =over
+3
-2
_generators/tt_mode.pl less more
1515
1616 die "No args given!\n" unless $ARGV[0];
1717 my $outdir_l = ($ARGV[0] eq 'install_code') ? catdir($FindBin::Bin, "..", "lib") : '';
18 my $outdir_i = ($ARGV[0] eq 'install_code') ? catdir($FindBin::Bin, "..", "inc") : '';
1819 my $outdir_t = ($ARGV[0] eq 'install_tests') ? catdir($FindBin::Bin, "..", "t") : '';
1920 warn "STARTED: outdir_l='$outdir_l' outdir_t='$outdir_t'\n";
2021
7172 #unlink "$t_out.$$";
7273 }
7374
74 if ($outdir_l) {
75 if ($outdir_l && $outdir_i) {
7576 if (1) { # if($n ne 'CBC' || $n ne 'ECB') {
76 my $xs_out = catfile($outdir_l, "CryptX_Mode_$n.xs.inc");
77 my $xs_out = catfile($outdir_i, "CryptX_Mode_$n.xs.inc");
7778 my $xs_tt = Template->new(ABSOLUTE=>1) || die $Template::ERROR, "\n";
7879 if ($n eq 'CBC' || $n eq 'ECB') {
7980 $xs_tt->process("$FindBin::Bin/Mode_p.xs.inc.tt", $data, "$xs_out.$$", {binmode=>1}) || die $xs_tt->error(), "\n";
+7
-3
lib/Crypt/Mode/CBC.pm less more
6868
6969 =head2 start_encrypt
7070
71 See example below L</finish>.
71 $m->start_encrypt($key, $iv);
7272
7373 =head2 start_decrypt
7474
75 See example below L</finish>.
75 $m->start_decrypt($key, $iv);
7676
7777 =head2 add
7878
79 See example below L</finish>.
79 # in encrypt mode
80 my $plaintext = $m->add($ciphertext);
81
82 # in decrypt mode
83 my $ciphertext = $m->add($plaintext);
8084
8185 =head2 finish
8286
+6
-16
lib/Crypt/Mode/CFB.pm less more
6161
6262 =head2 start_encrypt
6363
64 See example below L</finish>.
64 $m->start_encrypt($key, $iv);
6565
6666 =head2 start_decrypt
6767
68 See example below L</finish>.
68 $m->start_decrypt($key, $iv);
6969
7070 =head2 add
7171
72 See example below L</finish>.
72 # in encrypt mode
73 my $plaintext = $m->add($ciphertext);
7374
74 =head2 finish
75
76 #encrypt more chunks
77 $m->start_encrypt($key, $iv);
78 my $ciphertext = '';
79 $ciphertext .= $m->add('some data');
80 $ciphertext .= $m->add('more data');
81
82 #decrypt more chunks
83 $m->start_decrypt($key, $iv);
84 my $plaintext = '';
85 $plaintext .= $m->add($some_ciphertext);
86 $plaintext .= $m->add($more_ciphertext);
75 # in decrypt mode
76 my $ciphertext = $m->add($plaintext);
8777
8878 =head1 SEE ALSO
8979
+6
-16
lib/Crypt/Mode/CTR.pm less more
6868
6969 =head2 start_encrypt
7070
71 See example below L</finish>.
71 $m->start_encrypt($key, $iv);
7272
7373 =head2 start_decrypt
7474
75 See example below L</finish>.
75 $m->start_decrypt($key, $iv);
7676
7777 =head2 add
7878
79 See example below L</finish>.
79 # in encrypt mode
80 my $plaintext = $m->add($ciphertext);
8081
81 =head2 finish
82
83 #encrypt more chunks
84 $m->start_encrypt($key, $iv);
85 my $ciphertext = '';
86 $ciphertext .= $m->add('some data');
87 $ciphertext .= $m->add('more data');
88
89 #decrypt more chunks
90 $m->start_decrypt($key, $iv);
91 my $plaintext = '';
92 $plaintext .= $m->add($some_ciphertext);
93 $plaintext .= $m->add($more_ciphertext);
82 # in decrypt mode
83 my $ciphertext = $m->add($plaintext);
9484
9585 =head1 SEE ALSO
9686
+7
-3
lib/Crypt/Mode/ECB.pm less more
6969
7070 =head2 start_encrypt
7171
72 See example below L</finish>.
72 $m->start_encrypt($key);
7373
7474 =head2 start_decrypt
7575
76 See example below L</finish>.
76 $m->start_decrypt($key);
7777
7878 =head2 add
7979
80 See example below L</finish>.
80 # in encrypt mode
81 my $plaintext = $m->add($ciphertext);
82
83 # in decrypt mode
84 my $ciphertext = $m->add($plaintext);
8185
8286 =head2 finish
8387
+6
-16
lib/Crypt/Mode/OFB.pm less more
6161
6262 =head2 start_encrypt
6363
64 See example below L</finish>.
64 $m->start_encrypt($key, $iv);
6565
6666 =head2 start_decrypt
6767
68 See example below L</finish>.
68 $m->start_decrypt($key, $iv);
6969
7070 =head2 add
7171
72 See example below L</finish>.
72 # in encrypt mode
73 my $plaintext = $m->add($ciphertext);
7374
74 =head2 finish
75
76 #encrypt more chunks
77 $m->start_encrypt($key, $iv);
78 my $ciphertext = '';
79 $ciphertext .= $m->add('some data');
80 $ciphertext .= $m->add('more data');
81
82 #decrypt more chunks
83 $m->start_decrypt($key, $iv);
84 my $plaintext = '';
85 $plaintext .= $m->add($some_ciphertext);
86 $plaintext .= $m->add($more_ciphertext);
75 # in decrypt mode
76 my $ciphertext = $m->add($plaintext);
8777
8878 =head1 SEE ALSO
8979
+18
-18
lib/Crypt/PK/RSA.pm less more
484484
485485 =item * RSA public key from X509 certificate
486486
487 -----BEGIN CERTIFICATE-----
488 MIIC8zCCAdugAwIBAgIJAPi+LvMU3uGWMA0GCSqGSIb3DQEBCwUAMBAxDjAMBgNV
489 BAMMBXBva3VzMB4XDTE3MDcxNDE0MTAyMFoXDTIwMDQwOTE0MTAyMFowEDEOMAwG
490 A1UEAwwFcG9rdXMwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDCQima
491 SUIMIdz5uVevzcScbcj06xs1OLaFKUoPJ8v+xP6Ut61BQhAvc8GYuw2uRx223hZC
492 r3HYLfSdWIfmOIAtlL8cPYPVoSivJtpSGE6fBG1tlBjVgXWRmJGR/oxx6Y5QDwcB
493 Q4GZKga8TtHQoY5idZuatYOFZGfMIcIUC0Uoda+YSypnw7A90F/JvlpcTUh3Fnem
494 VinqEA6XOegU9dCZk/29sXqauBjbdGihh8DvpklOhY16eQoiR3909AywQ0KUmI+R
495 Sa9E8oIsmUDetFuXEvana+sD3y42tU+cd2nhBPRETbSXPcum0B3uF4yKgweuJy5D
496 cvtVQIFVkkh4+AWNAgMBAAGjUDBOMB0GA1UdDgQWBBSS6V5PVGyN92NoB0AVLcOb
497 pzR3SzAfBgNVHSMEGDAWgBSS6V5PVGyN92NoB0AVLcObpzR3SzAMBgNVHRMEBTAD
498 AQH/MA0GCSqGSIb3DQEBCwUAA4IBAQBIszrBjoJ39axsS6Btbvwvo8vAmgiSWsav
499 7AmjXOAwknHPaCcDmrdOys5POD0DNRwNeRsnxFiZ/UL8Vmj2JGDLgAw+/v32MwfX
500 Ig7m+oIbO8KqDzlYvS5kd3suJ5C21hHy1/JUtfofZLovZH7ZRzhTAoRvCYaodW90
501 2o8ZqmyCdcXPzjFmoJ2xYzs/Sf8/E1cHfb+4HjOpeRnKxDvG0gwWzcsXpUrw2pNO
502 Oztj6Rd0THNrf/anIeYVtAHX4aqZA8Kbv2TyJd+9g78usFw1cn+8vfmilm6Pn0DQ
503 a+I5GyGd7BJI8wYuWqIStzvrJHbQQaNrSk7hgjWYiYlcsPh6w2QP
504 -----END CERTIFICATE-----
487 -----BEGIN CERTIFICATE-----
488 MIIC8zCCAdugAwIBAgIJAPi+LvMU3uGWMA0GCSqGSIb3DQEBCwUAMBAxDjAMBgNV
489 BAMMBXBva3VzMB4XDTE3MDcxNDE0MTAyMFoXDTIwMDQwOTE0MTAyMFowEDEOMAwG
490 A1UEAwwFcG9rdXMwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDCQima
491 SUIMIdz5uVevzcScbcj06xs1OLaFKUoPJ8v+xP6Ut61BQhAvc8GYuw2uRx223hZC
492 r3HYLfSdWIfmOIAtlL8cPYPVoSivJtpSGE6fBG1tlBjVgXWRmJGR/oxx6Y5QDwcB
493 Q4GZKga8TtHQoY5idZuatYOFZGfMIcIUC0Uoda+YSypnw7A90F/JvlpcTUh3Fnem
494 VinqEA6XOegU9dCZk/29sXqauBjbdGihh8DvpklOhY16eQoiR3909AywQ0KUmI+R
495 Sa9E8oIsmUDetFuXEvana+sD3y42tU+cd2nhBPRETbSXPcum0B3uF4yKgweuJy5D
496 cvtVQIFVkkh4+AWNAgMBAAGjUDBOMB0GA1UdDgQWBBSS6V5PVGyN92NoB0AVLcOb
497 pzR3SzAfBgNVHSMEGDAWgBSS6V5PVGyN92NoB0AVLcObpzR3SzAMBgNVHRMEBTAD
498 AQH/MA0GCSqGSIb3DQEBCwUAA4IBAQBIszrBjoJ39axsS6Btbvwvo8vAmgiSWsav
499 7AmjXOAwknHPaCcDmrdOys5POD0DNRwNeRsnxFiZ/UL8Vmj2JGDLgAw+/v32MwfX
500 Ig7m+oIbO8KqDzlYvS5kd3suJ5C21hHy1/JUtfofZLovZH7ZRzhTAoRvCYaodW90
501 2o8ZqmyCdcXPzjFmoJ2xYzs/Sf8/E1cHfb+4HjOpeRnKxDvG0gwWzcsXpUrw2pNO
502 Oztj6Rd0THNrf/anIeYVtAHX4aqZA8Kbv2TyJd+9g78usFw1cn+8vfmilm6Pn0DQ
503 a+I5GyGd7BJI8wYuWqIStzvrJHbQQaNrSk7hgjWYiYlcsPh6w2QP
504 -----END CERTIFICATE-----
505505
506506 =item * SSH public RSA keys
507507