-
Notifications
You must be signed in to change notification settings - Fork 5
/
BinPatching.pas
113 lines (91 loc) · 3.03 KB
/
BinPatching.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
unit BinPatching;
{
DESCRIPTION: Unit allows to load and apply binary patches in Era *.bin and *.json formats
AUTHOR: Alexander Shostak (aka Berserker aka EtherniDee aka BerSoft)
}
interface
uses SysUtils, Utils, PatchApi, Core, DataLib, Files;
type
(* Import *)
TStrList = DataLib.TStrList;
PBinPatchFile = ^TBinPatchFile;
TBinPatchFile = packed record (* format *)
NumPatches: integer;
(*
Patches: array NumPatches of TBinPatch;
*)
Patches: Utils.TEmptyRec;
end; // .record TBinPatchFile
PBinPatch = ^TBinPatch;
TBinPatch = packed record (* format *)
Addr: pointer;
NumBytes: integer;
(*
Bytes: array NumBytes of byte;
*)
Bytes: Utils.TEmptyRec;
end; // .record TBinPatch
var
{O} PatchList: {U} TStrList {of PatchSize: integer};
PatchAutoId: integer = 1;
procedure ApplyPatches (const DirPath: string);
implementation
function GetUniquePatchName (const BasePatchName: string): string;
begin
result := IntToStr(PatchAutoId) + ':' + BasePatchName;
Inc(PatchAutoId);
end;
procedure ApplyBinPatch (const BinPatchSource: string; BinPatchFile: PBinPatchFile);
const
IS_CODE_PATCH = true;
var
{O} Patcher: PatchApi.TPatcherInstance; // unmanaged
{U} Patch: PBinPatch;
PatchName: string;
NumPatches: integer;
i: integer;
begin
{!} Assert(BinPatchFile <> nil);
Patch := @BinPatchFile.Patches;
// * * * * * //
NumPatches := BinPatchFile.NumPatches;
PatchName := GetUniquePatchName(BinPatchSource);
try
Patcher := Core.GlobalPatcher.CreateInstance(pchar(PatchName));
for i := 1 to NumPatches do begin
if not Patcher.Write(Patch.Addr, @Patch.Bytes, Patch.NumBytes, IS_CODE_PATCH).IsApplied() then begin
Core.FatalError('Failed to write binary patch data at address '
+ IntToHex(integer(Patch.Addr), 8));
end;
Patch := Utils.PtrOfs(Patch, sizeof(Patch^) + Patch.NumBytes);
end;
except
Core.FatalError('Failed to apply binary patch "' + PatchName + '"');
end; // .try
end; // .procedure ApplyBinPatch
function LoadBinPatch (const FilePath: string; out PatchContents: string): boolean;
var
FileContents: string;
begin
result := Files.ReadFileContents(FilePath, FileContents) and
(Length(FileContents) >= sizeof(TBinPatchFile));
if result then begin
PatchContents := FileContents;
end;
end; // .function LoadBinPatch
procedure ApplyPatches (const DirPath: string);
var
FileContents: string;
begin
with Files.Locate(DirPath + '\*.bin', Files.ONLY_FILES) do begin
while FindNext do begin
if LoadBinPatch(DirPath + '\' + FoundName, FileContents) then begin
PatchList.AddObj(FoundName, Ptr(Length(FileContents)));
ApplyBinPatch(FoundName, pointer(FileContents));
end;
end;
end;
end; // .procedure ApplyPatches
begin
PatchList := DataLib.NewStrList(not Utils.OWNS_ITEMS, DataLib.CASE_INSENSITIVE);
end.