Added special characters
This commit is contained in:
parent
0f9abb99f7
commit
8c8dd25ef1
@ -122,7 +122,7 @@ sub save {
|
|||||||
|
|
||||||
# Generate password
|
# Generate password
|
||||||
sub generate {
|
sub generate {
|
||||||
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 .. 16;
|
$string .= $chars[ rand @chars ] for 1 .. 16;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user