mirrors/fort
1
0
Fork 0
mirror of https://github.com/tnodir/fort synced 2024-11-15 03:26:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Installer: Check password on Uninstall

Browse Source
This commit is contained in:
Nodir Temirkhodjaev 2023-03-10 14:04:49 +03:00
parent 6e00e6d1e4
commit 40904804c3
1 changed files with 85 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
deploy/FortFirewall.iss
View File

@ -128,11 +128,75 @@ begin
and (EnabledValue = 1);
end;
function InitializeSetup: Boolean;
function AskPassword(): String;
var
Form: TSetupForm;
OKButton, CancelButton: TButton;
PwdEdit: TPasswordEdit;
begin
if HVCIEnabled() then
Form := CreateCustomForm();
try
Form.ClientWidth := ScaleX(256);
Form.ClientHeight := ScaleY(100);
Form.Caption := 'Uninstall Password';
Form.BorderIcons := [biSystemMenu];
Form.BorderStyle := bsDialog;
Form.Center;
OKButton := TButton.Create(Form);
OKButton.Parent := Form;
OKButton.Width := ScaleX(75);
OKButton.Height := ScaleY(23);
OKButton.Left := Form.ClientWidth - ScaleX(75 + 6 + 75 + 50);
OKButton.Top := Form.ClientHeight - ScaleY(23 + 10);
OKButton.Caption := 'OK';
OKButton.ModalResult := mrOk;
OKButton.Default := true;
CancelButton := TButton.Create(Form);
CancelButton.Parent := Form;
CancelButton.Width := ScaleX(75);
CancelButton.Height := ScaleY(23);
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 50);
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
CancelButton.Caption := 'Cancel';
CancelButton.ModalResult := mrCancel;
CancelButton.Cancel := True;
PwdEdit := TPasswordEdit.Create(Form);
PwdEdit.Parent := Form;
PwdEdit.Width := ScaleX(210);
PwdEdit.Height := ScaleY(23);
PwdEdit.Left := ScaleX(23);
PwdEdit.Top := ScaleY(23);
Form.ActiveControl := PwdEdit;
if Form.ShowModal() = mrOk then
begin
MsgBox('This program is not compatible with HVCI (Core Isolation).', mbCriticalError, MB_OK);
Result := GetSHA1OfString(PwdEdit.Text);
end;
finally
Form.Free();
end;
end;
function CheckPasswordHash(): Boolean;
var
passwordHash: String;
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, ExpandConstant('SOFTWARE\{#APP_NAME}'),
'passwordHash', passwordHash);
if passwordHash = '' then
begin
Result := True;
Exit;
end;
if AskPassword() <> passwordHash then
begin
SuppressibleMsgBox('Wrong password', mbError, MB_OK, IDOK);
Result := False;
Exit;
@ -141,6 +205,19 @@ begin
Result := True;
end;
function InitializeSetup: Boolean;
begin
if HVCIEnabled() then
begin
SuppressibleMsgBox('This program is not compatible with HVCI (Core Isolation).', mbCriticalError, MB_OK, IDOK);
Result := False;
Exit;
end;
Result := CheckPasswordHash();
end;
function PrepareToInstall(var NeedsRestart: Boolean): String;
var
ResultCode: Integer;
@ -149,3 +226,8 @@ begin
if ResultCode = 0 then Sleep(100); // Let the service to stop
Result := '';
end;
function InitializeUninstall(): Boolean;
begin
Result := CheckPasswordHash();
end;