Public Shared Function RandomString(ByVal lenght As Integer) As Object
        Dim str As String = "ضصثقفغعهخحجدطكمنتاوَالتَّوْرَاةَ وَالإِنجِيلَ وَإِذْ تَخْلُقُ مِنَ الطِّينِ كَهَيْئَةِ الطَّيْرِ بِإِذْنِي فَتَنفُخُ فِيهَالبيسشئءؤرلىةوزظلآل-أآا" 'thx to hamad
        Dim random As System.Random = New System.Random()
        Dim stringBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
        Dim num As Integer = lenght
        Dim num1 As Integer = 1
        Do
            Dim num2 As Integer = random.[Next](0, 35)
            stringBuilder.Append(str.Substring(num2, 1))
            num1 = num1 + 1
        Loop While num1 <= num
        Return stringBuilder.ToString()
    End Function