# $salt$$hash
elsif ($mode == 7700 || $mode == 7800)
{
- my @split1 = split (":", $line);
+ my $index1 = index ($line, ":");
- next unless scalar @split1 == 2;
+ next if $index1 < 1;
+
+ my @split1 = split (":", $line);
my @split2 = split ('\$', $split1[0]);
$hash_in = $split1[0];
- $word = $split1[1];
+ if (scalar @split1 > 1)
+ {
+ $word = $split1[1];
+ }
+ else
+ {
+ $word = "";
+ }
next unless (exists ($db->{$hash_in}) and (! defined ($db->{$hash_in})));
}
elsif ($mode == 22)
{
- my $salt_len = get_random_num (1, 15);
+ my $salt_len = get_random_num (1, 11);
$tmp_hash = gen_hash ($mode, $word_buf, substr ($salt_buf, 0, $salt_len));
}