arno/hashcat
1
0
Fork 0
mirror of https://github.com/hashcat/hashcat.git synced 2025-06-05 15:48:48 +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 strict;
use warnings; use warnings;
use Data::Types qw (is_count is_int is_whole); use Data::Types qw (is_count is_whole);
use File::Basename; use File::Basename;
use FindBin; use FindBin;
use List::Util 'shuffle'; use List::Util 'shuffle';
@ -484,9 +484,9 @@ sub random_hex_string
# length in characters # length in characters
my $count = shift; 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); $string .= sprintf ("%x", rand 16) for (1 .. $count);
@ -497,11 +497,11 @@ sub random_lowercase_string
{ {
my $count = shift; my $count = shift;
return if ! is_count ($count); return if ! is_whole ($count);
my @chars = ('a'..'z'); my @chars = ('a'..'z');
my $string; my $string = "";
$string .= $chars[rand @chars] for (1 .. $count); $string .= $chars[rand @chars] for (1 .. $count);
@ -512,11 +512,11 @@ sub random_uppercase_string
{ {
my $count = shift; my $count = shift;
return if ! is_count ($count); return if ! is_whole ($count);
my @chars = ('A'..'Z'); my @chars = ('A'..'Z');
my $string; my $string = "";
$string .= $chars[rand @chars] for (1 .. $count); $string .= $chars[rand @chars] for (1 .. $count);
@ -527,11 +527,11 @@ sub random_mixedcase_string
{ {
my $count = shift; my $count = shift;
return if ! is_count ($count); return if ! is_whole ($count);
my @chars = ('A'..'Z', 'a'..'z'); my @chars = ('A'..'Z', 'a'..'z');
my $string; my $string = "";
$string .= $chars[rand @chars] for (1 .. $count); $string .= $chars[rand @chars] for (1 .. $count);
@ -542,11 +542,11 @@ sub random_numeric_string
{ {
my $count = shift; my $count = shift;
return if ! is_count ($count); return if ! is_whole ($count);
my @chars = ('0'..'9'); my @chars = ('0'..'9');
my $string; my $string = "";
$string .= $chars[rand @chars] for (1 .. $count); $string .= $chars[rand @chars] for (1 .. $count);
@ -557,11 +557,11 @@ sub random_string
{ {
my $count = shift; my $count = shift;
return if ! is_count ($count); return if ! is_whole ($count);
my @chars = ('A'..'Z', 'a'..'z', '0'..'9'); my @chars = ('A'..'Z', 'a'..'z', '0'..'9');
my $string; my $string = "";
$string .= $chars[rand @chars] for (1 .. $count); $string .= $chars[rand @chars] for (1 .. $count);