字符数字随机生成源码

来源:互联网 发布:电脑淘宝怎么货到付款 编辑:程序博客网 时间:2024/04/30 08:30

 //随机字符串类型
    public enum stringtype
    
{
        allstring 
= 1,//大小写字母
        allnumic = 2,//数字
        str_num = 3,//大小写字母+数字
        str_upper = 4,//大写字母
        str_lower = 5 //大写字母    
    }


    
//生成随机字符串
    public static string GenerateRandom(int Length,stringtype s)
    
{
        
string strtemp="";
        
string[] constant=null;
        
switch (s)
        
{
            
case stringtype.allnumic :
                strtemp
="0,1,2,3,4,5,6,7,8,9";
                constant 
= strtemp.Split(',');
                
break;
            
case stringtype.allstring :
                strtemp 
="a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z";
                constant 
= strtemp.Split(',');
                
break;
            
case stringtype.str_lower :
                strtemp 
= "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z";
                constant 
= strtemp.Split(',');
                
break;
            
case stringtype.str_num :
                strtemp 
= "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9";
                constant 
= strtemp.Split(',');
                
break;
            
case stringtype.str_upper :
                strtemp 
= "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z";
                constant 
= strtemp.Split(',');
                
break;
        }

       
        System.Text.StringBuilder newRandom 
= new System.Text.StringBuilder(Length);
        Random rd 
= new Random();
        
for (int i = 0; i < Length; i++)
        
{
            newRandom.Append(constant[rd.Next(constant.Length
-1)]);
        }

        
return newRandom.ToString();
    }

 

 

 

 '随机字符串类型
    Public Enum stringtype
        allstring 
= 1
        
'大小写字母
        allnumic = 2
        
'数字
        str_num = 3
        
'大小写字母+数字
        str_upper = 4
        
'大写字母
        str_lower = 5 '大写字母    
    End Enum



    
Function GenerateRandom(ByVal Length As IntegerByVal s As stringtype) As String
        
Dim strtemp As String = ""
        
Dim constant() As String = Nothing
        
Select Case s
            
Case stringtype.allnumic
                strtemp 
= "0,1,2,3,4,5,6,7,8,9"
                constant 
= strtemp.Split(",")
            
Case stringtype.allstring
                strtemp 
= "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z"
                constant 
= strtemp.Split(",")
            
Case stringtype.str_lower
                strtemp 
= "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
                constant 
= strtemp.Split(",")
            
Case stringtype.str_num
                strtemp 
= "a,b,c,d,e,f,g,h,i,j,k,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,X,Y,Z,0,1,2,3,4,5,6,7,8,9"
                constant 
= strtemp.Split(",")
            
Case stringtype.str_upper
                strtemp 
= "A,B,C,E,F,D,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z"
                constant 
= strtemp.Split(",")
        
End Select

        
Dim NewRandom As System.Text.StringBuilder = New System.Text.StringBuilder(Length)
        
Dim rd As Random = New Random()
        
Dim i As Integer
        
For i = 0 To Length - 1 Step i + 1
            NewRandom.Append(constant(rd.Next(constant.Length 
- 1)))
        
Next
        
Return NewRandom.ToString()
    
End Function
原创粉丝点击