欢迎光临
我们一直在努力

破解某VBA代码辅助工具-模拟服务器返回篇

本帖最后由 wtujoxk 于 2019-12-3 15:31 编辑

想要分析并且怎么得到数据的请移步:https://www.52pojie.cn/thread-1066588-1-1.html
这篇文章已经很详细了。

我只是在人家分析的基础上利用hosts文件修改激活时提交的网站地址,返回激活所需要的数据,实现激活的目的。

破解某VBA代码辅助工具-模拟服务器返回篇

看看剩余时间,得用到死!

软件界面:

破解某VBA代码辅助工具-模拟服务器返回篇

主要代码:
[C#] 纯文本查看 复制代码

private HttpListener httpListener;
private const string HTTP_API = "http://127.0.0.1/api/Active/";
private void Form1_Load(object sender, EventArgs e)
{
    label1.Text = "接收到的激活码:";

    //提供一个简单的、可通过编程方式控制的 HTTP 协议侦听器。此类不能被继承。
    httpListener = new HttpListener();
    //定义url及端口号,通常设置为配置文件
    httpListener.Prefixes.Add(HTTP_API);
    //启动监听器
    httpListener.Start();
    //异步监听客户端请求,当客户端的网络请求到来时会自动执行Result委托
    //该委托没有返回值,有一个IAsyncResult接口的参数,可通过该参数获取context对象
    httpListener.BeginGetContext(Result, null);
    this.Invoke((EventHandler)delegate { label2.Text = "VBAHelperCrack初始化完毕,请打开程序并激活" +Environment.NewLine+"时间:" +DateTime.Now.ToString(); });
    //Console.ReadKey();
}
private void Result(IAsyncResult ar)
{
    //当接收到请求后程序流会走到这里

    //继续异步监听
    httpListener.BeginGetContext(Result, null);

    //获得context对象
    var context = httpListener.EndGetContext(ar);
    var request = context.Request;
    var response = context.Response;
    string str = Path.GetFileName(context.Request.RawUrl);
    this.Invoke((EventHandler) delegate { label1.Text = "接收到的激活码:" + str.Split('=')[1]; });
context.Response.ContentType = "text/plain;charset=UTF-8";//告诉客户端返回的ContentType类型为纯文本格式,编码为UTF-8
    context.Response.AddHeader("Content-type", "text/plain");//添加响应头信息
    context.Response.ContentEncoding = Encoding.UTF8;
    string returnObj = "{\"InvalidActiveId\":false,\"IsUsed\":false,\"Duration\":0,\"NextActiveDate\":" + textBox1.Text + "}";//定义返回客户端的信息
    var returnByteArr = Encoding.UTF8.GetBytes(returnObj);//设置客户端返回信息的编码
    try
    {
        using (var stream = response.OutputStream)
        {
            //把处理信息返回到客户端
            stream.Write(returnByteArr, 0, returnByteArr.Length);
        }
    }
    catch (Exception ex)
    {
        Console.WriteLine($"网络蹦了:{ex.ToString()}");
    }
}

破解某VBA代码辅助工具-模拟服务器返回篇

VBAHelperCrack.rar

(270.76 KB, 下载次数: 1, 售价: 10 CB吾爱币)

2019-12-3 15:30 上传
点击文件名下载附件

售价: 10 CB吾爱币  [记录]

下载积分: 吾爱币 -1 CB

赞(0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址