...

/usr/share/doc/firebird/sample/dbcrypt/cryptDb.pas