软件下载：不知道
软件大小：不知道
软件名称：不方便说
好象教育上的朋友用得上的多。
==================================================================
下面涉及到S1，S2，S3的，无非是固定字符串，机器码，固定字符串。
能看明白的就算是高高高人了，看不明白的很正常。
没加很多注释，千万别BS，有意见请保留，或者背后骂我就行。
=================================================================
004F0234 . FF52 04 call [edx+4] ; Kexpress.005D77B2
004F0237 > 68 14EF6100 push 0061EF14 ; 123451234512345decode 编码
004F023C . 8D4C24 18 lea ecx, [esp+18]
004F0240 . E8 FB39F1FF call 00403C40
004F0245 . A1 B4B36A00 mov eax, [6AB3B4]
004F024A . C68424 B40000>mov byte ptr [esp+B4], 6
004F0252 . 8D50 01 lea edx, [eax+1] ; (ASCII "5BKN9A4QSCF3W1YM7D8H6U2")
004F0255 > 8A08 mov cl, [eax] ; 倒序取机器码HEX
004F0257 . 40 inc eax
004F0258 . 3ACB cmp cl, bl
004F025A .^ 75 F9 jnz short 004F0255
004F025C . 2BC2 sub eax, edx ; ASCII "5BKN9A4QSCF3W1YM7D8H6U2" 处理在其前+字符X
004F025E . 894424 2C mov [esp+2C], eax ; EAX=18
004F0262 . 8B4424 10 mov eax, [esp+10] ; 机器码(ASCII "QKDAHSXS7XXX")
004F0266 . 8D5424 34 lea edx, [esp+34]
004F026A . 2BD0 sub edx, eax
004F026C . 8D6424 00 lea esp, [esp]
004F0270 > 8A08 mov cl, [eax] ; 机器码每位HEX
004F0272 . 880C02 mov [edx+eax], cl
004F0275 . 40 inc eax
004F0276 . 3ACB cmp cl, bl
004F0278 .^ 75 F6 jnz short 004F0270
[separator]
004F027A . 8DAF 980D0000 lea ebp, [edi+D98]
004F0280 . 8D5424 34 lea edx, [esp+34] ; 堆栈地址=0012E0C4, (ASCII "QKDAHSXS7XXX")
004F0284 . 33C9 xor ecx, ecx
004F0286 . 885C24 40 mov [esp+40], bl
004F028A . 2BD5 sub edx, ebp
004F028C . 8D6424 00 lea esp, [esp]
004F0290 > 8AC1 mov al, cl ; CL=0记数器
004F0292 . 04 70 add al, 70
004F0294 . 8AD9 mov bl, cl
004F0296 . 80C3 64 add bl, 64
004F0299 . F6EB imul bl ; 70*64=2BC0 EAX=00E62BC0
004F029B . 8AD9 mov bl, cl
004F029D . 80C3 14 add bl, 14
004F02A0 . F6EB imul bl ; 2BC0*14=FB00 EAX=00E6FB00
004F02A2 . 8D3429 lea esi, [ecx+ebp]
004F02A5 . 8A1C32 mov bl, [edx+esi] ; 取机器码HEX
004F02A8 . 80F3 3E xor bl, 3E
004F02AB . 80C3 0D add bl, 0D
004F02AE . 32C3 xor al, bl
004F02B0 . 34 6C xor al, 6C
004F02B2 . 41 inc ecx
004F02B3 . 83F9 0C cmp ecx, 0C
004F02B6 . 8806 mov [esi], al ;处理结果： 10 D7 A3 D3 EF A3 47 F9 FA 0E B7 54
004F02B8 .^ 7C D6 jl short 004F0290
004F02BA . E8 B2740E00 call 005D7771
004F02BF . 8B10 mov edx, [eax] ; ds:[006B6DF0]=006631DC (Kexpress.006631DC)
004F02C1 . 8BC8 mov ecx, eax
004F02C3 . FF52 0C call [edx+C]
004F02C6 . 83C0 10 add eax, 10
004F02C9 . 894424 1C mov [esp+1C], eax
004F02CD . 8B4424 14 mov eax, [esp+14] ; (ASCII "123451234512345")
004F02D1 . 6A 00 push 0
004F02D3 . 50 push eax
004F02D4 . 8D4C24 3C lea ecx, [esp+3C]
004F02D8 . 51 push ecx
004F02D9 . 55 push ebp
004F02DA . C68424 C40000>mov byte ptr [esp+C4], 7
004F02E2 . E8 A911F1FF call 00401490 ；跟进继续处理 代码在后面。
004F02E7 . 8B7424 3C mov esi, [esp+3C]
004F02EB . 83C4 10 add esp, 10
004F02EE . 8D8F 990D0000 lea ecx, [edi+D99]
004F02F4 . BB 02000000 mov ebx, 2
004F02F9 . 8DA424 000000>lea esp, [esp]
004F0300 > 0FB641 FF movzx eax, byte ptr [ecx-1] ; B8 85 00 B8 B7 65 24 82 81 1D D6 CF
004F0304 . 99 cdq
004F0305 . F7FE idiv esi ; esi=18
004F0307 . A1 B4B36A00 mov eax, [6AB3B4]
004F030C . 83C1 06 add ecx, 6
004F030F . 8A1402 mov dl, [edx+eax] ; 根据余数查表（固定字符串X5BKN9A4QSCF3W1YM7D8H6U2） M 3
004F0312 . 0FB641 FA movzx eax, byte ptr [ecx-6]
004F0316 . 8851 F9 mov [ecx-7], dl
004F0319 . 99 cdq
004F031A . F7FE idiv esi
004F031C . A1 B4B36A00 mov eax, [6AB3B4]
004F0321 . 8A1402 mov dl, [edx+eax] ; WC
004F0324 . 0FB641 FB movzx eax, byte ptr [ecx-5]
004F0328 . 8851 FA mov [ecx-6], dl
004F032B . 99 cdq
004F032C . F7FE idiv esi
004F032E . A1 B4B36A00 mov eax, [6AB3B4]
004F0333 . 8A1402 mov dl, [edx+eax] ; XS
004F0336 . 0FB641 FC movzx eax, byte ptr [ecx-4]
004F033A . 8851 FB mov [ecx-5], dl
004F033D . 99 cdq
004F033E . F7FE idiv esi
004F0340 . A1 B4B36A00 mov eax, [6AB3B4]
004F0345 . 8A1402 mov dl, [edx+eax] ; M9
004F0348 . 0FB641 FD movzx eax, byte ptr [ecx-3]
004F034C . 8851 FC mov [ecx-4], dl
004F034F . 99 cdq
004F0350 . F7FE idiv esi
004F0352 . A1 B4B36A00 mov eax, [6AB3B4]
004F0357 . 8A1402 mov dl, [edx+eax] ; YU
004F035A . 0FB641 FE movzx eax, byte ptr [ecx-2]
004F035E . 8851 FD mov [ecx-3], dl
004F0361 . 99 cdq
004F0362 . F7FE idiv esi
004F0364 . 4B dec ebx
004F0365 . A1 B4B36A00 mov eax, [6AB3B4]
004F036A . 8A1402 mov dl, [edx+eax] ; 9Y
004F036D . 8851 FE mov [ecx-2], dl
004F0370 .^ 75 8E jnz short 004F0300
004F0372 . 8B7424 24 mov esi, [esp+24]
004F0376 . 6A 0C push 0C
004F0378 . 56 push esi
004F0379 . 55 push ebp
004F037A . C687 A40D0000>mov byte ptr [edi+DA4], 0
004F0381 . E8 23E40100 call 0050E7A9
004F0386 . 83C4 0C add esp, 0C
004F0389 . 85C0 test eax, eax
004F038B . 74 15 je short 004F03A2
004F038D . 6A 10 push 10
004F038F . 68 8CEF6100 push 0061EF8C ; 错误
004F0394 . 68 D8086600 push 006608D8 ; 您输入的安装密码不正确！
004F0399 . 8BCF mov ecx, edi
004F039B . E8 10300E00 call 005D33B0
004F03A0 . EB 6B jmp short 004F040D
==========================================================================================
004011B2 |. 8B5C24 18 mov ebx, [esp+18]
004011B6 |. 85DB test ebx, ebx
004011B8 |. 55 push ebp
004011B9 |. 56 push esi
004011BA |. 8B7424 14 mov esi, [esp+14]
004011BE |. 57 push edi
004011BF |. 0F84 85010000 je 0040134A ;这里直接跳走了
004011C5 |. 8A46 07 mov al, [esi+7]
004011C8 |. F66E 06 imul byte ptr [esi+6]
004011CB |. 8B7C24 20 mov edi, [esp+20]
004011CF |. 8B6C24 1C mov ebp, [esp+1C]
004011D3 |. 2A47 08 sub al, [edi+8]
004011D6 |. 0245 0B add al, [ebp+B]
004011D9 |. 8B4C24 28 mov ecx, [esp+28]
004011DD |. 32C1 xor al, cl
004011DF |. 34 09 xor al, 9
004011E1 |. 8846 08 mov [esi+8], al
004011E4 |. 0FBE45 02 movsx eax, byte ptr [ebp+2]
004011E8 |. 0FAFC1 imul eax, ecx
004011EB |. 0FBE55 04 movsx edx, byte ptr [ebp+4]
004011EF |. 35 37030000 xor eax, 337
004011F4 |. 81F2 49020000 xor edx, 249
004011FA |. 0FAFC2 imul eax, edx
004011FD |. 33D2 xor edx, edx
004011FF |. F7F3 div ebx
00401201 |. 8AC2 mov al, dl
00401203 |. F66F 04 imul byte ptr [edi+4]
00401206 |. 0247 01 add al, [edi+1]
00401209 |. 8846 0A mov [esi+A], al
0040120C |. 8A47 03 mov al, [edi+3]
0040120F |. F6E9 imul cl
00401211 |. 8A5D 02 mov bl, [ebp+2]
00401214 |. 884424 13 mov [esp+13], al
00401218 |. 8A16 mov dl, [esi]
0040121A |. 8AC3 mov al, bl
0040121C |. F66D 09 imul byte ptr [ebp+9]
0040121F |. 8A5C24 13 mov bl, [esp+13]
00401223 |. 02D8 add bl, al
00401225 |. 025E 01 add bl, [esi+1]
00401228 |. 0255 02 add dl, [ebp+2]
0040122B |. 0256 0B add dl, [esi+B]
0040122E |. 0257 02 add dl, [edi+2]
00401231 |. 8AC3 mov al, bl
00401233 |. F6EA imul dl
00401235 |. 8846 09 mov [esi+9], al
00401238 |. 8A45 09 mov al, [ebp+9]
0040123B |. 0247 07 add al, [edi+7]
0040123E |. F66E 01 imul byte ptr [esi+1]
00401241 |. 8AD8 mov bl, al
00401243 |. 8B4424 24 mov eax, [esp+24]
00401247 |. 6BC0 7D imul eax, eax, 7D
0040124A |. 33D2 xor edx, edx
0040124C |. F7F1 div ecx
0040124E |. 8A47 0C mov al, [edi+C]
00401251 |. B1 41 mov cl, 41
00401253 |. 02DA add bl, dl
00401255 |. 8A57 06 mov dl, [edi+6]
00401258 |. 02D8 add bl, al
0040125A |. 8A06 mov al, [esi]
0040125C |. 2ADA sub bl, dl
0040125E |. 8A5424 24 mov dl, [esp+24]
00401262 |. 885E 0B mov [esi+B], bl
00401265 |. F62F imul byte ptr [edi]
00401267 |. F6EA imul dl
00401269 |. 8AD8 mov bl, al
0040126B |. 8A47 04 mov al, [edi+4]
0040126E |. F6E9 imul cl
00401270 |. 8B4C24 28 mov ecx, [esp+28]
00401274 |. 2AD8 sub bl, al
00401276 |. 8A45 03 mov al, [ebp+3]
00401279 |. 2AD9 sub bl, cl
0040127B |. 02D8 add bl, al
0040127D |. 885E 01 mov [esi+1], bl
00401280 |. 8A45 06 mov al, [ebp+6]
00401283 |. 8A5E 04 mov bl, [esi+4]
00401286 |. 02D8 add bl, al
00401288 |. 8AC2 mov al, dl
0040128A |. F6E9 imul cl
0040128C |. B2 29 mov dl, 29
0040128E |. F6EA imul dl
00401290 |. 32D8 xor bl, al
00401292 |. 885E 04 mov [esi+4], bl
00401295 |. 8A47 06 mov al, [edi+6]
00401298 |. F6E9 imul cl
0040129A |. B2 0F mov dl, 0F
0040129C |. F6EA imul dl
0040129E |. 8AD0 mov dl, al
004012A0 |. 8A45 0B mov al, [ebp+B]
004012A3 |. F66F 02 imul byte ptr [edi+2]
004012A6 |. 02D0 add dl, al
004012A8 |. 8B4424 24 mov eax, [esp+24]
004012AC |. 6BC0 16 imul eax, eax, 16
004012AF |. 8816 mov [esi], dl
004012B1 |. 33D2 xor edx, edx
004012B3 |. F7F1 div ecx
004012B5 |. 8A5D 03 mov bl, [ebp+3]
004012B8 |. 8BC2 mov eax, edx
004012BA |. 2A47 0E sub al, [edi+E]
004012BD |. 02C3 add al, bl
004012BF |. F66D 01 imul byte ptr [ebp+1]
004012C2 |. 8846 05 mov [esi+5], al
004012C5 |. 8A45 0A mov al, [ebp+A]
004012C8 |. F6E9 imul cl
004012CA |. B2 0C mov dl, 0C
004012CC |. F6EA imul dl
004012CE |. 2A47 0D sub al, [edi+D]
004012D1 |. 0FBE56 01 movsx edx, byte ptr [esi+1]
004012D5 |. 8846 06 mov [esi+6], al
004012D8 |. 0FBE45 00 movsx eax, byte ptr [ebp]
004012DC |. 0FAFC2 imul eax, edx
004012DF |. 99 cdq
004012E0 |. BB 23020000 mov ebx, 223
004012E5 |. F7FB idiv ebx
004012E7 |. 025424 24 add dl, [esp+24]
004012EB |. 02D1 add dl, cl
004012ED |. 8856 02 mov [esi+2], dl
004012F0 |. 8A45 09 mov al, [ebp+9]
004012F3 |. 8A5F 0A mov bl, [edi+A]
004012F6 |. B2 0B mov dl, 0B
004012F8 |. F6EA imul dl
004012FA |. 0FBE55 03 movsx edx, byte ptr [ebp+3]
004012FE |. 2AD8 sub bl, al
00401300 |. 0FBE45 06 movsx eax, byte ptr [ebp+6]
00401304 |. 0FAFC2 imul eax, edx
00401307 |. 99 cdq
00401308 |. F7F9 idiv ecx
0040130A |. 32D8 xor bl, al
0040130C |. 8B4424 24 mov eax, [esp+24]
00401310 |. 32D8 xor bl, al
00401312 |. 885E 03 mov [esi+3], bl
00401315 |. 0FBE57 08 movsx edx, byte ptr [edi+8]
00401319 |. 0FBE4F 07 movsx ecx, byte ptr [edi+7]
0040131D |. 0FAFCA imul ecx, edx
00401320 |. 33D2 xor edx, edx
00401322 |. BF 0A000000 mov edi, 0A
00401327 |. F7F7 div edi
00401329 |. 0FBE46 07 movsx eax, byte ptr [esi+7]
0040132D |. 5F pop edi
0040132E |. 03CA add ecx, edx
00401330 |. 0FBE55 04 movsx edx, byte ptr [ebp+4]
00401334 |. 0FAFC8 imul ecx, eax
00401337 |. 0FAFCA imul ecx, edx
0040133A |. 8BC1 mov eax, ecx
0040133C |. 33D2 xor edx, edx
0040133E |. F77424 24 div dword ptr [esp+24]
00401342 |. 8856 07 mov [esi+7], dl
00401345 |. 5E pop esi
00401346 |. 5D pop ebp
00401347 |. 5B pop ebx
00401348 |. 59 pop ecx
00401349 |. C3 retn
==========================================================================================
0040134A |> \8B6C24 20 mov ebp, [esp+20] ; (ASCII "123451234512345")
0040134E |. 8A45 06 mov al, [ebp+6] ; 取第7位HEX s3[7]
00401351 |. 8B4C24 28 mov ecx, [esp+28] ; 堆栈 ss:[0012E078]=0007AD8D
00401355 |. F6E9 imul cl ; 32*8d
00401357 |. 8AD8 mov bl, al ; 8A
00401359 |. 8A56 08 mov dl, [esi+8] ; 堆栈 ds:[0012FD28]=FA ('?)S2[17][18]
0040135C |. 8B7C24 1C mov edi, [esp+1C] ; 机器码(ASCII "QKDAHSXS7XXX")
00401360 |. 8AC2 mov al, dl
00401362 |. F6EA imul dl
00401364 |. 2AD8 sub bl, al ; 8A-24
00401366 |. 025F 04 add bl, [edi+4] ; 结果+第5位HEX----x1
00401369 |. 8A55 0A mov dl, [ebp+A] ; s3[11]
0040136C |. B0 60 mov al, 60
0040136E |. 2AC2 sub al, dl ; 60-s3[10]
00401370 |. 32D8 xor bl, al ; x1 xor al
00401372 |. 885E 08 mov [esi+8], bl ; 替换s2[17][18]
00401375 |. 0FBE47 07 movsx eax, byte ptr [edi+7] ; 机器码第8位
00401379 |. 0FBE57 04 movsx edx, byte ptr [edi+4] ; 机器码第5位
0040137D |. 33C1 xor eax, ecx ; ecx=0007AD8D
0040137F |. 35 E1000000 xor eax, 0E1
00401384 |. 0FBE5D 09 movsx ebx, byte ptr [ebp+9] ; S3[10]
00401388 |. 81F2 00010000 xor edx, 100
0040138E |. 0FAFC2 imul eax, edx
00401391 |. 99 cdq
00401392 |. F7FB idiv ebx ; 余数
00401394 |. 8A5E 01 mov bl, [esi+1] ; S2[3][4]
00401397 |. 8BD0 mov edx, eax
00401399 |. 8A45 0E mov al, [ebp+E] ; S3[15]
0040139C |. F66D 07 imul byte ptr [ebp+7] ; S3[15]*S[8]
0040139F |. 02D0 add dl, al ; 结果+余数DL
004013A1 |. 8856 0A mov [esi+A], dl ; 替换S2[21][22]
004013A4 |. 8A57 02 mov dl, [edi+2] ; 机器码第3位
004013A7 |. 8A47 05 mov al, [edi+5] ; 机器码第6位
004013AA |. F6EA imul dl
004013AC |. 2AC1 sub al, cl ; CL=8D 0C-8D
004013AE |. 02C3 add al, bl ; + S2[3][4]
004013B0 |. 02D3 add dl, bl
004013B2 |. 0256 06 add dl, [esi+6] ; S2第7位
004013B5 |. F6EA imul dl
004013B7 |. 0245 0A add al, [ebp+A] ; +S3[11]
004013BA |. 8846 09 mov [esi+9], al ; 替换S2[19][20]
004013BD |. 0FBE55 00 movsx edx, byte ptr [ebp] ; S3第1位
004013C1 |. 0FBE47 09 movsx eax, byte ptr [edi+9] ; 机器码第10位
004013C5 |. 03C2 add eax, edx
004013C7 |. 0FBE56 04 movsx edx, byte ptr [esi+4] ; S2[9][10]
004013CB |. 0FAFC2 imul eax, edx
004013CE |. 99 cdq
004013CF |. F7F9 idiv ecx ; ecx=0007AD8D
004013D1 |. 8A5D 05 mov bl, [ebp+5] ; S3[6]
004013D4 |. 8A56 03 mov dl, [esi+3] ; S2[7][8]
004013D7 |. 2AC3 sub al, bl
004013D9 |. 8846 0B mov [esi+B], al ; 替换S2[23][24]
004013DC |. 8A47 03 mov al, [edi+3] ; 机器码第4位
004013DF |. F66D 05 imul byte ptr [ebp+5] ; S3[6]
004013E2 |. 02C2 add al, dl ; +S2[7][8]
004013E4 |. 8A55 08 mov dl, [ebp+8] ; S3[9]
004013E7 |. 02D1 add dl, cl ; +8D
004013E9 |. 32C2 xor al, dl
004013EB |. 8A56 0B mov dl, [esi+B] ;
004013EE |. 8846 01 mov [esi+1], al ; 85 替换S2[3][4]
004013F1 |. 8AC1 mov al, cl
004013F3 |. F66D 08 imul byte ptr [ebp+8] ; *S3[9]
004013F6 |. C0E0 03 shl al, 3
004013F9 |. 02C2 add al, dl ; 即替换后的S2[23][24]
004013FB |. 3247 0B xor al, [edi+B] ; 机器码第12位
004013FE |. 8846 04 mov [esi+4], al ; B7替换S2[9][10]
00401401 |. 0FBE47 0A movsx eax, byte ptr [edi+A] ; 机器码第11位
00401405 |. 99 cdq
00401406 |. F7F9 idiv ecx ; ecx=0007AD8D
00401408 |. 8A45 0C mov al, [ebp+C] ; s3[14]
0040140B |. C0E0 05 shl al, 5
0040140E |. 02D0 add dl, al ; +余数
00401410 |. 8816 mov [esi], dl ; B8替换S2[1][2]
00401412 |. 8A45 0D mov al, [ebp+D] ; S3[15]
00401415 |. 8A5F 03 mov bl, [edi+3] ; 机器码第4位
00401418 |. 2AC1 sub al, cl ; -8D
0040141A |. 02C3 add al, bl
0040141C |. 8A5D 09 mov bl, [ebp+9] ; S3[10]
0040141F |. 8A55 02 mov dl, [ebp+2] ; S3[3]
00401422 |. 04 15 add al, 15
00401424 |. F62F imul byte ptr [edi] ; 机器码第1位
00401426 |. 02D3 add dl, bl
00401428 |. 32C2 xor al, dl
0040142A |. 8846 05 mov [esi+5], al ; 替换S2[11][12]
0040142D |. B2 90 mov dl, 90
0040142F |. 8AC1 mov al, cl ; 8D
00401431 |. F6EA imul dl
00401433 |. 8AD0 mov dl, al
00401435 |. 2A55 03 sub dl, [ebp+3] ; S3[4]
00401438 |. 8A47 0B mov al, [edi+B] ; 机器码第12位
0040143B |. B3 03 mov bl, 3
0040143D |. F6EB imul bl
0040143F |. 02D0 add dl, al
00401441 |. 8856 06 mov [esi+6], dl ; 替换S2[13][14]
00401444 |. 0FBE47 01 movsx eax, byte ptr [edi+1] ; 机器码第2位
00401448 |. 0FBE56 0B movsx edx, byte ptr [esi+B] ; 机器码第12位
0040144C |. 0FAFC2 imul eax, edx
0040144F |. 99 cdq
00401450 |. BB BA030000 mov ebx, 3BA
00401455 |. F7FB idiv ebx
00401457 |. 8BC2 mov eax, edx
00401459 |. 99 cdq
0040145A |. F7F9 idiv ecx
0040145C |. B2 0B mov dl, 0B
0040145E |. 8846 02 mov [esi+2], al ; 替换S2[5][6]
00401461 |. 8A47 09 mov al, [edi+9] ; 机器码第10位
00401464 |. F6EA imul dl
00401466 |. 8AD1 mov dl, cl
00401468 |. F6DA neg dl
0040146A |. 2AD0 sub dl, al
0040146C |. 8A47 07 mov al, [edi+7] ; 机器码第8位
0040146F |. F66F 03 imul byte ptr [edi+3] ; 机器码第4位
00401472 |. 32D0 xor dl, al
00401474 |. 8856 03 mov [esi+3], dl ; 替换S2[7][8]
00401477 |. 8A47 06 mov al, [edi+6] ; 机器码第7位
0040147A |. F6EA imul dl
0040147C |. 8A55 04 mov dl, [ebp+4] ; S3[5]
0040147F |. 02D1 add dl, cl
00401481 |. 5F pop edi
00401482 |. 32C2 xor al, dl
00401484 |. 8846 07 mov [esi+7], al ; 替换S2[15][16]
00401487 |. 5E pop esi
00401488 |. 5D pop ebp
00401489 |. 5B pop ebx
0040148A |. 59 pop ecx
0040148B \. C3 retn
===========================================================
delphi注册机代码：
=======================================
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:byte;
m,n:integer;
id1,temp,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,sn:String;
begin
//==========处理机器码第一部分===========
id1:=Edit2.text;
if length(id1)<1 then exit;
if ord(id1[5])=$2D then
begin
s1:=copy(id1,1,4)+copy(id1,6,4)+copy(id1,11,4);
end
else
s1:=id1;
s2:='';
for c:=0 to 11 do
begin
d:=ord(s1[c+1]);
a:=c+$70;
b:=c+$64;
a:=a*b;
b:=c+$14;
a:=a*b;
d:=(d xor $3e)+$d;
a:=a xor d;
a:=a xor $6c;
s2:=s2+inttohex(a,2);
end;
edit3.text:=s2;
//=============处理机器码第二部分===========
// s3:='123451234512345';
b:=$8a;
a:=strtoint('$'+s2[17]+s2[18]);
b:=b-a*a+ord(s1[5]);
c:=$60-$31;
b:=b xor c;
s3:=inttohex(b,2);//s2[17][18]
//-----------------------------
m:=(ord(s1[8]) xor $7AD8D)xor $e1;
n:=ord(s1[5]) xor $100;
m:=m*n;
d:=m div $35;
a:=$8F;
a:=a+d;
s4:=inttohex(a,2); //s2[21][22]
//------------------------------
a:=ord(s1[6])*ord(s1[3])-$8d;
b:=strtoint('$'+s2[3]+s2[4]);
a:=a+b;
d:=ord(s1[3])+b+strtoint('$'+s2[13]+s2[14]);
a:=a*d+$31;
s5:=inttohex(a,2); //s2[19][20]
//------------------------------
m:=$31+ord(s1[10]);
n:=strtoint('$'+s2[9]+s2[10]);
m:=m*n;
a:=m div $7ad8d;
b:=$31;
a:=a-b;
s6:=inttohex(a,2); //s2[23][24]
//-------------------------------
a:=ord(s1[4])*$31;
b:=strtoint('$'+s2[7]+s2[8]);
a:=a+b;
d:=$34+$8d;
a:=a xor d;
s7:=inttohex(a,2);//s2[3][4]
//--------------------------------
a:=$20+strtoint('$'+s6);
a:=a xor ord(s1[12]);
s8:=inttohex(a,2);//s2[9][10]
//---------------------------------
m:=ord(s1[11]);
d:=m mod $7ad8d;
a:=$60+d;
s9:=inttohex(a,2);//s2[1][2]]
//----------------------------------
a:=$a7+ord(s1[4]);
a:=(a+$15)*ord(s1[1]);
a:=a xor $68;
s10:=inttohex(a,2);//s2[11][12]
//---------------------------------
d:=$1c;
a:=ord(s1[12])*3;
a:=a+d;
s11:=inttohex(a,2);//s2[13][14]
//---------------------------------
m:=ord(s1[2]);
n:=ord(s1[12]);
m:=m*n;
m:=m mod $3ba;
a:=m div $7ad8d;
s12:=inttohex(a,2);//s2[5][6]
//---------------------------------
a:=ord(s1[10])*$0b;
d:=$73-a;
a:=ord(s1[8])*ord(s1[4]);
a:=d xor a;
s13:=inttohex(a,2);//s2[7][8]
d:=a;
a:=ord(s1[7])*d;
a:=a xor $c2;
s14:=inttohex(a,2);//s2[15][16]
//---------------------------------
//edit4.Text:=s9+'-'+s7+'-'+s12+'-'+s13+'-'+s8+'-'+s10+'-'+s11+'-'+s14+'-'+s3+'-'+s5+'-'+s4+'-'+s6;
edit4.Text:=s9+s7+s12+s13+s8+s10+s11+s14+s3+s5+s4+s6;
//-----------生成注册码-----------------------
temp:=edit1.text;
sn:=temp[(strtoint('$'+s9) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s7) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s12) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s13) mod $18)+1];
sn:=sn+'-'+temp[(strtoint('$'+s8) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s10) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s11) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s14) mod $18)+1];
sn:=sn+'-'+temp[(strtoint('$'+s3) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s5) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s4) mod $18)+1];
sn:=sn+temp[(strtoint('$'+s6) mod $18)+1];
edit5.text:=sn;
end;
end.
=======================================
[课程]FART 脱壳王！加量不加价！FART作者讲授！
