تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب كود لتوليد قائمة كلمات سر عشواية (حروف فقط)
#1
السلام عليكم ورحمة الله
ارجوا من الاخوة مساعدتي 
لدينا Button +TextBox
اخواني محتاج كود اضعه في Button
عند الضغط عليه يقوم بتوليد عشر كلمات سر عشوائية في  TextBox
ملاحظة طول كلمة المرور الواحدة 6 حروف كلمات المرور العشرة تكون حروف سمول انكليزية فقط
ارجوا الافادة وشكرا 
Rolleyes
مثال 


Sad طلبي صعب الظاهر
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله

كود :
Public Class Form1

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Add(rendomLetters(6))
   End Sub

   Function rendomLetters(length As Integer) As String
       Dim s As String = String.Empty
       Dim arr() As Char = "abcdefghijklmnopqrstuvwxyz".ToCharArray
       Dim r As New Random()
       For i = 1 To length
           s &= arr(r.Next(0, arr.Length))
       Next
       Return s
   End Function

End Class
الرد }}}}
تم الشكر بواسطة: ابو ليلى
#3
بالاضافة لحل الاخ ممدوح
باستخدام Ling
كود :
   Private randoms As New Random()
   Private Function RandomPassword(len As Integer) As String
       Const CharSamples As String = "abcdefghijklmnopqrstuvwxyz"
       Return New String(Enumerable.Repeat(CharSamples, len).[Select](Function(x) x(randoms.[Next](x.Length))).ToArray())
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i = 0 To 9
           ListBox1.Items.Add(RandomPassword(6))
       Next

   End Sub

كما و يمكنك استخدام كلاس منفصل لقيام بالعملية

بنية الكلاس
كود :
Imports System.Security.Cryptography
Imports System.Text

Public Class PassGen
   Public Function GetUniqueKey(MSize As Integer) As String
       Dim CharSamples As Char() = New Char(61) {}
       CharSamples = "abcdefghijklmnopqrstuvwxyz".ToCharArray()
       Dim Byetdata As Byte() = New Byte(0) {}
       Using crypto As New RNGCryptoServiceProvider()
           crypto.GetNonZeroBytes(Byetdata)
           Byetdata = New Byte(MSize - 1) {}
           crypto.GetNonZeroBytes(Byetdata)
       End Using
       Dim result As New StringBuilder(MSize)
       For Each b As Byte In Byetdata
           result.Append(CharSamples(b Mod (CharSamples.Length)))
       Next
       Return result.ToString()
   End Function
End Class

الاستدعاء
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim keyss As New PassGen
       For i = 0 To 9
           ListBox1.Items.Add(keyss.GetUniqueKey(6))
       Next
   End Sub
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: ممدوح
#4
(13-11-16, 08:19 PM)ابو ليلى كتب : بالاضافة لحل الاخ ممدوح
باستخدام Ling
كود :
   Private randoms As New Random()
   Private Function RandomPassword(len As Integer) As String
       Const CharSamples As String = "abcdefghijklmnopqrstuvwxyz"
       Return New String(Enumerable.Repeat(CharSamples, len).[Select](Function(x) x(randoms.[Next](x.Length))).ToArray())
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       For i = 0 To 9
           ListBox1.Items.Add(RandomPassword(6))
       Next

   End Sub

كما و يمكنك استخدام كلاس منفصل لقيام بالعملية

بنية الكلاس
كود :
Imports System.Security.Cryptography
Imports System.Text

Public Class PassGen
   Public Function GetUniqueKey(MSize As Integer) As String
       Dim CharSamples As Char() = New Char(61) {}
       CharSamples = "abcdefghijklmnopqrstuvwxyz".ToCharArray()
       Dim Byetdata As Byte() = New Byte(0) {}
       Using crypto As New RNGCryptoServiceProvider()
           crypto.GetNonZeroBytes(Byetdata)
           Byetdata = New Byte(MSize - 1) {}
           crypto.GetNonZeroBytes(Byetdata)
       End Using
       Dim result As New StringBuilder(MSize)
       For Each b As Byte In Byetdata
           result.Append(CharSamples(b Mod (CharSamples.Length)))
       Next
       Return result.ToString()
   End Function
End Class

الاستدعاء
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim keyss As New PassGen
       For i = 0 To 9
           ListBox1.Items.Add(keyss.GetUniqueKey(6))
       Next
   End Sub
الف شكر اخي ابو ليلى هذا هو ما طلبتو بالفعل 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 60 07-12-16, 12:20 AM
آخر رد: amgad525
  [VB.NET] التعامل مع الباركود حروف وأرقام ..؟ adel27 5 123 21-11-16, 10:45 PM
آخر رد: محمود بكرى
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 445 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 156 17-09-16, 12:38 AM
آخر رد: أبو عمر
  [سؤال] عندما تكون الخلية في قاعدة البيانات مكونه من حروف وارقام بادئ 21 324 09-09-16, 11:13 AM
آخر رد: بادئ
  قائمة جانبية في الشاشة الرئيسيه علي كعبي 12 329 26-08-16, 09:59 PM
آخر رد: علي كعبي
Information [سؤال] كيف أضيف سجل قاعدة بيانات في قائمة Combobox HUNTER25 10 251 23-07-16, 03:07 PM
آخر رد: سعود
  تبديل او مسح حروف من التكست بوكس Mohamed20 5 200 22-07-16, 09:46 PM
آخر رد: mervandzz
  [VB.NET] صنع قائمة "احتمالات" من الاحرف والارقام و الرموز التى يدخلها المستخدم ali ahmed 1997 3 159 06-07-16, 07:45 AM
آخر رد: ali ahmed 1997
  [سؤال] سؤال بسيط بخصوص حفظ كلمات المرور salahmax12 1 206 15-05-16, 05:05 PM
آخر رد: CLARO

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم