alternative encryption schemes for LPK archives.

This commit is contained in:
morkt 2015-04-25 02:07:14 +04:00
parent 0e18247492
commit 8ee82a8c31
9 changed files with 198 additions and 79 deletions

View File

@ -91,6 +91,7 @@
<Compile Include="ArcNEKO.cs" />
<Compile Include="ArcNexas.cs" />
<Compile Include="ArcNitro.cs" />
<Compile Include="ArcNOA.cs" />
<Compile Include="ArcNPA.cs" />
<Compile Include="ArcNSA.cs" />
<Compile Include="ArcPAC.cs" />
@ -179,6 +180,10 @@
<Compile Include="WidgetKCAP.xaml.cs">
<DependentUpon>WidgetKCAP.xaml</DependentUpon>
</Compile>
<Compile Include="WidgetLPK.xaml.cs">
<SubType>Code</SubType>
<DependentUpon>WidgetLPK.xaml</DependentUpon>
</Compile>
<Compile Include="WidgetNPA.xaml.cs">
<DependentUpon>WidgetNPA.xaml</DependentUpon>
</Compile>
@ -270,6 +275,10 @@
<SubType>Designer</SubType>
<Generator>MSBuild:Compile</Generator>
</Page>
<Page Include="WidgetLPK.xaml">
<Generator>MSBuild:Compile</Generator>
<SubType>Designer</SubType>
</Page>
<Page Include="WidgetNPA.xaml">
<SubType>Designer</SubType>
<Generator>MSBuild:Compile</Generator>

View File

@ -29,6 +29,7 @@ using System.ComponentModel.Composition;
using System.IO;
using System.Linq;
using System.Text;
using GameRes.Formats.Properties;
using GameRes.Formats.Strings;
using GameRes.Utility;
@ -42,16 +43,27 @@ namespace GameRes.Formats.Lucifen
internal class LuciArchive : ArcFile
{
public LpkInfo Info;
public EncryptionScheme Scheme;
public LuciArchive (ArcView arc, ArchiveFormat impl, ICollection<Entry> dir, LpkInfo info)
public LuciArchive (ArcView arc, ArchiveFormat impl, ICollection<Entry> dir, EncryptionScheme scheme, LpkInfo info)
: base (arc, impl, dir)
{
Info = info;
Scheme = scheme;
}
}
public class EncryptionScheme
{
public LpkOpener.Key BaseKey;
public byte ContentXor;
public uint RotatePattern;
public bool ImportGameInit;
}
internal class LuciOptions : ResourceOptions
{
public string Scheme;
public LpkOpener.Key Key;
}
@ -85,11 +97,18 @@ namespace GameRes.Formats.Lucifen
}
}
static Key BaseKey = new Key (0xA5B9AC6B, 0x9A639DE5);
static byte[] ScriptName = Encoding.ASCII.GetBytes ("SCRIPT");
static Key ScriptKey = new Key (0, 0);
public static readonly Dictionary<string, EncryptionScheme> KnownSchemes =
new Dictionary<string, EncryptionScheme> {
{ "Default", new EncryptionScheme {
BaseKey = new Key (0xA5B9AC6B, 0x9A639DE5), ContentXor = 0x5d, RotatePattern = 0x31746285,
ImportGameInit = true } },
{ "Lycoris Radiata", new EncryptionScheme {
BaseKey = new Key (0x39A5B67D, 0xD63AB5E9), ContentXor = 0xa6, RotatePattern = 0x36147352,
ImportGameInit = false } },
};
Dictionary<string, Key> CurrentScheme = new Dictionary<string, Key>();
EncryptionScheme CurrentScheme = KnownSchemes["Default"];
Dictionary<string, Key> CurrentFileMap = new Dictionary<string, Key>();
static Dictionary<string, Dictionary<string, Key>> KnownKeys =
new Dictionary<string, Dictionary<string, Key>> {
@ -118,23 +137,29 @@ namespace GameRes.Formats.Lucifen
string name = Path.GetFileName (file.Name).ToUpperInvariant();
if (string.IsNullOrEmpty (name))
return null;
var key = ScriptKey;
if (name != "SCRIPT.LPK" && !CurrentScheme.TryGetValue (name, out key))
{
Key file_key = null;
var basename = Encodings.cp932.GetBytes (Path.GetFileNameWithoutExtension (name));
if (name != "SCRIPT.LPK")
CurrentFileMap.TryGetValue (name, out file_key);
try
{
ImportKeys (file.Name);
CurrentScheme.TryGetValue (name, out key);
var arc = Open (basename, file, CurrentScheme, file_key);
if (null != arc)
return arc;
}
catch
catch { /* unknown encryption, ignore parse errors */ }
var new_scheme = QueryEncryptionScheme();
if (new_scheme == CurrentScheme && !CurrentScheme.ImportGameInit)
return null;
CurrentScheme = new_scheme;
if (name != "SCRIPT.LPK" && CurrentScheme.ImportGameInit)
{
key = null;
if (0 == CurrentFileMap.Count)
ImportKeys (file.Name);
}
if (null == key)
key = QueryEncryptionKey (name);
}
var basename = Encodings.cp932.GetBytes (Path.GetFileNameWithoutExtension (name));
return Open (basename, file, key);
if (!CurrentFileMap.TryGetValue (name, out file_key) && CurrentScheme.ImportGameInit)
return null;
return Open (basename, file, CurrentScheme, file_key);
}
public override Stream OpenEntry (ArcFile arc, Entry entry)
@ -165,34 +190,13 @@ namespace GameRes.Formats.Lucifen
}
if (larc.Info.WholeCrypt)
{
for (int i = 0; i < data.Length; ++i)
{
int v = data[i] ^ 0x5d;
data[i] = (byte)(v >> 4 | v << 4);
}
DecryptContent (data, larc.Scheme.ContentXor);
}
if (larc.Info.IsEncrypted)
{
int count = Math.Min (data.Length / 4, 0x40);
int count = Math.Min (data.Length, 0x100);
if (count != 0)
{
unsafe
{
fixed (byte* buf_raw = data)
{
uint key = larc.Info.Key;
uint* encoded = (uint*)buf_raw;
uint ecx = 0x31746285;
for (int i = 0; i < count; ++i)
{
encoded[i] ^= key;
ecx = (ecx >> 4) | (ecx << 28);
int cl = (int)(ecx & 0x1f);
key = (key << cl) | (key >> (32-cl));
}
}
}
}
DecryptEntry (data, count, larc.Info.Key, larc.Scheme.RotatePattern);
}
input = new MemoryStream (data);
if (null != larc.Info.Prefix)
@ -201,10 +205,51 @@ namespace GameRes.Formats.Lucifen
return input;
}
ArcFile Open (byte[] basename, ArcView file, Key key)
static void DecryptContent (byte[] data, byte key)
{
uint key1 = BaseKey.Key1;
uint key2 = BaseKey.Key2;
for (int i = 0; i < data.Length; ++i)
{
int v = data[i] ^ key;
data[i] = (byte)(v >> 4 | v << 4);
}
}
static unsafe void DecryptEntry (byte[] data, int length, uint key, uint pattern)
{
fixed (byte* buf_raw = data)
{
uint* encoded = (uint*)buf_raw;
length /= 4;
for (int i = 0; i < length; ++i)
{
encoded[i] ^= key;
pattern = (pattern >> 4) | (pattern << 28);
int cl = (int)(pattern & 0x1f);
key = (key << cl) | (key >> (32-cl));
}
}
}
static unsafe void DecryptIndex (byte[] data, int length, uint key, uint pattern)
{
fixed (byte* buf_raw = data)
{
uint* encoded = (uint*)buf_raw;
length /= 4;
for (int i = 0; i < length; ++i)
{
encoded[i] ^= key;
pattern = (pattern << 4) | (pattern >> 28);
int cl = (int)(pattern & 0x1f);
key = (key >> cl) | (key << (32-cl));
}
}
}
ArcFile Open (byte[] basename, ArcView file, EncryptionScheme scheme, Key key)
{
uint key1 = scheme.BaseKey.Key1;
uint key2 = scheme.BaseKey.Key2;
for (int b = 0, e = basename.Length-1; e >= 0; ++b, --e)
{
key1 ^= basename[e];
@ -212,18 +257,22 @@ namespace GameRes.Formats.Lucifen
key1 = (key1 << 25) | (key1 >> 7);
key2 = (key2 << 7) | (key2 >> 25);
}
if (null != key)
{
key1 ^= key.Key1;
key2 ^= key.Key2;
}
uint code = file.View.ReadUInt32 (4) ^ key2;
int index_size = (int)(code & 0xffffff);
byte flags = (byte)(code >> 24);
if (0 != (flags & 1))
index_size = (index_size << 11) - 8;
if (index_size < 5)
if (index_size < 5 || index_size >= file.MaxOffset)
return null;
var index = new byte[index_size];
if (index_size != file.View.Read (8, index, 0, (uint)index_size))
return null;
DecryptIndex (index, index_size, key2, scheme.RotatePattern);
var lpk_info = new LpkInfo
{
AlignedOffset = 0 != (flags & 1),
@ -234,33 +283,22 @@ namespace GameRes.Formats.Lucifen
Key = key1
};
var reader = new IndexReader (lpk_info);
unsafe
{
fixed (byte* buf_raw = index)
{
uint* encoded = (uint*)buf_raw;
uint ecx = 0x31746285;
for (int i = 0; i < index_size/4; ++i)
{
encoded[i] ^= key2;
ecx = (ecx << 4) | (ecx >> 28);
int cl = (int)(ecx & 0x1f);
key2 = (key2 << (32-cl)) | (key2 >> cl);
}
}
}
var dir = reader.Read (index);
if (null == dir)
return null;
return new LuciArchive (file, this, dir, reader.Info);
return new LuciArchive (file, this, dir, scheme, reader.Info);
}
static readonly byte[] ScriptName = Encoding.ASCII.GetBytes ("SCRIPT");
void ImportKeys (string source_name)
{
var script_lpk = Path.Combine (Path.GetDirectoryName (source_name), "SCRIPT.LPK");
using (var script_file = new ArcView (script_lpk))
using (var script_arc = Open (ScriptName, script_file, ScriptKey))
using (var script_arc = Open (ScriptName, script_file, CurrentScheme, null))
{
if (null == script_arc)
throw new UnknownEncryptionScheme();
var entry = script_arc.Dir.Where (e => e.Name.Equals ("gameinit.sob", StringComparison.InvariantCultureIgnoreCase)).FirstOrDefault();
if (null == entry)
throw new FileNotFoundException ("Missing 'gameinit.sob' entry in SCRIPT.LPK");
@ -276,7 +314,7 @@ namespace GameRes.Formats.Lucifen
bool ParseGameInit (byte[] sob)
{
CurrentScheme.Clear();
CurrentFileMap.Clear();
if (!Binary.AsciiEqual (sob, "SOB0"))
return false;
int offset = LittleEndian.ToInt32 (sob, 4) + 8;
@ -304,14 +342,14 @@ namespace GameRes.Formats.Lucifen
{
byte* lpk = (byte*)p + p[21] - p[2] + 0x34;
int name_index = (int)(lpk - buf_raw);
if (name_index >= sob.Length)
if (name_index < 0 || name_index >= sob.Length)
{
++p;
continue;
}
string name = Binary.GetCString (sob, name_index, sob.Length-name_index);
name = name.ToUpperInvariant();
CurrentScheme[name] = new Key (p[8], p[10]);
CurrentFileMap[name] = new Key (p[8], p[10]);
p += 0x22;
} else
++p;
@ -321,12 +359,30 @@ namespace GameRes.Formats.Lucifen
}
}
Key QueryEncryptionKey (string lpk_name)
public override ResourceOptions GetDefaultOptions ()
{
return new LuciOptions { Scheme = Settings.Default.LPKScheme };
}
public override object GetAccessWidget ()
{
return new GUI.WidgetLPK();
}
EncryptionScheme QueryEncryptionScheme ()
{
CurrentFileMap.Clear();
var options = Query<LuciOptions> (arcStrings.ArcEncryptedNotice);
if (null == options)
throw new UnknownEncryptionScheme();
return options.Key;
return KnownSchemes["Default"];
string title = options.Scheme;
if (null == options.Key)
{
Dictionary<string, Key> file_map = null;
if (KnownKeys.TryGetValue (title, out file_map))
CurrentFileMap = new Dictionary<string, Key> (file_map);
}
return KnownSchemes[title];
}
}

View File

@ -32,5 +32,5 @@ using System.Runtime.InteropServices;
// You can specify all the values or you can default the Build and Revision Numbers
// by using the '*' as shown below:
// [assembly: AssemblyVersion("1.0.*")]
[assembly: AssemblyVersion ("1.0.4.42")]
[assembly: AssemblyFileVersion ("1.0.4.42")]
[assembly: AssemblyVersion ("1.0.4.43")]
[assembly: AssemblyFileVersion ("1.0.4.43")]

View File

@ -285,5 +285,17 @@ namespace GameRes.Formats.Properties {
this["WARCScheme"] = value;
}
}
[global::System.Configuration.UserScopedSettingAttribute()]
[global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
[global::System.Configuration.DefaultSettingValueAttribute("Default")]
public string LPKScheme {
get {
return ((string)(this["LPKScheme"]));
}
set {
this["LPKScheme"] = value;
}
}
}
}

View File

@ -68,5 +68,8 @@
<Setting Name="WARCScheme" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="LPKScheme" Type="System.String" Scope="User">
<Value Profile="(Default)">Default</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@ -0,0 +1,9 @@
<Grid x:Class="GameRes.Formats.GUI.WidgetLPK"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:fmt="clr-namespace:GameRes.Formats.Lucifen"
xmlns:p="clr-namespace:GameRes.Formats.Properties"
MaxWidth="250">
<ComboBox Name="Scheme" ItemsSource="{Binding Source={x:Static fmt:LpkOpener.KnownSchemes}, Path=Keys, Mode=OneWay}"
SelectedValue="{Binding Source={x:Static p:Settings.Default}, Path=LPKScheme, Mode=TwoWay}" Width="180"/>
</Grid>

View File

@ -0,0 +1,21 @@
using System.Windows;
using System.Windows.Controls;
using GameRes.Formats.Properties;
using GameRes.Formats.Strings;
namespace GameRes.Formats.GUI
{
/// <summary>
/// Interaction logic for WidgetWARC.xaml
/// </summary>
public partial class WidgetLPK : Grid
{
public WidgetLPK ()
{
InitializeComponent();
// select default scheme
if (-1 == Scheme.SelectedIndex)
Scheme.SelectedIndex = 0;
}
}
}

View File

@ -70,6 +70,9 @@
<setting name="WARCScheme" serializeAs="String">
<value />
</setting>
<setting name="LPKScheme" serializeAs="String">
<value>Default</value>
</setting>
</GameRes.Formats.Properties.Settings>
</userSettings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/></startup></configuration>

View File

@ -131,11 +131,17 @@ Nikutai Ten'i<br/>
<tr><td>*.pt1</td><td>-</td><td>No</td></tr>
<tr class="odd"><td>*.pak</td><td><tt>DataPack5</tt><br/><tt>GsPack4</tt></td><td>No</td><td rowspan="2">Root</td><td rowspan="2">Para-Sol</td></tr>
<tr class="odd"><td>*</td><td><tt>\x00\x00\x04\x00</tt></td><td>No</td></tr>
<tr><td>*.war</td><td><tt>WARC 1.7</tt></td><td>No</td><td rowspan="2">Shiina Rio</td><td rowspan="2">Helter Skelter</td></tr>
<tr><td>*.war</td><td><tt>WARC 1.7</tt></td><td>No</td><td rowspan="2">Shiina Rio</td><td rowspan="2">
Helter Skelter<br/>
Classmate no Okaa-san<br/>
</td></tr>
<tr><td>*.s25</td><td><tt>S25</tt></td><td>No</td></tr>
<tr class="odd"><td>*</td><td><tt>ARC2</tt><br/><tt>ARC1</tt></td><td>No</td><td>AST</td><td>Jokyoushi wo Kurau</td></tr>
<tr><td>*.dat</td><td>-</td><td>No</td><td>Ail</td><td>Ragna☆彡Science</td></tr>
<tr class="odd"><td>*.lpk</td><td><tt>LPK1</tt></td><td>No</td><td rowspan="2">Lucifen</td><td rowspan="2">Doki Doki Rooming</td></tr>
<tr class="odd"><td>*.lpk</td><td><tt>LPK1</tt></td><td>No</td><td rowspan="2">Lucifen</td><td rowspan="2">
Doki Doki Rooming<br/>
Rikorisu ~Lycoris Radiata~<br/>
</td></tr>
<tr class="odd"><td>*.elg</td><td><tt>ELG</tt></td><td>No</td></tr>
<tr><td>*.arc</td><td><tt>ARC\x1a</tt></td><td>No</td><td rowspan="2">AZ System</td><td rowspan="2">Triptych</td></tr>
<tr><td>*.cpb</td><td><tt>CPB\x1a</tt></td><td>No</td></tr>