[Pytanie] Generator

[SamWieszKto1231]

Witam,mam pytanie. Jak zrobić generator,który będzie generował randomy a nie case'y ?

Coś takiego np.:X6WL-8K2S-PFG2-P0K6

[Zkumeku]

Sam sobie nawet podpowiadasz... zrób coś na styl generatora haseł, z taką różnicą, że dodaj sobie konkretne długości i warunki do danych części takiego klucza i później składaj te części w kolejności dodając sobie separatory między nimi (w tym wypadku myślnik).

[SamWieszKto1231]

Nic mi nie wyłumaczyłeś,ja w ogóle niewiem jak się za takie coś zabrać

[Maciek2699]

Private Function generator() As String

Dim rnd As New Random

Dim str As String = "0123456789QWERTYUIOPASDFGHJKLZXCVBNM"

Dim wyn_str As String = ""

For i = 1 To 4

For i2 = 1 To 4

wyn_str &= str(rnd.Next(0, str.Length))

Next

If i <> 4 Then

wyn_str &= "-"

End If

Next

Return (wyn_str)

End Function

w butonie uzywasz funkcji np

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.text = generator()

End Sub

[SamWieszKto1231]

Dziękuje serdecznie,like

[Gość]

A ja bym to tak ugryzł

Function WygenerujKod(dlugosc As Integer)

Dim kod As String = String.Empty

Dim random As New Random

For i As Integer = 0 To dlugosc - 1

For y As Integer = 0 To 3

Select Case random.Next(1, 3)

Case 1

kod += Chr(random.Next(65, 90)) 'A-Z

Case 2

kod += Chr(random.Next(48, 57)) '0-9

End Select

Next

If Not i = dlugosc - 1 Then kod += "-"

Next

Return kod

End Function