ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+

This commit is contained in:
Pavel 2023-07-03 22:50:53 +03:00
parent d4038022e8
commit fbc2284457
2 changed files with 31 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tools/readself/elf64.pas
View File

@ -441,20 +441,26 @@ const
type
TModuleValue=packed record
case Byte of
0:(value:Int64);
0:(value :Int64);
1:(name_offset:DWORD;
version_minor:Byte;
version_major:Byte;
id:Word);
version :Word;
id :Word);
end;
TLibraryValue=packed record
case Byte of
0:(value:Int64);
0:(value :Int64);
1:(name_offset:DWORD;
version_minor:Byte;
version_major:Byte;
id:Word);
version :Word;
id :Word);
end;
TLibraryAttr=packed record
case Byte of
0:(value:Int64);
1:(attr :WORD;
align:DWORD;
id :Word);
end;
PTLS_index=^TLS_index;

27
tools/readself/readself.lpr
View File

@ -341,6 +341,13 @@ begin
end;
end;
function get_sdk_version_str(version:QWORD):RawByteString;
begin
Result:=Format('%.*x.%.*x.%.*x',[2,(version shr 24),
3,((version shr 12) and $fff),
3,(version and $fff)]);
end;
procedure print_self_authinfo(obj:p_elf_obj);
label
_not_exist;
@ -372,8 +379,8 @@ begin
Writeln(' AuthorityID :0x',HexStr(authinfo^.AuthorityID,16));
Writeln(' Program_Type :0x',HexStr(authinfo^.Program_Type,2),' ',get_program_type_str(authinfo^.Program_Type));
Writeln(' Program_Version:0x',HexStr(authinfo^.Program_Version,16));
Writeln(' System_Version :0x',HexStr(authinfo^.System_Version,16));
Writeln(' Program_Version:',get_sdk_version_str(authinfo^.Program_Version));
Writeln(' System_Version :',get_sdk_version_str(authinfo^.System_Version ));
Write (' Digest_SHA_256 :');
print_bytes(@authinfo^.Digest_SHA_256,32);
@ -939,7 +946,7 @@ var
entry:p_elf64_dyn;
i,count:Integer;
mu:TModuleValue;
lu:TLibraryValue;
la:TLibraryAttr;
str:PAnsiChar;
begin
if (obj^.dyn_addr<>nil) then
@ -983,8 +990,8 @@ begin
DT_SCE_EXPORT_LIB_ATTR,
DT_SCE_IMPORT_LIB_ATTR:
begin
lu.value:=entry^.d_un.d_val;
Write(mu.id:2,':',get_lib_attr_str(lu.name_offset));
la.value:=entry^.d_un.d_val;
Write(la.id:2,':',get_lib_attr_str(la.attr));
end;
DT_SCE_FINGERPRINT:
@ -1203,8 +1210,8 @@ end;
function get_st_shndx_str(st_shndx:Word):RawByteString;
begin
case st_shndx of
SHN_UNDEF :Result:='SHN_UNDEF';
else Result:='0x'+HexStr(st_shndx,4)+' ';
SHN_UNDEF :Result:='UNDEF';
else Result:='0x'+HexStr(st_shndx,3);
end;
end;
@ -1226,7 +1233,7 @@ begin
Writeln('Symbol table ''.symtab'':0x',HexStr(s,8),'..0x',HexStr(e,8),':',(e-s));
Writeln(' Num Value Size Type Bind Vis Ndx Name');
Writeln(' Num Value Size Type Bind Vis Ndx Name');
if (count<>0) then
For i:=0 to count-1 do
begin
@ -1607,7 +1614,7 @@ begin
if (Pointer(@pa^.Size )+SizeOf(pa^.Size )<=pe) then Writeln(' Size :0x',HexStr(pa^.Size ,8));
if (Pointer(@pa^.Magic )+SizeOf(pa^.Magic )<=pe) then Writeln(' Magic :0x',HexStr(pa^.Magic ,8));
if (Pointer(@pa^.Entry_count )+SizeOf(pa^.Entry_count )<=pe) then Writeln(' Entry_count :0x',HexStr(pa^.Entry_count ,8));
if (Pointer(@pa^.SDK_version )+SizeOf(pa^.SDK_version )<=pe) then Writeln(' SDK_version :0x',HexStr(pa^.SDK_version ,8));
if (Pointer(@pa^.SDK_version )+SizeOf(pa^.SDK_version )<=pe) then Writeln(' SDK_version :',get_sdk_version_str(pa^.SDK_version));
if (Pointer(@pa^.sceProcessName )+SizeOf(pa^.sceProcessName )<=pe) then WOfsstr(' sceProcessName :',@pa^.sceProcessName ,obj);
if (Pointer(@pa^.sceUserMainThreadName )+SizeOf(pa^.sceUserMainThreadName )<=pe) then WOfsstr(' sceUserMainThreadName :',@pa^.sceUserMainThreadName ,obj);
if (Pointer(@pa^.sceUserMainThreadPriority )+SizeOf(pa^.sceUserMainThreadPriority )<=pe) then WOfsDwr(' sceUserMainThreadPriority :',@pa^.sceUserMainThreadPriority ,obj);
@ -1645,7 +1652,7 @@ begin
if (Pointer(@pa^.Size )+SizeOf(pa^.Size )<=pe) then Writeln(' Size :0x',HexStr(pa^.Size ,8));
if (Pointer(@pa^.Magic )+SizeOf(pa^.Magic )<=pe) then Writeln(' Magic :0x',HexStr(pa^.Magic ,8));
if (Pointer(@pa^.SDK_version)+SizeOf(pa^.SDK_version)<=pe) then Writeln(' SDK_version:0x',HexStr(pa^.SDK_version,8));
if (Pointer(@pa^.SDK_version)+SizeOf(pa^.SDK_version)<=pe) then Writeln(' SDK_version:',get_sdk_version_str(pa^.SDK_version));
end else
begin
Writeln('SCE module param:','not exist');