'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