[软件名称]超级函数表达式运算器v20 算法分析
[软件介绍]
超级函数表达式运算器既是方便实用的数字计算器，又是一个会列表达式就会运算的超级新颖的多功能公式化运算器。
它包括算术计算、进制转换、逻辑处理、数值处理、字符处理、三角函数及推导函数处理等模块，可综合性的计算各种多层
嵌套、复杂的函数表达式。你只要象在纸上列表达式一样列出符合要求的运算式，就立即可以看到运算结果，而且运算结果
随着表达式的不断变化而不断变换显示。表达式修改方便，可复制粘贴，可用键盘快速输入。2.0版界面更加美观、提示更加
科学、操作更加简单、更加方便实用。2,0版新增独特的批量运算功能，可一次运算多个表达式的值并可以计算各单项运算之
和。可广泛应用于办公、学习及需要使用计算器进行复杂计算的各个领域。超级函数表达式运算器是进行数字计算、公式运算
、函数应用、vb编程的好帮手。
[使用限制] 试用30天，无功能限制
[保护方式] 采用机器码检查注册码，以保证注册码不得多机使用。并在程序退出时检验注册码，使破解增加了难度。
[破解工具] SmartCheck6.20、 olldbg1.1 、Peid0.93、QuickUnpack、Regmon7.02
[破解目的] 研究算法分析, 了解VB的数据类型，掌握点儿知识
[破解作者] CCRLEI ccrlei@yahoo.com.cn
[作者声明] 初学Crack，只是感兴趣，没有其他目的。
本破解纯以学习和交流为目的，偶得一点心得，大家分享。如有错误，蒙请大侠们指正。转载时请保持完整。
之所以起这个题目，是因为表面上程序已经提示你注册成功了，但程序在退出时还要校验注册码是否含作者指定的内容，
如果没有的话，就会自动删除该程序，够狠的。好了，废话少说，入正题吧！
[破解过程]
1、查壳
PEiDv0.93
PECompact 2.x -> Jeremy Collake
2、脱壳
QuickUnpack
3、编程语言
PEiDv0.93
Microsoft Visual Basic 5.0 / 6.0
4、破解调试
1）运行程序，提示共享软件还可用多少天，欢迎注册使用等提示。进入注册选项发现：机器码22222222222854720884_754026158，
要求输入注册码。
2）由于作者使用VB开发，所以先用SmartCheck看看作者的关于注册的大概思路。
软件启动后（主要部分）
（1）读取注册表 "SOFTWARE\softjas\data\Nam"下键值
RegCreateKeyA(HKEY:80000002, char *:00140934, PTR:0012FD44) returns LONG:0
键值内容转换后和机器码比较（通过读硬盘型号、硬盘物理系列号生成机器码，由机器码变成注册码的一部分
（另一部分在退出程序时使用）） 如不符则
（2）读键值
HKEY_CURRENT_USER\Software\Microsoft\htoolse\Data\w1、w2、w3这一部分在后面介绍，它的目的是算还共享多少天。
（3） 顺便说一下程序如何得到机器码：a、通过读硬盘型号"85TC2088T"、硬盘物理系列号"TOSHIBA MK4026GAX"
b、"TOSHIBA MK4026GAX"取空格后的MK4026GAX，第一个字符“M”Ascii值77，取后面的7，第二个字符“K”75－》5，数字的不变
“4”－》4，“0”－》0，“6”－》6，“G”71－》1，“A”65－》5，“X”88－》8－－－－－－－－－》754026158
c、"85TC2088T"换成" 85TC2088T"（11个空格共二十位），第一个“ ”（空格）Ascii值32取后面“2”，依次共11个“2”
即“22222222222” 数字不变“85”，“T”84－“4”。。。。。。。。。同上，所以本机机器码“22222222222854720884_754026158”
以上是通过SmartCheck分析得(机器码部分没有经OD核实，哪位大侠如经汇编核实，请告诉我我的转换分析是否正确，尤其是11个空格那儿)，
但输入的试炼码如何转换并不清楚，虽说通过SmartCheck完全可以试出注册码，但我们的目的应该是注册机，呵呵，所以OD上。
3）用OD调试：（只作简单说明）
由于作者采用“Instr”比较真假注册码，所以用__vbainstr下断
OD Alt+E Ctrl+N __vbainstr 下断
运行，输入试练码876543210
断在7628BD94 > 55 PUSH EBP
Ctrl+F9， F8回到主程序 ，上下看看，左右找找，在这里
。。。。。。
00441460 . |50 PUSH EAX
00441461 . |FF15 B0734400 CALL DWORD PTR DS:[<&msvbvm50.__vbaStrVarVal>] ; msvbvm50.__vbaStrVarVal
00441467 . |50 PUSH EAX
00441468 . |FFD7 CALL EDI ; 注册码的第一个字符8的值“38” (16进制）放入到AX中
0044146A . |68 FC994000 PUSH 超级函数.004099FC
0044146F . |66:8BD8 MOV BX,AX ; BX=AX=0038
00441472 . |FFD7 CALL EDI ;msvbvm50.rtcAnsiValueBstr Ascii转换 “A”－> 41 (16进制） 放到AX中
00441474 . |66:2BD8 SUB BX,AX ; BX=38－41＝FFF9 及十进制－9
00441477 . |8D95 38FFFFFF LEA EDX,DWORD PTR SS:[EBP-C8] ；
0044147D . |0F80 B3010000 JO 超级函数.00441636
00441483 . |8D4D 9C LEA ECX,DWORD PTR SS:[EBP-64]
00441486 . |66:899D 40FFF>MOV WORD PTR SS:[EBP-C0],BX
。。。。。
004414B2 . |FF15 B0734400 CALL DWORD PTR DS:[<&msvbvm50.__vbaStrVarVal>] ; 换成10进制的字符“－9”，放入Eax
004414B8 . |50 PUSH EAX ；Eax＝“－9”入栈
004414B9 . |FF15 80744400 CALL DWORD PTR DS:[<&msvbvm50.rtcR8ValFromBstr>] ; msvbvm50.rtcR8ValFromBstr
004414BF . |DC25 48204000 FSUB QWORD PTR DS:[402048] ；浮点减st=－9.000000000000000000 ds:[00402048]=-0.50000000
；St0=－8.500000000
004414C5 . |833D 00304400>CMP DWORD PTR DS:[443000],0
004414CC . |75 08 JNZ SHORT 超级函数.004414D6
004414CE . |DC35 50204000 FDIV QWORD PTR DS:[402050] ；浮点除st=-8.500000000000000000 ds:[00402050]=2.500000000
; St0＝－3.400000
004414D4 . |EB 11 JMP SHORT 超级函数.004414E7
004414D6 > |FF35 54204000 PUSH DWORD PTR DS:[402054]
004414DC . |FF35 50204000 PUSH DWORD PTR DS:[402050]
004414E2 . |E8 DD0BFCFF CALL <JMP.&msvbvm50._adj_fdiv_m64>
004414E7 > |DFE0 FSTSW AX
004414E9 . |A8 0D TEST AL,0D
004414EB . |0F85 40010000 JNZ 超级函数.00441631
004414F1 . |FF15 68744400 CALL DWORD PTR DS:[<&msvbvm50.__vbaFPInt>] ; msvbvm50.__vbaFPInt 取整 St0=－4.00000
004414F7 . |DD9D 40FFFFFF FSTP QWORD PTR SS:[EBP-C0] ;St0=－4.00000
.........
0044152C . FF15 B8734400 call [<&msvbvm50.__vbaVarCat>] ; msvbvm50.__vbaVarCat 字符串连接
。。。。
00441534 . |8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94] ;ecx="－4"
0044153A . |FFD6 CALL ESI
0044153C . |8D85 D8FEFFFF LEA EAX,DWORD PTR SS:[EBP-128]
00441542 . |8D8D E8FEFFFF LEA ECX,DWORD PTR SS:[EBP-118]
00441548 . |50 PUSH EAX
00441549 . |8D55 DC LEA EDX,DWORD PTR SS:[EBP-24]
0044154C . |51 PUSH ECX
0044154D . |52 PUSH EDX
0044154E . |FF15 70744400 CALL DWORD PTR DS:[<&msvbvm50.__vbaVarForNext>] ; msvbvm50.__vbaVarForNext
注册码下一个字符00441554 . |8B1D 18734400 MOV EBX,DWORD PTR DS:[<&msvbvm50.rtcMidCharVar>] ; msvbvm50.rtcMidCharVar
0044155A .^\E9 A2FEFFFF JMP 超级函数.00441401
。。。
0044152C . FF15 B8734400 call [<&msvbvm50.__vbaVarCat>] ; msvbvm50.__vbaVarCat
876543210
注：读取试练码（个数为偶数）的顺序为最后一个、第一个、倒数第二个、第二个。。。。依此类推 ,个数为奇数的顺序为第一个、倒数第
一个、第二个、倒数第二个。。。。依此类推 ，本例为奇数个
计算结果"-4-7-4-7-5-6-5-6-5" 和本机的机器码22222222222854720884_754026158的前一部分即22222222222854720884
用vbainstr比较如结果大于0，Vbainstr比较后一段754026158，通过则注册成功。
另外忘了在哪里机器码的前十位每两位对应一个字符，后面一个对应一个（大侠帮忙）
4）推注册码：
以我的机器为例: 机器码： 22222222222854720884_754026158
x x x x xFUNKSFAUUK SNKAFPDNU
由于校验时是后一个前一个的读注册码（机器码位数为偶数），所以还得给他调换一下，后一个前一个
xxxxxFUNKSFAUUKSNKAFPDNU－》xxFNSAUSKFDUNPANKUFKUxxx (每个机器码字符可对应2～3个注册码字符，因为上面有个除以2.5)
好了注册码出来了，试试，运行程序－》注册－》填入注册码 嘿嘿嘿嘿，通过了，提示我“恭喜您，注册成功！”
5）话说几天后，又拿出这个软件用用，算算术什么的，还行，挺好用，关闭退出，咦，怎么桌面上的快捷方式图标变了，在点击，说找不
到可执行文件了，由于是春节放假期间，我以为我的笔记本中了病毒，因为杀毒软件好几天没升级了，也没理他，再把原来备份的一个
文件恢复出来接着用，运行了几次又没了，这下子怪了，升级杀毒软件，杀毒，没问题呀，我想我想，我使劲的想，哼哼，应该是程序
本身的问题吧，是不是我的注册码中“x”太多，像是破解出来的，（因为把x改成y也可以注册），或者。。。。不明白，接着使用
SmartCheck，看看程序退出时有什么动作，哈哈
InStr(long:1, String:"xxFNSAUSK...", String:"CJHBYS", Integer:0) returns LONG:0
Arguments
--------------------
Long start = 1 0x00000001
String string1 = 00141EC4
= "xxFNSAUSKFDUNPANKUFKUxxx"
String string2 = 0040952C
= "CJHBYS"
Integer compare = 0 0x0000
还要比较注册码中是否有字符串"CJHBYS"，小样的，往下看看，如果注册码中没有"CJHBYS"，就生成个批处理文件In.bat把程序删掉，
够狠的吧。把它加到注册码里，运行（可先到注册表把 "SOFTWARE\softjas\data\Nam"下值删掉，就可重新注册），重新注册
xxFNSAUSKFDUJBSYHCNPANKUFKUxxx 通过，再用SmartCheck看看退出，还要检验，这回检验是否含有“5309582”。。。。我烦了，我
哪知道那个破数是怎么来的，检测不过去程序又会自动生成一个In.bat文件写上删除这个可执行文件，再删除In.bat。
不想了，睡觉去。。。。。。
6）若干天后
还是得解决“5309582”的来源问题，接着OD吧，原来是And来得，如下：
；以下为退出时检验注册码
。。。。。。
00435623 . FF15 F8734400 call [<&msvbvm50.__vbaStrCopy>] ; msvbvm50.__vbaStrCopy
00435629 > 8B45 E8 mov eax, [ebp-18] ;机器码前八位22222222放入Eax
0043562C . 50 push eax ；推入
0043562D . FF15 80744400 call [<&msvbvm50.rtcR8ValFromBstr>>; msvbvm50.rtcR8ValFromBstr
00435633 . 8B3D 40744400 mov edi, [<&msvbvm50.__vbaFpI4>] ; msvbvm50.__vbaFpI4
00435639 . FFD7 call edi ; <&msvbvm50.__vbaFpI4> 将22222222转为16进制 放入Eax
0043563B . 8B4D E4 mov ecx, [ebp-1C] ;机器码后九位754026158放入Ecx
0043563E . 8BD8 mov ebx, eax ；将前八位转为16进制的数再放入Ebx
00435640 . 51 push ecx ；把754026158推入
00435641 . FF15 80744400 call [<&msvbvm50.rtcR8ValFromBstr>>; msvbvm50.rtcR8ValFromBstr
00435647 . FFD7 call edi ；将后9（或8位）转换为16进制放入Eax
00435649 . 23D8 and ebx, eax ；两个数逻辑与 结果51048E 即10进制的5309582
0043564B . 53 push ebx
0043564C . FF15 70724400 call [<&msvbvm50.__vbaStrI4>] ; msvbvm50.__vbaStrI4 51048E的10进制5309582
00435652 . 8BD0 mov edx, eax
00435654 . 8D4D E0 lea ecx, [ebp-20]
00435657 . FFD6 call esi
00435659 . 8B15 58304400 mov edx, [443058] ；注册码放入Edx
0043565F . 6A 01 push 1
00435661 . 52 push edx ；Edx入栈
00435662 . 33FF xor edi, edi
00435664 . 68 2C954000 push 0040952C ; UNICODE "CJHBYS" 入栈
00435669 . 57 push edi
0043566A . FF15 DC734400 call [<&msvbvm50.__vbaInStr>] ; msvbvm50.__vbaInStr 检验是否有"CJHBYS"
00435670 . 83F8 01 cmp eax, 1 ；"CJHBYS"出现在第几位开始（19）和1比较
00435673 . 7D 12 jge short 00435687 ；大于等于1（及注册码中含"CJHBYS"）则跳如下一步，
生成In.bat见下面
00435675 . 8D45 D0 lea eax, [ebp-30]
00435678 . 50 push eax
00435679 . E8 92F7FFFF call 00434E10
0043567E . 8D4D D0 lea ecx, [ebp-30]
00435681 . FF15 78724400 call [<&msvbvm50.__vbaFreeVar>] ; msvbvm50.__vbaFreeVar
00435687 > 8D4D A0 lea ecx, [ebp-60]
0043568A . 8D55 D0 lea edx, [ebp-30]
0043568D . 51 push ecx
0043568E . 52 push edx
0043568F . C745 A8 58304>mov dword ptr [ebp-58], 00443058
00435696 . C745 A0 08400>mov dword ptr [ebp-60], 4008
0043569D . E8 9EBF0000 call 00441640
004356A2 . 8B45 E0 mov eax, [ebp-20] ；将5309582放入Eax
004356A5 . 8D4D D0 lea ecx, [ebp-30]
004356A8 . 6A 01 push 1
004356AA . 8D55 90 lea edx, [ebp-70]
004356AD . 8945 98 mov [ebp-68], eax
004356B0 . 51 push ecx
004356B1 . 52 push edx
004356B2 . 8D45 C0 lea eax, [ebp-40]
004356B5 . 57 push edi
004356B6 . 50 push eax
004356B7 . C745 90 08000>mov dword ptr [ebp-70], 8
004356BE . C745 88 01000>mov dword ptr [ebp-78], 1
004356C5 . C745 80 02800>mov dword ptr [ebp-80], 8002
004356CC . FF15 AC734400 call [<&msvbvm50.__vbaInStrVar>;msvbvm50.__vbaInStrVar注册码换算后检验是
否含5309582
004356D2 . 8D4D 80 lea ecx, [ebp-80]
。。。。
7）推注册码：
22222222222854720884_754026158和5309582连接
222222222228547208847540261585309582
x x x x xFUNKSFAUUKSNKAFPDNUNIAXNUF
xxxxxFUNKSFAUUKSNKAFPDNUNIAXNUF 共31位为奇数,所以要头一个尾一个的排下序
xxxUKFUKNAPNNANFUXIUDFKSUASNFxx 最后再把要检验的CJHBYS插入
xxxUKFUKNAPNNANFCJHBYSUXIUDFKSUASNFxx
把注册码拷贝到注册表 "SOFTWARE\softjas\data\Nam"下(程序把注册码放在这个地方),SmartCheck运行程序,初始化时
校验注册码通过,退出程序,Unload时校验注册码也通过,这回就不生成In.bat文件了,所以程序也就不被删除了.
8）退出程序时代码分析
；以下为程序退出时生成新文件来删除程序 注: 我把<超级函数表达式运算器v20.ece>改为了<1234.exe>方便调试
（因为调试时的中文文件名有时会显示出乱码，所以改了）
。。。。
0043507A > \8B55 C8 mov edx, [ebp-38] ;文件名放倒Edx 本事例为"1234"
0043507D . 52 push edx ;入堆栈
0043507E . 68 A4944000 push 004094A4 ;
00435083 . FFD7 call edi ;字符串连接后1234.exe放入Eax
00435085 . 8BD0 mov edx, eax ;edx 1234.exe
00435087 . 8D4D CC lea ecx, [ebp-34] ;
。。。。
004350A6 . FF15 F8734400 call [<&msvbvm50.__vbaStrCopy>] ; msvbvm50.__vbaStrCopy
004350AC . 8B45 E4 mov eax, [ebp-1C] ;in.bat放入Eax
004350AF . 50 push eax ；入栈
004350B0 . 6A 01 push 1
004350B2 . 6A FF push -1
004350B4 . 6A 02 push 2
004350B6 . FF15 D0734400 call [<&msvbvm50.__vbaFileOpen>] ; msvbvm50.__vbaFileOpen
打开文件in.bat
004350BC . 8B1D 8C734400 mov ebx, [<&msvbvm50.__vbaPrintFile>>; msvbvm50.__vbaPrintFile
004350C2 . 68 C8944000 push 004094C8
004350C7 . 6A 01 push 1
004350C9 . 68 D8754000 push 004075D8
004350CE . FFD3 call ebx ; <&msvbvm50.__vbaPrintFile>
004350D0 . 8B4D CC mov ecx, [ebp-34]
004350D3 . 83C4 0C add esp, 0C
004350D6 . 68 DC944000 push 004094DC
004350DB . 51 push ecx
004350DC . FFD7 call edi
004350DE . 8BD0 mov edx, eax ;edx=eax="del 1234.exe"
004350E0 . 8D4D C8 lea ecx, [ebp-38] ;
004350E3 . FFD6 call esi ;
004350E5 . 50 push eax
004350E6 . 6A 01 push 1
004350E8 . 68 D8754000 push 004075D8
004350ED . FFD3 call ebx
004350EF . 83C4 0C add esp, 0C
004350F2 . 8D4D C8 lea ecx, [ebp-38]
004350F5 . FF15 78744400 call [<&msvbvm50.__vbaFreeStr>] ; msvbvm50.__vbaFreeStr
004350FB . 8B55 CC mov edx, [ebp-34] ；1234.exe
004350FE . 68 EC944000 push 004094EC ; UNICODE "if exist "
00435103 . 52 push edx ；1234.exe
00435104 . FFD7 call edi ;msvbvm50.__vbaStrCat
00435106 . 8BD0 mov edx, eax ;UNICODE "if exist 1234.exe"
00435108 . 8D4D C8 lea ecx, [ebp-38]
0043510B . FFD6 call esi ;msvbvm50.__vbaStrCat
0043510D . 50 push eax
0043510E . 68 04954000 push 00409504 ; UNICODE " GOTO START"
00435113 . FFD7 call edi ;msvbvm50.__vbaStrCat
00435115 . 8BD0 mov edx, eax ;UNICODE "if exist 1234.exe GOTO START"
00435117 . 8D4D C4 lea ecx, [ebp-3C]
0043511A . FFD6 call esi
0043511C . 50 push eax
0043511D . 6A 01 push 1
0043511F . 68 D8754000 push 004075D8
00435124 . FFD3 call ebx ;msvbvm50.__vbaPrintFile
00435126 . 83C4 0C add esp, 0C
00435129 . 8D45 C4 lea eax, [ebp-3C]
0043512C . 8D4D C8 lea ecx, [ebp-38]
0043512F . 50 push eax
00435130 . 51 push ecx
00435131 . 6A 02 push 2
00435133 . FF15 00744400 call [<&msvbvm50.__vbaFreeStrList>] ; msvbvm50.__vbaFreeStrList
00435139 . 83C4 0C add esp, 0C
0043513C . 68 DC944000 push 004094DC
00435141 . 68 B4944000 push 004094B4
00435146 . FFD7 call edi
00435148 . 8BD0 mov edx, eax ;(UNICODE "del in.bat")
0043514A . 8D4D C8 lea ecx, [ebp-38]
0043514D . FFD6 call esi
0043514F . 50 push eax
00435150 . 6A 01 push 1
00435152 . 68 D8754000 push 004075D8
00435157 . FFD3 call ebx ;msvbvm50.__vbaPrintFile
00435159 . 83C4 0C add esp, 0C
0043515C . 8D4D C8 lea ecx, [ebp-38]
0043515F . FF15 78744400 call [<&msvbvm50.__vbaFreeStr>] ;
00435165 . 6A 01 push 1
00435167 . FF15 20734400 call [<&msvbvm50.__vbaFileClose>] ; msvbvm50.__vbaFileClose
0043516D . 8D55 E4 lea edx, [ebp-1C]
00435170 . 8D45 80 lea eax, [ebp-80]
00435173 . 6A 00 push 0
00435175 . 50 push eax
00435176 . 8955 88 mov [ebp-78], edx
00435179 . C745 80 08400>mov dword ptr [ebp-80], 4008
00435180 . FF15 70734400 call [<&msvbvm50.rtcShell>] ; msvbvm50.rtcShell
shell执行文件In.bat
00435186 . DDD8 fstp st
00435188 . FF15 90724400 call [<&msvbvm50.__vbaEnd>] ; msvbvm50.__vbaEnd 结束
9）In.bat文件内容：（注我调试时把文件名该为了1234.exe）
:START
del 1234.EXE
if exist 1234.EXE GOTO START
del in.bat
这个文件有时删除不了那个可执行文件，尤其是文件名中带括号的，原因不知，可能是全角和半角的事吧。
10）注册机算法：VB做得
'超级函数表达式运算器v20 注册机
'ccrlei
'2006-2-8
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Dim SnWord, SJqm, SJqm1, Sntemp, Sntemp1, Sntemp2, Sntemp3 As String
Dim i, j As Integer
Dim Dsn, SnLen1, JqmLen, JqmLenL, JqmLenR As Integer
Dim Sq, Sh, Stemp As String
SJqm = Text1.Text '机器码变量
JqmLen = Len(SJqm) - 1 '机器码长度
JqmLenL = InStr(1, SJqm, "_", vbBinaryCompare) - 1 '"_"左边字符串长度
JqmLenR = JqmLen - JqmLenL '"_"右边字符串长度
SJqm = Mid(SJqm, 1, JqmLenL) + Mid(SJqm, JqmLenL + 2, JqmLenR) '去掉“_”
Sq = Mid(SJqm, 1, 8) '程序退出时检验注册码要用机器码前八位
Sh = Mid(SJqm, JqmLenL + 1, JqmLenR) '程序退出时检验注册码要用机器码原“_”后字符串
If Len(Sh) > 9 Then '机器码后段位数大于9位时取8位，否则取9位
Sh = Mid(SJqm, JqmLen - 7, 8)
End If
Stemp = CDbl(Sq) And CDbl(Sh) '前八位和后8或9位逻辑与
SJqm1 = SJqm + Stemp '新生成的机器码
i = 0
For i = 1 To Len(SJqm1) - 5 '机器码前10位每2位对应一个注册码
If i <= 5 Then
SnWord = Mid(SJqm1, i * 2 - 1, 2)
Else
SnWord = Mid(SJqm1, 5 + i, 1)
End If
Dsn = Int(Val(SnWord) * 2.5 - 0.5 + 65 + 1) '转换 详见上介绍
Sntemp = Sntemp + Chr(Dsn) '连接
Next i
SnLen1 = Len(Sntemp) '新注册码长度
If SnLen1 / 2 <> Int(SnLen1 / 2) Then '根据注册码位数的奇偶性重新排序
i = 0
For i = 1 To SnLen1
If i / 2 <> Int(i / 2) Then
Sntemp1 = Sntemp1 + Mid(Sntemp, i, 1)
Else
Sntemp2 = Mid(Sntemp, i, 1) + Sntemp2
End If
Next i
Sntemp3 = Sntemp1 + Sntemp2
sntemp4 = Mid(Sntemp3, 1, Int(SnLen1 / 2) + 1) + "CJHBYS" + Mid(Sntemp3, Int(SnLen1 / 2) + 2 _
, SnLen1 - Int(SnLen1 / 2) - 1)
Else
i = 0
For i = 1 To SnLen1
If i / 2 = Int(i / 2) Then
Sntemp1 = Sntemp1 + Mid(Sntemp, i, 1)
Else
Sntemp2 = Mid(Sntemp, i, 1) + Sntemp2
End If
Next i
Sntemp3 = Sntemp1 + Sntemp2
sntemp4 = Mid(Sntemp3, 1, SnLen1 / 2) + "CJHBYS" + Mid(Sntemp3, SnLen1 / 2 + 1, SnLen1 / 2)
'插入检验所需的“CJHBYS”
End If
Text3.Text = sntemp4
End Sub
Private Sub Form_Load()
Text1.Text = "22222222222854720884_754026158" '本机机器码
'Text1.Text = "22222222222257244519_3438081953"
Text3.Text = "" '注册码
End Sub
11）其他
安装完软件，第一次运行后程序会写入：
1、注册表"Software\Microsoft\htoolse\Data"
\w1 24EC652 由 hex(安装日期*999-234)得来
\w2 20D2118 hex( 最后一次运行日期 * 888-456)
\w3 20D2118 hex((最后一次运行日期*999 ) Xor (最后一次运行日期*888 ))
写文件： "C:\WINNT\system32\config\cdelisub.hld"
"24EC652","20D2118","4449756" 各项内容同上
并且这些内容卸载不掉，这样的话再重新安装该软件，共享期不会因此而改为30天，而是该日期从你第一次运行该软
件算起。
12）破解心得
a、善用多种工具进行分析，诸如Regmon、filemonnet、SmartCheck，本次破解以SmartCheck分析为主，其他为辅；
b、该软件作者在加密方面的却下了一番功夫，很多人都会被注册时“恭喜您，注册成功！”所迷惑，以为已成功破解，
其实不然，软件在退出程序时再校验一次注册码，并且以删除文件来阻止他人用破解的注册码注册，还好，作者还
是比较有善心的，只删除自己的文件，如果他要是删除些系统文件什么的，我的机器还不得重装几回呀，表扬表扬
作者。
c、在注册码和文件中写入第一次安装日期、最后一次运行日期的办法值得学习一下，但是乱丢垃圾就不好了，呵呵！
［版权声明］: 本文纯属技术交流, 转载请注明作者并保持文章的完整, 谢谢!