File Activation Delphi 2016 < Official >

procedure SignLicenseFile(const LicenseFile: string; const PrivateKey: TArray<Byte>); var LicenseStream: TFileStream; License: TLicenseData; DataToSign: TBytes; Signature: TBytes; begin // Populate License fields (UserName, ProductCode, ExpirationDate, HardwareIDHash, FeatureMask) // ... // Create binary representation of data EXCLUDING the signature field DataToSign := BytesOf(License.UserName) + BytesOf(License.ProductCode) + BytesOf(License.ExpirationDate) + BytesOf(License.FeatureMask) + BytesOf(License.HardwareIDHash);

// Recreate the data that was signed DataToVerify := BytesOf(License.UserName) + BytesOf(License.ProductCode) + BytesOf(License.ExpirationDate) + BytesOf(License.FeatureMask) + BytesOf(License.HardwareIDHash); SetLength(StoredSignature, SizeOf(License.Signature)); Move(License.Signature, StoredSignature[0], SizeOf(License.Signature)); File Activation Delphi 2016

begin Application.Initialize; Application.Title := 'MyApp'; if not IsLicenseValid(ExtractFilePath(ParamStr(0)) + 'license.key') then begin ShowMessage('Invalid or missing license file. Application will now exit.'); Exit; end; This will be serialized, signed, and saved to disk

// Retrieve MAC Address WbemObjectSet := WbemServices.ExecQuery('SELECT MACAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True'); if WbemObjectSet.Count > 0 then MacAddress := WbemObjectSet.ItemIndex(0).MACAddress; This will be serialized

// Verify RSA Signature using embedded public key if not RSA_Verify(DataToVerify, StoredSignature, PublicKey) then Exit;

// Retrieve Volume Serial of C: WbemObjectSet := WbemServices.ExecQuery('SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE DeviceID="C:"'); if WbemObjectSet.Count > 0 then VolumeId := WbemObjectSet.ItemIndex(0).VolumeSerialNumber; // Combine and hash HashBytes := THashSHA2.GetHashBytes(MacAddress + CpuId + VolumeId); Result := TNetEncoding.Base64.EncodeBytesToString(HashBytes); finally CoUninitialize; end; end; Define a record that holds license data. This will be serialized, signed, and saved to disk.