L.A. Noire

[may3stro]

file as above, I see only the text to the menu and possibly video clips in the game. Subtitles of the game must be in another file. But how to extract them to check?

[caws]

The contents of this post was deleted because of possible forum rules violation.

[gamerzworld]

The contents of this post was deleted because of possible forum rules violation.

[listener]

http://dl.dropbox.com/u/1237855/unpack_big.zip
.big.ps3 unpacker. Source code included.
Replace zlib with LZX decompressor to unpack .big.360 (my own LZX library is extremely ugly, so I didn't include it)

Filenames are stripped from archives. Instead filenames used crc32 of name. names can be reconstructed, if someone find name/resource list.

Most of the resources are serialized objects. I have found serializer initialization in the code, but I need to write .idc to extract all registered names, types and offset (~2600 objects and ~10500 fields registered). Maybe, something useful can be found in the Havok 5.5 User Guide, ch. 3 (Serialization).

[RangerRus]

I will post it later.

thanks
listener
thanks for work too

[twisted]

When you say replace the zlib decompressor with a LZX one should I just replace the zlib.h with LZX.h?

[listener]

When you say replace the zlib decompressor with a LZX one should I just replace the zlib.h with LZX.h?

Something like that. You can use your favorite LZX decompressor (e.g. xcompress.lib)
I'm using piece of code, ripped from the cabextract sources.

[GamerSuper]

You guys are making a good progress!
Keep going
waiting for repacker

now what about texture format (*.ps3tex)?

http://dl.dropbox.com/u/1237855/unpack_big.zip
.big.ps3 unpacker. Source code included.
Replace zlib with LZX decompressor to unpack .big.360 (my own LZX library is extremely ugly, so I didn't include it)

Filenames are stripped from archives. Instead filenames used crc32 of name. names can be reconstructed, if someone find name/resource list.

Most of the resources are serialized objects. I have found serializer initialization in the code, but I need to write .idc to extract all registered names, types and offset (~2600 objects and ~10500 fields registered). Maybe, something useful can be found in the Havok 5.5 User Guide, ch. 3 (Serialization).

Какие люди!

[caws]

Here is the unpacking procedure of my tool:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
wad,ext:tfilestream;
filesize,filepos,nfiles,filenamepos,filenamesize:integer;
pos,i,i2,tx,other:integer;
buf:pchar;
fname,path:string;
begin
opendialog1.Execute();  other:=0;
wad:=tfilestream.Create(opendialog1.filename,fmopenread);
pos:=4; filesize:=0; filepos:=0; nfiles:=0; filenamesize:=0; tx:=0;
path:=getfolder(opendialog1.FileName);

wad.Position:=pos;
wad.Read(nfiles,4);

writeln(filelist,inttohex(nfiles,10));


inc(pos,8);

Memo1.Lines.Add('Unpacking...\Extraindo...');
memo1.Lines.Add('');
for i:=1 to nfiles do
  begin
    application.ProcessMessages;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);
  end;

filenamepos:=filepos+filesize;
pos:=$0c;
forcedirectories(path);
progressbar1.Max:=nfiles;
for i:=1 to nfiles do
  begin

  wad.Position:=pos-4;
  wad.Read(other,4);
  writeln(filelist,inttohex(other,10));

  application.ProcessMessages;
  progressbar1.Position:=i;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);

  //extrair nomes dos arquivos...
  wad.Position:=filenamepos;
  wad.Read(filenamesize,2);
  inc(filenamepos,2);

  fname:='';

  for i2:=1 to filenamesize do
    begin
    wad.Position:=filenamepos;
    wad.Read(tx,1);
    write(filelist,char(tx));
    if tx=$2f then tx:=$5c;
    fname:=fname+char(tx);
    inc(filenamepos);
    end;

 //nome extraido. extraindo arquivo.
 memo1.Lines.Add('Unpacking\Extraindo...'+extractfilename(fname));

  wad.Position:=filepos;
  buf:=allocmem(filesize);
  wad.Read(buf^,filesize);
// showmessage(path+extractfilepath(fname));
 forcedirectories(path+extractfilepath(fname));
 ext:=tfilestream.create(path+fname,fmcreate);
 writeln(filelist,path+fname);
 ext.Write(buf^,filesize);
 ext.Free;
 freemem(buf);
 end;
progressbar1.Position:=0;
memo1.Lines.Add('');
memo1.Lines.Add('All Files Unpacked\Todos os Arquivos Extraidos');
wad.free;
end;

I also coded a function to extract all the english texts from the root.atb file.

I attached the .txt that it creates.

[michalss]

Here is the unpacking procedure of my tool:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
wad,ext:tfilestream;
filesize,filepos,nfiles,filenamepos,filenamesize:integer;
pos,i,i2,tx,other:integer;
buf:pchar;
fname,path:string;
begin
opendialog1.Execute();  other:=0;
wad:=tfilestream.Create(opendialog1.filename,fmopenread);
pos:=4; filesize:=0; filepos:=0; nfiles:=0; filenamesize:=0; tx:=0;
path:=getfolder(opendialog1.FileName);

wad.Position:=pos;
wad.Read(nfiles,4);

writeln(filelist,inttohex(nfiles,10));


inc(pos,8);

Memo1.Lines.Add('Unpacking...\Extraindo...');
memo1.Lines.Add('');
for i:=1 to nfiles do
  begin
    application.ProcessMessages;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);
  end;

filenamepos:=filepos+filesize;
pos:=$0c;
forcedirectories(path);
progressbar1.Max:=nfiles;
for i:=1 to nfiles do
  begin

  wad.Position:=pos-4;
  wad.Read(other,4);
  writeln(filelist,inttohex(other,10));

  application.ProcessMessages;
  progressbar1.Position:=i;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);

  //extrair nomes dos arquivos...
  wad.Position:=filenamepos;
  wad.Read(filenamesize,2);
  inc(filenamepos,2);

  fname:='';

  for i2:=1 to filenamesize do
    begin
    wad.Position:=filenamepos;
    wad.Read(tx,1);
    write(filelist,char(tx));
    if tx=$2f then tx:=$5c;
    fname:=fname+char(tx);
    inc(filenamepos);
    end;

 //nome extraido. extraindo arquivo.
 memo1.Lines.Add('Unpacking\Extraindo...'+extractfilename(fname));

  wad.Position:=filepos;
  buf:=allocmem(filesize);
  wad.Read(buf^,filesize);
// showmessage(path+extractfilepath(fname));
 forcedirectories(path+extractfilepath(fname));
 ext:=tfilestream.create(path+fname,fmcreate);
 writeln(filelist,path+fname);
 ext.Write(buf^,filesize);
 ext.Free;
 freemem(buf);
 end;
progressbar1.Position:=0;
memo1.Lines.Add('');
memo1.Lines.Add('All Files Unpacked\Todos os Arquivos Extraidos');
wad.free;
end;

I also coded a function to extract all the english texts from the root.atb file.

I attached the .txt that it creates.

Great Work,
Are you think this are all texts ? Can you give me a bit explanation of the format please ?
I should only translate the texts and this tags "[]" should remain right ? I guess it is time in the video secvention ??

What lang did you use to make the unpacker ? And are you think you would be able to repack that file as well ?

thx

[michalss]

When you say replace the zlib decompressor with a LZX one should I just replace the zlib.h with LZX.h?

Something like that. You can use your favorite LZX decompressor (e.g. xcompress.lib)
I'm using piece of code, ripped from the cabextract sources.

Can you please post complete unpacker with all libs together ? thx

[may3stro]

This file is from root.atb.360 text.txp?

[michalss]

any news about repacker ?

[GamerSuper]

Here is the unpacking procedure of my tool:

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
wad,ext:tfilestream;
filesize,filepos,nfiles,filenamepos,filenamesize:integer;
pos,i,i2,tx,other:integer;
buf:pchar;
fname,path:string;
begin
opendialog1.Execute();  other:=0;
wad:=tfilestream.Create(opendialog1.filename,fmopenread);
pos:=4; filesize:=0; filepos:=0; nfiles:=0; filenamesize:=0; tx:=0;
path:=getfolder(opendialog1.FileName);

wad.Position:=pos;
wad.Read(nfiles,4);

writeln(filelist,inttohex(nfiles,10));


inc(pos,8);

Memo1.Lines.Add('Unpacking...\Extraindo...');
memo1.Lines.Add('');
for i:=1 to nfiles do
  begin
    application.ProcessMessages;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);
  end;

filenamepos:=filepos+filesize;
pos:=$0c;
forcedirectories(path);
progressbar1.Max:=nfiles;
for i:=1 to nfiles do
  begin

  wad.Position:=pos-4;
  wad.Read(other,4);
  writeln(filelist,inttohex(other,10));

  application.ProcessMessages;
  progressbar1.Position:=i;
  wad.Position:=pos;
  wad.Read(filepos,4);
  inc(pos,4);
  wad.Read(filesize,4);
  inc(pos,8);

  //extrair nomes dos arquivos...
  wad.Position:=filenamepos;
  wad.Read(filenamesize,2);
  inc(filenamepos,2);

  fname:='';

  for i2:=1 to filenamesize do
    begin
    wad.Position:=filenamepos;
    wad.Read(tx,1);
    write(filelist,char(tx));
    if tx=$2f then tx:=$5c;
    fname:=fname+char(tx);
    inc(filenamepos);
    end;

 //nome extraido. extraindo arquivo.
 memo1.Lines.Add('Unpacking\Extraindo...'+extractfilename(fname));

  wad.Position:=filepos;
  buf:=allocmem(filesize);
  wad.Read(buf^,filesize);
// showmessage(path+extractfilepath(fname));
 forcedirectories(path+extractfilepath(fname));
 ext:=tfilestream.create(path+fname,fmcreate);
 writeln(filelist,path+fname);
 ext.Write(buf^,filesize);
 ext.Free;
 freemem(buf);
 end;
progressbar1.Position:=0;
memo1.Lines.Add('');
memo1.Lines.Add('All Files Unpacked\Todos os Arquivos Extraidos');
wad.free;
end;

I also coded a function to extract all the english texts from the root.atb file.

I attached the .txt that it creates.

it's not all the text
it can't be 170kb, it's much larger

[gt41]

waiting repark ..