VB.NET根据随机数生成随机码

snsj

2.   '生成数字英文混搭的随机码，一些加密软件经常用到随机码，N代表位数
   
3.     Public Function randstr(ByVal n As Integer)
   
4.         Dim str() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I",
   
5.                                         "J", "K", "L", "M", "N","O", "P", "Q",  "R", "S", "T","0", "1", "2", "3","4", "5", "6", "7",
   
6.                                          "8", "9","U", "V", "W", "X", "Y", "Z"}
   
7.         Dim i As Integer : Dim res As String = ""
   
8.         Dim rand = New System.Random()
   
9.         For i = 1 To n
   
10.             res &= str(rand.next(0, 45))
    
11.         Next i
    
12.         randstr = res
    
13.     End Function
    

  '生成数字英文混搭的随机码，一些加密软件经常用到随机码，N代表位数<br />     Public Function randstr(ByVal n As Integer)<br />         Dim str() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I",<br />                                         "J", "K", "L", "M", "N","O", "P", "Q",  "R", "S", "T","0", "1", "2", "3","4", "5", "6", "7", <br />                                          "8", "9","U", "V", "W", "X", "Y", "Z"}<br />         Dim i As Integer : Dim res As String = ""<br />         Dim rand = New System.Random()<br />         For i = 1 To n<br />             res &= str(rand.next(0, 45))<br />         Next i<br />         randstr = res<br />     End Function<br />