- my @t = gettimeofday();
- my $r = unpack("xxNxx", pack("d", rand));
- @t = map {$_ ^ $r} @t;
- dbg("challenge r: $r seed: $t[0] $t[1]" ) if isdbg('verify');
- $r = unpack("xxNxx", pack("d", rand));
- @t = map {$_ ^ $r} @t;
- dbg("challenge r: $r seed: $t[0] $t[1]" ) if isdbg('verify');
- return $self->{seed} = sha1_base64(@t, gettimeofday, rand, rand, rand, @_);