技术教程破解资源
详细逆向分析一款非常零类的全平台应用开发工具的授权和激活过程
简介很久没有发贴了，但签到还是非常多的。这个全平台开发工具是一个由 RealBasic 演化来的开发套装，其IDE支持Windows、Linux和MacOS，可以开发桌面、移动和数据库应用，功能还是比较齐全，更新也算比较勤快。软件的启动Flash屏如下：small_000.jpg (47.49 KB,
很久没有发贴了，但签到还是非常多的。
small_000.jpg
最新版本是2022release 2了，我分析的是上面这个次新版。
IDE没有授权时，会在工具栏显示“Buy Xxxx”的按钮，并且没有授权时，只能在 IDE 运行调试程序，不能编译成二进制的程序来发布。如下图所示，如果点“Build”，会弹出一个需要购买授权的对话框：
small_001.jpg
该IDE授权是以授权文件的方式进行授权认证的，主要有两种方式导入授权文件：
1、通过打开工程文件的方式打开授权文件进行认证；
2、通过 License Keys 菜单打开授权管理对话框，再添加授权文件。
下面是打开工程文件的入：
small_002.jpg
通过菜单 License Keys 的方式如下图：
small_003.jpg
打开的授权文件管理对话框如下图所示：
small_004.jpg
现在还没有导入授权文件。
我们可以点“Add...”，打开一个授权文件
（我已生成好了一个授权文件，这个文件是一个加密后并编码的XML文件，在后面讲如何生成该文件）。
我们用 x64dbg 打开其主程序。进行授权过程的调试，在项目界面打开授权文件（第1种模式）后，中断在如下位置（先下好断点，再打开授权文件）：
small_005.jpg
可以看到，首先对文件头的前15个字符进行检查，如果是“605B6B0E6BA1BA1”开头的话，就是表示这个文件是授权文件，会进入授权验证过程，否则就是项目或其它文件，不会进入授权文件验证过程。
”605B6B0E6BA1BA1“是一个固定的字符串，保存在资源区，具体的比较位置在上面函数内的位置如下图所示，调用其内置的字符串比较函数进行比较，如下图所示：
small_006.jpg
上面用到了字符串常量结构，该结构如下所示：
[C++] 纯文本查看 复制代码
string_const_struct { dword ref_count; dword align1; qword address; //// 保存字符串的缓冲区 qword unknown1; dword length; dword properties; /// 0x08000100 qword unknown2;}
上面数据区大的红色框是字符串常量结构的地址指针，指向具体字符串，如下图数据区所示的字符串，另一个小的红色框是字符串的长度。
small_007.jpg
上图是字符串内容。
比较的结果在下面位置检查，如果检查是授权文件，开始生成前那个授权管理对话框，这个对话框有4个TAB页签，第2个页签就是"Licenses"，进行授权管理的。
small_008.jpg
就是在 "AboutWindow"中来处理授权文件，首先取得该对话框的实例，然后显示该界面：
small_009.jpg
在初始化和显示的过程中，会初始化口另外一个类对象，这个类对象为："Registration.StudioKeyValidator"，是对授权文件进行验证的类，如下图所示，是该类初始化的代码：
small_010.jpg
初始化完类后，就是取得其实例，如下所示：
small_011.jpg
类实例成对象后，然后调用其 constructor 方法，对对象实例进行初始化：
small_012.jpg
其 contructor 的参数就是授权文件的内容，如上图数据区所示，又是一个 string struct，因为不是常量，字符串内容就紧接在结构的后面，中间只隔了一个字节。
另外，字符串内容的第1个字节是“FF”，这个值也是长度，当实际长度小于 255时，存的是实际长度，当长度大于或等于255时，都是存的“FF”，可以看看前面的“605B6B0E6BA1BA1”，第1个字节是“0F”，表示长度是15字节。
构造函数首先解码授权文件内容，将其转换为16进制的字符串，如下图所示：
small_013.jpg
转换前如上图数据区所示，转换后如下图数据区所示，变成了16进制格式的字符串了：
small_014.jpg
然后，会再次生成一个内存块对象（MemoryBlock）这个是进行内存数据操作的对象类，相当于C语言的指针操作了，执行完一大段该对象初始化的代码后，来到这里：
small_015.jpg
这里就是调用该对象的方法，将数据写入其缓冲区，MemoryBlock 对象结构如下所示，红框中是实际保存数据的指针：
small_016.jpg
MemoryBlock 对象结构如下所示：
[Asm] 纯文本查看 复制代码
memory_block_object_struct { pointer methods[]; pointer properties[]; pointer events[]; qword ref_count; qword unknown; qword unknown; qword size; pointer data_buffer; //// 保存数据的缓冲区的指针 byte isInit; byte isAllowDirectAccessBuffer; byte[6] mem_align;}
下图更详细的显示其结构：
small_017.jpg
在MemoryBlock 的属性表中，保存有对象的类名，如下图所示的数据区中是 memoryBlock的属性和成员表：
small_018.jpg
第3个指针就是指向类名，如下图所示：
small_019.jpg
这种结构是固定的，所以我们可以查询所有内置对象的类名，便于我们跟踪调试，知道现在运行的类对象代码是哪个类的。
回到主题，执行完前面的函数据，memoryBlock对象的缓冲区保存的解码后的授权文件，准备下一步的解密操作了：
small_020.jpg
现在解码后的数据还是加密的，加密算法是 Blowfish，并且很好确定算法，因为这是一个Blowfish对象，通过前面讲的查类名的方法就知道了。
small_021.jpg
首先是取得 class，后面又是一大段实例化和初始化的代码，下面就是调用初始化函数的位置：
small_022.jpg
初始化函数的参数是解密密码，这个密码是一个常量字符串，如上图数据区所示，看起来象是前面我们讲过的函数的返回值和参数描述，只是第1个字符是“+”号，“+”前面的“2C”是长度。
初始化好密码后，就开始循环对 memoryBlock的缓冲区数据进行解密了，如下图所示：
small_023.jpg
每次循环会解密8个字节的数据，如下图所示，已完成前面8字节的解密：
small_024.jpg
全部解密完成后，就是一个XML文件，如下图所示，已经完成整个授权文件地解密了。
small_025.jpg
可以看到，这是一个 XML 文件，第1步工作已经完成了，下一步是对授权内容进行处理了。
small_026.jpg
先把解密后的 XML 文件内容从 memoryBlock 中取出来，生成一个字符串，如上图所示。
首先，验证解密后的内容是不是一个XML格式的内容，如下图所示，检查前6个字符是否"<?xml "（最后一个字符是空格）：
small_027.jpg
就是简单的取出前6字节进行较，如下图所示：
small_028.jpg
如果检查是 XML 格式的字符串，则初始化一个 XMLDocument 对象类，并通过其构造函数来解析XML，生成XMLDocument对象：
small_029.jpg
XMLDocument 对象生成成功后，就是循环取出其节点值，进行一下步的解析处理：
small_030.jpg
主要是解析3个标签的值：
1、address
2、signature
3、serial
其它的标签是不解析的，如上面的授权文件中我加了一个email标签，就不会取出来。如下图所示，是检查3个标签的位置：
small_031.jpg
取出来的标签的值，会保存到 KeyValidator 对象的属性中，如下图所示，保存的是 serial 属性：
small_032.jpg
下面保存是 address:
small_033.jpg
以及 signature:
small_034.jpg
接下就是执行 KeyValidator 的构造函数，对刚才取出来的三个XML标签值进行下一步的验证，检查授权是否合法：
small_035.jpg
因为后面还有解密过程，并且是用的 email 作为密码解密，程序会从授权信息数据库查询以前的email，这样就可以不用用户来输入解密密码了，如下所示，查询授权文件数据库（是一个全文加密的SQLite数据）：
small_036.jpg
该文件保存在目录"c:\Users\用户名\AppData\Roaming\Xojo\Xojo"中，文件名是“License Keys”。如下图所示，是查询密码的SQL：
small_037.jpg
如果没有查到密码，也就是没有以前的授权文件，就会显示一个对话框，由用户输入邮箱名作为后的解密密码：
small_038.jpg
显示密码对话框：
small_039.jpg
该对话框如下图所示（2个图，1个没有输入，一个已输入email）：
small_040.jpg
如果输入的邮箱地不正解，后面的解密数据会不对，在解密后的校验中，会弹出以下错误：
small_040_1.jpg
如果邮箱没有错，可以继续下一步的解密过程了。
刚才弹出的密码对话框，又会再次生成和实例化 Registration.StudioKeyValidator 对象，并再次在 constructor 中重复一遍前的解码、解密、XML解析过程，很是无聊，这就是面向对象编程的问题，每次 new Object 后，要重复 constructor 一次。
small_041.jpg
把前过程重复一次后，我们来到了这里：
small_042.jpg
这里将输入的email地址转换成全小写的字符串。
接下来就是用这个小写的 email 为密码，执行一个解密函数，生成另外一个对象：StudioKeyData 对象，保存具体的授权数据。
small_043.jpg
我们进入这个函数，跟踪处理过程（按 F7 进入函数）
首先处理 StudioKeyValidator.signature 属性：
small_044.jpg
取出 signature 属性的字符串，这是一个 1024 个字符的字符串，包含有两个部分，每部分都是 512 个字符，后面会讲到其作用。
如下图所示，先截取其前面 512 个字符：
small_045.jpg
再取剩下的一半字符，如下图位置代码来完成：
small_046.jpg
取出后半部分后，首先对其进行解码，变成16进制的字符串，长度也变成了 256 字节了：
small_047.jpg
这个 256 字节的字符串，实际上是一个加密后的 2048 bits 的 RSA 签名。
接下来是对这个加密的签名进行解密。
这次解密的密码是动态生成的，不是常量字符串了，并且跟 signatrure 的前半部分的 512字符相关。
这次密码有 64 字节，由 memoryBlock 保存，所以先初始化一个 memoryBlock 对象：
small_048.jpg
首先计算前 16 字节的密码，这16字节是我们输入的 email 地址的 MD5 码，如下图所示，计算 MD5 码：
small_049.jpg
将 16 进制的 MD5 码存入 memoryBlock 的缓冲区，如下图所示：
small_050.jpg
接下来处理序列号，生成与序列号相关的一段密码，先将序列号中的“-”去掉，如下图所示：
small_051.jpg
同样进行16制解码，变成16进制的字符串：
small_052.jpg
serial 变成 24 字节长的 16 进制字符后，填充到密码缓冲区：
small_053.jpg
第3步就是还有24字节的密码需要生成，而这24字节的密码的生成与 signature 前512个字符相关了，24个字节密码的前16个是一个字节一个节生成的，最后8字节是一次生成的（是一个8字节的双精度浮点数）。
这个步骤的代码相当长且臭，就不一一説了，就是一些查字符串位置，统计某些字符的个数等，并把得到的这些数据填充到密码表中。
small_054.jpg
查找和统计的字符串有“CAF”, "BAD", "11", "8", "A", "3", "7"等等，还有取最后一个还是2个字符的操作。如下图，是统计字符“A”的个数：
small_055.jpg
然后将个数据写入密码表：
small_056.jpg
就这样生成16字节的密码，存入密码表：
small_057.jpg
最后8字节的密码是一个幂计算的结果（8字节双精度浮点数），如下图所示：
small_058.jpg
这样，就生成了 64 字节 512 bits 的密码。
（这里讲一个问题，这个密码是512bits的，但 blowfish算法的密码为32bits到448bits，正常情况下用 512bits密码会报错，但这个IDE的Blowfish对象不报错，试过其它空码实现，都不行，会报错，所以，后面的注册机也只能用这个对象来加密，并且还要共它处理，不过，这个 Blowfish对象是 undocument 的，怎么用要自己试。。。。。。）
密码生成好了，就开始再次进行解密了，先取出密码，生成密码字符串：
small_059.jpg
一样也是 blowfish 解密，一样的循环解密：
small_060.jpg
解密完成，得到一个 RSA 签名：
small_061.jpg
那接下来就是签名验证了，是对 StudioKeyValitor.serial + StudioKeyValitor.address 进行签名验证，这个 serial 和 address 也是从 XML 授权文件中取来的
先从 MemoryBlock 中取出签名字符串：
small_062.jpg
然后就是生成签名验证的 msg 文本了，是一个 serial 和 address 合并的字符串，分隔符是 0x0A，如下图所示：
small_063.jpg
这样 RSA 签名所需的 sign 和 msg 都准备好了。
接下来就 RSA 签名验证过程了，不过这里要替换 RSA 公钥了。
先生成 RSA 对象：
small_064.jpg
读取公钥（这个公钥我已经换过了）：
small_065.jpg
运行签名函数，看 al 的值，为 1 表示签名正确：
small_066.jpg
检查签名校验是否正确：
small_067.jpg
正确就生成 StudiokeyData 对象，保存相关授权信息。
相关授权信息存于 serial 中，所以 StudioKeyData 的构造函数的参数就是 serial，如下图所示：
small_068.jpg
授权都有一个过期日期，该构造函数默认会认为是 365 天，所以先将属性 expiration = 365，如下图所示：
small_069.jpg
再次将序列号的”-“去掉，方便后面hex 解码：
small_070.jpg
再次解码为 16 进制字符串：
small_071.jpg
然后又放入到 memoryBlock 中，干什么呢？当然是还要解密了。
先构造一个 memoryBlock 对象：
small_072.jpg
写入 16 进制的 serial:
small_073.jpg
这次用小写的email地址，初始化一个 Blowfish 对象：
small_074.jpg
又是一个循环解密：
small_075.jpg
完成解密，得到一个24字节的授权信息，如下图的数据区：
small_076.jpg
得到授权信息后，首先检查是否有效，就是检查 serial[21] == 0x2C，如果相等，表示有效，上图是取出该值，下图是检查是否为0x2C：
small_077.jpg
然后取出 serial[7] ，如上图所示，对这个值也要检查。
small_078.jpg
如果这个值大于1，也表示授权信息无效，会抛出不支持的异常，退出验证过程。
接下来是一个日期验证，看看授权文件的生成时间是不是比当前系统日期还晚，如果还晚就表示无效。
small_079.jpg
先取出日期，就是 serial[1]*256 + serial[2]，一个 word 值。
small_080.jpg
将年份置入 Date 对象的 year 域。
接下来取 serial[3], 这是一个WeekOfYear = 0x20，只有一个字节，并赋给 Date 对象。
small_081.jpg
然后来取 serial[4], 这是一个DayOfWeek = 0x05，也只有一个字节，也赋给Date对象：
small_081_1.jpg
这样通过 year，weekOfYear, DayOfWeek生成一个日期，然后取其总秒数，用于后面的时间比较：
small_082.jpg
取得秒数后，与另一个表示当前系统时间的日期总秒数比较：
small_083.jpg
如果 shippedDate > currentSystemDate , 则授权文件无效，退出验证过程。
如果 shippedDate 有效，则进行过期日期的检查，先取出过期日期，是一个相对的 Days （天数），存于 serial[5]和 serial[6]，其值不得大于 0x7FFF:
small_084.jpg
上图是取出了 expiration Days。
经过一些处理，就是计算还有多少天（去掉 currentSysyDaye - shippedDate），并保存到 StudioKeyData 对象中：
small_085.jpg
然后就是读取订阅号： subscription_id:
small_086.jpg
保存 subscription_id：
small_087.jpg
接下来就是读取 serial_index 了：
small_088.jpg
保存 serial_index:
small_089.jpg
最后取出来的是 Feature，版本特性，表示授权文件包括哪些版本特性：
small_090.jpg
版本特性是一个4字节值，是多个特性 bits 合成后的值，特性 bits 如下所示：
[HTML] 纯文本查看 复制代码
1 - Not for resale2 - Desktop4 - Web8 - Database Servers16 - iOS32 - Console64 - Pro128 - Lite Mac256 - Lite Windows512 - Lite Linux1024 - Pro Plus2048 - Single Board Computerother - Unknown
每一个 bit 代表一个版本。
保存 feature 到 keyData 对象：
small_091.jpg
另外，在保存 feature 时，会检查是否包括 console 和 pro 版本，如果包括这两个版本之一，则加上 Single board computer 版本特性，如下图所示。
small_092.jpg
这样，StudioKeyData 的 constructor 就执行完了，我们按 "CTRL + F9" 退出函数，来到下面：
small_093.jpg
我们再次按 "CTRL+F9"退出当前函数，回到下面的位置：
small_094.jpg
接下来是一个黑名单检查，如果进入黑名单，一样也是无效：
small_095.jpg
目前黑名单只有一个，检查结果在下面位置处理：
small_096.jpg
接下来就是过期日期检查了：
small_097.jpg
一样也是通过总秒数对比大小来检查是否过期：
small_098.jpg
取软件发布日期，是一个常量，不过是经过简单计算得来的：
small_099.jpg
就是 2001-01-01 加上 670896000 秒，计算后得到日期：2022-04-06
进行比较：
small_100.jpg
如果没有过期，就开始授权数据库，检查是否有老的授权文件，如果查询到了老的授权记录，就检查 serial_index 的大小：
small_101.jpg
如果数据库中的授权记录的 serial_index 大于或等于当前的 serial_index 就会报错，如果没有老的授权，取得的 serial_index = 0，肯定小于当前的 serial_index:
small_102.jpg
按“CTRL+F9”退出函数，返回到如上图的位置。
所有验证都通过了后，就是网络验证。
small_103.jpg
上图就是网络验证的位置，按“F7”进入该函数。
来到这信位置：
small_104.jpg
按“F7”进入该函数。
如下图所示位置：
small_105.jpg
再按“F7”进入函数。
来到如下图位置：
small_106.jpg
又是按"F7"进入函数。
small_107.jpg
循环写入XML节点的值。
将生成的 XMLDocument 转换成字符串：
small_108.jpg
XML字符串生成好了，按 "CTRL+F9"退出 BuildXML() 函数。
small_109.jpg
后面就是发送激活信息，我们将建立一个模拟激活服务器来处理激活过程，首先修改 Hosts 将激活服务器指向本机：
small_110.jpg
因激活服务器是 https 的，我们还要搭建一个 https 服务，最简单的 https 由 python 来搞定，创建好https需要的ssl证书就可以，另外 python 那个内置的 https 服务没有处理 POST，所以我们还要写一个定制的 post 处理的 handler。
代码如下图所示，大部分来自网络，我只是合并修改了一下：
small_111.jpg
启动上面的服务。如下图所示：
small_112.jpg
返回 x64dbg，提前下好处理返回信息的断点后（后面会讲到），直接按“F9”运行程序：
small_113.jpg
激活服务会收到 POST 过来的激活XML内容：
small_114.jpg
然后 x64dbg 断在我们提前下好的接收处理函数内的断点上：
small_115.jpg
前面説过，我们要先在激活回应处理的函数（都是事件处理函数），这个事件是网络事件，是对象 RealID_Message 的事件，他是另一个类的继承，这个类是 _wrapper_ServerComm，_wrapper_ServerComm又是StudioLicenseKeyPasswordDialog对象的一个类模块，这个 StudioLicenseKeyPasswordDialog 就是那个询问密码（邮箱地址）的对话框类。
激活服务器返回的是一个 XML 格式的文本内容，格式如下所示：
[XML] 纯文本查看 复制代码
<?xml version="1.0" ?><methodResponse><params><param><value><int>8888</int></value></param></params></methodResponse>
其中只有一个有用的值，就是<int>8888</int>，表示返回的是整数，值为 8888，而这个 8888 表示的是剩余可激活的次数（同一台机器多次激活也只算1次，也可以説是剩余可激活的设备数）。
F8往下走，来到这里，对收到的XML内容进行处理：
small_116.jpg
按"F7"进入该函数。
还是老办法，生成一个 XMLDocument 对象来处理 XML 文档，如下图所示：
small_117.jpg
继续往下走一段代码，来到如下位置，就是解析并取得那个最终的响应值了：
small_118.jpg
这个函数返回的是一个 Variant<Double> 类型的值，其实就是 8888。
Variant 也可看作一个对象，结构如下：
[C++] 纯文本查看 复制代码
variant_struct { pointer methods[]; /// methods = NULL pointer properties[]; /// pointer events[]; /// events = NULL qword ref_count; /// reference count qword unknown1; qword unknown2; qword value_or_address; //// 当时基本类型值时，保存的是实际值;当是字符串或对象时，保存的是地址指针}
取得这个值后，接下传递给下一个事件，是以 Delegate 调用的方式来处理的，如下图所示：
small_119.jpg
这样，我们进入另一个对象（ServerComm）的事件处理，这是前面讲过的 StudioLicenseKeyPasswordDialog._wrapper_ServerComm 的一个实例。
small_120.jpg
这个事件处理函数的参数就是前面的 Variant<Double>类型的变量。
small_121.jpg
在处理这个数据前，先恢复成整数值，如上图所示。
然后就是对这个数据进行对比，根据返回值进行对应的处理和提示：
small_122.jpg
如果 int >= 1，表示激活正确，还有剩余激活次数。
如果 int = -1，表示激活异常，激活失败了。
如果 int = -2, 表示激活次过多，不能再激活了。
上面会根据不同的返回值，取得不同的提示信息字符串。
接着往下走，如果激活成功，就会保存当前授权文件的内容到数据库了，下面就是调用保数据的位置：
small_123.jpg
这个函数内有保存到数据库的代码，相当长，生成SQL的位置如下:
small_124.jpg
接下来就提示激活成功了：
small_125.jpg
上面还剩余多次的情况，如果只剩一次了，提示如下（其实就是处理了一下英文名词单数和复数的显示问题）
small_125_1.jpg
如果失败，就不会保存授权数据到数据库，同时会提示出错：
small_126.jpg
这个就是前面判断<int>-1</int>的情况。
small_127.jpg
这里是前面判断<int>-2</int>的情况，表示激活次数（设备）过多，超过次数，只能迁移以前的授权过来了。
还説明一下，前面那个判断是有 BUG 的，当值为 0 或 -3 及以及下的负数时，也是激活成功的：
small_127_1.jpg
small_127_2.jpg
前面我们説过 serial_index 的问题，就是新加的授权文件中的 serial_index 一定要大于数据库中的授权记录中的 serial_index，就是：
xml_serial_index > db_serial_index 要满足，否则就会报以下错误：
small_128.jpg
只要将同一个授权文件添加两次，第2次就会报这个错误了。
这样，整个授权检查和激活过程就结束了。
下面，我説一下如何快速查看一个对象的类名吧，一个对象类的基本结构如下：
[C++] 纯文本查看 复制代码
object_struct { pointer events[]; pointer properties[]; pointer metheds[]; qword ref_count; qword inherited_count; //// 不确定 dword unknown1; pointer ref_object; //// 最后引用的对象，没有则是指向对象本身 dword unknown3; dword unknown4; dword unknown5;}
下面是上面结束 properties[] 的前面几个属性：
[Asm] 纯文本查看 复制代码
properties_struct { pointer base_class; qword unknown1; char * class_name; dword unknown2; dword unknown3; ....... properties_list}
可以看到，第3个属性就是类名了，下面以图説明：
small_129.jpg
上图中，rcx 指向一个对象，[rcx + 0x08] 就是属性和成员表了。
small_129_1.jpg
在数据区按CTRL+G，输入[rcx+0x08]定位到属性和成员表，如上图所示位置，其中第3个属性是一个地址，指向类名，也就是指向 [[rcx + 0x08] + 0x10]。
small_129_2.jpg
再在数据区按CTRL+G，输入[[rcx+0x08] + 0x10] 就可以看到类名，这样只要知道 rcx 是一个对象，直接 [[rcx+0x08] + 0x10]就会显示类名了。
还有就是它的对类的方法和属性的名称，函数的返回值和参数的类型，也都可以查到，如下图所示是 XMLDocument 的一个方法：
small_130.jpg
============================ 分界线 ======================================
下面我们进入注册机的主题了，生成一个可用的授权文件（当然前提是 RSA 的公钥要换成我们自己的）。
这里还要説明一下，它那个 RSA 签名过程与标准的开源的不一样，我作了对比，有些差异，并且它的 RSA 签名过程是通过 Plugin 来完成的，我们也要通过这种方式来完成，否则签名是通不过的。
还有就是系统自带了 RSA 签名的函数，但这个函数生成的签名也是通不过的，这个函数如下：
[Visual Basic] 纯文本查看 复制代码
RSASign(data As MemoryBlock, privateKey As MemoryBlock) As MemoryBlock
所以我们也只能调用它的插件来实现签名，但是系统没有带这个插件，其插件目录中没有这个 RSA 签名的插件。但是系统的库目录（Xojo Libs）带的 RSA 签名的动态库，有这个就可以了，我们自己来依葫芦画瓢制作一个，
我们查看一下插件目录（Xojo Libs），有系统自带的插件，其实这些插件是 ZIP 格式的文件，我们用压缩软件打开一个插件，就可以看到，其结构很简单，就是包括不同编译目标平台的动态库。
small_131.jpg
我们只有 x86_64 的库，只要这个就可以，如下图所示，我们自制了一个 OpenSSL 插件：
small_132.jpg
插件中的DLL来自其 Libs 目录中的库文件。
保存这个文件到其安装目录下的 Plugins 子目录，并重新启动 IDE 就可以用了。具体怎么用可看看其 plugin SDK 的文档，有c++的接口説明，再用 IDA 看看DLL就差不多理解了。
还有就是前面説过的 Blowfish 的密码长度超过正常的长度，所以得用其内置的 _Blowfish 类来处理 Blowfish的加密，不然也是通不过的，而这个 _Blowfish 类是不公开的，也就上没有文档説明，其文档中的两个Blowfish相关函数：[Visual Basic] 纯文本查看 复制代码
BlowFishDecrypt(publicKey As String, data As MemoryBlock, blockMode As Crypto = BlockModes.CBC, initializationVector As MemoryBlock) As MemoryBlockBlowFishEncrypt(publicKey As String, data As MemoryBlock, blockMode As Crypto = BlockModes.CBC, initializationVector As MemoryBlock) As MemoryBlock
也不是通过这个类来实现的，这两个函数也不能处理超过长度的密码。
以下是注册机的主要代码：
[Visual Basic] 纯文本查看 复制代码
const NID_SHA1 as Integer = 64 ////&H40var features() as int64 = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 2147479552)var crlf as String = EndOfLine.UNIXconst xml_cryptoKey as String = "+%%o<Graphics>o<RectControl>o<RBControl>i4i4"//// email and passwordvar email as String = txtEmail.Text.Trim.Lowercaseif email = "" then MessageBox "Please Input a Email Address!!!" exit subend if//if lstEditions.SelectedRowIndex = ListBox.NoSelection then//MessageBox "Please select edition features!!!"//exit sub//end if///// ==================================================================================================================///// 生成序列号var password as string = email//if password = "" then//MessageBox "Password(email address) is Null, Input eMail Address First!!!!!!"//exit sub//end ifvar mem as MemoryBlock = new MemoryBlock(24)mem.LittleEndian = false// unusedmem.Int8Value(0) = &H20// release date// 2022-04-06/// shipped_datevar today as date = new Datevar shippedDate as date = dtpShippedDate.SelectedDatevar year as UInt16 = shippedDate.Yearvar wks as UInt8 = shippedDate.WeekOfYearvar wDays as UInt8 = shippedDate.DayOfWeek/// shipped datemem.UInt16Value(1) = Yearmem.UInt8Value(3) = wks // yestodaymem.UInt8Value(4) = wDays/// expiration = valid_days - today - 1var expiredDays as Integer = CType((dtpLicensedDate.SelectedDate.SecondsFrom1970 - dtpShippedDate.SelectedDate.SecondsFrom1970) / 86400, Integer)if expiredDays < 0 then MessageBox "Licensed Date Must be more than Shipped Date!!!" Exit subend if if expiredDays > (&H7FFE - today.Day) then MessageBox "Licensed Date too bigger!!!" Exit subend if//mem.Int16Value(5) = expiredDays //// key的有效天数，默认 365 天，生成的授权文件在 365 天内加入都 有效，否则会失效mem.Int16Value(5) = &H7FFF - 365// loop one, [7]>1 则 raise UnsupportedFormatExceptionmem.Int8Value(7) = 1 // not loop// unusedmem.Int8Value(8) = &H20mem.Int8Value(9) = &H20// SubscriptionIDmem.Int32Value(10) = Integer.FromString(txtSubscriptionID.Text.Trim)//&H88888888// serial_indexmem.Int16Value(14) = Integer.FromString(txtSerialIndex.Text.Trim) //&H6667// unusedmem.Int8Value(16) = &H20//featurevar feature as UInt32 = 0for i as Integer = 0 to lstEditions.LastRowIndex if lstEditions.RowAt(i).Selected then feature = feature or features(i) end ifnext iif bitwise.BitAnd(feature, &H36) = 0 then //// Desktop, Web, iOS, Console 必选 feature = &H476 // Desktop, Web, iOS, Console, Pro, Pro Plusend ifmem.UInt32Value(17) = feature//&H7FFFFFFE// tagmem.Int8Value(21) = &H2C /// 逗号 ','，序列号有效性标志// unusedmem.Int8Value(22) = &H20mem.Int8Value(23) = &H20 //Crypto.BlowFishEncrypt(key As String, data As MemoryBlock, blockMode As BlockModes = BlockModes.CBC, initializationVector As MemoryBlock) As MemoryBlockvar mem2 as MemoryBlock = Crypto.BlowFishEncrypt(password, mem, Crypto.BlockModes.ECB, nil)var serial_hex as string = mem2.StringValue(0, mem2.Size)var serial_str as string = EncodeHex(serial_hex)var serial_xml as string = serial_str.Middle(0, 8) + "-" + serial_str.Middle(8, 8) + "-" + serial_str.Middle(16, 8) + "-" + serial_str.Middle(24, 8) + "-" + serial_str.Middle(32, 8) + "-" + serial_str.Middle(40, 8)////// debug////MessageBox "SerialNo: " + serial_xml////// ==================================================================================================================///// 生成序列号和地址信息的签名var privateKey as String = Self.rsa_private_key.ReplaceLineEndings(EndOfLine.UNIX) //// 取得私钥if privateKey = "" then MessageBox "RSA private key is null!!!!" exit subend if//// 用户名，一般为电脑登陆名var userName as String = txtName.Text.Trimif userName = "" then userName = app.LoggedInUserName ///end if/// 生成地址信息var address as String = txtName.Text + crlf + txtAddress1.Text + crlf + txtAddress2.Text + crlf + txtCity.Text + "," + txtProvince.Text + "," + txtPostCode.Text + crlf + txtCountry.Textaddress = address.ReplaceLineEndings(EndOfLine.UNIX)//// 生成RSA签名文本var msg as String = serial_xml + crlf + addressvar signRet as String = ""var private_key_pem as String = "-----BEGIN PRIVATE KEY-----" + EndOfLine.UNIX + privateKey + EndOfLine.UNIX + "-----END PRIVATE KEY-----"//var public_key_pem as String = "-----BEGIN PUBLIC KEY-----" + EndOfLine.UNIX + publicKey + EndOfLine.UNIX + "-----END LUBLIC KEY-----"//// 注意：需要安装插件 OpenSSLPlugin.xojo_plugin，否则不能调用下面4个OpenSSL函数，该插件可自制//// 注意：需要安装插件 OpenSSLPlugin.xojo_plugin，否则不能调用下面4个OpenSSL函数，该插件可自制//// 注意：需要安装插件 OpenSSLPlugin.xojo_plugin，否则不能调用下面4个OpenSSL函数，该插件可自制var rsa as Ptr = OpenSSL.RSA_New()rsa = OpenSSL.PEM_read_RSAPrivateKey(private_key_pem, rsa)var isRsaSignOK as Boolean = OpenSSL.RSA_Sign(NID_SHA1, msg, signRet, rsa) //// 生成RSA签名: signRetOpenSSL.RSA_Free(rsa)var signRet_str as String = ""if isRsaSignOK then signRet_str = EncodeHex(signRet) //// debugInfo ////MessageBox "RSA Sinature return: " + crlf + signRet_strelse MessageBox "Generate RSA Signature failure!!!!!!" exit subend ifif signRet_str.Length <> 512 then MessageBox "Encode RSA Signature failure!!!!!!" exit subend if////// debug///taLicenseKeyContent.Text = signRet_str/////==================================================================================================================///// 生成 XML 文件的 signature 标签内容var sign_pass As MemoryBlock = new MemoryBlock(64)sign_pass.LittleEndian = False//MD5var md5Value As MemoryBlock = Crypto.MD5(password)sign_pass.StringValue(0, 16) = md5Value.StringValue(0,16)//Serialsign_pass.StringValue(16, 24) = serial_hexvar signature_password_constant as String = password_retrieval_table //// 含一定的字符串：“CAF", "BAD", "11", "8", "B", "3", "7", "D", "F", "C"等var signature_verify as String = signRet_strif signature_verify = "" then MessageBox "RSA Signature First!!!!!" exit subend ifvar pass_str as String if chkRandomPwdBase.Value then //var randBytes as MemoryBlock = Crypto.GenerateRandomBytes(256) //var signature_password_random as String = EncodeHex(randBytes.StringValue(0, 256), false) var signature_password_random as String = getRandomString() //// 生成随机的密码检索表 //// debugInfo //// MessageBox "random string: " + signature_password_random pass_str = signature_password_random //// 随机else pass_str = signature_password_constant //// 固定end ifvar sign_verify_str as String = signature_verify var sign_verify_str_hex as String = app.MyDecodeHex(sign_verify_str) // 16 进制的签名if pass_str.Length <> 512 then MessageBox "pass base string length is not 512 bytes!" exit subend ifif sign_verify_str.Length <> 512 then MessageBox "signature verity string length is not 512 bytes!" exit subend//MessageBox "sign_verify_str.length = " + sign_verify_str.Length.ToString//MessageBox "sign_verify_str_hex.length = " + sign_verify_str_hex.Length.ToStringwhile (sign_verify_str_hex.length mod 8) <> 0 sign_verify_str_hex = sign_verify_str_hex + " "wendvar count as Integer = 0var min_val as Integer = 0var sum_val as Integer = 0var position as Integer = 0var start as Integer = 0var pow_val as Double = 0.0var str_tmp1 as string = ""var str_tmp2 as string = ""var str_tmp3 as string = ""/// byte(40)count = CountOfStr(pass_str, "A")sign_pass.Int8Value(40) = count/// byte(41)str_tmp1 = pass_str.Right(1)str_tmp2 = MidStr(pass_str, pass_str.Length-2, 1)position = charAt(pass_str, str_tmp2) // Instr()count = CountOfStr(pass_str, str_tmp1, position)sign_pass.Int8Value(41) = count//messagebox str_tmp1 + ", " + str_tmp2 + "," + position.ToString/// byte(42)count = CountOfStr(pass_str, "CAF")sign_pass.Int8Value(42) = count//messagebox "count of ""CAF"": " + count.ToString/// byte(43)count = CountOfStr(pass_str, "8")sign_pass.Int8Value(43) = count//messagebox "count of ""8"": " + count.ToString/// byte(44)position = charAt(pass_str, "B") // Instr()min_val = Min(position * 8, 255)sign_pass.Int8Value(44) = min_val//messagebox "min of InStr(""B"")*3 between ""255"": " + min_val.ToString/// byte(45)count = CountOfStr(pass_str, "BAD")sign_pass.Int8Value(45) = count//messagebox "count of ""BAD"": " + count.ToString//// byte(46)position = charAt(pass_str, "3") // Instr()count = CountOfStr(pass_str, "7", position)min_val = Min(count, 12)sign_pass.Int8Value(46) = min_val//messagebox "min of InStr(""7"", InStr(""3"")) between ""12"": " + min_val.ToString/// byte(47)sign_pass.Int8Value(47) = 9 /// '\t'/// byte(48)sign_pass.Int8Value(48) = password.Length // 用户密码长度/// byte(49)str_tmp1 = MidStr(pass_str, 21, 1)str_tmp2 = MidStr(pass_str, 203, 1)str_tmp3 = MidStr(pass_str, 48, 1)sum_val = str_tmp1.Asc + str_tmp2.Asc + str_tmp3.Ascsign_pass.Int8Value(49) = sum_val//MessageBox str_tmp1 + ", " + str_tmp2 + ", " + str_tmp3/// byte(50)position = charAt(pass_str, "11") // Instr()if position > 0 then sign_pass.Int8Value(50) = 1else sign_pass.Int8Value(50) = 0 /// 默认就是0，可跳过end if/// byte(51)sign_pass.Int8Value(51) = 42/// byte(52)sign_pass.Int8Value(52) = sign_pass.Int8Value(0) /// byte(52) = MD5Bytes[0]/// byte(53)sign_pass.Int8Value(53) = sign_pass.Int8Value(31) * 7 /// byte(53) = serialBytes[15] * 7/// byte(54)count = CountOfStr(pass_str, "D", 127)sign_pass.Int8Value(54) = count/// byte(55)str_tmp1 = MidStr(pass_str, pass_str.Length-2, 1)str_tmp2 = pass_str.Right(1)position = charAt(pass_str, str_tmp2)count = CountOfStr(pass_str, str_tmp1, position)sign_pass.Int8Value(55) = count//MessageBox str_tmp1 + ", " + str_tmp2 + ", pos = " + position.ToString + ", count = " + count.ToString/// byte(56) ~ byte(63)position = charAt(pass_str, "F")count = CountOfStr(pass_str, "C", 1)pow_val = Pow(position, count)sign_pass.DoubleValue(56) = pow_valvar sign_pass_string as String = sign_pass.StringValue(0, 64)/// enrypted signature_verify_partvar sign_verify_data as MemoryBlock = new MemoryBlock(sign_verify_str_hex.Length)sign_verify_data.StringValue(0, sign_verify_str_hex.Length) = sign_verify_str_hex//// 加密var bf as _Blowfish = new _Blowfish(sign_pass_string)//MessageBox "sign_verify_str_hex.length = " + sign_verify_str_hex.Length.ToStringvar data0 as MemoryBlock = new MemoryBlock(sign_verify_str_hex.Length)data0.StringValue(0, sign_verify_str_hex.Length) = sign_verify_str_hexvar data as MemoryBlock = new MemoryBlock(sign_verify_str_hex.Length)data.StringValue(0, sign_verify_str_hex.Length) = sign_verify_str_hexdata.LittleEndian = Falsebf.Encipher(data) /// 加密//// 256var xml_signature as String = ""var encrypted_signature as Stringif data <> nil then //MessageBox encrypt_verify_data.Size.ToString encrypted_signature = EncodeHex(data.StringValue(0, data.Size), false) xml_signature = pass_str + encrypted_signature //MessageBox "encryped signature: "+ crlf + encrypted_signature //MessageBox "signature ok!!!"else MessageBox "XML Signature is null" exit subend if////// debug////taLicenseKeyContent.Text = xml_signature/////==================================================================================================================///// 生成 XML 文件内容if encrypted_signature = "" then MessageBox "XML Signature is empty." exit subend ifif encrypted_signature.Length <> 512 then MessageBox "Ecrypted Signature String Length not equal 512" exit subend if//if pass_str.Length <> 512 then//MessageBox "Password Base String Length not equal 512"//exit sub//end if//// XML 文件var xml_str as String = "<?xml version=""1.0"" encoding=""UTF-8""?>" + EndOfLine.Unix + "<key>" + EndOfLine.Unix + "</key>"var xml as XmlDocument = new XmlDocument()xml.PreserveWhitespace = truexml.LoadXml(xml_str)var xml_element as XmlElement = xml.DocumentElementvar n as Integer = xml_element.ChildCountvar serialNode as XmlTextNode = xml.CreateTextNode(serial_xml)xml_element.AppendChild(xml.CreateElement("serial")).AppendChild(serialNode)var addressNode as XmlTextNode = xml.CreateTextNode(address)xml_element.AppendChild(xml.CreateElement("address")).AppendChild(addressNode)var emailNode as XmlTextNode = xml.CreateTextNode(email) //// passwordxml_element.AppendChild(xml.CreateElement("email")).AppendChild(emailNode)var signatureNode as XmlTextNode = xml.CreateTextNode(xml_signature)xml_element.AppendChild(xml.CreateElement("signature")).AppendChild(signatureNode)////// debug///taLicenseKeyContent.Text = xml.ToString/////==================================================================================================================///// 生成 最终加密的 XML 文件内容// 加密var sData as String = xml.ToString.ReplaceLineEndings(EndOfLine.Unix)while ((sData.Length mod 8) <> 0) sData = sData + " "wendvar mbData as MemoryBlock = new MemoryBlock(sData.Length)mbData.LittleEndian = FalsembData.StringValue(0, sData.Length) = sData// BlowFishEncrypt(publicKey As String, data As MemoryBlock, blockMode As Crypto = Crypto, initializationVector As MemoryBlock) As MemoryBlockvar encryptData as MemoryBlock = Crypto.BlowFishEncrypt(xml_cryptoKey, mbData, Crypto.blockModes.ECB, Nil)var encryptedXML as string = EncodeHex(encryptData.StringValue(0, encryptData.Size-8), False) ///// 需要去除 XML 加密后多出来的8个padding字符，否则XMLDocument会出错////// show license keytaLicenseKeyContent.Text = encryptedXML////MessageBox "Generate License Key Success!!!!!"
主界面如下：
small_133.jpg
下面附上激活服务器和注册机的工程源码：
激活服务器：
https_server.zip2022-8-15 10:10 上传点击文件名下载附件下载积分: 吾爱币 -1 CB
注册机源码：
xojo_license.zip2022-8-15 10:10 上传点击文件名下载附件下载积分: 吾爱币 -1 CB
----- game over -----