[Trojaner]

Bitte

Public Partial Class Form1
	Inherits Form
	Protected rnd As Random
	Public Sub New()
		InitializeComponent()
		Me.rnd = New Random()
	End Sub
	Private Sub button1_Click(sender As Object, e As EventArgs)
		Dim keyList As List(Of [String]) = New List(Of String)()
		keyList.Add("1325")
		For i As Integer = 0 To 4
			keyList.Add(Random4StelligeZahl())
		Next
		Me.textBox1.Text = [String].Join("-", keyList.ToArray())
	End Sub
	Protected Function Random4StelligeZahl() As [String]
		Dim res As [String] = ""
		For i As Integer = 0 To 3
			res += Me.rnd.[Next](0, 9).ToString()
		Next
		Return res
	End Function
End Class