Serial check

[kevenvz]

Hallo ik heb een serial check programma aangemaakt. (om te testen wat ik op me andere programma ga toepassen)

Alleen het werkt niet, er moeten meerdere serials in komen te staan. Dit is me code:

[cpp]Public Class SerialCheck
Dim serials() As String = {"MPTL-H03L-6H8AS-JHK7", "MPTL-H03L-6H8AS-JHK7"}

Private Sub SerialCheck_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
Application.Exit()
End Sub

Private Sub SerialCheck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.Serial Is serials Then
MsgBox("Goedzo!")
txtSerial.Enabled = False
btnCheck.Enabled = False
Else
lblStatus.Text = "Status: Please put in your serial."
btnNext.Enabled = False
End If
End Sub

Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
If txtSerial.Text Is serials Then
My.Settings.Serial = txtSerial.Text
btnNext.Enabled = True
txtSerial.Enabled = False
btnCheck.Enabled = False
MsgBox("Serial approved!", vbInformation, "Approved!")
Else
MsgBox("Wrong serial!", vbExclamation, "Error!")
End If
End Sub
End Class
[/cpp]

EDIT: Kan ik deze ook op een speciale ID laten zetten.

De random ID bij first time run:
[cpp]Imports System.Text

Public Class Main
Private Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
Dim builder As New StringBuilder()
Dim random As New Random()
Dim ch As Char
Dim i As Integer
For i = 0 To size - 1
ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
builder.Append(ch)
Next
If (lowerCase) Then
Return builder.ToString().ToLower()
End If
Return builder.ToString()
End Function

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.ID = "" Then
My.Settings.ID = RandomString(10, 10)
'MsgBox("Your ID: " + My.Settings.ID)
End If
End Sub
End Class[/cpp]

 

[JoZ1]

Wat wil je precies? Moet de gebruiker een ID aanmaken?

 

[nan0x1]

Volgens mij zoek je fout in de array?

Probeer eens met een foreach, bv.:

[CPP]
For Each s As String In serial
If s = My.Settings.Serial Then
'Gevonden!
Exit For
End If
Next
[/CPP]

Misschien moet je ook eens nadenken over de naamgeving van je variabelen etc. Hongarian notation is niet meer van deze tijd!

 

[old Hippy]

Hi Het is leuker een key te maken.

code om een key te genereren.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GoTo Maak_key
Maak_key:
        Dim AA As Decimal = Int(Rnd() * 10000)
        Dim BB As Decimal = Int(Rnd() * 10000)
        Dim CC As Decimal = Int(Rnd() * 10000)
        Dim DD As Decimal = Int(Rnd() * 10000)
        Dim EE As Decimal = Int(Rnd() * 10000)
        If AA > 1000 And BB > 1000 And CC > 1000 And DD > 1000 And EE > 1000 Then
            If AA + BB + CC + DD + EE = 35927 Then
                Dim serial As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE
                serial = serial.Replace("1", "F")
                serial = serial.Replace("3", "X")
                serial = serial.Replace("9", "P")
                serial = serial.Replace("2", "M")
                TextBox1.Text = serial
                Exit Sub
            Else
                GoTo Maak_key
            End If
        Else
            GoTo Maak_key
        End If
    End Sub

Code in je controlle form.
En maak daar deze settings in.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim AA As String = TextBox2.Text
            Dim BB As String = TextBox3.Text
            Dim CC As String = TextBox4.Text
            Dim DD As String = TextBox5.Text
            Dim EE As String = TextBox6.Text
            AA = AA.Replace("F", "1")
            AA = AA.Replace("X", "3")
            AA = AA.Replace("P", "9")
            AA = AA.Replace("M", "2")
            BB = BB.Replace("F", "1")
            BB = BB.Replace("X", "3")
            BB = BB.Replace("P", "9")
            BB = BB.Replace("M", "2")
            CC = CC.Replace("F", "1")
            CC = CC.Replace("X", "3")
            CC = CC.Replace("P", "9")
            CC = CC.Replace("M", "2")
            DD = DD.Replace("F", "1")
            DD = DD.Replace("X", "3")
            DD = DD.Replace("P", "9")
            DD = DD.Replace("M", "2")
            EE = EE.Replace("F", "1")
            EE = EE.Replace("X", "3")
            EE = EE.Replace("P", "9")
            EE = EE.Replace("M", "2")
            Dim AAA As Decimal = AA
            Dim BBB As Decimal = BB
            Dim CCC As Decimal = CC
            Dim DDD As Decimal = DD
            Dim EEE As Decimal = EE
            If AAA + BBB + CCC + DDD + EEE = 35927 Then
                My.Settings.Registreer = True
                My.Settings.Save()
                MsgBox("Programma geregistreerd." & vbNewLine & "Start het programma op nieuw op", vbInformation, "Goed")
                My.Settings.Regnummer = "1"
                Application.Exit()
            Else
                If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then
                    MsgBox("alles invullen aub", MsgBoxStyle.Exclamation, "")
                Else
                    MsgBox("Foute serial.", vbExclamation, "Fout")
                End If
            End If
        Catch ex As Exception
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then
                MsgBox("alles invullen aub", MsgBoxStyle.Exclamation, "")
            Else
                MsgBox("Foute serial.", vbExclamation, "Fout")
            End If
        End Try

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Nog " & My.Settings.oo & " keer"
        If TextBox7.Text = "1" Then
            Mainform.ToolStripStatusLabel1.Text = "Door " & My.Settings.Regname & " Geregistreerd"
            Mainform.Show()
        Else
            Mainform.ToolStripStatusLabel1.Text = "Niet geregistreerd nog " & My.Settings.oo & " gebruiken"
        End If

        If My.Settings.registreer = True Then
        Else
            If My.Settings.oo = 0 Then
                Label1.Text = "Nog " & My.Settings.oo & " keer  NU REGISTREREN"
                Button2.Visible = False
                Button1.Location = New Point(12, 87)
                Button1.Size = New Size(276, 23)
                MsgBox("Uw heeft het programma 5 x Gebruikt:" & vbNewLine & "Activeer nu", MsgBoxStyle.Exclamation)
                ' Me.Close()
            Else
                My.Settings.oo -= 1
                My.Settings.Save()
            End If
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Mainform.Show()
        Me.Close()
    End Sub

En een form met

Public Class Mainform

    Private Sub Mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Form1.Close()
    End Sub
   
End Class

Hier mee kan je het programma 5x gebruiken voor je noet registreren.

 

[kevenvz]

@old hippy
Die code is me te lastig, daar snap ik niks van.

@nan0x1
Bedankt die code heeft me geholpen!

@JoZ1
Als de gebruiker de applicatie voor het eerst opstart genereert de applicatie een ID voor de gebruiker.(Dit werkt) Nu wil ik een MySQL database aanmaken met allemaal serials erin die werken. Nu wil ik dat als de gebruiker zijn serial invoert dat die dan op zijn ID geregistreerd word.

Bedankt allemaal! Zoals ik tegen JoZ zij, ik wil het in een MySQL database hebben. Maar ik heb werkelijk GEEN idee hoe.

 

[JoZ1]

Dus dan moet er een serial worden gegenereerd voor de gebruiker? Dan zul je toch echt old Hippy's code, of iets wat daar op lijkt, moeten gebruiken.

Kijk hier eens naar: http://www.dreamincode.net/forums/topic/115753-use-vbnet-to-connect-to-mysql/

 

[kevenvz]

@JoZ1
Als de gebruiker de serial kopen op mijn website word er een serial gemaakt via mijn site. Dus dat hoeft niet.

Ik zal er naar kijken!

 

[JoZ1]

Hoe komt het programma dan aan de serial?

 

[kevenvz]

Die vraag die snap ik niet. Maar misschien is dit wat je bedoelt.

De mensen kunnen mijn programma downloaden op mijn website. Maar ze moeten dan een serial kopen. Ze kopen de serial op mijn website(via paypal ofzo), hun serial word naar ze toegemailt. Die serial staat in de MySQL database en die kan je dus invoeren. Als die persoon die serial heeft ingevoert word die geregistreerd op zijn ID. Snap je? Of denk je Huh?

 

[JoZ1]

Ah, tuurlijk

 

[kevenvz]

Ik ga dit morgen uitproberen omdat ik nu moet gaan.

 

[geenID]

Je kan het beste geen hardcoded serial gebruiken

 

[JoZ1]

@Restriction: Dat is niet handig, crackers zijn er dan in no-time achter.
Bovendien is deze topic al behoorlijk oud...

 

[geenID]

@JoZ1
Je zal ietsje beter moeten lezen wat ik geschreven heb

 

[JoZ1]

@Restriction: Ik kan wel lezen hoor. Alleen volgens mij snap jij mij niet

Ooit van decompileren gehoord?

 

[huijb]

Deze topic is dusdanig gedateert dat deze met rust gelaten mag worden. Topic gaat op slot en wordt overgedragen aan de afdeling BNw(Betere Naslagwerken)