Verify a Zip's Password

Demonstrates how to verify the password for an encrypted or password-protected zip archive.

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
passwordOk: Integer;

begin
zip := TChilkatZip2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := zip.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);
    Exit;
  end;

//  To verify a password for a Zip, the Zip must be opened:
success := zip.OpenZip('myProtected.zip');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);
    Exit;
  end;

//  Set the password to be verified:
zip.DecryptPassword := 'secret';

passwordOk := zip.VerifyPassword();
if (passwordOk = 1) then
  begin
    ShowMessage('Password is correct.');
  end
else
  begin
    ShowMessage('Password is incorrect.');
  end;

zip.CloseZip();

end;