Hallo
Ich habe gerade begonnen mich in autoit einzuarbeiten... Wollte Fragen Was ihr davon haltet bzw. Vorschläge hättet wie man es bewerkstelligen könnte das die erstellte "key.chs" nur mit diesem Produkt funktioniert.
Also nicht durch einfaches kopieren der Datei auch auf jedem anderen PC läuft...
Mein bisheriger Code:
Local $Serial, $Serial_Input, $verschl, $success, $fail, $entsch, $level
$exist = FileExists("key.chs")
$Serial = "IPS-E8180-K0204-N0809"
$ueberpruefen = FileRead("key.chs")
$random = Random(1, 15, 1)
;MsgBox(64, "", $random); Nur zum testen mit welchem Verschlüsselungsgrad
$level = "$random"
$false = _StringEncrypt(0, $ueberpruefen, "ovl72gft", $level)
Select
Case $exist = 0
$aktivierung = "Bitte aktivieren Sie Ihr Produkt mit Ihrem persönl. Schlüssel" & @CRLF & @CRLF
$aktivierung &= "Wenn Sie keinen Schlüssel besitzen, wenden Sie sich an dummy@mail.com"
MsgBox(64, "Lizenz", $aktivierung)
$random = Random(1, 15, 1)
MsgBox(64, "", $random)
$level = $random
$Serial_Input = InputBox("Serial", "Bitte Serial eingeben!")
If $Serial_Input = $Serial Then
$verschl = _StringEncrypt(1, $Serial, "ovl62gft", $level)
FileWrite("key.chs", $verschl)
$ueberpruefen = FileRead("key.chs")
$entsch = _StringEncrypt(0, $ueberpruefen, "ovl72gft", $level)
$success = "Vielen Dank das Sie dieses Programm gekauft haben!" & @CRLF
$success &= "Ihre Seriennummer lautet: " & $entsch
MsgBox(64, "", $success)
Else
$fail = "Der eingegebene Schlüssel ist ungültig" & @CRLF
$fail &= "Programm wird nicht ausgeführt"
MsgBox(64, "Lizenz", $fail)
Exit
EndIf
Case Not $false = $Serial
MsgBox(64, "Lizenz", "Ihre Lizenzdatei gehört nicht zu diesem Produkt")
Exit
Case $false <> $Serial
MsgBox(64, "Lizenz", "Ihre Lizenzdatei gehört nicht zu diesem Produkt")
Exit
EndSelect
;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
