[Pytanie] Jak zrobić generator losowych liter/cyfr ?

[ExClusiVe.]

Jak w top ...

 

Chce zrobić generator co będzie generował randomowe hasła ...

 

Hasła mają składać się z 8 znaków, znakami mają być tylko : litery i cyfry

 

Wyjaśmi mi to ktoś ? Krok po kroku?

 

Daje 2xLimit +++!

 

//Chciałbym,aby wyglądał on tak :

 

[StuSto]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Generate() & "-" & Generate() & "-" & Generate() & "-" & Generate() & "-" & Generate()
    End Sub
    Private Function Generate() As String
        Dim IntRnd(1) As Object
        Dim intStep(1) As Object
        Dim strName(1) As Object
        Dim intNameLength(1) As Object
        Dim intLength(1) As Object
        Dim strInputstring(1) As Object


        strInputstring(1) = "1234567890123456789012345674ABCDEFGHIJKLMNOPRSTUVWXYZ"
        intLength(1) = Len(strinputstring(1))
        intNameLength(1) = 3
        Randomize()
        strName(1) = ""
        For intStep(1) = 1 To intNameLength(1)
            intRnd(1) = Int((intLength(1) * Rnd()) + 1)
            strname(1) = strName(1) & Mid(strInputstring(1), intRnd(1), 1)
        Next


        Generate = strName(1)


    End Function
End Class
 

To kod tam gdzie masz "123 ..." to wpisujesz to co ma byc generowane

w intnamelengt(1) = 8 wpisujesz z ilu ma sie skladac 1 "Haslo"

Na samej gorze jest "generate" co generuje X losowych liter/liczb tak wyglada mniej wiecej z 5 funkcjami generate

 

XXXXXXXX-XXXXXXXX-XXXXXXXX-XXXXXXXX--XXXXXXXX

 

Jak bedzie tam tylko 1x wpisane Generate() to kod wygenerowany wyglada tak :

XXXXXXXX