我的两次破解经历(心情贴,无技术内容)

因为一直没有钻研，所以很久没有写这种技术性的文章了。这两天颇有收获，如果不记录下来恐怕日后遗忘。按理说应该写到我的CSDN博客上，但是那里已经荒废很久了，而空间又很久没有更新了，所以还是两边都发布一下吧

首先声明，虽然很有成就感，但是没有什么技术含量，想学技术的同学请直接关闭网页绕行。

几次破解都成功了，都是机缘巧合，不知道是我运气好还是我确实有这个能力，反正自我满足了一把，呵呵

第一次是去年，一个朋友弄了个软件，想大批量使用，但是只有几个注册码，于是我去想办法。据我微薄的经验，注册码一般无非就是几个地方，硬件ID（主板啦，硬盘啦，网卡的mac地址啦），于是几个都试了一下，都不是，很是郁闷，后来有一台已经注册好的机器重装，注册码没变，结果软件不能用了，很奇怪，难道不是绑定的硬件，竟然是windows系统信息不成？

又尝试恢复几个地方到重装前的环境，终于在把机器名改回原来之后，软件可以运行了。nnd，这货竟然绑定了机器名！

接下来的工作就简单了，呵呵，你懂的，当然不是把所有机器都改成一个名字，那在网络上早冲突了，所有的机器用的都是一个注册码，我要做的只是给这个程序加了一个壳，在运行之前把机器名改为注册码里的机器名，然后调用程序，调用起来之后再把机器名改回去。

就是这么简单。你看，我就说没有什么技术含量嘛。就像变魔术，揭穿了所有人都会说：“嗨，这么容易”。当然魔术的效果是不错的，那一段时间很是膨胀了一把。

简单附几行改机器名的代码，主要是针对注册表操作，而注册表里放机器名的地方也很多，要找到哪个是【我的电脑】-属性-计算机名里显示的那个，还真是费了一点工夫呢

 

前面略

……

  Memo1.Lines.Clear;
  len:=30;
  getmem(lna,30);
  getcomputername(lna,len);
  Memo1.Lines.Add('getname1='+lna);//运行之前显示一下机器名 

 Myreg:=Tregistry.Create;             //创建一个Tregistry实例
  Myreg.RootKey:=HKEY_LOCAL_MACHINE;   //设置根键
    if Myreg.openkey('SYSTEM/CurrentControlSet/Control/ComputerName/ActiveComputerName',FALSE) then
    begin
      str[4]:=Myreg.readstring('ComputerName');
      Memo1.Lines.Add('str4='+str[4]);
      if str[4]='' then
      begin
        Button2.Enabled:=false;
        Myreg.closekey;
        exit;
      end;
      Myreg.WriteString('ComputerName','20081016-1927');//改名
      Myreg.closekey;
    end;

    len:=30;
    getmem(lna,30);
    GetComputerName(lna,len);//取机器名,看是否修改
    Memo1.Lines.Add('getname2='+lna);//显示一下修改后的机器名

 

调用起来程序后，再改回去

if Myreg.openkey('SYSTEM/CurrentControlSet/Control/ComputerName/ActiveComputerName',FALSE) then
    begin
      if str[4]<>'' then
      Myreg.WriteString('ComputerName',str[4]);
      Myreg.closekey;
    end;
    len:=30;
    getmem(lna,30);
    getcomputername(lna,len);
    Memo1.Lines.Add('getname3='+lna);//再显示一下机器名
    Close;

 

重点还是说说今天这次。这两天父母有事回家，我和媳妇宅在家里看孩子，闲着没事，网上的一个朋友，让我帮忙做一个调用外挂的程序，谈不上破解，只不过这个外挂程序弹出的确定窗口太多，想让我的程序调用后自动取消弹出窗口，隐藏那个外挂程序， 显示我的程序。有点意思，就答应了。

有点难度的是那个外挂程序加了防调用机制，直接运行可以，不能在程序里调用。

拿到那个外挂后，我先试了试双击运行，当然是没问题的。

然后建立一个快捷方式，双击快捷方式运行，也是可以的。

下一步，写一个批处理运行这个程序，防调用机制起作用了，没成功。

批处理运行快捷方式，也没成功。

写程序尝试了一下，winexec和shellexecute调用，意料之中的失败。

到这一步应该都明白了，这货肯定判断了父进程ID是不是explorer

我这个人最擅长的就是不按牌理出牌，按理说到了这一步，很多人想到应该就是注入explorer调用了，高手可能会修改PEB或者用BHO之类其他更高级的方式，但是我没有，而且我在那哥们给我程序之后不到20分钟就把能成功调用外挂的程序发给他了。

我是怎么做到的？嘿嘿，简单到没法再简单，我只不过是打开了外挂程序所在文件夹并且选中它，然后发送了一个回车而已。

那哥们兴奋的说：你真行，我看好你哦。

当然，后面还有很多工作要做，又要隐藏外挂窗口，又要自动点外挂弹出的确定，还有关闭我的程序之前先关闭外挂，弄的我今天忙活了一天现在才弄完，后面这些更没有技术含量了，全是体力劳动。

今天主要的工作还在于完善调用上，总不好每次点按钮的时候先打开一个文件夹窗口再关闭吧？其他方法呢，注入explorer太危险，很容易引起系统崩溃，我又试了试CreateProcess之类的调用，结果是一个样，绕了一圈还是回到起点来。

那就完善最初的方案吧，首先，把打开外挂文件夹并选中这步由显式打开变成隐式打开，这步很简单，只需要修改

WinExec的第二个参数由SW_NORMAL为SW_HIDE就OK。

接下来试了试SetForegroundWindow激活和发送按键，竟然一样可以用，这难道就是运气？或者说传说中的人品？

（因为之前测试的时候如果有相同的文件夹在打开，文件选中功能是不好使的，于是我在打开文件夹后又调用postmessage(h,wm_char,ord(s[i]),0);来选中文件，至于发送按键，用的更是最基本的keybd_event，这个东东可不管你要给谁发送，他是逮着谁是当前激活窗口就往谁那发，比如我在一个程序里写按钮按下两秒钟后通过keybd_event发送一个a，那么我按下按钮后立即打开一个文本，2秒钟后文本里就会出现一个a，所以说对一个看不到的窗体我发送回车竟然能成功，这不是上天助我是什么呢）

说一下这里面用到的几个技术点吧，为此我还查了我05年在CSDN写的博客，6年过去了一点进步都没有，狠狠的BS自己一下,都没有什么技术含量了,自己备忘一下

查找窗体句柄用

function   GetWindow2(btitile:string):HWND;
var   winhandle:   Hwnd;
        winprocess:   Dword;
        title:pchar;
        WndClassName: array[0..254] of char;
begin
    result:=0;
    Getmem(title,255);
    winhandle:=GetWindow(GetForeGroundWindow,GW_HWNDFIRST);
    while   winhandle <> 0   do
    begin
      if   (IsWindowEnabled(winhandle)   and   IsWindow(winhandle))   then
        begin
      //   GetWindowThreadProcessId(winhandle,@winprocess);
        GetWindowText(winhandle,title,255);
          if (pos(btitile,title)>0)  then//这里判断的只有包含就列出,当然也可以根据情况改成=
          begin
          if not IsWindowVisible(winhandle) then//这里是看窗体是否可见 当然看不见的才是我想要的
          begin
            GetClassName(winhandle, @WndClassName, 254);//判断一下窗体的类
            Form1.Memo1.Lines.Add(IntToStr(winhandle)+' '+ WndClassName+' '+title ) ;
           // CabinetWClass;
            result:=winhandle;

          end;
          end;
        end;

        winhandle:=GetWindow(winhandle,GW_HWNDNEXT);
    end;

Freemem(title);
CloseHandle(winHandle);

end;

其中的btitile是你要查的窗体标题

找到句柄后要干什么不就随我了

    ShowWindow(clhandle,SW_HIDE)是隐藏窗体
    ShowWindow(clhandle,SW_SHOW)是显示窗体

procedure TForm1.Button3Click(Sender: TObject);
var
Process, ProcessId: Cardinal;
begin
  clhandle:=0;
  GetWindow1;//找外挂窗口句柄
  if clhandle>0 then//如果找到则关闭
  Begin
    GetWindowThreadProcessId(clhandle, ProcessId);
    Process := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
    //CloseHandle(clhandle);
    TerminateProcess(Process,0);//根据句柄强制结束进程

  End;
  close;
end;