也谈.Net中间语言——破解Delphi2CS行数和时间限制

　　其实我一直在研究将Delphi版的传奇2源代码使用C#实现，不过由于我并没有学习过Delphi。就只能说先试着用一些工具转换代码。

　　后来我在网上找到了一款软件:Delphi2CS。这款软件比较强大，虽然不支持条件编译，但竟然能对窗体控件达到非常高的转换效率！且直接生成vs.net的项目，令我十分高兴，这意味着我们只需要修复很少的部分。

　　不过真正尝试转换的时候发现有一个限制：源文件不得超过500行。

　　如下，图片为准换完成后的报告，代码为转换完成后的cs文件：

 using System;
 using System.IO;
 using DCPconst;
 using Base64;
 using Sha1;

 namespace DCPcrypt
 {
  // Delphi2CS trial converts the .PAS file that is less than 500 lines.
  // DCPcrypt.pas is 1029 lines.
  // Please purchse the final version to avoid the limitation.
 }

　　这令我十分困扰。

　　后来在网上发现博客园的liufei同学解决了这个问题，他说明了方法并提供了可用程序。

　　使用他的程序确实可以达到效果，但是另一个问题却出现了：

　　　　

　　大概意思是说过期了。我是从官网上下载了文件进行安装，然后将liufei同学的破解文件放到程序目录下执行的(如果是直接使用liu同学的程序是可行的)。不过出现了上图的情况。

　　虽然不知道原因，不过貌似现在只能自己来破解了。

　　先打开IL，载入程序

　　

　　

　　然后依次点击“文件”=>“转储”，使用默认设置就行了

　　

　　然后打开il文件开始找，不过没什么挑战性，一下就找到了

　　

　　上述代码可用.NET Reflector还原

 public void F()
 {
     if (!this.TB)
     {
         try
         {
             DC.Q = this;
             StringBuilder builder = new StringBuilder();
             bool flag = false;
             StringBuilder builder2 = new StringBuilder();
             bool flag2 = false;
             StringBuilder builder3 = new StringBuilder();
             StringBuilder b = null;
             if (this.R != null)
             {
                 AB ab = null;
                 foreach (string str in this.R)
                 {
                     ab = this.NB.BB(str);
                     if (ab != null)
                     {
                         this.U(this.LD(ab.O()), null);
                     }
                 }
             }
             if (this.OB != null)
             {
                 foreach (string str2 in this.OB)
                 {
                     if (!str2.Equals(this.O()))
                     {
                         builder.Append("using ").Append(str2).Append(";").Append("\r\n");
                     }
                 }
             }
             string str3 = SB.U();
             if ((str3 != null) && (str3 != ""))
             {
                 builder.Append(str3);
             }
             if (this.EB != null)
             {
                 builder.Append(this.EB.Replace("U_K_N_O_W_N ", " "));
             }
             if (QB.B != )
             {
                 this.ED("Delphi2CS has expired.");
                 builder3.Append("// Delphi2CS has expired, please purchase the final version. \r\n");
                 flag = true;
             }
             else if (this.GB.A > 0x1f4)
             {
                 this.ED("Delphi2CS trial converts the .pas file that is less than 500 lines.");
                 builder3.Append(" // Delphi2CS trial converts the .PAS file that is less than 500 lines. \r\n");
                 string fileName = Path.GetFileName(this.O);
                 builder3.Append(string.Concat(new object[] { " // ", fileName, " is ", this.GB.A, " lines. \r\n" }));
                 builder3.Append(" // Please purchse the final version to avoid the limitation.\r\n");
                 flag = true;
             }
             if (!flag)
             {
                 if ((this.MB != null) && (this.MB.Count > ))
                 {
                     foreach (YB yb in this.MB.ToArray())
                     {
                         if (yb.L() == null)
                         {
                             continue;
                         }
                         if (SB.J())
                         {
                             if (b == null)
                             {
                                 b = new StringBuilder();
                             }
                             b.Append("namespace " + this.O() + "\r\n{").Append("\r\n");
                             b.Append("  partial class ").Append(yb.B.A).Append("\r\n");
                             b.Append("    {\r\n");
                             b.Append(yb.L().U());
                             b.Append("    }\r\n");
                             b.Append("}\r\n");
                         }
                         builder3.Append(yb.HB());
                         this.MB.Remove(yb);
                     }
                 }
                 if ((this.MB != null) && (this.MB.Count > ))
                 {
                     foreach (YB yb2 in this.MB)
                     {
                         builder3.Append(yb2.HB());
                     }
                 }
                 if (this.U.K.W != null)
                 {
                     flag2 = true;
                     StringBuilder builder5 = new StringBuilder();
                     builder5.Append(this.U.K.W.FB());
                     if (builder5.Length > )
                     {
                         builder2.Append("namespace ").Append(this.O()).Append(".Units\r\n");
                         builder2.Append("{\r\n");
                         builder2.Append(builder5.ToString());
                         builder2.Append("}\r\n");
                         builder2.Append("\r\n");
                         string str5 = this.HB();
                         if (str5 != null)
                         {
                             str5 = str5.Replace("U_K_N_O_W_N ", "");
                             builder2.Append(str5);
                         }
                     }
                 }
             }
             string fileNameWithoutExtension = Path.GetFileNameWithoutExtension(this.O);
             string a = fileNameWithoutExtension + ".Designer.cs";
             if (this.RB)
             {
                 string str8 = this.NB.LB(this.O);
                 fileNameWithoutExtension = fileNameWithoutExtension + str8;
             }
             else
             {
                 fileNameWithoutExtension = fileNameWithoutExtension + ".cs";
             }
             string str9 = this.O.ToLower().Replace(this.NB.K, this.NB.J);
             if (!str9.StartsWith(this.NB.J))
             {
                 str9 = this.NB.J(str9, this.NB.J);
             }
             if (!str9.StartsWith(this.NB.J))
             {
                 str9 = this.NB.K(str9, this.NB.J);
             }
             str9 = Path.Combine(Path.GetDirectoryName(str9), fileNameWithoutExtension);
             FileInfo info = new FileInfo(str9);
             if (info.Exists)
             {
                 info.Delete();
             }
             else
             {
                 info.Directory.Create();
             }
             this.PC();
             FileStream stream = info.Open(FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.Read);
             StreamWriter writer = new StreamWriter(stream, Encoding.Default);
             writer.Write(builder.ToString());
             if (builder3.Length > )
             {
                 writer.WriteLine("namespace " + this.O() + "\r\n{");
                 writer.Write(builder3.ToString());
                 writer.WriteLine("}\r\n");
             }
             if (flag2)
             {
                 writer.Write(builder2.ToString());
             }
             writer.Close();
             stream.Close();
             writer = null;
             stream = null;
             if ((b != null) && (b.Length > ))
             {
                 this.VC(a, b);
             }
             builder2 = null;
             builder3 = null;
             builder = null;
             this.P = str9.Replace(this.NB.J, "");
             if (this.P.StartsWith(Path.DirectorySeparatorChar.ToString()))
             {
                 this.P = this.P.Substring();
             }
             this.NB.T.Add(this.P);
             if (this.KB != null)
             {
                 string key = this.KB.Replace(this.NB.J, "");
                 this.JC("Creating " + Path.GetFileName(this.KB));
                 try
                 {
                     this.LB.Close();
                     this.NB.U.Add(key, this.P);
                 }
                 catch
                 {
                 }
             }
         }
         catch (Exception exception)
         {
             this.NB.W(exception.ToString());
             this.ED(exception.Message);
         }
     }
 }

　　上面的语句其实是一个条件判断，判断读取到的行数是否小于500，在第51行处。我们可以改到500000。

　　行数限制似乎破解了，那么时间限制呢？文章第一副图片所示大概是说我们使用的是Delphi2CS评估版，而现在它过期了。

　　破解过期时间很简单，我们在il文件中找到过期判断语句

 .method private hidebysig instance void
           H(object A,
             class [mscorlib]System.EventArgs B) cil managed
   {
     // 代码大小        (0x1b3)
     .maxstack
     .locals init (string V_0,
              string V_1,
              class [mscorlib]System.Threading.ThreadStart V_2,
              class [mscorlib]System.Threading.Thread V_3)
     IL_0000:  ldsfld     int32 QB::B
     IL_0005:  ldc.i4.s
     IL_0007:  beq.s      IL_001d

     IL_0009:  ldstr      "Delphi2CS Evaluation Version has expired, please p"
     + "urchase the final version."
     IL_000e:  ldstr      "Error"
     IL_0013:  ldc.i4.
     IL_0014:  ldc.i4.s   

　　搜索“Delphi2CS Evaluation”即可找到，上面代码第11行即判断了QB.B和100是否相等，我们通过.NET Reflector来查看可得下面的代码：

 private void H(object A, EventArgs B)
 {
     if (QB.B != )
     {
         MessageBox.Show("Delphi2CS Evaluation Version has expired, please purchase the final version.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand);
     }
     else
     {
         this.UB = this.O.Text;
         if ((this.UB.Trim().Length == ) || (this.UB == null))
         {
             MessageBox.Show("You must input an existed Delphi Project filename", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand);
         }
         else if (!File.Exists(this.UB))
         {
             MessageBox.Show("You must input an existed Delphi Project filename:\n '" + this.UB + "'", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand);
         }
         else
         {
             this.VB = this.J.Text;
             if (this.VB.Trim().Length == )
             {
                 MessageBox.Show("Please specify an output path for the generated C# files", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand);
             }
             else
             {
                 if (!Directory.Exists(this.VB))
                 {
                     Directory.CreateDirectory(this.VB);
                 }
                 this.VB = Path.GetFullPath(this.VB);
                 if (!this.VB.EndsWith(new string(Path.DirectorySeparatorChar, )))
                 {
                     this.VB = this.VB + Path.DirectorySeparatorChar;
                 }
                 string str = Path.GetDirectoryName(this.UB).ToLower();
                 string str2 = Path.GetDirectoryName(this.VB).ToLower();
                 if (str.StartsWith(str2))
                 {
                     MessageBox.Show("Please make sure the Output path is different from the project path.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Hand);
                 }
                 else
                 {
                     this.WB = new LD(this);
                     ThreadStart start = new ThreadStart(this.I);
                     Thread thread = new Thread(start);
                     thread.Start();
                     this.WB.ShowDialog(this);
                     try
                     {
                         if (thread != null)
                         {
                             thread.Abort();
                         }
                         else
                         {
                             thread = null;
                         }
                     }
                     catch
                     {
                     }
                     this.WB = null;
                     base.Activate();
                 }
             }
         }
     }
 }

　　其实能够猜到：这个方法是点击浏览按钮选择了文件后的事件处理方法。第一步就判断了QB.B是否等于100，如果不等的话就会终端执行。我们只需把if的条件设为永远不等即可，如下面这样

 .method private hidebysig instance void
           H(object A,
             class [mscorlib]System.EventArgs B) cil managed
   {
     // 代码大小        (0x1b3)
     .maxstack
     .locals init (string V_0,
              string V_1,
              class [mscorlib]System.Threading.ThreadStart V_2,
              class [mscorlib]System.Threading.Thread V_3)
     IL_0000:  ldc.i4.s
     IL_0005:  ldc.i4.s
     IL_0007:  beq.s      IL_001d

     IL_0009:  ldstr      "Delphi2CS Evaluation Version has expired, please p"
     + "urchase the final version."
     IL_000e:  ldstr      "Error"
     IL_0013:  ldc.i4.
     IL_0014:  ldc.i4.s   

　　在IL_0000里我把二元判断表达式左边的值从QB.B直接换成了100，这样的话就不存在过期了，因为if(100 != 100)永远为false！

　　其实现在要做的就很简单了，把上面的0x1f4(即500)改大和把这个使用了QB.B判断并终止程序执行的地方修正(其实重要的地方有两个，上述的KD.H方法中和BB.F中，后者的if判断正在500行判断前)。我更改过后后进入vs.net的命令行生成可执行文件。

　　

　　

　　按照liu同学的说法，delphi2cs程序需要.net framework3.5，所以vs2005的cmd无法编译，不过我没有尝试。按照上图的方法就能生成exe文件了，使用生成的文件替换掉安装目录下文件即可。

　　我把破解了的文件上传上来，大家可以看看。

欢迎您移步我们的交流群，无聊的时候大家一起打发时间：

或者通过QQ与我联系：

（最后编辑时间2013-08-17 01:05:38）