Hallo,
Ich möchte ein in AutoIt geschriebenes Programm verkaufen und dazu eine 5-Tage-Testversion anbieten.
Bisher habe ich es so gemacht:
Func License()
If IniRead("Settings.ini", "Other", "License", "") = "True" Then
$vCryptKey = _Crypt_DeriveKey(@UserName & "...", $CALG_RC4)
If Crypt(IniRead("Settings.ini", "Other", "Key", ""), True) = "..." Then
MsgBox(64, Default, "Lizenzcheck erfolgreich!")
Else
MsgBox(16, Default, "Fehlerhafte Lizenz!")
Exit
EndIf
Else
$vCryptKey = _Crypt_DeriveKey("...", $CALG_RC4)
If Execute(Crypt(IniRead("Settings.ini", "Other", "Key", ""), True) + 5 - @YDAY) > 0 Then
MsgBox(64, Default, "Lizenzcheck erfolgreich!")
Else
MsgBox(16, Default, "Lizenz abgelaufen! (Trial)")
Exit
EndIf
EndIf
_Crypt_DestroyKey($vCryptKey)
EndFunc ;==>License
Func Crypt($vData, $bDecrypt = False)
If $bDecrypt Then
Return BinaryToString(_Crypt_DecryptData($vData, $vCryptKey, $CALG_USERKEY))
Else
Return _Crypt_EncryptData("" & $vData, $vCryptKey, $CALG_USERKEY)
EndIf
EndFunc ;==>Crypt
Leider ist dadurch die TestVersion nur 5 Tage ab dem Tag gültig wo ich sie anbiete, ich möchte sie jedoch 5 Tage nach Download gültig haben.
Hat jemand eine Idee?
mfg