ADD: SevenZip - cache password for archives with encrypted names #3

This commit is contained in:
Alexander Koblov 2019-07-28 11:51:56 +00:00
commit 128c465fb0

View file

@ -661,7 +661,7 @@ procedure TPasswordCache.ZeroPassword;
begin
if (Length(FArchivePassword) > 0) then
begin
FillDWord(FArchivePassword[1], Length(FArchivePassword), 0);
FillWord(FArchivePassword[1], Length(FArchivePassword), 0);
SetLength(FArchivePassword, 0);
end;
end;