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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تفقيط الأرقام وتحويلها إلى حروف semsemalex 8 7,936 31-07-17, 05:51 PM
آخر رد: محمود بكرى
  [سؤال] اريد كود عندما ادخل كلمة السر يضيف كلمات سر فى الاعدادات وتحفظ Mina Botros 8 249 28-07-17, 08:48 PM
آخر رد: Mina Botros
  [سؤال] كيف يتم تفريغ قائمة من البيانات المخزنة فيه abumuhannadzym 1 140 28-06-17, 07:54 PM
آخر رد: silverlight
  هل من طريقة لتوليد كود تفعيل مدى الحياة abas010 5 254 11-06-17, 11:07 PM
آخر رد: Ratchinko
  [سؤال] كيف احدد كلمات معينة في Textbox The Light Fire 3 302 01-02-17, 12:09 AM
آخر رد: The Light Fire
  تحويل الارقام الي حروف محمد بوقزاحة 6 661 22-01-17, 05:01 PM
آخر رد: tryold
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 485 07-12-16, 12:20 AM
آخر رد: amgad525
  [VB.NET] التعامل مع الباركود حروف وأرقام ..؟ adel27 5 691 21-11-16, 10:45 PM
آخر رد: محمود بكرى
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 892 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 570 17-09-16, 12:38 AM
آخر رد: أبو عمر

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


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