Password generator: Difference between revisions
Added Quackery.
(added RPL) |
(Added Quackery.) |
||
Line 4,612:
R{s320IH
$4FLjCL0</pre>
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ [] unrot
over - 1+ times [ i over + rot join swap ]
drop ] is range ( n n --> [ )
[ char a char z range ] constant is lowers ( --> $ )
[ char A char Z range ] constant is uppers ( --> $ )
[ char 0 char 9 range ] constant is digits ( --> $ )
[ $ \!"#$%&'()*+,-./:;<=>?@[]^_{|}~\ ] is others ( --> $ )
[ [] ' [ lowers uppers digits others ]
tuck witheach
[ do dup size random peek join ]
[] rot witheach [ do join ]
rot 4 - times
[ dup dup size random peek
rot join swap ]
drop shuffle ] is password ( n --> $ )
[ swap times
[ dup password echo$ cr ] drop ] is passwords ( n n --> )
[ say "'passwords' generates a specified" cr
say "number of passwords of a specified" cr
say "length. For example," cr
cr
say " 5 10 passwords" cr
cr
say "will generate five ten-character" cr
say "passwords." cr ] is help
say "Type 'help' for help with passwords."</syntaxhighlight>
{{out}}
As a dialogue in the Quackery shell.
<pre>/O> $ "rosetta/Password generator.qky" loadfile
...
Type 'help' for help with passwords.
Stack empty.
/O> help
...
'passwords' generates a specified
number of passwords of a specified
length. For example,
5 10 passwords
will generate five ten-character
passwords.
Stack empty.
/O> 5 10 passwords
...
TT7FdCQ5+x
e)MH_>-07q
2&)]'#MB|o
V%jE4<k3!|
X:v5]Y+,4W
Stack empty.
/O></pre>
=={{header|R}}==
|