Math.PassGenerate

Ejemplos y plantillas para Autoplay Media Studio.
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:
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;
Descarga:
Math PassGenerate.apz
thanks  :friends: