[VB6] Wie eigenen Algorytmus erstellen?

[hoschi111]

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

[Toastbrot]

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

[hoschi111]

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

[Toastbrot]

Liegt daran, dass du dich registrieren müsstest.

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

[sk!lled]

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

Added after 51 minutes:

Fertig :

'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

[hoschi111]

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

[sk!lled]

Natürlich xD


kannste auch 100 machen .. einfach erweitern ..

[hoschi111]

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