Zerlegte, per DeflateStream komprimierte Datei wieder zusammenführen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von kafffee.

    @Coldfire

    Okay, ich kann mir also von VS eine GUID erstellen lassen und die verwenden.

    Was ist wenn ich die nicht explizit im Skript setze, wird dann automatisch eine erzeugt? Bzw. wenn ich die nicht explizit ändere bei jeder neuen Version, bleibt sie dann gleich?

    @xChRoNiKx

    Hab mal ein bisschen recherchiert, da gibt es doch zwei Methoden:

    jrsoftware.org/ishelp/index.php?topic=isxfunc_getsha1offile

    jrsoftware.org/ishelp/index.php?topic=isxfunc_getmd5offile

    Jetzt muss ich noch rausfinden, wie ich die am Besten anwende...

    Edit:

    So sollte es gehen. Ich probiers mal aus und lass es euch wissen. Ich denke ich schreibe auch ein kleines Tool das mir den Code erzeugt...:

    Spoiler anzeigen

    HTML-Quellcode

    1. [Files]
    2. Source: "dependencies\dotNetFx45_Full_setup.exe"; DestDir: {tmp}; Flags: deleteafterinstall; AfterInstall: InstallFramework; Check: FrameworkIsNotInstalled
    3. Source: "D:\Dokumente\Visual Studio 2013\Projects\Hurricane\Source\Hurricane\bin\Release\Hurricane.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: IsFileCorrupt('D:\Dokumente\Visual Studio 2013\Projects\Hurricane\Source\Hurricane\bin\Release\Hurricane.exe', '<ChecksummeABCDEF>')
    5. [Code]
    6. var CancelWithoutPrompt: boolean;
    8. function InitializeSetup(): Boolean;
    9. begin
    10. CancelWithoutPrompt := false;
    11. result := true;
    12. end;
    14. function IsFileCorrupt(argPfad: String; argCheckSum: String): Boolean;
    15. begin
    17. if GetSHA1OfFile(argPfad)=argChecksum then
    18. Result := true
    19. else
    20. begin
    21. MsgBox('Eine Installationsdatei ist beschädigt. Bitte versuche, den Installer erneut herunterzuladen. Falls das Problem besteht, kontaktiere bitte den Entwickler.', mbError, MB_OK);
    22. CancelWithoutPrompt := true;
    23. WizardForm.Close;
    24. Result := false
    25. end;
    26. end;


    Edit 2: Yep es funktioniert :)

    An die richtigen Checksummen kommt man so:

    VB.NET-Quellcode

    1. Sub Main()
    3. Dim MeinHash As String = ""
    4. Console.WriteLine("Bitte gebe den Pfad einer Datei ein:")
    5. Dim Pfad As String = Console.ReadLine
    7. Using cryptoProvider As New SHA1CryptoServiceProvider()
    8. MeinHash = BitConverter.ToString(cryptoProvider.ComputeHash(File.ReadAllBytes(Pfad)))
    9. End Using
    11. MeinHash = MeinHash.Replace("-", "").ToLower
    12. Console.WriteLine(MeinHash)
    14. Clipboard.SetText(MeinHash)
    16. Console.ReadLine()
    17. End Sub


    Edit 3:
    @xChRoNiKx

    Hab jetzt tatsächlich ein kleines Tool geschrieben, das ein InnoSetup Skript erstellt (bzw. die betroffenen Sections), das mir nach der Installation die Dateien auf Integrität überprüft und zusätzlich die Ordnerstrukturen ohne zusätzliches Editieren des Codes übernimmt. Ich hoffe das hilft dir/euch, wenn ihr das gleiche Problem habt wie ich.

    Ist hier zu finden:

    github.com/kafffee/InnoSetupCheckSumHelper

    oder auch im SourceCode-Austausch, sobald es freigeschaltet wird. :)

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „kafffee“ ()