تقييم الموضوع :
  • 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
الف شكر اخي ابو ليلى هذا هو ما طلبتو بالفعل 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 619 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
Bug [سؤال] قائمة ب اسماء برامج فك تشفير البرامج وقرائة السورسات Aymanr3b 0 285 06-09-23, 12:56 AM
آخر رد: Aymanr3b
  طباعة قائمة combobox الى ملف PDF Tajaldeen 2 586 14-02-23, 11:19 PM
آخر رد: estefsar
  اختيار عنصر معين من قائمة تتولد فيها ازار عددها متغير atefkhalf2004 16 1,167 22-01-23, 12:56 AM
آخر رد: atefkhalf2004
Rainbow [كود] كود اظهار تنبيه عند البحث بأقل من 3 حروف محمد مسافر 3 641 04-12-22, 10:10 AM
آخر رد: أبو خالد الشكري
  طلب كود إضافة وأزالة البرنامج من قائمة بدء التشغيل سيد درويش 5 871 26-08-22, 12:03 PM
آخر رد: asmarsou
  جلب عناصر قائمة فرعية في MenuStrip ابراهيم ايبو 4 1,124 09-08-22, 01:08 AM
آخر رد: Taha Okla
  قائمة منسدلة بجزء من النص في مربع نص aftfm 12 2,569 19-04-22, 06:03 PM
آخر رد: atefkhalf2004
  قائمة الصور علي Listview cordava 0 1,009 20-12-21, 10:57 PM
آخر رد: cordava

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


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