Hi Robert,
I haven't seen one, and I also do *not* know the best way to store
encrypted data in a database, but I do have something that works:
package MyApp::Schema::Result::ActiveDirectoryServer;
use parent 'MyApp::Schema::Result';
__PACKAGE__->load_components('FilterColumn');
...
__PACKAGE__->filter_column( bind_password => {
filter_to_storage => 'encrypt',
filter_from_storage => 'decrypt',
});
my $cipher = Crypt::CBC->new(
-key => 'my secret key', # STORE THIS SOMEWHERE CAREFULLY
-cipher => 'Blowfish'
);
sub encrypt { $cipher->encrypt_hex($_[1]) }
sub decrypt { $cipher->decrypt_hex($_[1]) }
1;
On Fri, May 11, 2012 at 8:42 AM, Robert Rothenberg <[email protected]> wrote:
> Is there a DBIC plugin akin to DBIx::Class::PassphraseColumn or
> DBIx::Class::EncodedColumn, but which uses a reversible encryption method
> that can be used to decode values on the fly?
>
>
>
> _______________________________________________
> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> Searchable Archive:
> http://www.grokbase.com/group/[email protected]
>
--
fREW Schmidt
http://blog.afoolishmanifesto.com
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
