<?php
  $h='localhost';
  $u='MEINDBUSER';
  $p='MEINDBPASSWORT';
  $db=MEINEDATENBANK mysqli($h, $u, $p, 'nanticopy');
  $c=0;
  $cnt=0;
  $enable=0;
  $app=$_GET['app'];
  $key=$_GET['key'];
  $q=$db->query("SELECT * FROM `Keys` WHERE `AppID` = '" . $app . "' AND" & _
    "`Key` = '" . $key . "'");
  while($x=$q->fetch_assoc()) {
    $c++;
    $cnt=$x['Activated'];
  }
  if ($c>0) 	$enable=1;
  if ($enable==1) echo '1;';
  else echo '0;';
  if ($cnt>0) {
    $q=$db->query("UPDATE `Keys` SET `Activated`=`Activated`-1 WHERE `AppID`" & _
      "LIKE '".
    $app."' AND `Key` LIKE '" . $key . "'");
  }
  echo $cnt;
  $db->close();
?>

CREATE TABLE IF NOT EXISTS `Keys` (
  `key` varchar(29) NOT NULL,
  `AppID` int(3) NOT NULL DEFAULT '0',
  `Activated` int(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`key`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
 
-- Daten für Tabelle `Keys`
 
INSERT INTO `Keys` (`key`, `AppID`, `Activated`) VALUES
('1111122222333334444455555', 10, 1),

... ...
... ...
    Private Sub Keyabfrage_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        If Check() Then
            IsActivated = True
            Me.Close()
        End If
    End Sub
 
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
      LinkLabel1.LinkClicked
        Label5.Show()
        Application.DoEvents()
        Try
            Dim S As String = My.Computer.FileSystem.GetTempFileName()
            My.Computer.FileSystem.DeleteFile(S)
            My.Computer.Network.DownloadFile( _
              "http://MEINEDOMAIN.TDL/nantest/nanticopykeys.php?app=[10]&key=" _
              & "M.Text", S)
            Dim X As String = My.Computer.FileSystem.ReadAllText(S)
            If CInt(X.Split(";"c)(0)) > 0 Then
                If CInt(X.Split(";"c)(1)) > 0 Then
                    Generate()
                    IsActivated = True
                    Hauptfenster.Show()
                    Me.Close()
                    If Check() Then
                        MsgBox("Der Schlüssel ist gültig. [Programm] wurde" & _
                          "aktiviert. " & _
                          "Sie dürfen diesen Schlüssel noch " & _
                          (CInt(X.Split(";"c)(1)) - 1) & _
                          " Mal für eine Neuinstallation auf diesem PC" & _
                          "verwenden.")
                    Else
                        MsgBox("Der Schlüssel ist gültig. [Programm] konnte" & _
                          "allerdings " & _
                          "nicht aktiviert werden. " & _
                          "Bitte überprüfen Sie, ob der Ordner schreibgeschützt" & _
                          "ist.", _
                          MsgBoxStyle.Exclamation)
                    End If
                Else
                    MsgBox("Der Schlüssel ist gültig, aber die maximale Anzahl" & _
                      "der " & _
                      "Aktivierungen für diesen " & _
                      "Schlüssel wurde überschritten.", MsgBoxStyle.Exclamation)
                End If
            Else
                MsgBox("Der Lizenzschlüssel ist ungültig. Bitte überprüfen Sie" & _
                  "ihn auf " & _
                  "Tippfehler oder wenden " & _
                  "Sie sich an Ihren Software-Händler.", MsgBoxStyle.Critical)
                Label5.Hide()
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox("[Programm] konnte aufgrund eines Fehlers nicht aktiviert" & _
              "werden. " & _
              "Bitte überprüfen Sie ihre Internetverbindung.", _
              MsgBoxStyle.Critical)
            Label5.Hide()
            Exit Sub
        End Try
        Label5.Hide()
        Me.Close()
    End Sub
 
    Private Sub M_MaskInputRejected(sender As System.Object, e As _
      System.Windows.Forms.MaskInputRejectedEventArgs) Handles _
      M.MaskInputRejected
 
    End Sub
 
    Private Sub M_TextChanged(sender As Object, e As System.EventArgs) Handles _
      M.TextChanged
 
    End Sub
End Class