arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2024-11-22 08:08:10 +00:00
Code Issues Releases Wiki Activity

Update test.pl to use is_whole() instead of is_count()

Browse Source
This commit is contained in:
Jens Steube 2020-07-22 16:01:10 +02:00
parent 4658e470a2
commit 7d72bd7bae
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tools/test.pl
View File

@ -8,7 +8,7 @@
use strict;
use warnings;
use Data::Types qw (is_count is_int is_whole);
use Data::Types qw (is_count is_whole);
use File::Basename;
use FindBin;
use List::Util 'shuffle';
@ -484,9 +484,9 @@ sub random_hex_string
# length in characters
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my $string;
my $string = "";
$string .= sprintf ("%x", rand 16) for (1 .. $count);
@ -497,11 +497,11 @@ sub random_lowercase_string
{
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my @chars = ('a'..'z');
my $string;
my $string = "";
$string .= $chars[rand @chars] for (1 .. $count);
@ -512,11 +512,11 @@ sub random_uppercase_string
{
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my @chars = ('A'..'Z');
my $string;
my $string = "";
$string .= $chars[rand @chars] for (1 .. $count);
@ -527,11 +527,11 @@ sub random_mixedcase_string
{
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my @chars = ('A'..'Z', 'a'..'z');
my $string;
my $string = "";
$string .= $chars[rand @chars] for (1 .. $count);
@ -542,11 +542,11 @@ sub random_numeric_string
{
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my @chars = ('0'..'9');
my $string;
my $string = "";
$string .= $chars[rand @chars] for (1 .. $count);
@ -557,11 +557,11 @@ sub random_string
{
my $count = shift;
return if ! is_count ($count);
return if ! is_whole ($count);
my @chars = ('A'..'Z', 'a'..'z', '0'..'9');
my $string;
my $string = "";
$string .= $chars[rand @chars] for (1 .. $count);