Выпуск # 734

Security.Cryptography.RijndaelManaged

Dim r As New Random(Now.Millisecond)'генератор случайных чисел
Dim result As New System.Text.StringBuilder()
For i As Integer = 0 To 1000000
  result.AppendLine(r.Next(0, 1000000))
Next
System.IO.File.WriteAllText("D:\numbers.txt", result.ToString())

Dim intHour As Integer
        Dim dataTime As Date = Microsoft.VisualBasic.DateAndTime.TimeOfDay
        Dim AmPm As String
        intHour = dataTime.Hour

        If intHour > 12 Then
            intHour -= 12
            AmPm = " PM"
            Label1.Text = AmPm
        ElseIf intHour = 0 Then
            intHour = 12
            AmPm = " AM"
            Label1.Text = AmPm
        ElseIf intHour = 12 Then
            AmPm = " PM"
            Label1.Text = AmPm
        Else
            AmPm = " AM"
            Label1.Text = AmPm
        End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim allChars As String = ""
        allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
        Dim sep As Char() = {","}
        Dim arr As String() = allChars.Split(sep)
        Dim passwordString As String = ""
        Dim temp As String = ""
        Dim rand As New Random()
        For i As Integer = 0 To Convert.ToInt32(20) - 1  'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
            temp = arr(rand.[Next](0, arr.Length))
            passwordString += temp
            Label1.Text = passwordString 'выводим в Label готовый пароль
        Next
    End Sub

allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"

allChars += "0,1,2,3,4,5,6,7,8,9"

Dim sep As Char() = {","}
Dim arr As String() = allChars.Split(sep)
For i As Integer = 0 To Convert.ToInt32(20) - 1  'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
            temp = arr(rand.[Next](0, arr.Length))
            passwordString += temp
            Label1.Text = passwordString 'выводим в Label готовый пароль
        Next

Dim allChars As String = ""  ' объявление переменной типа String
        allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"  ' задаеш значение переменной
        allChars += "0,1,2,3,4,5,6,7,8,9"  ' добавление символов к переменной 
        Dim sep As Char() = {","}  ' объявление массива с указанием значения
        Dim arr As String() = allChars.Split(sep)  ' объявление массива с заполнением массива 
        Dim passwordString As String = ""  ' объявление переменной типа String
        Dim temp As String = ""  ' объявление переменной типа String
        Dim rand As New Random() ' объявление генератора псевдослучайных чисел
        For i As Integer = 0 To Convert.ToInt32(20) - 1  'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
            temp = arr(rand.[Next](0, arr.Length))   ' в цикле получаем из массива символов случайные символы 
            passwordString += temp  ' добавление значения к переменной 
            Label1.Text = passwordString 'выводим в Label готовый пароль
        Next

Public Class Base
    Dim q As String = ""
    Public Output_Result As String
    Public Function RndNamepass(ByRef ValueChar As Integer, ByRef UseRussianLanguage As Boolean, ByRef UseEnglishLanuage As Boolean, ByRef UseNumber As Boolean, ByRef UseRndRegister As Boolean) As String
        Dim allChars As String = ""
        If UseEnglishLanuage = True Then
            If UseRndRegister = True Then
                allChars += "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
                allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
            End If
            allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
        End If
        If UseRussianLanguage = True Then
            If UseRndRegister = True Then
                allChars += "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Э,Ю,Я,"
                allChars += "а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я,"
            End If
            allChars += "а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я,"
        End If
        If UseNumber = True Then
            allChars += "0,1,2,3,4,5,6,7,8,9"
        End If
        If ValueChar = 0 Then
            Exit Function
        End If
        If UseRndRegister = False And UseRussianLanguage = False And UseEnglishLanuage = False And UseNumber = False Then
            Exit Function
        End If
        'allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
        'allChars += "0,1,2,3,4,5,6,7,8,9"
        'allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
        'allChars += "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Э,Ю,Я,"
        Dim sep As Char() = {","}
        Dim arr As String() = allChars.Split(sep)
        Dim passwordString As String = ""
        Dim temp As String = ""
        Dim rand As New Random()
        For i As Integer = 0 To Convert.ToInt32(ValueChar) - 1  'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
            temp = arr(rand.[Next](0, arr.Length))
            passwordString += temp
            Output_Result = passwordString
        Next
    End Function
End Class