首页
论坛
课程
招聘
[原创]不要高兴得太早,某共享软件破解心得
2006-2-10 14:45 10021

[原创]不要高兴得太早,某共享软件破解心得

2006-2-10 14:45
10021
[软件名称]超级函数表达式运算器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、在注册码和文件中写入第一次安装日期、最后一次运行日期的办法值得学习一下,但是乱丢垃圾就不好了,呵呵!

[版权声明]: 本文纯属技术交流, 转载请注明作者并保持文章的完整, 谢谢!

看雪招聘平台创建简历并且简历完整度达到90%及以上可获得500看雪币~

收藏
点赞0
打赏
分享
最新回复 (16)
雪    币: 200
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
yygx 活跃值 2006-2-10 16:03
2
0
学习,谢谢分享
雪    币: 484
活跃值: 活跃值 (18)
能力值: ( LV9,RANK:1060 )
在线值:
发帖
回帖
粉丝
wenglingok 活跃值 26 2006-2-10 17:20
3
0
Support

现在越来越多的程序把注册码的验证分散了
雪    币: 262
活跃值: 活跃值 (16)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
yunfeng 活跃值 1 2006-2-10 18:54
4
0
写得很详细,学习了
雪    币: 200
活跃值: 活跃值 (17)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
xsy3660 活跃值 4 2006-2-10 19:52
5
0
当初要,分析过低版本的。没想到到2。0时算法有蛮大的改变了。
雪    币: 214
活跃值: 活跃值 (326)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
xingbing 活跃值 2006-2-10 20:37
6
0
写得真详细
雪    币: 261
活跃值: 活跃值 (114)
能力值: ( LV9,RANK:330 )
在线值:
发帖
回帖
粉丝
laoqian 活跃值 8 2006-2-10 21:50
7
0
近来少见难得一篇好文!
雪    币: 326
活跃值: 活跃值 (15)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
快雪时晴 活跃值 4 2006-2-10 23:29
8
0
真详细,佩服。
若干天磨一剑,破解的真实写照。
高手1~2小时搞定某程序比较打击菜鸟们。
雪    币: 211
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
lei_z_r 活跃值 2006-2-11 01:14
9
0
呵,不错,有耐心
雪    币: 203
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
yujinjianx 活跃值 2006-2-11 11:46
10
0
不错
雪    币: 200
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
ssfighter 活跃值 2006-2-11 15:28
11
0
不错,谢谢分享
雪    币: 200
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
fugue 活跃值 2006-2-12 00:26
12
0
破解需要耐心
雪    币: 201
活跃值: 活跃值 (10)
能力值: ( LV9,RANK:210 )
在线值:
发帖
回帖
粉丝
windayjian 活跃值 5 2006-2-12 17:32
13
0
VB的程序能破解至此,已属精文了
雪    币: 216
活跃值: 活跃值 (20)
能力值: ( LV9,RANK:1410 )
在线值:
发帖
回帖
粉丝
qduwg 活跃值 35 2006-2-12 18:05
14
0
我也支持一下!努力学习!
雪    币: 202
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
jdzlifei 活跃值 2006-2-12 18:09
15
0
studying
雪    币: 200
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
紫天 活跃值 2006-2-13 09:28
16
0
不错,我是超级小菜,刚来混
雪    币: 200
活跃值: 活跃值 (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
hljybj 活跃值 2006-2-13 15:18
17
0
不错,学习学习!看来smartcheck挺有帮助的.
游客
登录 | 注册 方可回帖
返回