home *** CD-ROM | disk | FTP | other *** search
/ Xentax forum attachments archive / xentax.7z / 5506 / src.7z / SEGA_lz77.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2012-02-20  |  11.3 KB  |  343 lines
  1. {
  2. ************************************************************
  3. * SEGA`s PRS compression                                   *
  4. * LZ77 compression with RLE emulation and extended matches *
  5. ************************************************************
  6. *                                                          *
  7. *                                                          *
  8. *
  9. * 
  10. ************************************************************
  11. }
  12. unit SEGA_lz77;
  13.  
  14. interface
  15.  
  16. uses
  17.   Windows, SysUtils;
  18.  
  19. Function PSO2Dec(File_Size:integer):integer; // only function you should call
  20. Function GetByte_00E1F580():byte;
  21. Function GetBit_00E1F5D0():byte;
  22. //Function memfwdcpy(dest,src,count:integer):boolean;
  23.  
  24.  
  25. Var
  26.   //-=-=--=-=-=-=-=-=-=-=-=-==-=-=-=
  27.   // PRS GLOBAL VARIABLES
  28.   //-=-=--=-=-=-=-=-=-=-=-=-==-=-=-=
  29.   buf : Array of Byte;   // SRC  Compressed File
  30.   buf2: Array of Byte;   // DST  Decompressed File
  31.   CurBit, SrcPos : Integer;
  32.   CurByte : Byte;
  33.   
  34.   BitCounter : Integer; // DWORD
  35.  
  36.   _EBP_m_4 : DWORD;    // unsigned $FF = 255  (Definately not signed)
  37.   _EBP_m_8 : DWORD; //ShortInt; // ShortInt $FF = -1 should be (definately not signed byte)
  38.   _EBP_m_D, _EBP_m_E : Byte; // (Definately not signed)
  39. {******************************************************************************}
  40. implementation
  41.  
  42. //{$R-}  
  43.  
  44. {
  45. uses
  46.   Messages, Variants, Classes, Graphics, Controls, Forms,
  47.   Dialogs, StdCtrls, XPMan, Unit1;
  48. }
  49.  
  50. Function PSO2Dec(File_Size:integer):integer; // Returns the Decompressed FileSize
  51. var
  52.   _EAX : Byte; // could be BYTE
  53.   DstPos, Count, Off : Integer;
  54. Begin
  55.   {SET UP SOME VARIABLES}
  56.   CurBit:=0;   //
  57.   SrcPos:=0;   // Compressed_Data   position (buf / ICE_DATA)
  58.   DstPos:=0;   // Decompressed_Data position (buf2)
  59.  
  60.   BitCounter := 1;
  61.  
  62.  
  63.  
  64.     While SrcPos < File_Size Do // 57328
  65.     Begin
  66.         {=========== 00E1F219 =============}
  67.  
  68.     //    BitCounter := 1;  // EDX is BitCounter
  69.     //    if BitCounter = 0 then BREAK; // File is Fully Decompressed
  70.  
  71.  
  72.  
  73.         (* === 00E1F226 === *) // ### LOOP ###
  74.         Repeat
  75.             _EAX := GetBit_00E1F5D0(); // EAX is CurBit always 1 or 0
  76.             If _EAX = 1 Then // Repeat the loop
  77.             Begin
  78.             (* === 00E1F232 === *)
  79.               Buf2[DstPos] := GetByte_00E1F580; // We Write 1 decompressed byte into buf2[srcpos]
  80.               DstPos := DstPos + 1;                      // and inc the destination pos
  81.               // 00E1F248  |.^ EB DC         |\JMP SHORT 00E1F226
  82.             End
  83.         Until
  84.           _EAX = 0;
  85.  
  86.  
  87.  
  88.  
  89.  
  90.         Begin // CurBit was 0 and we escaped the first loop   BP & line 671 in Prs_Trace.txt
  91.         (* === 00E1F24A === *)
  92.             _EAX := GetBit_00E1F5D0();
  93.               
  94.             If _EAX = 1 then // jump at 00E1F254 WAS NOT taken
  95.             Begin
  96.             (* === 00E1F256 === *)
  97.                 _EBP_m_4 := GetByte_00E1F580(); // Call Returns CurByte $F8
  98.                 _EBP_m_8 := GetByte_00E1F580(); // Call Returns CurByte $FF
  99.                 _EAX := _EBP_m_8 OR _EBP_m_4;   // can get these 3 lines onto 1 line   CurByte := Curbyte or Curbit?   FF and F8
  100.  
  101.  
  102.  
  103.             (* === 00E1F272 === *)  // # dont think this is correct
  104.                 If _EAX = 0 Then  // if true jump to 00E1F279
  105.         begin
  106.           BREAK; // <<<<<<<<<<<< SRCPOS was = to FileSize / File fully decompressed       if off = 0 then break;  // confusing comments
  107.         end;
  108.  
  109.             (* === 00E1F279 === *)
  110.                 _EBP_m_8 := (_EBP_m_8 shl 5) + (_EBP_m_4 shr 3) - $2000; // LEA
  111.                 _EBP_m_4 := _EBP_m_4 AND 7;                                   // count := off and 7;
  112.  
  113.  
  114.             (* === 00E1F298 === *)
  115.                 If _EBP_m_4 <> 0 then // If Count <> 0 then ??????????  DUNNO WHAT MAKES THIS JUMP
  116.                 Begin
  117.                   (* === 00E1F29A === *) // JUMP @ 00E1F298 NOT TAKEN
  118.                   _EBP_m_4 := _EBP_m_4 + 2; // count := count + 2;  or maybe Inc([EBP-4]);   Count/[EBP-4] is not the same as BitCounter
  119.                   // 00E1F2A3  |. /EB 0E         |JMP SHORT 00E1F2B3                      ;  Alpha-1_.00E1F2B3
  120.                   // 00E1F2B3  |> \EB 3B         |JMP SHORT 00E1F2F0                      ;  Alpha-1_.00E1F2F0
  121.                 End
  122.                 ELSE
  123.                 BEGIN
  124.                   (* === 00E1F2A5 === *) // JUMP @ 00E1F298 WAS TAKEN
  125.                   _EBP_m_4 := GetByte_00E1F580() + $0A;
  126.                   // 00E1F2B3  |>  EB 3B         |JMP SHORT 00E1F2F0                      ;  Alpha-1_.00E1F2F0
  127.                 END;
  128.             End
  129.             ELSE // jump at 00E1F254 WAS taken
  130.             Begin
  131.           (* === 00E1F2B5 === *)
  132.                 _EBP_m_D := GetBit_00E1F5D0;          // Returns $00
  133.                 _EBP_m_E := GetBit_00E1F5D0;          // Returns $01
  134.                 _EBP_m_4 := (_EBP_m_D * 2) + (_EBP_m_E + 2);          // EAX / _EBP_m_4 is count ?    $00 * 2 + $01 + 2 = $03
  135.                 
  136.                 _EBP_m_8 := GetByte_00E1F580() - $100;     // FFFFFFFC   only need Byte not DWORD
  137.             End;
  138.         
  139.     End;
  140.  
  141.  
  142.   //  Form1.mmo1.Lines.Add(IntToStr(DstPos) + #9 + IntToStr(_EBP_m_4) + #9 + IntToStr(_EBP_m_8));
  143.  
  144.  
  145.     // if  _EBP_m_4 (nibble_count) not = 0 then do this loop
  146.     // Line 800 in Prs_Trace.txt
  147.  
  148.     (* === 00E1F2F0 === *)
  149.     While _EBP_m_4 > 0 Do // WHAT IS EDX its a counter of some sort for half of a byte/nibble
  150.     Begin
  151.     //  ECX := [EBP-C DstPos] + _EBP_m_8;   // $FFFFFFFC
  152.     //  EDX := [EBP-C DstPos];
  153.  
  154.       // _EBP_m_8 needs to be signed for negative numbers
  155.       Buf2[DstPos] := Buf2[DstPos + _EBP_m_8];      // [EDX] := AL;       // Buf2[EBP-C DstPos] := Lo(ECX);
  156.  
  157.       Inc(DstPos);                                        // [EBP-C DstPos] := [EBP-C DstPos] + 1;
  158.       _EBP_m_4 := _EBP_m_4 - 1; // count was 3 becomes 2  // _EBP_m_4 := _EBP_m_4 - 1;
  159.     End;
  160.  
  161.   // GO BACK TO THE START
  162.   End;
  163.   RESULT := DstPos; // [EBP-C DstPos]
  164.  
  165.   {
  166.   NOTE:
  167.       [Tests with CRC ICE debugger]
  168.       57, 328 DstPos & File_Size
  169.       40, 467 SrcPos
  170.  
  171.       [Ice Header]
  172.       57, 328 Decompressed_Size
  173.       40, 467 Compressed_Size
  174.   }
  175. End;
  176.  
  177. Function GetBit_00E1F5D0(): BYTE; // returns the current bit
  178. var
  179.   EDX : DWORD; // Pointer to BitCounter or Pointer to CurByte (This is the calling Parameter ?)
  180. begin
  181.   Dec(BitCounter); // [EDX] Points to BitCounter   // moving this to end
  182.   
  183.   (* === OPTIMISED CODE === *)
  184.   if BitCounter = 0 then
  185.   begin
  186.     CurByte := GetByte_00E1F580(); // CurByte:=buf[SrcPos];        RETURNS = $31
  187.       BitCounter := 8;
  188.   end;
  189.  
  190.   RESULT  := CurByte and 1;  // result  := CurByte and 1;   = 1    BUG it should be $7F not $99  see line 132 of prs_Trace.txt
  191.   CurByte := CurByte shr 1;  // CurByte := CurByte div 2;   = 127
  192.  
  193.   // [ECX+4] := DecompressedByte;  // $7F (127)
  194. end;
  195.  
  196. Function GetByte_00E1F580(): BYTE;
  197. begin
  198.   (* === OPTIMISED CODE === *)
  199.  
  200.   //#### NO FUCKING IDEA DONT THINK ITS CORRECT ####
  201.   (* ==== 00E1F595 ==== *)
  202.   if SrcPos = Length(buf2) then          // if SrcPos = DecSize/[EAX+C] then          //1020E2DE - 102002f0 = DFEE (should be Grp_x_XOR_KEY / decompressed filesize)
  203.   begin
  204.     SrcPos := $05CCFD2C;             // EDX,DWORD PTR DS:[ECX+C]        //CONSTANT VALUE [ECX+10] is always $05CCFD2C; // just points to a block of $95 bytes
  205.   end;
  206.  
  207.   (* ==== 00E1F5A3 ==== *)
  208.   RESULT := Buf[SrcPos] xor $95;   // [EBP-8] becomes 1 byte from Compressed data buffer @ SrcPos
  209.   INC(SrcPos);                      // inc SrcPos
  210.  
  211.   // [EBP-8] := CompressedByte;  // $63  (which is $F6 xor $95)
  212. end;
  213.  
  214. {
  215. Function memfwdcpy(dest,src,count:integer):boolean; // Writes DeCompressed data into buf2
  216. var x:integer;
  217. begin
  218.     for x:=0 to count-1 do
  219.         buf2[dest+x] := buf2[src+x];
  220.     result:=false;
  221. }
  222. end.
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234. // IGNORE THIS IS JUST NOTES
  235.  
  236. [memfwdcpy ?]
  237. 00E1F2F0  |>  8B4D F4       |/MOV ECX,DWORD PTR SS:[EBP-C]           ;  [EBP-C] is DestPos     // DECRYPTED & decompresssed PLAINTEXT FILENAME HASH LIST
  238. 00E1F2F3  |. |034D F8       ||ADD ECX,DWORD PTR SS:[EBP-8]           ;  [EBP-8] is the currentbyte thingy $FFFFFFFC
  239. 00E1F2F6  |. |8B55 F4       ||MOV EDX,DWORD PTR SS:[EBP-C]           ;  [EBP-C] is DestPos
  240. 00E1F2F9  |. |8A01          ||MOV AL,BYTE PTR DS:[ECX]
  241. 00E1F2FB  |. |8802          ||MOV BYTE PTR DS:[EDX],AL               ;  // Writes the new value into buffer $26
  242. 00E1F2FD  |. |8B4D F4       ||MOV ECX,DWORD PTR SS:[EBP-C]           ;  // Wrote $26 / Wrote $00
  243. 00E1F300  |. |83C1 01       ||ADD ECX,1                              ;  // INC(POS)
  244. 00E1F303  |. |894D F4       ||MOV DWORD PTR SS:[EBP-C],ECX
  245. 00E1F306  |. |8B55 FC       ||MOV EDX,DWORD PTR SS:[EBP-4]           ;  [EBP-4] is CurBit ?
  246. 00E1F309  |. |83EA 01       ||SUB EDX,1
  247. 00E1F30C  |. |8955 FC       ||MOV DWORD PTR SS:[EBP-4],EDX
  248. 00E1F30F  |.^\75 DF         |\JNZ SHORT 00E1F2F0                     ;  // JUMP if EDX not = 0    ed x is Count
  249.  
  250.  
  251.  
  252.     {============}
  253.     {    LOOP    } // @Label_00E1F2F0;
  254.     {============}
  255.     While EDX >= 0 Then
  256.     Begin
  257.       (* === OPTIMISED CODE === *) <<<<<<<<<<<<<<<<<<<<<< need to optimise this again memfwdcopy ?
  258.       [EDX] := Lo(DstPos + [EBP-8]);
  259.       EDX := DstPos;
  260.  
  261.       Inc(DstPos);
  262.       Dec([EBP-4]);
  263.     End;
  264.  
  265.     While EDX >= 0 Then
  266.     Begin
  267.       (* === OPTIMISED CODE === *) <<<<<<<<<<<<<<<<<<<<<< need to optimise this again memfwdcopy ?
  268.       ECX := DstPos + [EBP-8];
  269.       EDX := DstPos;
  270.       
  271.       [EDX] := Lo([ECX]);
  272.  
  273.       Inc(DstPos);
  274.       Dec([EBP-4]);
  275.     End;
  276.  
  277.  
  278.  
  279. =====================================
  280. [EBP+C] is the buf[0]  Compressed
  281. [EBP+8] is the buf2[0] Decompressed
  282. =====================================
  283.  
  284.  
  285.  
  286. 00E1F1E0  /$  55            PUSH EBP                                 ;  <<<<<<<<<<<<<<<<<<<<< PRS CDECOMPRESS @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  287. 00E1F1E1  |.  8BEC          MOV EBP,ESP
  288. 00E1F1E3  |.  83EC 14       SUB ESP,14
  289. 00E1F1E6  |.  894D EC       MOV DWORD PTR SS:[EBP-14],ECX            ;  // pointer to pointer to Decompressed buffer (Eax points directly to decom buf)
  290. 00E1F1E9  |.  8B45 EC       MOV EAX,DWORD PTR SS:[EBP-14]            ;  // eax points  to value 1
  291. 00E1F1EC  |.  C700 01000000 MOV DWORD PTR DS:[EAX],1                 ;  // writes the value 1, to the structure
  292. 00E1F1F2  |.  8B4D EC       MOV ECX,DWORD PTR SS:[EBP-14]            ;  // address of the 1 above (same as eax)
  293. 00E1F1F5  |.  C741 04 00000>MOV DWORD PTR DS:[ECX+4],0               ;  // write the value 0 to next dword in structure
  294. 00E1F1FC  |.  8B55 EC       MOV EDX,DWORD PTR SS:[EBP-14]            ;  // edx becomes the address of the 1 above (now EAX, ECX & EDX all  point to that 1) 05CCFE54
  295. 00E1F1FF  |.  8B45 0C       'MOV EAX,DWORD PTR SS:[EBP+C]             ;  // pointer to a pointer_to_102044CD (compressed data buffer 0)         EAX = 102044CD
  296. 00E1F202  |.  8942 08       MOV DWORD PTR DS:[EDX+8],EAX             ;  // writes the address of comp data buffer to [EDX+8]
  297. 00E1F205  |.  8B4D 08       'MOV ECX,DWORD PTR SS:[EBP+8]             ;  // ECX became 102002f0 which is the empty decompressed data buffer
  298. 00E1F208  |.  894D F4       MOV DWORD PTR SS:[DstPos],ECX             ;  // write to 05CCFCF8 the address of decom data buf to [EBP-C] 05CCFCF8
  299. 00E1F20B  |.  C745 F8 00000>MOV DWORD PTR SS:[EBP-8],0               ;  // write 0   05CCFCFC
  300. 00E1F212  |.  C745 FC 00000>MOV DWORD PTR SS:[EBP-4],0               ;  // write 0   05CCFD00
  301.  
  302. // Init Variables
  303. {[EAX]}    := // only 1 in the above code
  304. {[EBP+8]}  := // only 1 in the above code
  305. {[EBP-4]}  :=
  306. {[EBP-8]}  buf2 :=
  307. {[EBP+C]}  buf  := // only 1 in the above code
  308. {[EBP-14]} :=
  309. {[ECX+4]}  := // only 1 in the above code
  310. {[EDX+8]}  := // only 1 in the above code
  311.  
  312. // Main Code
  313. {[EAX+4]}  CurByte
  314. {[ECX+4]}  CurByte
  315. {[EDX+4]}  CurByte
  316.  
  317. {[EAX+8]}  SrcPos
  318. {[EAX+C]}  DstSize
  319.  
  320. {[EBP-4]}  CurByte
  321. {[EBP-8]}  CurByte
  322.  
  323. {[ECX+10]} := // ?
  324. ----------------------------------------------------------------------
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.