[PYTANIE] Generator kluczy

[Kubiq1]

Witam chcę zrobić prosty generator kluczy dla nauki i teraz moje pytanie jak zrobić gdy kliknę na button "generuj" to w okienku wyswietli mi się randomowy klucz? Może ktoś powiedziec?

 

@ sory za brak prefixu , pisalem na szybko i zapomnialem;/

[Inorist™]

dim out as string
For i = 1 to 5
   out &= rnd(i*2)
next
textbox1.text = out

 

Przyklad

[Kubiq1]

Sory ja dopiero sie ucze, jesli mam taki kod to jak wpisywac klucze zeby sie pokazywaly?

[Inorist™]

Zrób jeden guzik i jeden textbox

Kliknij 2 razy na guzik potem wpisz to co ci dałem wyżej ;x

[Kubiq1]

Zrób jeden guzik i jeden textbox

 

Kliknij 2 razy na guzik potem wpisz to co ci dałem wyżej ;x

A jak chce zrobić keygen żeby były cyfry i litery na przykład V43M-B7JL i tak dalej?

[Gość]

Module Module1

 

Sub Main()

Console.WriteLine(WylosujKod())

Console.ReadKey()

End Sub

Function WylosujKod(Optional dlugosc As Integer = 2)

Dim kod As String = String.Empty

Dim random As New Random()

For i As Integer = 0 To dlugosc - 1

For y = 0 To 3

Select Case random.Next(1, 3)

Case 1

kod += Chr(random.Next(48, 57))

Case 2

kod += Chr(random.Next(65, 90))

End Select

Next

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

Next

Return kod

End Function

End Module

[Kubiq1]

Hej , wyskakują mi błędy związane z tym module coś nie gra , próbowałem ogarnać ale nie umiem

[Inorist™]

To co napisał kolega wyżej jest do aplikacji konsolowych

[Kubiq1]

To co napisał kolega wyżej jest do aplikacji konsolowych

To móglbyś mi powiedzieć jak to ogarnąć żeby mi się generowały tak klucze bo jest dobrze jak podałeś ale chciałbym aby było tak jak np masz serial keye albo coś

[Inorist™]

xxx

[Kubiq1]

Dobra ogarnalem sobie to , dzieki wam za pomoc. Temat mozecie zamknac;)