【汉化资料】凡尔赛宫廷疑云2 解包器代码

shane007 · 发表于 2009-2-12 12:19

原文
http://pygments.org/demo/599/

CyroBF Extract

Use this style: manni perldoc borland colorful default murphy vs trac tango fruity autumn bw emacs pastie friendly native
Submitted by Ruzzz on Feb. 8, 2008 at 6:12 p.m.
Language: Delphi. Code size: 4.0 KB.

procedure SaveFileFromStream(FileName: String; FileStream: TFileStream; FileOffset, FileSize: Cardinal);
var
  SaveFile: TFileStream;
  SaveCurrentPosition: Int64;
begin
  SaveCurrentPosition := FileStream.Position;
  SaveFile := TFileStream.Create(FileName, fmCreate);
  try
FileStream.Position := FileOffset;
SaveFile.CopyFrom(FileStream, FileSize);
  finally
FileStream.Position := SaveCurrentPosition;
SaveFile.Free;
  end;
end;

function ReadArchive(filename: String): boolean;
const
  Signature = 'CryoBF - 2.02.0';
var
  f: TFileStream;
  FolderOffset, FirstFileOffset,
  ObjectNameLength, TypeOfObject, FileSize, FileOffset: Cardinal;
  TempString, FolderName, ObjectName: String;

  procedure GetFolderContent(CurrentRootNode: TTreeNode);
  var
i, NumberOfObjects: Cardinal;
currentNode: TTreeNode;
  begin
/// Создаем текущую папку и переходим в нее
/// CreateDir(FolderName);
/// ChDir(FolderName);

// Создаем ветку в дереве
TempString := 'Папка: ' + FolderName + ' (Обьектов внутри: ' + IntToStr(NumberOfObjects) + ')';
currentNode := Form1.TreeView1.Items.AddChild(CurrentRootNode, TempString);

// Читаем кол-во обьектов
f.Read(NumberOfObjects, SizeOf(NumberOfObjects));

// Проходи по всем обьектам
for i := 1 to NumberOfObjects do begin
   // Читаем имя обьекта
   f.Read(ObjectNameLength, SizeOf(ObjectNameLength));
   SetLength(ObjectName, ObjectNameLength);
   f.ReadBuffer(ObjectName[1], ObjectNameLength);
   // Узнаем тип обьекта
   f.Read(TypeOfObject, SizeOf(TypeOfObject));
   // Если это папка, то
   if TypeOfObject = 1 then begin
      FolderName := ObjectName;
      // Проходим по ее содержимому
      GetFolderContent(currentNode);

      /// Выходим из вложенной папки
      /// ChDir('..');
   end
   // Если это файл, то
   else begin
      // Читаем его размер
      f.Read(FileSize, SizeOf(FileSize));
      // Пропускаем 4 байта нулей
      f.Position := f.Position + 4;
      // Читаем смещение этого файла.
      // Не забываем, что это смещение относительно FirstFileOffset,
      // а не начала файла!
      f.Read(FileOffset, SizeOf(FileOffset));

      // Создаем в дереве соответв. ветку о файле
      TempString := 'Размер: ' + IntToHex(FileSize, 8) +
               '; Смещение: ' + IntToHex(FileOffset, 8) +
               '; Имя: ' + ObjectName;
      Form1.TreeView1.Items.AddChild(currentNode, TempString);

      /// Создаем соответв. файл. Т.е. распаковываем.
      /// SaveFileFromStream(ObjectName, f, FirstFileOffset + FileOffset, FileSize);
   end;
end;
  end;

begin
  Result := false;
  // Открываем файл архива для чтения
  f := TFileStream.Create(filename, fmOpenRead);
  try
// Проверяем сигнатуру файла :) На всякий случай!
SetLength(TempString, Length(Signature));
f.ReadBuffer(TempString[1], Length(Signature));
if TempString <> Signature then Exit;

// Пропускаем 9 "не нужных" байтов
f.Position := f.Position + 9;
// Читаем смещение корневой папки
f.Read(FolderOffset, SizeOf(FolderOffset));
// Читаем смещение первого файла
f.Read(FirstFileOffset, SizeOf(FirstFileOffset));
// Переходим к корневой папке
f.Position := FolderOffset;

/// Переходим в папку в которой будем расспаковывать архив
/// ChDir(ExtractFileDir(filename));

// Корневую папку назовем по имени файла
FolderName := (ExtractFileName(ChangeFileExt(filename,'')));

// Начинаем обход корневой папки
GetFolderContent(nil);

Result := true;
  finally
f.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
TreeView1.Items.Clear;
TreeView1.Items.BeginUpdate;
try
   if ReadArchive(OpenDialog1.FileName) then
      // Все нормально
   else
      // Какая-то ошибка;
finally
   TreeView1.Items.EndUpdate;
end;
  end;
end;

firendless · 发表于 2009-3-22 20:42

貌似有改写成Basic代码的冲动，我先想想遇到切割英文词汇的招，您最好上线一下，我说一下我的思路

估计这么写出来就智能了，哇哈哈~

shane007 · 发表于 2009-3-23 21:24

看看

【汉化资料】凡尔赛宫廷疑云2 解包器代码

【汉化资料】凡尔赛宫廷疑云2 解包器代码

楼主热贴

社区热点

浏览过的版块