anchor.diff:  end;
   {--------}
   function TAbZipDecryptEngine.VerifyHeader(const aHeader     : TAbZipEncryptHeader;
  -                                          const aPassphrase : string;
  +                                          const aPassphrase : AnsiString;
                                                   aCheckValue : longint) : boolean;
   type
     TLongAsBytes = packed record
  
positive.code:         {-decodes a buffer}
  
        function VerifyHeader(const aHeader     : TAbZipEncryptHeader;
                              const aPassphrase : string;
                                    aCheckValue : longint) : boolean;
          {-validate an encryption header}
      end;
  
negative.code:   FReady := Result;
  end;
  {--------}
  procedure TAbZipDecryptEngine.zdeInitState(const aPassphrase : AnsiString);
  var
    i : integer;
  begin
  