Poradnik Kod na generowanie kluczy

Przedstawiam generator kluczy napisany przeze mnie.

Całość powinna wyglądać tak:

Public Class Form1    Dim Letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"    Dim kamount As Integer = 4 'ilosc sektorow    Dim ksize As Integer = 6 'wielkosc sektora    Dim kact As Integer = 1  Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click        KeyBox.Text = ""        kact = 1        For i As Integer = 0 To ksize * kamount - 1            KeyBox.Text &= Letters.Substring(CInt(Int((Letters.Length * Rnd()) + 0)), 1)            If i = ksize * kact - 1 And i <> ksize * kamount - 1 Then                KeyBox.Text &= "-"                kact = kact + 1            End If        Next    End SubEnd Class

Opis zmiennych:

Dim Letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" 'znaki ktore pojawia sie w kluczuDim kamount As Integer = 4 'ilosc sektorowDim ksize As Integer = 6 'wielkosc sektora

Mam nadzieję, że jest ok.

Patrząc na to osoba któa nie ma o tym bladego pojęcia nie jest w stanie zrobić takiego czegoś... Będzie miała wątpliwości ale i tak plus za chęci

może jakieś zdjęcia cośśś..

pozdro

dzięki

kod skrócony.

Kiedyś się uczyłem C++ i nie było większego problemu, żeby wiedzieć co robi dany program patrząc na kod, ale tutaj... gdzie jest kod, który mówi ile będzie znaków w tym textboxie?

Dobra, rozumiem, że to jest to i = 0 to 14?

Jeśli ktoś chciał zmienić układ klucza musiał sam to zrobić.

Specjalnie dla ciebie napisane z możliwością wyboru ilości ,,sektorów'' i ich wielkości.

Zedytowany 1 post.

chociaż nie wiem czy o to chodziło?

Dzięki przyda się, leci reput. 

Dziękóweczka Wszystko działa jak należy !

Akurat tego szukałem. Leci Rep.

Jeśli ktoś chciał zmienić układ klucza musiał sam to zrobić.

Specjalnie dla ciebie napisane z możliwością wyboru ilości ,,sektorów'' i ich wielkości.

Zedytowany 1 post.

 

 

 

chociaż nie wiem czy o to chodziło?

Da się jakoś zrobić aby po każdym uruchomieniu keygena były generowane inne klucze? Zawsze jako pierwszy klucz jest ZTUKK itd.   

edit:

Już wiem jak to zrobić.

Da się jakoś zrobić aby po każdym uruchomieniu keygena były generowane inne klucze? Zawsze jako pierwszy klucz jest ZTUKK itd.

edit:

Już wiem jak to zrobić.

Dim Letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

Wystarczy zmienić kolejność liter i cyfr.