Enigma Protector

Code: Select all

procedure Enigma_Plugin_OnInit;
var
  itemp : integer;
  dayslimit : byte;
  _year, _month, _day : cardinal;
  expitationdate : TDateTime;
  daystoexpiration : integer;
begin
  // This function is calling when the protected file is being initialized
  // when main program is not initialized yet

  // Check if key exists
  if EP_RegLoadAndCheckKey then
  begin

  // Check if key has expiration by date limitation
    daystoexpiration := -1;
    if EP_RegKeyExpirationDate(_year, _month, _day) then
    begin
      expitationdate := EncodeDate(_year, _month, _day);
      if expitationdate > Now then
      begin
        daystoexpiration := DaysBetween(Now, expitationdate);
      end;
    end;

    // Check if key has limitation by days
    if EP_RegKeyDaysTotal > 0 then
    begin
      daystoexpiration := EP_RegKeyDaysLeft;
    end;

    // If limitation by days is found, move forward
    if daystoexpiration <> -1 then
    begin
      // Extract from protected string the number of days to show the expiration reminder 
      EP_ProtectedStringByID(300, @dayslimit, 1);
      if daystoexpiration <= dayslimit then
      begin
        // Show expiration reminder, the message text is taken from protected strings
        if MessageBoxW(0, PWideChar(EP_ProtectedStringAsWideStringById(100)), PWideChar(EP_ProtectedStringAsWideStringById(200)), MB_ICONINFORMATION + MB_YESNO) = IDYES then
        begin
          // If Yes button is clicked, show a registration dialog
          EP_RegShowDialog;
        end;
      end;
    end;

  end; 
end;