Dogcows Code - chaz/p5-File-KDBX/blob - lib/File/KDBX/Key/Password.pm

   1 package File::KDBX::Key::Password;
   2 # ABSTRACT: A password key
   3
   4 use warnings;
   5 use strict;
   6
   7 use Crypt::Digest qw(digest_data);
   8 use Encode qw(encode);
   9 use File::KDBX::Error;
  10 use File::KDBX::Util qw(erase);
  11 use namespace::clean;
  12
  13 use parent 'File::KDBX::Key';
  14
  15 our $VERSION = '999.999'; # VERSION
  16
  17 sub init {
  18     my $self = shift;
  19     my $primitive = shift // throw 'Missing key primitive';
  20
  21     $self->_set_raw_key(digest_data('SHA256', encode('UTF-8', $primitive)));
  22
  23     return $self->hide;
  24 }
  25
  26 1;