bruteforce sha1 with hashcat

[atom]

Code:

#!/usr/bin/env perl use strict; use warnings; use Digest::SHA qw (sha1_hex); my $max = 99999999; my $target = $ARGV[0] or die ("usage: $0 hash\n"); for (my $i = 0; $i < $max; $i++) { printf ("%4.1f%%\n", ($i / $max) * 100) if (($i % 100000) == 0); my $plain = sprintf ("%08d\0\0\0\0\0\0\0\0", $i); my $hash = sha1_hex ($plain); if ($hash eq $target) { print $i, "\n"; exit; } }