LUA随机

参数1. rnType 表示随机类型

                1为输入随机数字

                2为随机手机号

                3为随机字母

                4为随机字母/数字(先字母后数字)，一般用于输用户名和密码，所以字母在前

                5为随机邮箱

                6为随机16进制

                7为随机中文(常用中文字库到度娘下载吧)

      参数2. rnLen 表示随机的长度

      参数3. rnUL 表示字母的大小写。1为大写、2为小写、其他为不区分，默认为不区分

以上三个参数，用不到的参数就不用填，用不到的参数你设置了不会出错，但也不会生效。

比如手机号只要一个rnType参数就行，生成数字就只要rnType、rnLen参数

如果随机结果有字母，且不区分大小写的话，也不用rnUL参数

脚本最后有示例，直接调试下就看出来效果了

---------------------------------------------------------------------

新增加随机函数，生成通过校验的苹果IMEI

可以直接添加到myRand里，比如设成8，需要用的时候直接myRand(8)调用

--------------------------------------------------------------------

本帖隐藏的内容

[mw_shl_code=php,true]--[[参数1. rnType 表示随机类型

                1为输入随机数字

                2为随机手机号

                3为随机字母

                4为随机字母/数字(先字母后数字)，一般用于输用户名和密码，所以字母在前

                5为随机邮箱

                6为随机16进制

                7为随机中文(常用中文字库到度娘下载吧)

      参数2. rnLen 表示随机的长度

      参数3. rnUL 表示字母的大小写。1为大写、2为小写、其他为不区分，默认为不区分

以上三个参数，用不到的参数就不用填，用不到的参数你设置了不会出错，但也不会生效。

比如手机号只要一个rnType参数就行，生成数字就只要rnType、rnLen参数

如果随机结果有字母，且不区分大小写的话，也不用rnUL参数

脚本最后有示例，直接调试下就看出来效果了

]]

function myRand(rnType,rnLen,rnUL)

        local zmRan,HexRan,myrandS,rns

        rnUL=rnUL or 3

        rns=rns or 0  --用于精确随机种子

        rns=rns+1

        zmRan={"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"}

        HexRan={"0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","A","B","C","D","E","F"}

        myrandS=""

        math.randomseed(rns..tostring(os.time()):reverse():sub(1, 6))

        if rnType==1 then --生成数字

                myrandS=math.random(9)

                for r1=1,rnLen-1 do

                        myrandS=myrandS..math.random(0,9)

                end

        elseif rnType==2 then --生成手机号,rnLen,rn11无需设置

                local mheader={"13","15"}

                myrandS=mheader[math.random(#mheader)]

                for r1=1,9 do

                        myrandS=myrandS..math.random(0,9)

                end

        elseif rnType==3 then --生成字母

                for r1=1,rnLen do

                        myrandS=myrandS..zmRan[math.random(52)]

                end

        elseif rnType==4 or rnType==5 then --生成数字/字母组合或邮箱

                local rn3=math.random(2,5)

                for r1=1,rn3 do

                        myrandS=myrandS..zmRan[math.random(52)]

                end

                for r1=1,rnLen-rn3 do

                        myrandS=myrandS..math.random(0,9)

                end

                if rnType==5 then

                        local mailheader={"@qq.com","@hotmail.com","@sohu.com"} --自行增减

                        myrandS=myrandS..mailheader[math.random(#mailheader)]

                end

        elseif rnType==6 then --生成16进制

                myrandS=HexRan[math.random(2,22)]

                for r1=1,rnLen-1 do

                        myrandS=myrandS..HexRan[math.random(22)]

                end

        elseif rnType==7 then --生成中文

                if ZW_txt==nil then

                        file_zw=io.open("/User/Media/TouchSprite/plugin/中文字库.txt","r")

                        ZW_txt=file_zw:read("*all")

                end

                ZW_txt=ZW_txt or ""

                if ZW_txt=="" then return "无字库" end

                for r1=1,rnLen do

                        local aaa=math.random(1,#ZW_txt/3)

                        myrandS=myrandS..string.sub(ZW_txt,aaa*3+1,aaa*3+3)

                end

                return myrandS

        end

        if rnUL==1 then

                return string.upper(myrandS) --返回大写

        elseif rnUL==2 then

                return string.lower(myrandS) --返回小写

        else

                return myrandS

        end

end

print(myRand(1,9))

print(myRand(2))

print(myRand(3,9,1))

print(myRand(4,9,2))

print(myRand(5,9,""))

print(myRand(6,9))

print(myRand(7,9))

[/mw_shl_code]