ایجاد کاراکتر به صورت تصادفی

[محمد رشوند 1,209]

چند قطعه کد رو میزارم میتونید ازش استفاده های خوبی بکنید برای مثال برنامه ای تکراری بسازید که انواع پسورد ضعیف متوسط قوی رو تولید کنه

 

حروف بزرگ و کوچک با هم دیگه

Sub RandomLetters(Length As Int) As String
    Dim SB As StringBuilder
    SB.Initialize
    For i = 1 To Length
        SB.Append(Chr(Rnd(65,123)))
    Next
    Return SB.ToString
End Sub

نحوه استفاده کد بالا

dim str as string
str = RandomLetters(20)
lbl1.text=str

فقط حروف کوچک

Sub RandomLowercaseLetters(Length As Int) As String
    Dim SB As StringBuilder
    SB.Initialize
    For i = 1 To Length
        SB.Append(Chr(Rnd(97,123)))
    Next
    Return SB.ToString
End Sub

نحوه استفاده کد بالا

dim str as string
str = RandomLowercaseLetters(20)
lbl1.text=str

فقط حروف بزرگ

Sub RandomUppercaseLetters(Length As Int) As String
    Dim SB As StringBuilder
    SB.Initialize
    For i = 1 To Length
        SB.Append(Chr(Rnd(65,91)))
    Next
    Return SB.ToString
End Sub

نحوه استفاده کد بالا

dim str as string
str = RandomUppercaseLetters(20)
lbl1.text=str

به صورت مختلط اعداد و حروف با هم دیگه

Sub RandomString(Length As Int, LowerCase As Boolean, UpperCase As Boolean, Numbers As Boolean, AdditionalChars As String) As String
    Dim source As String
    If LowerCase = True Then
        source = source &"abcdefghijklmnopqrstuvwxyz"
    End If
    If UpperCase = True Then
        source = source &"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    End If
    If Numbers = True Then
        source = source &"0123456789"
    End If
    If AdditionalChars.Length > 0 Then
        source = source&AdditionalChars
    End If

    Dim SB As StringBuilder
  SB.Initialize
  For i = 1 To Length
    Dim r As Int = Rnd(0,source.Length-1)
        SB.Append(source.SubString2(r,r+1))
  Next
  Return SB.ToString
End Sub

نحوه استفاده از کد بالا

dim str as string
str = RandomString(25,True,True,True,"!§$%&=")
lbl1.text=str
خروجی کد زیر
CTx21k5!1RaSF1IfuG&b5Dj7u