[VB6] Wie eigenen Algorytmus erstellen?

Hey Leute,
ich weis nicht ob das irgentwie zu hoch gegriffen ist,
ich hätte gerne einen eigenen Algorytmus im Programm [Seriennummer]
Die man mit einem Keygen generieren kann.

Also ich habe dann den Keygen.
Und jede ausgegeben Seriennummer im Keygen soll das Programm akzeptieren..

Hoffe ihr habt mich verstanden,
hochi111

Ich hab dazu mal einen Sourcecode gepostet. Der ist zwar ziemlich buggy, aber das müsste das sein, was du suchst:

http://www.vb-x.org/showthread.php/e...b_net-679.html

Ist .NET, sollte aber keine Probleme machen den umzuschreiben.

MfG

Hey danke erstmal,
aber kannst du den Source hier posten, denn wenn ich etwas runterladen will, sagt er ich hätte keine rechte.

Liegt daran, dass du dich registrieren müsstest.

Hier der Downloadlink: http://rapidshare.com/files/14493901...atorSample.rar

Ich muss nur schnell was kaufen gehn dann mach ich dir nen Beispielsource ;)

Added after 51 minutes:

Fertig :

Code:

---

'Was brauchst du ?
'2x Command Button (Command1 [Generate key], Command2 [Test key ])
'2x Textbox - Maxlenght 4 (Text1,Text2)


Private Sub Command1_Click()
Ausdruck = Int((4 * Rnd) + 1) 'zufallszahl ermitteln , 1-4
    Select Case Ausdruck
        Case 1 'wenn Ausdruck = 1 dann ...
        zahl = "2"
        Case 2 'wenn 2..
        zahl = "4"
        Case 3 'wenn 3..
        zahl = "6"
        Case 4 'wenn 4..
        zahl = "8"
    End Select
zahl2 = Int((99 * Rnd) + 1) 'zufallszahl von 1-99
If zahl2 < 23 Then 'wenn zahl kleiner als 23 ist
zahl2 = zahl2 + 23 'vergrößern wir sie weil sonst nicht valid
End If


Ausdruck2 = Int((4 * Rnd) + 1) ' selbe wie bei ausdruck
    Select Case Ausdruck2
        Case 1
        zahl3 = "2"
        Case 2
        zahl3 = "4"
        Case 3
        zahl3 = "6"
        Case 4
        zahl3 = "8"
    End Select
   
zahl4 = Int((99 * Rnd) + 1) 'selbe wie oben
If zahl4 < 30 Then
zahl4 = zahl4 + 31
End If


Text1.Text = "1" & zahl & zahl2 'ausgabe
Text2.Text = zahl3 & zahl4 & "7" ' ausgabe

End Sub


Private Sub Command2_Click()

If Mid(Text1.Text, 1, 1) = "1" Then 'Wenn Text1 mit 1 anfängt
    If Geradezahl(Mid(Text1.Text, 2, 1)) Then ' Wenn 2. Stelle in Text1 gerade ist
        If Mid(Text1.Text, 3, 2) > 23 Then ' wenn die letzten 2 zahlen größer als 23 sind
            If Geradezahl(Mid(Text2.Text, 1, 1)) Then ' wen die erste zahl von Text2 gerade ist
                If Mid(Text2.Text, 2, 2) > 30 Then ' wenn 2+3. stelle in text2 > 30 ist
                    If Mid(Text2.Text, 4, 1) = "7" Then 'wenn letzte stelle 7 ist
                        MsgBox "Valid" ' wenn alles stimmt : MsgBox VALID !
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

Function Geradezahl(Wert As Double) As Boolean 'Funktion zum ermitteln ob eine zahl gerade ist
  Geradezahl = ((Wert Mod 2) = 0) And (Int(Wert) = Wert)
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer) 'nur Zahlen in Text1 zulassen
  If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
      KeyAscii = 0
  End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) 'nur Zahlen in Text2 zulassen
  If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
      KeyAscii = 0
  End If
End Sub

---

Nix besonderes, soll dir nur ein Beispiel geben


mfg sk!lled

Danke dir, hast mir geholfen, geht das auch mit mehr Textboxen?

Natürlich xD


kannste auch 100 machen .. einfach erweitern ..

Danke dir!
Hast mir echt gut geholfen aber auch r4z3r!