371 lines
9.2 KiB
Plaintext
371 lines
9.2 KiB
Plaintext
--
|
|
-- PGP Armor
|
|
--
|
|
select armor('');
|
|
armor
|
|
-----------------------------
|
|
-----BEGIN PGP MESSAGE-----+
|
|
+
|
|
=twTO +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select armor('test');
|
|
armor
|
|
-----------------------------
|
|
-----BEGIN PGP MESSAGE-----+
|
|
+
|
|
dGVzdA== +
|
|
=+G7Q +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select encode(dearmor(armor('')), 'escape');
|
|
encode
|
|
--------
|
|
|
|
(1 row)
|
|
|
|
select encode(dearmor(armor('zooka')), 'escape');
|
|
encode
|
|
--------
|
|
zooka
|
|
(1 row)
|
|
|
|
select armor('0123456789abcdef0123456789abcdef0123456789abcdef
|
|
0123456789abcdef0123456789abcdef0123456789abcdef');
|
|
armor
|
|
------------------------------------------------------------------------------
|
|
-----BEGIN PGP MESSAGE----- +
|
|
+
|
|
MDEyMzQ1Njc4OWFiY2RlZjAxMjM0NTY3ODlhYmNkZWYwMTIzNDU2Nzg5YWJjZGVmCjAxMjM0NTY3+
|
|
ODlhYmNkZWYwMTIzNDU2Nzg5YWJjZGVmMDEyMzQ1Njc4OWFiY2RlZg== +
|
|
=JFw5 +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
-- lots formatting
|
|
select encode(dearmor(' a pgp msg:
|
|
|
|
-----BEGIN PGP MESSAGE-----
|
|
Comment: Some junk
|
|
|
|
em9va2E=
|
|
|
|
=D5cR
|
|
|
|
-----END PGP MESSAGE-----'), 'escape');
|
|
encode
|
|
--------
|
|
zooka
|
|
(1 row)
|
|
|
|
-- lots messages
|
|
select encode(dearmor('
|
|
wrong packet:
|
|
-----BEGIN PGP MESSAGE-----
|
|
|
|
d3Jvbmc=
|
|
=vCYP
|
|
-----END PGP MESSAGE-----
|
|
|
|
right packet:
|
|
-----BEGIN PGP MESSAGE-----
|
|
|
|
cmlnaHQ=
|
|
=nbpj
|
|
-----END PGP MESSAGE-----
|
|
|
|
use only first packet
|
|
-----BEGIN PGP MESSAGE-----
|
|
|
|
d3Jvbmc=
|
|
=vCYP
|
|
-----END PGP MESSAGE-----
|
|
'), 'escape');
|
|
encode
|
|
--------
|
|
right
|
|
(1 row)
|
|
|
|
-- bad crc
|
|
select dearmor('
|
|
-----BEGIN PGP MESSAGE-----
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
ERROR: Corrupt ascii-armor
|
|
-- corrupt (no space after the colon)
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
foo:
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
ERROR: Corrupt ascii-armor
|
|
-- corrupt (no empty line)
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
ERROR: Corrupt ascii-armor
|
|
-- no headers
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
-----+-------
|
|
(0 rows)
|
|
|
|
-- header with empty value
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
foo:
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
-----+-------
|
|
foo |
|
|
(1 row)
|
|
|
|
-- simple
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
fookey: foovalue
|
|
barkey: barvalue
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
--------+----------
|
|
fookey | foovalue
|
|
barkey | barvalue
|
|
(2 rows)
|
|
|
|
-- insane keys, part 1
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
insane:key :
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
-------------+-------
|
|
insane:key |
|
|
(1 row)
|
|
|
|
-- insane keys, part 2
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
insane:key : text value here
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
-------------+-----------------
|
|
insane:key | text value here
|
|
(1 row)
|
|
|
|
-- long value
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
long: this value is more than 76 characters long, but it should still parse correctly as that''s permitted by RFC 4880
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
------+-----------------------------------------------------------------------------------------------------------------
|
|
long | this value is more than 76 characters long, but it should still parse correctly as that's permitted by RFC 4880
|
|
(1 row)
|
|
|
|
-- long value, split up
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
long: this value is more than 76 characters long, but it should still
|
|
long: parse correctly as that''s permitted by RFC 4880
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
------+------------------------------------------------------------------
|
|
long | this value is more than 76 characters long, but it should still
|
|
long | parse correctly as that's permitted by RFC 4880
|
|
(2 rows)
|
|
|
|
-- long value, split up, part 2
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
long: this value is more than
|
|
long: 76 characters long, but it should still
|
|
long: parse correctly as that''s permitted by RFC 4880
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
------+-------------------------------------------------
|
|
long | this value is more than
|
|
long | 76 characters long, but it should still
|
|
long | parse correctly as that's permitted by RFC 4880
|
|
(3 rows)
|
|
|
|
-- long value, split up, part 3
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
emptykey:
|
|
long: this value is more than
|
|
emptykey:
|
|
long: 76 characters long, but it should still
|
|
emptykey:
|
|
long: parse correctly as that''s permitted by RFC 4880
|
|
emptykey:
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
----------+-------------------------------------------------
|
|
emptykey |
|
|
long | this value is more than
|
|
emptykey |
|
|
long | 76 characters long, but it should still
|
|
emptykey |
|
|
long | parse correctly as that's permitted by RFC 4880
|
|
emptykey |
|
|
(7 rows)
|
|
|
|
select * from pgp_armor_headers('
|
|
-----BEGIN PGP MESSAGE-----
|
|
Comment: dat1.blowfish.sha1.mdc.s2k3.z0
|
|
|
|
jA0EBAMCfFNwxnvodX9g0jwB4n4s26/g5VmKzVab1bX1SmwY7gvgvlWdF3jKisvS
|
|
yA6Ce1QTMK3KdL2MPfamsTUSAML8huCJMwYQFfE=
|
|
=JcP+
|
|
-----END PGP MESSAGE-----
|
|
');
|
|
key | value
|
|
---------+--------------------------------
|
|
Comment | dat1.blowfish.sha1.mdc.s2k3.z0
|
|
(1 row)
|
|
|
|
-- test CR+LF line endings
|
|
select * from pgp_armor_headers(replace('
|
|
-----BEGIN PGP MESSAGE-----
|
|
fookey: foovalue
|
|
barkey: barvalue
|
|
|
|
em9va2E=
|
|
=ZZZZ
|
|
-----END PGP MESSAGE-----
|
|
', E'\n', E'\r\n'));
|
|
key | value
|
|
--------+----------
|
|
fookey | foovalue
|
|
barkey | barvalue
|
|
(2 rows)
|
|
|
|
-- test header generation
|
|
select armor('zooka', array['foo'], array['bar']);
|
|
armor
|
|
-----------------------------
|
|
-----BEGIN PGP MESSAGE-----+
|
|
foo: bar +
|
|
+
|
|
em9va2E= +
|
|
=D5cR +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select armor('zooka', array['Version', 'Comment'], array['Created by pgcrypto', 'PostgreSQL, the world''s most advanced open source database']);
|
|
armor
|
|
---------------------------------------------------------------------
|
|
-----BEGIN PGP MESSAGE----- +
|
|
Version: Created by pgcrypto +
|
|
Comment: PostgreSQL, the world's most advanced open source database+
|
|
+
|
|
em9va2E= +
|
|
=D5cR +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select * from pgp_armor_headers(
|
|
armor('zooka', array['Version', 'Comment'],
|
|
array['Created by pgcrypto', 'PostgreSQL, the world''s most advanced open source database']));
|
|
key | value
|
|
---------+------------------------------------------------------------
|
|
Version | Created by pgcrypto
|
|
Comment | PostgreSQL, the world's most advanced open source database
|
|
(2 rows)
|
|
|
|
-- error/corner cases
|
|
select armor('', array['foo'], array['too', 'many']);
|
|
ERROR: mismatched array dimensions
|
|
select armor('', array['too', 'many'], array['foo']);
|
|
ERROR: mismatched array dimensions
|
|
select armor('', array[['']], array['foo']);
|
|
ERROR: wrong number of array subscripts
|
|
select armor('', array['foo'], array[['']]);
|
|
ERROR: wrong number of array subscripts
|
|
select armor('', array[null], array['foo']);
|
|
ERROR: null value not allowed for header key
|
|
select armor('', array['foo'], array[null]);
|
|
ERROR: null value not allowed for header value
|
|
select armor('', '[0:0]={"foo"}', array['foo']);
|
|
armor
|
|
-----------------------------
|
|
-----BEGIN PGP MESSAGE-----+
|
|
foo: foo +
|
|
+
|
|
=twTO +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select armor('', array['foo'], '[0:0]={"foo"}');
|
|
armor
|
|
-----------------------------
|
|
-----BEGIN PGP MESSAGE-----+
|
|
foo: foo +
|
|
+
|
|
=twTO +
|
|
-----END PGP MESSAGE----- +
|
|
|
|
(1 row)
|
|
|
|
select armor('', array[E'embedded\nnewline'], array['foo']);
|
|
ERROR: header key must not contain newlines
|
|
select armor('', array['foo'], array[E'embedded\nnewline']);
|
|
ERROR: header value must not contain newlines
|
|
select armor('', array['embedded: colon+space'], array['foo']);
|
|
ERROR: header key must not contain ": "
|