也谈.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("
");
                    }
                }
            }
            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 != 100)
            {
                this.ED("Delphi2CS has expired.");
                builder3.Append("// Delphi2CS has expired, please purchase the final version. 
");
                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. 
");
                string fileName = Path.GetFileName(this.O);
                builder3.Append(string.Concat(new object[] { " // ", fileName, " is ", this.GB.A, " lines. 
" }));
                builder3.Append(" // Please purchse the final version to avoid the limitation.
");
                flag = true;
            }
            if (!flag)
            {
                if ((this.MB != null) && (this.MB.Count > 0))
                {
                    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() + "
{").Append("
");
                            b.Append("  partial class ").Append(yb.B.A).Append("
");
                            b.Append("    {
");
                            b.Append(yb.L().U());
                            b.Append("    }
");
                            b.Append("}
");
                        }
                        builder3.Append(yb.HB());
                        this.MB.Remove(yb);
                    }
                }
                if ((this.MB != null) && (this.MB.Count > 0))
                {
                    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 > 0)
                    {
                        builder2.Append("namespace ").Append(this.O()).Append(".Units
");
                        builder2.Append("{
");
                        builder2.Append(builder5.ToString());
                        builder2.Append("}
");
                        builder2.Append("
");
                        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 > 0)
            {
                writer.WriteLine("namespace " + this.O() + "
{");
                writer.Write(builder3.ToString());
                writer.WriteLine("}
");
            }
            if (flag2)
            {
                writer.Write(builder2.ToString());
            }
            writer.Close();
            stream.Close();
            writer = null;
            stream = null;
            if ((b != null) && (b.Length > 0))
            {
                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(1);
            }
            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
  {
    // 代码大小       435 (0x1b3)
    .maxstack  4
    .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   100
    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.0
    IL_0014:  ldc.i4.s   16

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

private void H(object A, EventArgs B)
{
    if (QB.B != 100)
    {
        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 == 0) || (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:
 '" + this.UB + "'", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand);
        }
        else
        {
            this.VB = this.J.Text;
            if (this.VB.Trim().Length == 0)
            {
                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, 1)))
                {
                    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
  {
    // 代码大小       435 (0x1b3)
    .maxstack  4
    .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   100
    IL_0005:  ldc.i4.s   100
    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.0
    IL_0014:  ldc.i4.s   16

　　在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）