perl hash sub
How to run a perl program in linux command line?
I’m having trouble running a perl program in the console. I’m on Ubuntu 8.04.
The program I want to run is a hash collision.
my $goal = ’37a36dd7607832abdb366774b88a787f’; # hash to find
my @chars = ( a..z, 0..9 ); # characters to use
my $minlen = 1; # minimum length of string
my $maxlen = 8; # maximum length of string
for ( $minlen..$maxlen ) {
print ‘Length: ‘, $_, “\n”;
&checkStrings($_);
}
sub checkStrings {
my ( $n, $s ) = ( (shift) – 1, shift );
for ( @chars ) {
if ( $n ) {
checkStrings($n, $s . $_ );
} else {
print $s, $_, “\n” if md4_hex( $s . $_ ) eq $goal;
}
}
}
If you can include the output of this program that would be greatly appreciated!! Thanks for all responses!
Unless I am mistaken, you will need the Perl compiler or interpreter, and then run something like
:~$ perl myscript.pl
-Purr
p6apclps #98 Perl 6 Apocalypse
