Return 8 lowercase letters digital mixed random password

zhaozj2021-02-16  76

'Return to 8 lowercase letters digital mixed random password

Function getrandompassword () AS STRING

DIM S as string () = {"0", "1", "2", "4", "5", "6", "7", "8", "9", "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 "}

Dim r as new random

Return S (R.Next (0, S.Length)). TOSTRING () & S (R.Next (0, S.Length)). Tostring () & S (R.Next (0, S.Length)) .Tostring () & S (R.Next (0, S.Length)). Tostring () & S (R.Next (0, S.Length)). Tostring () & S (R.Next (0, S) .Ley () & s () & s (R.Next (0, S.Length)). Tostring () & S (R.Next (0, S.Length)). Tostring ()

END FUNCTION

转载请注明原文地址:https://www.9cbs.com/read-14677.html

New Post(0)