mirror of
https://github.com/jackfoxy/urQL.git
synced 2024-12-14 18:41:40 +03:00
15 lines
435 B
Plaintext
15 lines
435 B
Plaintext
:: generate password
|
|
!:
|
|
:- %say
|
|
::|= [[* eny=@uvJ *] [length=@ud ~] *]
|
|
|= [[now=@da eny=@uvJ bec=*] [length=@ud ~] [bet=@ud ~]]
|
|
:- %noun
|
|
^- tape
|
|
=/ chars (weld (weld (weld (weld (weld (gulf 'a' 'k') (gulf 'm' 'z')) (gulf 'A' 'H')) (gulf 'J' 'N')) (gulf 'P' 'Z')) (gulf '0' '9'))
|
|
=/ pw=tape ~
|
|
=/ rng ~(. og eny)
|
|
|-
|
|
?: =(length 0) pw
|
|
=^ val rng (rads:rng (lent chars))
|
|
$(pw [(snag val chars) pw], length (sub length 1))
|