ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

quick password generator hack

Browse source
This commit is contained in:
Ward Wouts 2003-03-03 10:56:38 +00:00
parent f7cccc53ee
commit c3599c6383
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
pwdmake/pwdmake Executable file
View file

@ -0,0 +1,7 @@
#!/usr/bin/perl -w
@chars=( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
foreach ( 1 .. 8 ) {
$passwd = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
print "$passwd\n";
}