SDK完全接触——之Asprotect篇

Nisy

SDK完全接触——之Asprotect篇
转自：http://www.unpack.cn/thread-29538-1-1.html


....前言....
可能你发现,Unpack甚至网上,关于sdk的用法,是很少的,甚至没有,你可能遗憾的,这样一个壳的天下,竟然没有sdk教程可学习,缺少sdk,壳的强壮要大大降低.
我想可能有几个原因,
1,高手不屑写,或不愿写,
2.菜鸟不会.
我亦菜鸟,所以菜鸟一起飞.近期打算写个系列分享给大家.
--------------------------------------------------------------------
起初,我学Asprotect,我不会SDK,我说,我要学,我就开始学习.
我见Asprotect有带一个Asprotect.chm帮助,我就打开它,看它.
我又见Asprotect有个Examples例程,我又打开它,照着它,做些测试.
我发现Asprotect的SDK可以分几类,普通SDK,和注册相关SDK.
A.先要看普通SDK(这一共有3个.)
■1.Polymorphic Markers,变形标记,你不要把它用在循环中.
你可以放置它在程序的任意位置,就象是这样的:
Procedure Test;   
begin   
{$I Inc\UserPolyBuffer.inc}   
// some code
end;
这样,从标记开始,到过程的结束位置之间的代码,将被替换为变形的,这使得解密将变得复杂甚至是不可能的.
自然,Polymorphic Markers并不一定要放置它在过程/函数的开头,事实上,你可以按照你的需要,被放置它在某个过程或函数的任意地方.
注意:不要把它使用在循环中.
■2.Envelope Checks,壳检测,使用它来检查程序的壳是否是完好的.
它的作用是外壳完整性检查,你看下面的代码:
program Test;

uses
  Windows;

Function EnvelopeCheck: Boolean;
{$I Inc\DelphiEnvelopeCheckFunc.inc}

begin
  {$I Inc\DelphiEnvelopeCheck.inc}
  If EnvelopeCheck then
     MessageBox(0,'我很好,我在壳的保护中!','',0)
  else
     MessageBox(0,'你已到此,不可逾越,你狂傲的浪要到此止住.','',0);
end.
你可以使用它在程序的任意位置来进行壳的完整性检查,一旦壳被脱掉,那么它是返回一个False值,这时你就适当干一些邪恶的事情,给脱壳作者一些警示.
你可以马上测试它,编译后运行它,会提示"你已到此,不可逾越...",因为它是无壳的,也相当于,它的壳是已经被脱掉,所以EnvelopeCheck是返回失败,而一旦你加壳以后再次测试它,它将返回真.
■3.CRC Checks,CRC检查,你不要把它嵌套使用.CRC之内的代码还要保证多于5字节.
这一功能对抗Loader内存修补是强壮的,它的作用你看名字就知,过多的介绍是无需的,它的用法是相当简单:
{$I Inc\DelphiCrcBegin.inc}  

// some code  

{$I Inc\DelphiCrcEnd.inc}  
仅此而已.
B.再看注册相关SDK.
Asprotect的界面中,无法对程序加注册功能,我想让我的程序带有注册功能,所以我这样做:
■1.在工程中,是这样:
program Project1;

uses
  Forms,SysUtils,aspr_api,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2}; //PS:Form2不是自动创建的窗体,你要在工程的选项中设置.

{$R *.res}
var
UserName: PChar;
UserKey: PChar;

begin
  Application.Initialize;

  GetRegistrationInformation(0,UserKey,UserName); //这个aspr函数是取系统中的注册信息.
  if (UserKey<>nil) AND (StrLen(UserKey)>0) then  //如果注册信息是存在的--这将表示是已经注册的.
      begin
      Application.CreateForm(TForm1, Form1); //那么,创建主窗体.
      end
  else //如果注册信息是不存在的,这将表示程序还没有注册.
      begin
      Form2:=tForm2.Create(Application); //那么,创建注册窗体.
      Form2.ShowModal; //显示注册窗体.
      end;
  Application.Run;
end.
界面是如下:



■2.注册窗体的代码是这样:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
uses aspr_api;
{$R *.dfm}
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
If CheckKeyAndDecrypt(PChar(Edit3.Text),PChar(Edit2.Text),True) then //检查你的输入,是不是合法的,如果是合法的,将自动存储它.
   showmessage('注册信息是合法的,程序会关闭,请你再一次运行!')        
else
   showmessage('注册信息不是合法的,你要再一次检查!')
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
edit1.Text:=StrPas(GetHardwareID); //这是取机器码的函数,它的使用是简单的.
end;

end.
你可以看到一切使用都是简单的.

■3.主窗体的代码,并没有特别,在这里,你可以再学习一个区段加密的标记:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses aspr_api;
var
UserName: PChar;
UserKey: PChar;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
GetRegistrationInformation(0,UserKey,UserName); //于当前系统中取注册信息
if (UserKey<>nil) AND (StrLen(UserKey)>0) then //如果是存在的
    begin
    {$I aspr_crypt_begin9.inc} //区段加密标记开始,等级9.(你可以取等级在1--15之间)
    Label5.Caption:=StrPas(UserName); //显示一下而已.
    Label6.Caption:=StrPas(UserKey);
    {$I aspr_crypt_end9.inc} //区段加密标记结束.
    end;
end;

end.
区段加密标记中的代码仅仅解码在已注册的程序,这将表示,如果你的程序是运行在试用状态,那么位于区段加密标记中的代码将保持加密的.
一切都已经完成了.你可以现在编译它.
■4.现在要对生成的程序加壳,你打开Asprtoect,我只对你说模式的设置,其他设置是简单的,你自己做.
先增加一个try模式,"Is This Mode Active?"是的,我想让我的程序不能试用,所以我设置"Expired  executions"是0,我也不想用内建的对话注册框,因为我刚才明明已经自己设计了注册框,所以我选择"Dont use built-in dialogs"是的.
再增加一个reg模式,"Is This Mode Active?"是的,"Is This Mode in Registered state?"是的,一样的我选择"Dont use built-in dialogs"是的,"Use Activation Keys"是的,我想让注册码绑定到硬件,所以我还选择"Use Hardware Locking"是的,并设置Hardware Locking为"S.M.A.T.infomation",并选择"Support GetHardwareID API"是的,由于还在主窗体中使用的区段加密标记,所以再选择"Unlock Encrypted Sections"是的,并设置"Choose Encrypted Sections"是"Section9",因为我在主窗体中是用的等级9.
那么一切都完成了,开始保护.保护过后,运行它,它先提示我设计的注册窗体,我在Asprtoect中为它计算了一个注册码,输入注册窗体,一切都象预期的那样很成功.








我很希望这个文章没有演示错什么,如果是有,那么你不能笑,你要指正,那样这个文章将来是更完美的

Nisy

转载：http://www.unpack.cn/thread-85129-1-1.html

WinLicense的HWID就不一样。

楼主是WinLicense KeyCreator的作者，应该对WinLicense熟悉。

摘自我的"Winlicense - The Anatomy of File Key"笔记。

typedef struct _s_WL_LF_HWID
{
//  Here just for "PC Hardware"; not for "External Hardware" such as "U3 USB device" or what else.
//  "Hardware ID" Pattern: AAAA-BBBB-CCCC-DDDD-EEEE-FFFF-GGGG-HHHH
        WORD    HWID_CPUID;             //  0 :: PartA - AAAAXXXX
        DWORD   HWID_HDDID;             //  2 :: PartB - BBBBCCCC
        DWORD   HWID_BIOSID;            //  6 :: PartC - DDDDEEEE
        DWORD   HWID_MACID;             //  A :: PartD - FFFFGGGG
        WORD    HWID_CHECKSUMID;        //  E :: PartE - HHHHYYYY
} sMachineID, sHardwareID, sHWID;
复制代码


WinLicense的HWID格式：
AAAA-BBBB-CCCC-DDDD-EEEE-FFFF-GGGG-HHHH
复制代码


HWID_CPUID         AAAAXXXX
　　计算自两次CPUID指令的结果：a) "Get vendor ID"; b) "Processor Info and Feature Bits"，只用高字HIWORD。

HWID_HDDID         BBBBCCCC
　　计算自硬盘的"HDD Serial"字符串。
　　在两台虚拟机上测试：IDE和SCSI。SCSI情况下API取"HDD Serial"失败，用"Volume Serial Number"数据。

HWID_BIOSID        DDDDEEEE
　　两种情况："Ring-0 option"为"Enabled"或"Disabled"时不同，请阅Oreans's KnowledgeBase文章。
　　"Disabled"时，仍用"HDD Serial"数据，但算法不同。

HWID_MACID         FFFFGGGG
　　计算自API Iphlpapi.GetIfTable。
　　如果返回"Ethernet network interface"的MIB_IFROW.bDescr结构中，第一个双字为0x61774D56("VMwa")，不使用MAC数据，而用一组常数。
　　也就是说，只有这个字段在早期的VMware虚拟机中(WMware Tools版本差异)为常量。

HWID_CHECKSUMID    HHHHYYYY
　　前四个HWIDs的Checksum DWORD，只用高字HIWORD。

tree_fly

写的真好，赞！

Dxer

这个写的很好。经常使用加密类软件对SDK这块不是很在行。

menglv

这个长知识了，只是不知道能不能部分代码加密？aspr好像会解密到内存，这样应该没什么用.

soarqin

主要还是看通过各种方式反内存调试的能力，否则只要能找到解压到内存的运行位置，还是很容易被破

wz2988

太好了 N牛过真细心 跟着你走一定不会错

76151824

值 得学习，感谢

也许

谢谢分享！回帖略表感激！

也许

谢谢分享！回帖略表感激！