Added special characters

This commit is contained in:
Denis(Difrex) Zheleztsov 2014-09-03 18:51:28 +04:00
parent e465310dc7
commit 00338851fe

View File

@ -136,7 +136,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;