User:AnomieBOT/source/AnomieBOT/API/Cache/Encrypted.pm: Difference between revisions

Revision as of 00:19, 4 August 2013

Revision as of 17:35, 11 September 2013

Line 76:

if($self->{'encrypt'} ne ''){

# Preprocess key

utf8::encode( $self->{'encrypt'} ) if utf8::is_utf8( $self->{'encrypt'} );

$self->{'encrypt'} = Digest::SHA::sha256( $self->{'encrypt'} );

} else {

Line 99 ⟶ 100:

}

$iv .= pack("n", rand(2**16)) while length($iv)<32; # Hopefully this isn't needed...

utf8::encode( $iv ) if utf8::is_utf8( $iv );

$iv = Digest::SHA::sha256($iv);

$self->{'ivseed'} = $iv;

Line 105 ⟶ 107:

$iv = '';

while(length($iv) < $blklen){

my $self->{'ivseed'}tmp = Digest::SHA::sha256(pack('n', rand(2**16)) . $self->{'ivseed'} . pack('n', rand(2**16)));

utf8::encode( $ivtmp .=) Digestif utf8::SHA::sha256is_utf8($key . $self->{'ivseed'}tmp );

$self->{'ivseed'} = Digest::SHA::sha256($tmp);

$tmp = $key;

utf8::encode( $tmp ) if utf8::is_utf8( $tmp );

$iv .= Digest::SHA::hmac_sha256( $tmp, $self->{'ivseed'} );

}

return substr($iv, 0, $blklen);