delphi - OnGuard 许可

Question

最近，我研究了使用 OnGuard 来帮助诚实的人遵守他们的原则。我同意这里许多人表达的观点，即任何许可制度都无法保护您免受那些想要使用您的软件但不想付费的人的侵害。另一方面，我希望避免让其他人太容易为我的程序创建有效 key 。

学习手册和示例后，我将以下内容添加到主表单的代码中:

const
  TheKey: TKey = ($4A,$62,$F3,$2B,$9C,$D2,$84,$BF,$CB,$04,$0A,$C3,$3D,$11,$47,$1A);


function TfrmMain1.MakeCode(sName, sNumber: String; dtExpiration: TDate): String;
var Key: TKey;
    Code: TCode;
    sCode: String;
begin
  Key := TheKey;
  InitRegCode(Key, sName + ' - ' + sNumber, dtExpiration, Code);
  sCode := BufferToHex(Code, SizeOf(Code));
  Insert('-', sCode, 13);
  Insert('-', sCode, 09);
  Insert('-', sCode, 05);
  Result := sCode
end;

function TfrmMain1.TestCode(sName, sNumber, sTestCode: String; dtExpiration: TDate): Boolean;
var Key: TKey;
    Code: TCode;
    sCode: String;
begin
  sCode := MakeCode(sName, sNumber, dtExpiration);

  Result := SameText(sCode, sTestCode);
end;

这提出了一些问题:

1. 这看起来是正确的使用方法吗？我宁愿不将他们的组件添加到我的表单中。

2. 既然 OnGuard 源代码可用，黑客就不能对我将选择的 key 进行逆向工程并生成有效的发布代码吗？因此，我是否应该在代码中添加一些额外的混淆，或者我可能会削弱系统。

3. 此处将 key 设置为常量。它不会在代码中显示为连续字节并且易于复制吗？

4. 我的程序将需要(至少)年度更新，并且我的计划是通过年度订阅来获得许可。在我的程序中添加年份作为常量，并在一些地方针对该年份测试带日期的用户条目会不会更好。

这里有 4 个密切相关且非常具体的问题。似乎在四个单独的条目中询问这些内容会更尴尬，并且必须添加上下文引用，但如果这样做更好的话，我会很高兴这样做。感谢您的帮助。

jack

Answer 1

  constructor TLincenceManager.Create;
  begin
    FSpecialCode := TOgSpecialCode.Create(nil);
    FSpecialCode.OnGetModifier := OgNetCodeGetModifier;
    FSpecialCode.OnChecked := OgNetCodeChecked;
    FSpecialCode.OnGetCode := OgNetCodeGetCode;
    FSpecialCode.OnGetKey := OgNetCodeGetKey;
    FSpecialCode.AutoCheck := False;
  end;

  function TLincenceManager.InitializeLicenceCode: Boolean;
  begin
    Result := FSpecialCode.CheckCode(True) = ogValidCode;
  end;

  procedure TLincenceManager.OgNetCodeChecked(Sender: TObject; Status: TCodeStatus);
  begin
    case Status of
      ogValidCode    : FMaxUsers := FSpecialCode.GetValue;
      ogInvalidCode  : FMaxUsers := 0;
      ogPastEndDate  : FMaxUsers := 0;
      ogDayCountUsed : FMaxUsers := 0;
      ogRunCountUsed : FMaxUsers := 0;
      ogNetCountUsed : FMaxUsers := 0;
      ogCodeExpired  : FMaxUsers := 0;
    else
      FMaxUsers := 0;
    end;
  end;

  procedure TLincenceManager.OgNetCodeGetCode(Sender: TObject; var Code: TCode);
  var
    FileName: string;
    SerialData: string;
    LicenceData: TStringList;
  begin
    FileName := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
    FileName := FileName + cLicenseFileName;
    SerialData := '';

    LicenceData := TStringList.Create;
    try
      if FileExists(FileName) then
      begin
        LicenceData.LoadFromFile(FileName);
        SerialData := LicenceData.Values['Serial'];
      end;

      {convert to proper form}
      HexToBuffer(SerialData, Code, SizeOf(Code));
    finally
      LicenceData.Free;
    end;
  end;

  procedure TLincenceManager.OgNetCodeGetKey(Sender: TObject; var Key: TKey);
  const
    CKey : TKey = ($4A,$62,$F3,$2B,$9C,$D2,$84,$BF,$CB,$04,$0A,$C3,$3D,$11,$47,$1A);
  begin
    Key := CKey;
  end;

  procedure TLincenceManager.OgNetCodeGetModifier(Sender: TObject; var Value: Integer);
  begin
    Value := GenerateMachineModifierPrim;
  end;

1. 我已经发布了我的做法。我不使用“视觉”组件。我这样做的方式就是要走的路，在你的情况下，你只需应用日期修饰符(我有机器修饰符)

2. 理论上不会。您生成许可证所用的 key 至关重要。如果你有 key ，你就可以破解许可证。但只用代码你不能。这就像加密算法一样。你可以知道算法是如何工作的，但如果你没有 key ，你就无法破解它。看XTEA 。它非常简单但很难破解。

3. 是的，如果知道在做什么，就可以从二进制文件中提取 key 。您可以在这里使用某种混淆。但我不会打扰。对于大多数人来说这样的保护就足够了，所以如果你不制作下一个 MS Office 我不会打扰。人们对他们的产品非常偏执。先卖掉再说吧。哦，因为它不是一个字符串，所以无论如何都很难找到。

4. 只需查看 onGuard 附带的计时演示即可了解如何获得限时许可证。但请注意，只需简单地操作计算机时钟就足以愚弄它。在我看来，最好的试用软件就是这样，缺乏一些重要的功能(保存按钮......)。在我看来，好的计时赛很难做到。