Formats update.

(HG3): attempt to recognize swapped Red/Blue channels.
Fairytale BDT archives.
(XP3, VF): add 'exe' to extensions list.
(DXR): consolidated Macromedia Director archives.
(SND): support mp3 streams.
(QPK): PSP resource archive.
(GRC): support encrypted images.

ArcFormats/Psp/ArcQPK.cs

@@ -0,0 +1,103 @@
+//! \file       ArcQPK.cs
+//! \date       2023 Sep 13
+//! \brief      PSP resource archive.
+//
+// Copyright (C) 2023 by morkt
+//
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to
+// deal in the Software without restriction, including without limitation the
+// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
+// sell copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+//
+// The above copyright notice and this permission notice shall be included in
+// all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
+// IN THE SOFTWARE.
+//
+
+using GameRes.Compression;
+using System;
+using System.Collections.Generic;
+using System.ComponentModel.Composition;
+using System.IO;
+
+namespace GameRes.Formats.Psp
+{
+    [Export(typeof(ArchiveFormat))]
+    public class PakOpener : ArchiveFormat
+    {
+        public override string         Tag => "QPK";
+        public override string Description => "PSP resource archive";
+        public override uint     Signature => 0x4B5051; // 'QPK'
+        public override bool  IsHierarchic => false;
+        public override bool      CanWrite => false;
+
+        public override ArcFile TryOpen (ArcView file)
+        {
+            var index_name = Path.ChangeExtension (file.Name, "QPI");
+            List<Entry> dir;
+            using (var index = VFS.OpenView (index_name))
+            {
+                if (!index.View.AsciiEqual (0, "QPI\0"))
+                    return null;
+                int count = index.View.ReadInt32 (4);
+                if (!IsSaneCount (count))
+                    return null;
+
+                var base_name = Path.GetFileNameWithoutExtension (file.Name);
+                string ext = "";
+                string type = "";
+                if ("TGA" == base_name)
+                {
+                    ext = ".tga";
+                    type = "image";
+                }
+                dir = new List<Entry> (count);
+                uint index_pos = 0x1C;
+                for (int i = 0; i < count; ++i)
+                {
+                    uint offset = index.View.ReadUInt32 (index_pos);
+                    uint size   = index.View.ReadUInt32 (index_pos+4);
+                    if (offset > file.MaxOffset)
+                        return null;
+                    index_pos += 8;
+                    if ((size & 0x80000000) != 0 || size == 0)
+                        continue;
+                    var entry = new PackedEntry {
+                        Name = string.Format ("{0}#{1:D5}{2}", base_name, i, ext),
+                        Type = type,
+                        Offset = offset,
+                        UnpackedSize = size & 0x3FFFFFFF,
+                        IsPacked = (size & 0x40000000) != 0,
+                    };
+                    dir.Add (entry);
+                }
+                long last_offset = file.MaxOffset;
+                for (int i = dir.Count - 1; i >= 0; --i)
+                {
+                    dir[i].Size = (uint)(last_offset - dir[i].Offset);
+                    last_offset = dir[i].Offset;
+                }
+                return new ArcFile (file, this, dir);
+            }
+        }
+
+        public override Stream OpenEntry (ArcFile arc, Entry entry)
+        {
+            var pent = (PackedEntry)entry;
+            if (!pent.IsPacked || !arc.File.View.AsciiEqual (pent.Offset, "CZL\0"))
+                return base.OpenEntry (arc, pent);
+            uint size = arc.File.View.ReadUInt32 (pent.Offset+4);
+            var input = arc.File.CreateStream (pent.Offset+12, size);
+            return new ZLibStream (input, CompressionMode.Decompress);
+        }
+    }
+}