بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ....
أتمنى أن أكون قد فهمت المقصود من سؤالك عزيزي محمد النحراوي ..
لكن ما هي الرموز المستخدمة في توليد كلمات المرور :
لقد كتبت دالتين ، إحداهما تقوم بتوليد كلمات مرور مكونة من أرقام فقط ، وهذه شيفرتها :
Function GeneratePassword(ByVal PasswordLength As Integer) As String Dim Pos As Integer Dim Rnd As New Random() For Pos = 1 To PasswordLength GeneratePassword &= Rnd.Next(9) Next End Function
أما الدالة الثانية فتقوم بتوليد كلمات مرور مكونة من الحروف A-Z و a-z والأرقام من 1-9 بالإضافة إلى الرموز التالية :
! " # $ % & ' ( ) * + - . / : ; < > = ؟ @ [ ] \ ^ - ` { } | ~
وهذا هو الكود :
Function GeneratePassword(ByVal PasswordLength As Integer) As String Dim Pos As Integer Dim Rnd As New Random() For Pos = 1 To PasswordLength GeneratePassword &= Microsoft.VisualBasic.Chr(Rnd.Next(32, 126)) Next End Function
وهذا ما استطعت التفكير فيه الآن ، فإن وجدتم من ملاحظة على الكود فالرجاء تنبيهي لذلك .
والسلام عليكم ورحمة الله وبركاته ...
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 23 مارس 2005 في 20:49
سبحان الله وبحمده ... سبحان الله العظيم
