Changeset 489 for tools/wow_patcher/wowpatcher.pas

Timestamp:

Sep 8, 2010, 10:10:56 PM (14 years ago)

Author:

george

Message:

• Opraveno: Podpora pro kontrolu hodních nulových bajtů v čtveřici adres a tím detekce posunu pole za sekvencí.
• Opraveno: Funkční pro herního klienta 3.3.5a.

File:

• tools/wow_patcher/wowpatcher.pas (modified) (3 diffs)

tools/wow_patcher/wowpatcher.pas

@@ -9 +9 @@
   Classes, SysUtils, CustApp
   { you can add units after this };
+
+const
+  Version = '1.2';
+  ReleaseDate = '2010-09-08';
 
 type
@@ -38 +42 @@
   ErrorMsg: String;
 begin
+  WriteLn('wowpatcher ' + Version + ' ' + ReleaseDate);
   if HasOption('h', 'help') then begin
     WriteHelp;
@@ -126 +131 @@
   Position: Integer;
   I: Integer;
+  Shift: Integer;
+  NotValid: Boolean;
 const
   StartSequence: array[0..15] of Integer = ($8D, $4D, $E8, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3, $8D, $49, $00);
   StartSequence2: array[0..15] of Integer = ($88, $1D, -1, -1, -1, -1, $E8, -1, -1, -1, -1, $5B, $8B, $E5, $5D, $C3);
 begin
-  OriginalFile := TFileStream.Create(FileName, fmOpenRead);
-  NewFile := TFileStream.Create(NewFileName, fmCreate);
-  SetLength(Buffer, OriginalFile.Size);
-  OriginalFile.Read(Buffer[0], Length(Buffer));
-  OriginalFile.Destroy;
-
-  WriteLn;
-  Write('Searching for first sequence ');
-  WriteHexData(StartSequence, 0, Length(StartSequence));
-  Write('...');
-  Position := FindSequence(Buffer, StartSequence, 0);
-  if Position <> -1 then begin
-    WriteLn('found at ' + IntToHex(Position, 8));
-    Inc(Position, Length(StartSequence));
-    WriteLn('Changing data after sequence');
-    WriteHexData(Buffer, Position, 16);
-    for I := 0 to 11 do
-      Buffer[Position + I] := Buffer[Position + 12 + (I mod 4)];
-    WriteLn(' => ');
-    WriteHexData(Buffer, Position, 16);
+  try
+    NewFile := TFileStream.Create(NewFileName, fmCreate);
+    try
+      OriginalFile := TFileStream.Create(FileName, fmOpenRead);
+      SetLength(Buffer, OriginalFile.Size);
+      OriginalFile.Read(Buffer[0], Length(Buffer));
+    finally
+      OriginalFile.Free;
+    end;
+
     WriteLn;
-  end else WriteLn('not found');
-
-  WriteLn;
-  Write('Searching for second sequence ');
-  WriteHexData(StartSequence2, 0, Length(StartSequence2));
-  Write('...');
-  Position := FindSequence(Buffer, StartSequence2);
-  if Position <> -1 then begin
-    WriteLn('found at ' + IntToHex(Position, 8));
-    Inc(Position, Length(StartSequence2));
-    WriteLn('Changing data after sequence');
-    WriteHexData(Buffer, Position, 16);
-    for I := 0 to 11 do
-      Buffer[Position + I] := Buffer[Position + 12 + (I mod 4)];
-    WriteLn(' => ');
-    WriteHexData(Buffer, Position, 16);
+    Write('Searching for first sequence ');
+    WriteHexData(StartSequence, 0, Length(StartSequence));
+    Write('...');
+    Position := FindSequence(Buffer, StartSequence, 0);
+    if Position <> -1 then begin
+      WriteLn('found at ' + IntToHex(Position, 8));
+      Inc(Position, Length(StartSequence));
+      if FindSequence(Buffer, StartSequence, Position) <> -1 then
+        WriteLn('Multiple occurence found - ambiguous')
+      else begin
+        Shift := 0;
+        repeat
+          NotValid := False;
+          for I := 0 to 3 do
+            if Buffer[Position + Shift + 3 + I * 4] <> 0 then NotValid := True;
+          if NotValid then Inc(Shift);
+          if Shift > 100 then begin
+            WriteLn('No valid data found after sequence');
+            Exit;
+          end;
+        until not NotValid;
+        if Shift > 0 then WriteLn('Data shift after sequence: ' + IntToStr(Shift));
+        Position := Position + Shift;
+
+        WriteLn('Changing data after sequence');
+        WriteHexData(Buffer, Position, 16);
+        for I := 0 to 11 do
+          Buffer[Position + I] := Buffer[Position + 12 + (I mod 4)];
+        WriteLn(' => ');
+        WriteHexData(Buffer, Position, 16);
+      end;
+      WriteLn;
+    end else WriteLn('not found');
+
     WriteLn;
-  end else WriteLn('not found');
-
-  NewFile.WriteBuffer(Buffer[0], Length(Buffer));
-  NewFile.Destroy;
+    Write('Searching for second sequence ');
+    WriteHexData(StartSequence2, 0, Length(StartSequence2));
+    Write('...');
+    Position := FindSequence(Buffer, StartSequence2);
+    if Position <> -1 then begin
+      WriteLn('found at ' + IntToHex(Position, 8));
+      Inc(Position, Length(StartSequence2));
+      if FindSequence(Buffer, StartSequence2, Position) <> -1 then begin
+        WriteLn('Multiple occurence found - ambiguous')
+      end else begin
+        Shift := 0;
+        repeat
+          NotValid := False;
+          for I := 0 to 3 do
+            if Buffer[Position + Shift + 3 + I * 4] <> 0 then NotValid := True;
+          if NotValid then Inc(Shift);
+          if Shift > 100 then begin
+            WriteLn('No valid data found after sequence');
+            Exit;
+          end;
+        until not NotValid;
+        if Shift > 0 then WriteLn('Data shift after sequence: ' + IntToStr(Shift));
+        Position := Position + Shift;
+
+        WriteLn('Changing data after sequence');
+        WriteHexData(Buffer, Position, 16);
+        for I := 0 to 11 do
+          Buffer[Position + I] := Buffer[Position + 12 + (I mod 4)];
+        WriteLn(' => ');
+        WriteHexData(Buffer, Position, 16);
+      end;
+      WriteLn;
+    end else WriteLn('not found');
+
+    NewFile.WriteBuffer(Buffer[0], Length(Buffer));
+  finally
+    NewFile.Free;
+  end;
 end;