[原创]Serialcracker's的算法分析（VB）-CTF对抗-看雪-安全社区|安全招聘|kanxue.com

[原创]Serialcracker's的算法分析（VB）

发表于: 2006-9-25 13:59 5703

[原创]Serialcracker's的算法分析（VB）

bxm

2006-9-25 13:59

5703

【文章标题】: Serialcracker's的算法分析（VB）
【文章作者】: bxm
【作者邮箱】: bxm78@163.com
【加壳方式】: 无壳
【编写语言】: VB
【使用工具】: OD、计算器
【操作平台】: winxp
【作者声明】: 只是感兴趣，没有其他目的。失误之处敬请诸位大侠赐教!
--------------------------------------------------------------------------------
【详细过程】
  通过字符串参考下断：
  0040AF00 66:3B9D 0CFFFFF>cmp    bx, [ebp-F4]                ; 循环次数为name长度,比较是否循环完毕
  0040AF07 0F8F 8D000000 jg    0040AF9A                      ; 是，跳
  0040AF0D 8D45 DC       lea    eax, [ebp-24]
  0040AF10 8D4D 90       lea    ecx, [ebp-70]
  0040AF13 0FBFD3       movsx edx, bx
  0040AF16 8985 58FFFFFF mov    [ebp-A8], eax
  0040AF1C 51             push ecx
  0040AF1D 8D85 50FFFFFF lea    eax, [ebp-B0]
  0040AF23 52             push edx
  0040AF24 8D4D 80       lea    ecx, [ebp-80]
  0040AF27 50             push eax
  0040AF28 51             push ecx
  0040AF29 C745 98 0100000>mov    dword ptr [ebp-68], 1
  0040AF30 C745 90 0200000>mov    dword ptr [ebp-70], 2
  0040AF37 C785 50FFFFFF 0>mov    dword ptr [ebp-B0], 4008
  0040AF41 FF15 40104000 call [<&MSVBVM60.#632>]          ; 依次取name的每个字符
  0040AF47 8D55 80       lea    edx, [ebp-80]
  0040AF4A 8D45 CC       lea    eax, [ebp-34]
  0040AF4D 52             push edx
  0040AF4E 50             push eax
  0040AF4F FF15 74104000 call [<&MSVBVM60.__vbaStrVarVal>] ; MSVBVM60.__vbaStrVarVal
  0040AF55 50             push eax
  0040AF56 FF15 18104000 call [<&MSVBVM60.#516>]          ; 每个字符的ASCII码入EAX
  0040AF5C 0FBFC8       movsx ecx, ax                      ; AX入ECX
  0040AF5F 03CE          add    ecx, esi                      ; ECX+ESI
  0040AF61 0F80 4B030000 jo    0040B2B2                      ; 溢出，跳
  0040AF67 8BF1          mov    esi, ecx                      ; ECX入ESI,ESI作为累加器
  0040AF69 8D4D CC       lea    ecx, [ebp-34]
  0040AF6C FF15 B0104000 call [<&MSVBVM60.__vbaFreeStr>]    ; MSVBVM60.__vbaFreeStr
  0040AF72 8D55 80       lea    edx, [ebp-80]
  0040AF75 8D45 90       lea    eax, [ebp-70]
  0040AF78 52             push edx
  0040AF79 50             push eax
  0040AF7A 6A 02          push 2
  0040AF7C FF15 10104000 call [<&MSVBVM60.__vbaFreeVarList>] ; MSVBVM60.__vbaFreeVarList
  0040AF82 B8 01000000    mov    eax, 1
  0040AF87 83C4 0C       add    esp, 0C
  0040AF8A 66:03C3       add    ax, bx
  0040AF8D 0F80 1F030000 jo    0040B2B2
  0040AF93 8BD8          mov    ebx, eax
  0040AF95  ^ E9 66FFFFFF    jmp    0040AF00
  ============================================
  以上程序功能：对name的每个字符累加，ESI作为累加寄存器，设累加结果为A。

  0040AF9A 8BC6          mov    eax, esi                      ; name累加和入EAX
  0040AF9C 6BC0 02       imul eax, eax, 2                   ; EAX*2
  0040AF9F 0F80 0D030000 jo    0040B2B2
  0040AFA5 8945 D4       mov    [ebp-2C], eax                ; EAX存入[ebp-2C]
  0040AFA8 8BC6          mov    eax, esi                      ; name累加和入EAX
  0040AFAA 6BC0 03       imul eax, eax, 3                   ; EAX*3
  0040AFAD 0F80 FF020000 jo    0040B2B2
  0040AFB3 8945 E8       mov    [ebp-18], eax                ; EAX存入[ebp-18]
  0040AFB6 8BC6          mov    eax, esi                      ; name累加和入EAX
  0040AFB8 6BC0 04       imul eax, eax, 4                   ; EAX*3
  0040AFBB 0F80 F1020000 jo    0040B2B2
  0040AFC1 6BF6 05       imul esi, esi, 5                   ; ESI*5
  0040AFC4 0F80 E8020000 jo    0040B2B2
  0040AFCA 8945 E4       mov    [ebp-1C], eax                ; EAX存入[ebp-1C]
  0040AFCD 8975 E0       mov    [ebp-20], esi                ; EAX存入[ebp-20]

  省略一些代码……
  0040B018 FF15 08104000 call [<&MSVBVM60.__vbaStrI4>]    ; 把name累加和*2转换成十进制字符串，我的“876”
  0040B01E 8BD0          mov    edx, eax
  0040B020 8D4D CC       lea    ecx, [ebp-34]
  0040B023 FFD7          call edi
  0040B025 8B35 20104000 mov    esi, [<&MSVBVM60.__vbaStrCat>] ; MSVBVM60.__vbaStrCat
  0040B02B 50             push eax
  0040B02C 68 ECA54000    push 0040A5EC
  0040B031 FFD6          call esi                         ; 与字符"-"连接
  0040B033 8BD0          mov    edx, eax
  0040B035 8D4D C8       lea    ecx, [ebp-38]
  0040B038 FFD7          call edi
  0040B03A 8B4D E8       mov    ecx, [ebp-18]
  0040B03D 50             push eax
  0040B03E 51             push ecx
  0040B03F FF15 08104000 call [<&MSVBVM60.__vbaStrI4>]    ; 把name累加和*3转换成十进制字符串，我的“1314”
  0040B045 8BD0          mov    edx, eax
  0040B047 8D4D C4       lea    ecx, [ebp-3C]
  0040B04A FFD7          call edi
  0040B04C 50             push eax
  0040B04D FFD6          call esi                         ; 与上一连接结果连接
  0040B04F 8BD0          mov    edx, eax
  0040B051 8D4D C0       lea    ecx, [ebp-40]
  0040B054 FFD7          call edi
  0040B056 50             push eax
  0040B057 68 ECA54000    push 0040A5EC
  0040B05C FFD6          call esi                         ; 与字符"-"连接
  0040B05E 8BD0          mov    edx, eax
  0040B060 8D4D BC       lea    ecx, [ebp-44]
  0040B063 FFD7          call edi
  0040B065 8B55 E4       mov    edx, [ebp-1C]
  0040B068 50             push eax
  0040B069 52             push edx
  0040B06A FF15 08104000 call [<&MSVBVM60.__vbaStrI4>]    ; 把name累加和*4转换成十进制字符串，我的“1752”
  0040B070 8BD0          mov    edx, eax
  0040B072 8D4D B8       lea    ecx, [ebp-48]
  0040B075 FFD7          call edi
  0040B077 50             push eax
  0040B078 FFD6          call esi                         ; 与上一连接结果连接
  0040B07A 8BD0          mov    edx, eax
  0040B07C 8D4D B4       lea    ecx, [ebp-4C]
  0040B07F FFD7          call edi
  0040B081 50             push eax
  0040B082 68 ECA54000    push 0040A5EC
  0040B087 FFD6          call esi                         ; 与字符"-"连接
  0040B089 8BD0          mov    edx, eax
  0040B08B 8D4D B0       lea    ecx, [ebp-50]
  0040B08E FFD7          call edi
  0040B090 50             push eax
  0040B091 8B45 E0       mov    eax, [ebp-20]
  0040B094 50             push eax
  0040B095 FF15 08104000 call [<&MSVBVM60.__vbaStrI4>]    ; 把name累加和*5转换成十进制字符串，我的“2190”
  0040B09B 8BD0          mov    edx, eax
  0040B09D 8D4D AC       lea    ecx, [ebp-54]
  0040B0A0 FFD7          call edi
  0040B0A2 50             push eax
  0040B0A3 FFD6          call esi                         ; 与上一连接结果连接
  0040B0A5 8BD0          mov    edx, eax
  0040B0A7 8D4D A4       lea    ecx, [ebp-5C]
  0040B0AA FFD7          call edi
  0040B0AC 50             push eax
  0040B0AD FF15 4C104000 call [<&MSVBVM60.__vbaStrCmp>]    ; 真假码比较
  0040B0B3 8BF0          mov    esi, eax
  0040B0B5 8D4D A4       lea    ecx, [ebp-5C]
  0040B0B8 F7DE          neg    esi
  0040B0BA 8D55 A8       lea    edx, [ebp-58]
  0040B0BD 51             push ecx
  0040B0BE 1BF6          sbb    esi, esi
  0040B0C0 8D45 AC       lea    eax, [ebp-54]
  0040B0C3 52             push edx
  0040B0C4 8D4D B0       lea    ecx, [ebp-50]
  0040B0C7 46             inc    esi
  0040B0C8 50             push eax
  0040B0C9 8D55 B4       lea    edx, [ebp-4C]
  0040B0CC 51             push ecx
  0040B0CD F7DE          neg    esi
  0040B0CF 52             push edx
  0040B0D0 8D45 B8       lea    eax, [ebp-48]
  0040B0D3 8D4D BC       lea    ecx, [ebp-44]
  0040B0D6 50             push eax
  0040B0D7 8D55 C0       lea    edx, [ebp-40]
  0040B0DA 51             push ecx
  0040B0DB 8D45 C4       lea    eax, [ebp-3C]
  0040B0DE 52             push edx
  0040B0DF 8D4D C8       lea    ecx, [ebp-38]
  0040B0E2 50             push eax
  0040B0E3 8D55 CC       lea    edx, [ebp-34]
  0040B0E6 51             push ecx
  0040B0E7 52             push edx
  0040B0E8 6A 0B          push 0B
  0040B0EA FF15 88104000 call [<&MSVBVM60.__vbaFreeStrList>] ; MSVBVM60.__vbaFreeStrList
  0040B0F0 83C4 30       add    esp, 30
  0040B0F3 8D4D A0       lea    ecx, [ebp-60]
  0040B0F6 FF15 B4104000 call [<&MSVBVM60.__vbaFreeObj>]    ; MSVBVM60.__vbaFreeObj
  0040B0FC B8 04000280    mov    eax, 80020004
  0040B101 B9 0A000000    mov    ecx, 0A
  0040B106 66:3BF3       cmp    si, bx
  0040B109 8985 68FFFFFF mov    [ebp-98], eax
  0040B10F 898D 60FFFFFF mov    [ebp-A0], ecx
  0040B115 8985 78FFFFFF mov    [ebp-88], eax
  0040B11B 898D 70FFFFFF mov    [ebp-90], ecx
  0040B121 74 7A          je    short 0040B19D                ; 不等,完蛋
  0040B123 8B35 98104000 mov    esi, [<&MSVBVM60.__vbaVarDup>] ; MSVBVM60.__vbaVarDup
  0040B129 BF 08000000    mov    edi, 8
  0040B12E 8D95 40FFFFFF lea    edx, [ebp-C0]
  0040B134 8D4D 80       lea    ecx, [ebp-80]
  0040B137 C785 48FFFFFF 4>mov    dword ptr [ebp-B8], 0040A644 ; UNICODE "Good!"
  0040B141 89BD 40FFFFFF mov    [ebp-C0], edi
  0040B147 FFD6          call esi
  0040B149 8D95 50FFFFFF lea    edx, [ebp-B0]
  0040B14F 8D4D 90       lea    ecx, [ebp-70]
  0040B152 C785 58FFFFFF F>mov    dword ptr [ebp-A8], 0040A5F4 ; UNICODE "You are the best! Now code a KeyGen!"

  算法小结：
  1、把name的每个字符进行累加，结果记为A。
  2、A分别*2、*3、*4、*5，并把运算结果转换成十进制字符串，并在每两个字符串中间加入字符"-"即为注册码。

  可用的一组注册码：
  name:bxm78
  serial:876-1314-1752-2190

  附注册机源码：
  #include<iostream.h>
  #include<string.h>
  void main()
  {
    char name[20];
    int  i;
    long sum=0;
    cout<<"Please input your name:";
    cin>>name;
    cout<<endl;
    for(i=0;i<strlen(name);i++)
    sum+=name[i];
    cout<<"Serial is "<<sum*2<<"-"<<sum*3<<"-"<<sum*4<<"-"<<sum*5<<endl;
  }

--------------------------------------------------------------------------------
【版权声明】: 本文原创于看雪技术论坛, 转载请注明作者并保持文章的完整, 谢谢!

                                                   2006年09月25日下午 01:51:29

登录后可查看完整内容

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)

上传的附件：

keygenme #1 by serialcracker.rar （18.53kb，13次下载）

收藏・0

免费・7

支持

最新回复 (4)
KAN 雪币： 263 活跃值： (10) 能力值： ( LV9，RANK：250 ) 在线值：发帖 11 回帖 589 粉丝 0 关注私信	KAN 6 2 楼不错，顶一下，希望去看看今天的这个 Crackme，有难道 http://bbs.pediy.com/showthread.php?s=&threadid=32393 2006-9-25 15:28 0
bfqyygy 雪币： 338 活跃值： (10) 能力值： ( LV4，RANK：50 ) 在线值：发帖 1 回帖 523 粉丝 0 关注私信	bfqyygy 1 3 楼不错.学习!! 2006-9-25 21:26 0
bxm 雪币： 461 活跃值： (93) 能力值： ( LV9，RANK：1170 ) 在线值：发帖 41 回帖 306 粉丝 1 关注私信	bxm 29 4 楼最初由 KAN* 发布* 不错，顶一下，希望去看看今天的这个 Crackme，有难道 http://bbs.pediy.com/showthread.php?s=&threadid=32393 这个好像是用MD5加密的,MD5我不会啊 2006-9-26 16:55 0
zcg 雪币： 200 能力值： (RANK：10 ) 在线值：发帖 1 回帖 146 粉丝 0 关注私信	zcg 5 楼 VB的反汇编看着不怎么舒服！ 2006-9-30 17:13 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

bxm

发帖

306

回帖

1170

RANK

关注

私信

他的文章

关于我们

联系我们

企业服务

看雪公众号

最新回复 (4)
KAN 雪币： 263 活跃值： (10) 能力值： ( LV9，RANK：250 ) 在线值：发帖 11 回帖 589 粉丝 0 关注私信	KAN 6 2 楼不错，顶一下，希望去看看今天的这个 Crackme，有难道 http://bbs.pediy.com/showthread.php?s=&threadid=32393 2006-9-25 15:28 0
bfqyygy 雪币： 338 活跃值： (10) 能力值： ( LV4，RANK：50 ) 在线值：发帖 1 回帖 523 粉丝 0 关注私信	bfqyygy 1 3 楼不错.学习!! 2006-9-25 21:26 0
bxm 雪币： 461 活跃值： (93) 能力值： ( LV9，RANK：1170 ) 在线值：发帖 41 回帖 306 粉丝 1 关注私信	bxm 29 4 楼最初由 KAN* 发布* 不错，顶一下，希望去看看今天的这个 Crackme，有难道 http://bbs.pediy.com/showthread.php?s=&threadid=32393 这个好像是用MD5加密的,MD5我不会啊 2006-9-26 16:55 0
zcg 雪币： 200 能力值： (RANK：10 ) 在线值：发帖 1 回帖 146 粉丝 0 关注私信	zcg 5 楼 VB的反汇编看着不怎么舒服！ 2006-9-30 17:13 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复