myGully.com - VB: Keygen erstellen (Hilfe)

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - VB: Keygen erstellen (Hilfe) (https://mygully.com/showthread.php?t=2088084)

VB: Keygen erstellen (Hilfe)

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 :D:D wär echt klasse!:T

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

Zitat:

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!! :D

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

Code:

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

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 :D
PS: Ich hab einen neuen acc namens:
TutHowto
also nachher nicht wundern wenn ich mit dem anderen antworte!

Zitat:

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.

Code:

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.

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.

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

Code:

  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;

    }

  }

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

Bitte

Code:



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