The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

App::iTan::Utils - Utility methods role

METHODS

Accessors

database

Path to the database as a Path::Class::File object.

dbh

Active database handle

cipher

Crypt::Twofish cipher object

Methods

get

 my $tandata = $self->get($index);

Fetches a valid iTan with the given index.

mark

 $self->mark($index[,$memo]);

crypt_string

 my $crypt = $self->crypt_string($string);

Encrpyts a string

decrypt_string

 my $string = $self->decrypt_string($crypt);

Decrpyts a string