3 # This module impliments the verification routines
5 # Copyright (c) 2002 Dirk Koopman G1TLH
16 use Digest::SHA1 qw(sha1_base64);
21 my $self = bless {}, ref($class) || $class;
32 return $self->{seed} = sha1_base64('RbG4tST2dYPWnh6bfAaq7pPSL04', @_);
38 return $self->{salt} = substr sha1_base64($self->{seed}, rand, rand, rand), 0, 6;
44 return $self->{salt} . sha1_base64($self->{salt}, $self->{seed}, @_);
51 my $p = sha1_base64($self->{salt}, $self->{seed}, @_);
58 return @_ ? $self->{seed} = shift : $self->{seed};
64 return @_ ? $self->{salt} = shift : $self->{salt};