Math.PassGenerate
Publicado: 18 Mar 2013 15:59
Buenas amigos de AMSSpecialist os traigo una pequeña función que genera passwords, nada del otro mundo... la encontré mirando en mi ya habitual foro de ru-board, aquí os dejo un pequeño ejemplo que he echo y el script, espero que lo disfrutéis!
Script:
Descarga:
Math PassGenerate.apz
Script:
Math.PassGenerate = function (sDelimiter, ...)
local sRet = '';
local sAlph = 'abcdefghijklmnopqrstuvwxyz';
if arg then
for i = 1, #arg do
if type(arg[i]) == 'string' then
for i = 1, tonumber(arg[i]) do
sRet = sRet .. String.Upper(String.Mid(sAlph, Math.Random(1, #sAlph), 1));
end
elseif type(arg[i]) == 'number' then
for i = 1, arg[i] do
sRet = sRet .. Math.Random(1, 9);
end
end
sRet = sRet .. sDelimiter;
end
end
return String.TrimRight(sRet, sDelimiter);
end
a = 0;
repeat
a = a + 1;
Random1 = Math.Random(1, 5);
Random2 = Math.Random(1, 5);
Random3 = Math.Random(1, 5);
Random4 = Math.Random(1, 5);
Random5 = Math.Random(1, 5);
sPass = Math.PassGenerate('-', tostring(Random1), Random2, tostring(Random3), Random4, tostring(Random5));
result = ListBox.AddItem("ListBox1", sPass, sPass);
until a == 9;
Math PassGenerate.apz