Lines Matching refs:sha512
162 $vec = { desc => "", file => "", sha256 => "", sha384 => "", sha512 => "" };
180 $vec->{sha512} = $data;
212 $vec->{sha512} = $data;
232 if (!($vec->{sha256} || $vec->{sha384} || $vec->{sha512})) {
245 if ($vec->{sha512} !~ /^(|[a-f0-9]{128})$/) {
250 if ($hashes & (($vec->{sha256} ? 1 : 0) | ($vec->{sha384} ? 2 : 0) | ($vec->{sha512} ? 4 : 0))) {
263 $sha256 = $sha384 = $sha512 = "";
270 …($sha512) = grep(/(^[a-fA-F0-9]{128}$|^[a-fA-F0-9]{128}[^a-fA-F0-9]|[^a-fA-F0-9][a-fA-F0-9]{128}$|…
288 …($sha512) = grep(/(^[a-fA-F0-9]{128}$|^[a-fA-F0-9]{128}[^a-fA-F0-9]|[^a-fA-F0-9][a-fA-F0-9]{128}$|…
291 …e("Unable to generate any hashes for file '$vec->{file}'!\n") if (!$sha256 && !$sha384 && $sha512);
294 $sha512 =~ tr/A-F/a-f/;
297 $sha512 =~ s/^.*([a-f0-9]{128}).*$/$1/;
322 if ($sha512 && $hashes & 4 == 4) {
323 if ($vec->{sha512} eq $sha512) {
324 print "SHA512 MATCHES:\n\t" . substr($sha512, 0, 64) . "\n\t" .
325 substr($sha512, -64) . "\n";
328 substr($vec->{sha512}, 0, 64) . "\n\t\t" .
329 substr($vec->{sha512}, -32) . "\n\tGOT:\n\t\t" .
330 substr($sha512, 0, 64) . "\n\t\t" . substr($sha512, -64) . "\n\n";