12-08-22, 11:58 PM
السلام عليكم أنا عايز كود توليد ارقام وحروف غشراييه مكونه من ارقام وحروف وعلامات خاصه لكن شرط يكون الثلاثه مع بعض كيف ؟او كيفيه التحقق من أن النص داخل التسكت بوكس مكون من خليط من الأرقام والحروف والعلامات الخاصة ؟
12-08-22, 11:58 PM
13-08-22, 12:53 AM
PHP كود :
Private Function getsymbol() As String
Dim all As String = ""
For i As Integer = 0 To 255
Dim c As Char = Chr(i)
If Char.IsPunctuation(c) Then
all &= c
End If
Next
Return all
End Function
Private Function gen(ByVal count As Integer)
Dim a As String = "abcdefghujklmnopqrstuvwxyz"
Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim d As String = "0123456789"
Dim f As String = getsymbol()
Dim small As String = ""
Dim capital As String = ""
Dim number As String = ""
Dim sy As String = ""
For i As Integer = 0 To count
beg0:
Dim r As Integer = Int(Rnd() * a.Length)
Dim t As String = a(r)
If small.Contains(t) = False Then
small &= t
Else
GoTo beg0
End If
Next
For i As Integer = 0 To count
beg1:
Dim r As Integer = Int(Rnd() * s.Length)
Dim t As String = s(r)
If capital.Contains(t) = False Then
capital &= t
Else
GoTo beg1
End If
Next
For i As Integer = 0 To count
beg2:
Dim r As Integer = Int(Rnd() * d.Length)
Dim t As String = d(r)
If number.Contains(t) = False Then
number &= t
Else
GoTo beg2
End If
Next
For i As Integer = 0 To count
beg3:
Dim r As Integer = Int(Rnd() * f.Length)
Dim t As String = f(r)
If sy.Contains(t) = False Then
sy &= t
Else
GoTo beg3
End If
Next
Dim all As String = small & capital & number & sy
Return all
End Function
دالتين الاولى لانشاء الرموز والاخرى للباقي من حروف وارقام
13-08-22, 04:08 AM
13-08-22, 04:27 AM