1
Software / Re: Youtube downloader
« on: December 24, 2020, 07:42:18 AM »
Bohužel, YTD už nevyvíjím. Tím, že jsou k dispozici zdrojáky, však na něj mohl navázat jiný zájemce, což se i stalo: https://github.com/ibv/YTD
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
The Innounp-mod package is not able to decrypt setup *.exe files which were protected by a password.That is not entirely unexpected - as I wrote in the readme, I don't have a single protected installer to try it on.
I looked at the source code and found the two code fragments which needs to be patched in order to allow decryption. They patches are attached in diff format:Thanks. However, what would help the most, would be a demonstration installer which I could use for tests.
This is definitely a thing to fix.Code: [Select]--- ArcFour.pas.old 2018-12-25 10:26:04.946166300 +0100
+++ ArcFour.pas.new 2020-12-19 18:09:52.307024800 +0100
@@ -62,7 +62,8 @@
procedure ArcFourCrypt(var Context: TArcFourContext; const InBuffer;
var OutBuffer; Length: Cardinal);
var
- i, tmp: byte;
+ i: Cardinal;
+ tmp: byte;
InBuf, OutBuf: ^byte;
begin
InBuf := @InBuffer;
I don't think this has any influence at all. The result is exactly the same in both versions.Code: [Select]--- Observer.pas.old 2020-04-13 10:14:54.222916600 +0200
+++ Observer.pas.new 2020-12-19 18:09:55.203788000 +0100
@@ -261,7 +261,8 @@
{$IFDEF LOG} Log('- Detination filename: %s', [string(Params.DestPath)]); {$ENDIF}
Inno := TInnoSetupFileEx(Handle);
Inno.SetCallbacks(Params.Callbacks);
- Inno.Password := {$IFDEF UNICODE} string {$ENDIF} (AnsiString(Params.Password));
+ if (Params.Password <> '') then
+ Inno.Password := {$IFDEF UNICODE} string {$ENDIF} (AnsiString(Params.Password));
if (Params.ItemIndex < 0) or (Params.ItemIndex >= Inno.FileCount) then begin
{$IFDEF LOG} Log('- No more files'); {$ENDIF}
Result := SER_ERROR_READ;