17-07-19, 07:29 PM
سلام عليكم
بعد الصلاة على سيدنا محمد
مالمشكلة في كتابه كود
الرجاء حل مشكله وشكرا
دد
PHP كود :
Private Function Gen(ByVal Len As Integer) As String
Dim rand As New Random(CInt(DateTime.Now.Ticks))
Dim input As String = "abcdefghijklmnopqrstuvwxyz"
Return New String(Enumerable.ToArray(Of Char)((From x In Enumerable.Range(0, Len) Select input.Chars(rand.Next(0, input.Length)))))
End Function