[سعود]

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 


دالتين الاولى لانشاء الرموز والاخرى للباقي من حروف وارقام