RMReport3.51破解手札㈢

破解步骤三——代码重建：
　　在此需要将限制的代码恢复（改变）成原来正常的代码，正常打印的Pascal代码应该如下所示：

1. procedure _DoPrintReport;
2. var
3.     i,j: integer;
4. begin
5.     if 逐份打印 then
6.     begin
7.         i := 0;
8.         repeat
9.             if CanPrint(i) then PrintOnePage(i);
10.             i := i+1;
11.         until ((i>=TRMEndPages.GetCount-1) or (UserCancel));
12.     end 
13.     else begin
14.         //逐页打印
15.         for i:=0 to TRMEndPages.GetCount-1 do
16.             for j:=0 to copies{打印份数} do 
17.             begin
18.                 if CanPrint(i) then PrintOnePage(i);
19.                 if UserCancel then Break;
20.             end;
21.     end;
22. end;

文章出自:《编程手札》http://blog.csdn.net/nhconch
作者：狂歌痛饮
请从《编程手札》阅读原文，引用或转载可能导致内容不全。

　　根据Pascal代码可以很轻易的写出对应的汇编代码：

1. //第一段
2. asm
3.     mov eax, [ebp + $08]
4.     cmp byte ptr [eax + $0C], $00   //判断是否逐份打印
5.     jz @@579                        //不是转到逐页打印
7. //`````````````````逐份打印`````````````````````````````
8.     xor ebx, ebx                    //ebx保存当前打印份数
9.     jmp @@557
11. @@506:
12.     mov eax, [ebp + $08]
13.     mov eax, [eax - $08]
14.     mov eax, [eax + $58]
15.     call TRMEndPages.GetCount    //取总页数
16.     dec eax                         //eax=页数-1
17.     mov ecx, eax                    //ecx保存循环次数
19.     xor eax, eax                    //eax保存当前打印页码
21. @@1:
22.     push ecx
23.     push eax
24.     push ebp
25.     call _CanPrint
26.     test al, al                     //判断是否要打印
27.     jz @@528
28.     pop ecx {push ebp}
29.     
30.     pop eax
31.     push eax
32.     push ebp
33.     call _PrintOnePage
34. @@528:
35.     pop ecx {push ebp}
36.     pop eax
37.     pop ecx
38.     
39.     inc eax
40.     loop @@1
42.     inc ebx                         //打印份数加1
43. @@557:
44.     mov eax, [ebp + $08]
45.     cmp ebx, [eax - $0c]            //对比打印份数
46.     jnl @@679                       //打完退出
47.     mov eax, [ebp + $08]
48.     mov eax, [eax - $08]
49.     cmp byte ptr [eax + $30],