--
-- DES cipher
--
-- ensure consistent test output regardless of the default bytea format
SET bytea_output TO escape;
-- no official test vectors atm
-- from blowfish.sql
SELECT encode(encrypt(
decode('0123456789abcdef', 'hex'),
decode('fedcba9876543210', 'hex'),
'des-ecb/pad:none'), 'hex');
      encode      
------------------
 ed39d950fa74bcc4
(1 row)

-- empty data
select encode(	encrypt('', 'foo', 'des'), 'hex');
      encode      
------------------
 752111e37a2d7ac3
(1 row)

-- 8 bytes key
select encode(	encrypt('foo', '01234589', 'des'), 'hex');
      encode      
------------------
 dec0f9c602b647a8
(1 row)

-- decrypt
select decrypt(encrypt('foo', '0123456', 'des'), '0123456', 'des');
 decrypt 
---------
 foo
(1 row)

-- iv
select encode(encrypt_iv('foo', '0123456', 'abcd', 'des'), 'hex');
      encode      
------------------
 50735067b073bb93
(1 row)

select decrypt_iv(decode('50735067b073bb93', 'hex'), '0123456', 'abcd', 'des');
 decrypt_iv 
------------
 foo
(1 row)

-- long message
select encode(encrypt('Lets try a longer message.', '01234567', 'des'), 'hex');
                              encode                              
------------------------------------------------------------------
 5ad146043e5f30967e06a0fcbae602daf4ff2a5fd0ed12d6c5913cf85f1e36ca
(1 row)

select decrypt(encrypt('Lets try a longer message.', '01234567', 'des'), '01234567', 'des');
          decrypt           
----------------------------
 Lets try a longer message.
(1 row)