aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Password-generator/Mathematica/password-generator.math Normal file
View file

@ -0,0 +1,31 @@
(* Length is the Length of the password, num is the number you want, \
and similar=1 if you want similar characters, 0 if not. True and \
False, should work in place of 1/0 *)
pwgen[length_Integer: 5, num_Integer: 1, similars_Boolean: 1] :=
pwgenerator[length, num, similars] =
Module[{list, valid, validchars, similar, k, j, password, pwlist,
lcase, ucase, digits, spec, s}, lcase = Alphabet[];
ucase = Capitalize[lcase];
digits = Range[0, 9];
spec = StringPartition["!:#$%\'()*+,-./:;>=<?@{}[]^_|~", 1];
validchars = Flatten[Union[lcase, ucase, digits, spec]];
similar = StringPartition["Il10O5S2Z", 1];
list = {};
Table[valid = 0;
While[valid == 0,
For[j = 0; k = {};, j < length, j++,
AppendTo[k, RandomInteger[{1, Length[validchars]}]]];
k = Flatten[k];
password = validchars[[k]];
Which[(Intersection[password, similar] >= 1 && similars == 0 ),
valid = 0;, (Intersection[password, similar] == 0 &&
similars == 1),
valid = 0;, (Intersection[password, similar] == 0 &&
similars == 0 ), valid = 1;
Return[password], (Intersection[password, similar] >= 1 &&
similars == 1), valid = 1; Return[password]];
], {num}];
]