Servus ich hätte da nen vorschlag.
So mach ich das.
Programm licgenerator.exe
Spoiler anzeigen
#Include <File.au3>
#include <array.au3>
#include <string.au3>
Dim $Liccrypt="GutenMorgen2010"
$driveserial=DriveGetSerial("C:\")
$LicKey=_StringEncrypt(1, $driveserial, $Liccrypt)
ClipPut( $LicKey )
MsgBox(4096, "INFO","Der Lizenzschlüssel lautet." & @CRLF & @CRLF & $LicKey & @CRLF & @CRLF & "Er wurde in die Zwischenablage kopiert")
das gane in eien INI schreiben un ddann in der exe auswerten.
Spoiler anzeigen
;Lizenz prüfen
Dim $Liccrypt="GutenMorgen2010"
$driveserial=DriveGetSerial("C:\")
$LicKey = IniRead(@ScriptDir & "\okfsplit.ini", "Lizenz", "LicKey", "NichtGefunden")
$softlic=_StringEncrypt(0, $LicKey , $Liccrypt)
If $softlic<>$driveserial Then
MsgBox(4112,"Fehler", "keine gültige Lizenz eingetragen")
Exit
EndIf
;Lizenz prüfen ende
Das Programm funktioniert jetzt nur auf diesen PC solage die Festplatte keine anders ist.
Ich hoffe ich konnte dir helfen.
Fertig
gruss
Baldrian
