رفتن به مطلب

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


محمد رشوند

ارسال های توصیه شده

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

 

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...