Function CreateKey$(anz_zeichen)
	
	;Schlüssel wählen
	Local key$ = ""
	
	For x = 1 To anz_zeichen
		Local auswahl = Rand(0, 1)
		If auswahl = 0 Then
			Local zahl = Rand(0, 9)
			key = key + zahl
		Else
			Local buchstabe$ = Rand(65, 90)
			key = key + Chr(buchstabe)
		EndIf
	Next
	;schlüssel gewählt
	
	;schlüssel aufschreiben (das hier muss noch soweit umgeschrieben werden, das nur ich den Key sehen kann, also das er mir quasi zugesendet wird, ohne das der nutzer was davon mitkriegt)
	Local schreiben = WriteFile("Produktschlüssel.txt")
	
	WriteLine schreiben, key
	
	CloseFile schreiben
	;schlüssel aufgeschrieben 
	
	Return key
	
End Function

Local produktschuesselfile = OpenFile("data\DoNotDelete.txt")

If produktschuesselfile = 0 Then
	
	Local key$ = CreateKey(10)
	
	Print "Produktschlüssel (enthalten in 'Produktschlüssel.txt')"
	Local usereingabekey$ = Input("")
	
	If usereingabekey <> key Then
		
		RuntimeError "Falscher Key!"
		
	Else
		
		Local donotdelete = WriteFile("data\DoNotDelete.txt")
		CloseFile donotdelete
		
	EndIf
	
EndIf
		
CloseFile produktschuesselfile

SeedRnd(MilliSecs())

Print("Mögliche Schlüssel:")
Print(CreateKey$())
Print(CreateKey$())
Print(CreateKey$())

Local t$=Input("Teste einen Schlüssel: >")
TestKey(t)

WaitKey()
End


Function CreateKey$()
    Local key$ 
    key = key + Chr(Rand(65, 67))    ;* A,B,C
    key = key + Rand(10, 49)        ;* Zwei stellen < 50
    key = key + "-"                    ;*** Abschnitt-Ende
    key = key + Chr(Rand(73, 75))    ;** I,J,K
    key = key + Rand(51, 99)        ;* Zwei stellen > 50
    Return key
End Function

Function TestKey(key$)
    key = Upper(key)
    ;*** Schlüssel zerschnibbeln:
    Local a=Asc(Mid(key, 1, 1))
    Local b=Mid(key, 2, 2)
    Local c=Asc(Mid(key, 5, 1))
    Local d=Mid(key, 6, 2)
    
    ;*** Der Key muss den Regeln aus CreateKey gehorchen:
    If a=>65 And a =< 67 Then
        If b => 10 And b=< 49 Then
            If c=>73 And c =< 75 Then
                If d => 51 And d=< 99 Then
                    Print("Key Gültig!")
                    Return
                EndIf
            EndIf
        EndIf
    EndIf
    Print("Key ungültig!")
    
End Function