1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
--
-- Cast5 cipher
--
-- test vectors from RFC2144
-- 128 bit key
SELECT encrypt('\x0123456789ABCDEF', '\x0123456712345678234567893456789A', 'cast5-ecb/pad:none');
encrypt
--------------------
\x238b4fe5847e44b2
(1 row)
-- 80 bit key
SELECT encrypt('\x0123456789ABCDEF', '\x01234567123456782345', 'cast5-ecb/pad:none');
encrypt
--------------------
\xeb6a711a2c02271b
(1 row)
-- 40 bit key
SELECT encrypt('\x0123456789ABCDEF', '\x0123456712', 'cast5-ecb/pad:none');
encrypt
--------------------
\x7ac816d16e9b302e
(1 row)
-- cbc
-- empty data
select encrypt('', 'foo', 'cast5');
encrypt
--------------------
\xa48bd1aabde4de10
(1 row)
-- 10 bytes key
select encrypt('foo', '0123456789', 'cast5');
encrypt
--------------------
\xb07f19255e60cb6d
(1 row)
-- decrypt
select encode(decrypt(encrypt('foo', '0123456', 'cast5'), '0123456', 'cast5'), 'escape');
encode
--------
foo
(1 row)
-- iv
select encrypt_iv('foo', '0123456', 'abcd', 'cast5');
encrypt_iv
--------------------
\x384a970695ce016a
(1 row)
select encode(decrypt_iv('\x384a970695ce016a', '0123456', 'abcd', 'cast5'), 'escape');
encode
--------
foo
(1 row)
-- long message
select encrypt('Lets try a longer message.', '0123456789', 'cast5');
encrypt
--------------------------------------------------------------------
\x04fcffc91533e1505dadcb10766d9fed0937818e663e402384e049942ba60fff
(1 row)
select encode(decrypt(encrypt('Lets try a longer message.', '0123456789', 'cast5'), '0123456789', 'cast5'), 'escape');
encode
----------------------------
Lets try a longer message.
(1 row)
|
