[Samer]

Hey,
ich hab schon einiges mit Visual Basic gemacht aber das bekomme ich einfach nicht hin.
Mein Problem:
Ich möchte einen Keygen erstellen, der eben Keys generiert aber die Keys sollen mit den Zahlen "1325" anfangen und dann irgendwelche zufällige Zahlen.
Z.B.:
1325-1458-7650-1587-1750-3514

Mein Ergebnis ist aber immer nur:
47801-1458-7650-1587-1750-3514

was mache ich falsch?
Ich hab mir die Codes angeschaut und überlegt wie ich was umändern muss das es geht, aber ich bin nicht drauf gekommen. Bitte helft mir!
Danke!
PS: Ich hab mir es so vorgestellt, dass ich mir einfach den Code postet, der in Button 1 reinkommen muss wär echt klasse!

Edit:
Achja wenns jemand interresiert, der Code den ich benutze ist:

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Clear()
Dim rnd As New Random
For i As Integer = 0 To 23
If i = 4 Or i = 8 Or i = 12 Or i = 16 Or i = 20 Then
TextBox1.Text &= "-"
End If
TextBox1.Text &= rnd.Next(0, 9)
Next
End Sub
End Class

by me!!

[urga]

ich bin nicht wirklich fit in der VB syntax, aber die idee sollte schon klar werden.

Sub blabla()
Dim StringList As New List(Of String)
StringList.Add ("1325");
For i As Integer = 0 To 5
 StringList.Add (Random4StelligeZahl());
Next
dim key as String  = String.Join("-", StringList)
End Sub


private sub Random4StelligeZahl as String
 Dim rnd As New Random
 string res = "";
 For i As Integer = 0 To 3
  res = res & rnd.Next (0,9).toString()
 Next
 return res
end sub

[Samer]

Sry versteh nicht ganz wie das funktionieren soll!
Wenn ich mir das Wichtigste rausnehme, sehe ich keinen Unterschied zu meiner Verision! Vielleicht bin ich einfach zu bescheuert und bekomme es nicht hin oder du könntest es etwas detairter machen
PS: Ich hab einen neuen acc namens:
TutHowto
also nachher nicht wundern wenn ich mit dem anderen antworte!

[urga]

TutHowto

LOL poste besser nicht mit dem account in diesem forum

naja du willst einen durch "-" verbundenen string. die bestandteile sollen sein:
* der erste string : "1325"
* alle anderen string bestehend aus 4-stelligen zufälligen zahlen.

StringList.Add ("1325");
For i As Integer = 0 To 5
 StringList.Add (Random4StelligeZahl());
Next
dim key as String  = String.Join("-", StringList)

ich finde mein code unterscheidet sich schon ziemlich von deinem.

[Samer]

naja wegen dem namen egal jetzt xD
aber es geht trotzdem nicht! und mit "meiner Version" meine ich das endprodukt, was mir der keygen rausspuckt! gibt es nicht eine andere möglichkeit oder nur die?
Danke.

[urga]

also der folgende c# code funktioniert ... ist im prinzip 1 zu 1 nach VB portierbar. ich werde jedenfalls mir nicht vb installieren.

  public partial class Form1 : Form {
    protected Random rnd;
    public Form1() {
      InitializeComponent();
      this.rnd = new Random();
    }
    private void button1_Click(object sender, EventArgs e) {
      List<String> keyList = new List<string>();
      keyList.Add("1325");
      for (int i = 0; i < 5; i++) {
        keyList.Add(Random4StelligeZahl());
      }
      this.textBox1.Text = String.Join("-", keyList.ToArray());
    }
    protected String Random4StelligeZahl() {
      String res = "";
      for (int i = 0; i < 4; i++) {
        res += this.rnd.Next(0, 9).ToString();
      }
      return res;
    }
  }

[Samer]

Weißt du was, vielen Dank!
Es geht mit C# obwohl ich dann doch Visual Basic etwas besser find.
Aber egal, danke!

[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