【软件名称】: Photo to Color Sketch 6.75
【下载地址】:
http://www.oyksoft.com/soft/5336.html
【软件介绍】:
能将你的图片转换为黑白素描画的工具。
继续分享一个简单的算法分析教程，今次教程没有参考别人的文章，我只是看了文章的标题，然后点下载地址把软件下载回来，接着自己操刀！
软件没壳
Borland Delphi(6)[-] 是Delphi程序写的
所以不再多说了，直接运行Delphi按钮事件的脚本
输入以上内容，点击OK按钮后断在
004D189C . 55 push ebp ; 按钮事件
004D189D . 8BEC mov ebp,esp
004D189F . B9 10000000 mov ecx,0x10
004D18A4 > 6A 00 push 0x0
004D18A6 . 6A 00 push 0x0
004D18A8 . 49 dec ecx ; PhotoToC.004345C8
004D18A9 .^ 75 F9 jnz short PhotoToC.004D18A4
004D18AB . 53 push ebx
004D18AC . 56 push esi ; PhotoToC.004344C4
004D18AD . 57 push edi
004D18AE . 8BD8 mov ebx,eax
004D18B0 . 33C0 xor eax,eax
004D18B2 . 55 push ebp
004D18B3 . 68 821C4D00 push PhotoToC.004D1C82
004D18B8 . 64:FF30 push dword ptr fs:[eax]
004D18BB . 64:8920 mov dword ptr fs:[eax],esp
004D18BE . 8D55 E0 lea edx,dword ptr ss:[ebp-0x20]
004D18C1 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D18C7 . E8 6826F7FF call PhotoToC.00443F34
004D18CC . 837D E0 00 cmp dword ptr ss:[ebp-0x20],0x0 ; 检测用户名是否为空
004D18D0 . 75 15 jnz short PhotoToC.004D18E7
004D18D2 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D18D8 . BA 981C4D00 mov edx,PhotoToC.004D1C98 ; ASCII "Fill in your UserCode"
004D18DD . E8 8226F7FF call PhotoToC.00443F64
004D18E2 . E9 41030000 jmp PhotoToC.004D1C28
004D18E7 > 8D55 DC lea edx,dword ptr ss:[ebp-0x24]
004D18EA . 8B83 04030000 mov eax,dword ptr ds:[ebx+0x304]
004D18F0 . E8 3F26F7FF call PhotoToC.00443F34
004D18F5 . 837D DC 00 cmp dword ptr ss:[ebp-0x24],0x0 ; 检测注册码是否为空
004D18F9 . 75 15 jnz short PhotoToC.004D1910
004D18FB . 8B83 04030000 mov eax,dword ptr ds:[ebx+0x304]
004D1901 . BA B81C4D00 mov edx,PhotoToC.004D1CB8 ; ASCII 46,"ill in Serial Number"
004D1906 . E8 5926F7FF call PhotoToC.00443F64
004D190B . E9 18030000 jmp PhotoToC.004D1C28
004D1910 > 8D55 D8 lea edx,dword ptr ss:[ebp-0x28]
004D1913 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D1919 . E8 1626F7FF call PhotoToC.00443F34
前面一段检测用户名和注册码是否为空
下面的看注释吧，都是比较简单的
004D191E . 8B45 D8 mov eax,dword ptr ss:[ebp-0x28] ; 用户名
004D1921 . 8A00 mov al,byte ptr ds:[eax]
004D1923 . 8845 FF mov byte ptr ss:[ebp-0x1],al ; 取用户名第一个英文字母
004D1926 . 8D55 D4 lea edx,dword ptr ss:[ebp-0x2C]
004D1929 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D192F . E8 0026F7FF call PhotoToC.00443F34
004D1934 . 8B45 D4 mov eax,dword ptr ss:[ebp-0x2C]
004D1937 . 8A40 01 mov al,byte ptr ds:[eax+0x1] ; 取用户名第2个英文字母
004D193A . 8845 FE mov byte ptr ss:[ebp-0x2],al
004D193D . 8D55 D0 lea edx,dword ptr ss:[ebp-0x30]
004D1940 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D1946 . E8 E925F7FF call PhotoToC.00443F34
004D194B . 8B45 D0 mov eax,dword ptr ss:[ebp-0x30] ; ntdll.77915A37
004D194E . 8A40 02 mov al,byte ptr ds:[eax+0x2] ; 取用户名第3个英文字母
004D1951 . 8845 FD mov byte ptr ss:[ebp-0x3],al
004D1954 . 8D55 CC lea edx,dword ptr ss:[ebp-0x34]
004D1957 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D195D . E8 D225F7FF call PhotoToC.00443F34
004D1962 . 8B45 CC mov eax,dword ptr ss:[ebp-0x34]
004D1965 . 8A40 03 mov al,byte ptr ds:[eax+0x3] ; 取用户名第4个英文字母
004D1968 . 8845 FC mov byte ptr ss:[ebp-0x4],al
004D196B . 8D55 C8 lea edx,dword ptr ss:[ebp-0x38]
004D196E . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D1974 . E8 BB25F7FF call PhotoToC.00443F34
004D1979 . 8B45 C8 mov eax,dword ptr ss:[ebp-0x38]
004D197C . 8A40 04 mov al,byte ptr ds:[eax+0x4]
004D197F . 8845 FB mov byte ptr ss:[ebp-0x5],al ; 取用户名第5个英文字母
004D1982 . 8D55 C4 lea edx,dword ptr ss:[ebp-0x3C]
004D1985 . 8B83 00030000 mov eax,dword ptr ds:[ebx+0x300]
004D198B . E8 A425F7FF call PhotoToC.00443F34
004D1990 . 8B45 C4 mov eax,dword ptr ss:[ebp-0x3C] 用户名
004D1993 . 8A40 05 mov al,byte ptr ds:[eax+0x5] ; 取用户名第6个英文字母 记为 username[6]
004D1996 . 33D2 xor edx,edx
004D1998 . 8A55 FF mov dl,byte ptr ss:[ebp-0x1] ; 取用户名第一个英文字母 记为 username[1]
004D199B . 83C2 02 add edx,0x2 ; username[1]+2
004D199E . 0FB675 FE movzx esi,byte ptr ss:[ebp-0x2] ; 取用户名第2个英文字母 记为 username[2]
004D19A2 . 83C6 09 add esi,0x9 ; username[2]+9
004D19A5 . 33C9 xor ecx,ecx ; PhotoToC.004345C8
004D19A7 . 8A4D FD mov cl,byte ptr ss:[ebp-0x3] ; 取用户名第3个英文字母 记为 username[3]
004D19AA . 41 inc ecx ; username[3]+1
004D19AB . 894D F4 mov dword ptr ss:[ebp-0xC],ecx ; PhotoToC.004345C8
004D19AE . 0FB67D FC movzx edi,byte ptr ss:[ebp-0x4] ; 取用户名第4个英文字母 记为 username[4]
004D19B2 . 83EF 04 sub edi,0x4 ; username[4]-4
004D19B5 . 33C9 xor ecx,ecx ; PhotoToC.004345C8
004D19B7 . 8A4D FB mov cl,byte ptr ss:[ebp-0x5] ; 取用户名第5个英文字母 记为 username[5]
004D19BA . 49 dec ecx ; username[5]-1
004D19BB . 894D F0 mov dword ptr ss:[ebp-0x10],ecx ; PhotoToC.004345C8
004D19BE . 25 FF000000 and eax,0xFF ;
004D19C3 . 83C0 05 add eax,0x5 eax=0000006C
004D19C6 . 8855 EF mov byte ptr ss:[ebp-0x11],dl ; username[1]+2=55 = “U”
004D19C9 . 8BD6 mov edx,esi ; PhotoToC.004344C4
004D19CB . 8855 EE mov byte ptr ss:[ebp-0x12],dl ; username[2]+9=6E= “n”
004D19CE . 8A55 F4 mov dl,byte ptr ss:[ebp-0xC]
004D19D1 . 8855 ED mov byte ptr ss:[ebp-0x13],dl ; username[3]+1=6F =“o“
004D19D4 . 8BD7 mov edx,edi
004D19D6 . 8855 EC mov byte ptr ss:[ebp-0x14],dl ; `username[4]-4=60 = ”`“
004D19D9 . 8A55 F0 mov dl,byte ptr ss:[ebp-0x10]
004D19DC . 8855 EB mov byte ptr ss:[ebp-0x15],dl ; username[5]-1=68= ”h“
004D19DF . 8845 EA mov byte ptr ss:[ebp-0x16],al ; username[6]+5==6C= ‘l’
004D19E2 . 8D45 B8 lea eax,dword ptr ss:[ebp-0x48]
004D19E5 . 8A55 ED mov dl,byte ptr ss:[ebp-0x13] ; o
004D19E8 . 8850 01 mov byte ptr ds:[eax+0x1],dl
004D19EB . C600 01 mov byte ptr ds:[eax],0x1
004D19EE . 8D55 B8 lea edx,dword ptr ss:[ebp-0x48]
004D19F1 . 8D45 B4 lea eax,dword ptr ss:[ebp-0x4C]
004D19F4 . E8 0F15F3FF call PhotoToC.00402F08
004D19F9 . 8D45 B0 lea eax,dword ptr ss:[ebp-0x50]
004D19FC . 8A55 EA mov dl,byte ptr ss:[ebp-0x16]
004D19FF . 8850 01 mov byte ptr ds:[eax+0x1],dl
004D1A02 . C600 01 mov byte ptr ds:[eax],0x1
004D1A05 . 8D55 B0 lea edx,dword ptr ss:[ebp-0x50]
004D1A08 . 8D45 B4 lea eax,dword ptr ss:[ebp-0x4C]
004D1A0B . B1 02 mov cl,0x2
004D1A0D . E8 C614F3FF call PhotoToC.00402ED8
004D1A12 . 8D55 B4 lea edx,dword ptr ss:[ebp-0x4C]
004D1A15 . 8D45 BC lea eax,dword ptr ss:[ebp-0x44]
004D1A18 . E8 D72DF3FF call PhotoToC.004047F4
004D1A1D . FF75 BC push dword ptr ss:[ebp-0x44] ; ol
004D1A20 . 8D55 AC lea edx,dword ptr ss:[ebp-0x54]
004D1A23 . 8BC6 mov eax,esi ; PhotoToC.004344C4
004D1A25 . E8 4E72F3FF call PhotoToC.00408C78 将username[2]+9=6E= “n”转换为10进制=110
004D1A2A . FF75 AC push dword ptr ss:[ebp-0x54] ; 110 记为 str1= username[2] 转10进制
004D1A2D . 8D45 A8 lea eax,dword ptr ss:[ebp-0x58]
004D1A30 . 8A55 EB mov dl,byte ptr ss:[ebp-0x15]
004D1A33 . E8 402DF3FF call PhotoToC.00404778
004D1A38 . FF75 A8 push dword ptr ss:[ebp-0x58]
004D1A3B . 8D45 A4 lea eax,dword ptr ss:[ebp-0x5C]
004D1A3E . 8A55 EE mov dl,byte ptr ss:[ebp-0x12]
004D1A41 . E8 322DF3FF call PhotoToC.00404778
004D1A46 . FF75 A4 push dword ptr ss:[ebp-0x5C] ; n
004D1A49 . 8D55 A0 lea edx,dword ptr ss:[ebp-0x60]
004D1A4C . 8BC7 mov eax,edi
004D1A4E . E8 2572F3FF call PhotoToC.00408C78 将username[4]-4=60 转换为10进制=96
004D1A53 . FF75 A0 push dword ptr ss:[ebp-0x60] ; 96
004D1A56 . 8D45 9C lea eax,dword ptr ss:[ebp-0x64]
004D1A59 . 8A55 EF mov dl,byte ptr ss:[ebp-0x11]
004D1A5C . E8 172DF3FF call PhotoToC.00404778
004D1A61 . FF75 9C push dword ptr ss:[ebp-0x64] ; u
004D1A64 . 8D45 98 lea eax,dword ptr ss:[ebp-0x68]
004D1A67 . 8A55 EC mov dl,byte ptr ss:[ebp-0x14]
004D1A6A . E8 092DF3FF call PhotoToC.00404778
004D1A6F . FF75 98 push dword ptr ss:[ebp-0x68]
004D1A72 . 8D45 C0 lea eax,dword ptr ss:[ebp-0x40]
004D1A75 . BA 07000000 mov edx,0x7
004D1A7A . E8 912EF3FF call PhotoToC.00404910
004D1A7F . 8B55 C0 mov edx,dword ptr ss:[ebp-0x40] ; ol110hn96U` 真正的注册码码
004D1A82 . 8B83 08030000 mov eax,dword ptr ds:[ebx+0x308]
004D1A88 . E8 D724F7FF call PhotoToC.00443F64
004D1A8D . 8D45 94 lea eax,dword ptr ss:[ebp-0x6C]
004D1A90 . 50 push eax
004D1A91 . 8D55 90 lea edx,dword ptr ss:[ebp-0x70]
004D1A94 . 8B83 04030000 mov eax,dword ptr ds:[ebx+0x304]
004D1A9A . E8 9524F7FF call PhotoToC.00443F34
004D1A9F . 8B45 90 mov eax,dword ptr ss:[ebp-0x70] ; 假码
004D1AA2 . B9 08000000 mov ecx,0x8
004D1AA7 . BA 01000000 mov edx,0x1
004D1AAC . E8 BBBEF6FF call PhotoToC.0043D96C
004D1AB1 . 8B45 94 mov eax,dword ptr ss:[ebp-0x6C] ; 12345678
004D1AB4 . 50 push eax
004D1AB5 . 8D45 8C lea eax,dword ptr ss:[ebp-0x74]
004D1AB8 . 50 push eax
004D1AB9 . 8D55 88 lea edx,dword ptr ss:[ebp-0x78]
004D1ABC . 8B83 08030000 mov eax,dword ptr ds:[ebx+0x308]
004D1AC2 . E8 6D24F7FF call PhotoToC.00443F34
004D1AC7 . 8B45 88 mov eax,dword ptr ss:[ebp-0x78] ; ol110hn96U`
004D1ACA . B9 08000000 mov ecx,0x8
004D1ACF . BA 01000000 mov edx,0x1
004D1AD4 . E8 93BEF6FF call PhotoToC.0043D96C
004D1AD9 . 8B55 8C mov edx,dword ptr ss:[ebp-0x74] ; ol110hn9
004D1ADC . 58 pop eax ; PhotoToC.00445512
004D1ADD . E8 B22EF3FF call PhotoToC.00404994 ; 将假码和真正的注册码进行对比，我这里就不进行分析，因为真码已经出来了，分析这里没有意义
004D1AE2 . 0F85 10010000 jnz PhotoToC.004D1BF8
004D1AE8 . 8B83 FC020000 mov eax,dword ptr ds:[ebx+0x2FC]
004D1AEE . BA D81C4D00 mov edx,PhotoToC.004D1CD8 ; ASCII 43,"ongratulation! Registration is successful!"
004D1AF3 . E8 6C24F7FF call PhotoToC.00443F64
004D1AF8 . A1 E0CA4D00 mov eax,dword ptr ds:[0x4DCAE0]
004D1AFD . 8B00 mov eax,dword ptr ds:[eax] ; PhotoToC.004D1654
004D1AFF . 8B80 64030000 mov eax,dword ptr ds:[eax+0x364]
004D1B05 . BA 0C1D4D00 mov edx,PhotoToC.004D1D0C ; ASCII 52,"egistered"
004D1B0A . E8 D13EF8FF call PhotoToC.004559E0
004D1B0F . 8B83 0C030000 mov eax,dword ptr ds:[ebx+0x30C]
004D1B15 . 33D2 xor edx,edx
004D1B17 . 8B08 mov ecx,dword ptr ds:[eax] ; PhotoToC.004D1654
004D1B19 . FF51 64 call dword ptr ds:[ecx+0x64]
004D1B1C . 8B83 10030000 mov eax,dword ptr ds:[ebx+0x310]
004D1B22 . BA 201D4D00 mov edx,PhotoToC.004D1D20 ; ASCII 43,"lose"
004D1B27 . E8 3824F7FF call PhotoToC.00443F64
004D1B2C . A1 24CA4D00 mov eax,dword ptr ds:[0x4DCA24]
004D1B31 . C600 00 mov byte ptr ds:[eax],0x0
004D1B34 . B2 01 mov dl,0x1
004D1B36 . A1 14C14700 mov eax,dword ptr ds:[0x47C114]
004D1B3B . E8 D4A6FAFF call PhotoToC.0047C214
004D1B40 . 8945 E4 mov dword ptr ss:[ebp-0x1C],eax
004D1B43 . 33C0 xor eax,eax
004D1B45 . 55 push ebp
004D1B46 . 68 F11B4D00 push PhotoToC.004D1BF1
004D1B4B . 64:FF30 push dword ptr fs:[eax]
004D1B4E . 64:8920 mov dword ptr fs:[eax],esp
004D1B51 . BA 02000080 mov edx,0x80000002
004D1B56 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1B59 . E8 56A7FAFF call PhotoToC.0047C2B4
004D1B5E . 33C9 xor ecx,ecx ; PhotoToC.004345C8
004D1B60 . BA 301D4D00 mov edx,PhotoToC.004D1D30 ; ASCII 5C,"SoftwareLiangzhuptcs"
004D1B65 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1B68 . E8 87A8FAFF call PhotoToC.0047C3F4
004D1B6D . 84C0 test al,al
004D1B6F . 74 31 je short PhotoToC.004D1BA2
004D1B71 . 8D55 84 lea edx,dword ptr ss:[ebp-0x7C]
004D1B74 . 83C8 FF or eax,-0x1
004D1B77 . E8 FC70F3FF call PhotoToC.00408C78
004D1B7C . 8B4D 84 mov ecx,dword ptr ss:[ebp-0x7C]
004D1B7F . BA 501D4D00 mov edx,PhotoToC.004D1D50
004D1B84 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1B87 . E8 04AAFAFF call PhotoToC.0047C590
004D1B8C . A1 E0CA4D00 mov eax,dword ptr ds:[0x4DCAE0]
004D1B91 . 8B00 mov eax,dword ptr ds:[eax] ; PhotoToC.004D1654
004D1B93 . 8B80 64030000 mov eax,dword ptr ds:[eax+0x364]
004D1B99 . 33D2 xor edx,edx
004D1B9B . E8 043FF8FF call PhotoToC.00455AA4
004D1BA0 . EB 39 jmp short PhotoToC.004D1BDB
004D1BA2 > BA 301D4D00 mov edx,PhotoToC.004D1D30 ; ASCII 5C,"SoftwareLiangzhuptcs"
004D1BA7 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1BAA . E8 69A7FAFF call PhotoToC.0047C318
004D1BAF . BA 301D4D00 mov edx,PhotoToC.004D1D30 ; ASCII 5C,"SoftwareLiangzhuptcs"
004D1BB4 . B1 01 mov cl,0x1
004D1BB6 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1BB9 . E8 36A8FAFF call PhotoToC.0047C3F4
004D1BBE . 8D55 80 lea edx,dword ptr ss:[ebp-0x80]
004D1BC1 . B8 01000000 mov eax,0x1
004D1BC6 . E8 AD70F3FF call PhotoToC.00408C78
004D1BCB . 8B4D 80 mov ecx,dword ptr ss:[ebp-0x80]
004D1BCE . BA 501D4D00 mov edx,PhotoToC.004D1D50
004D1BD3 . 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1BD6 . E8 B5A9FAFF call PhotoToC.0047C590
004D1BDB > 33C0 xor eax,eax
004D1BDD . 5A pop edx ; PhotoToC.00445512
004D1BDE . 59 pop ecx ; PhotoToC.00445512
004D1BDF . 59 pop ecx ; PhotoToC.00445512
004D1BE0 . 64:8910 mov dword ptr fs:[eax],edx
004D1BE3 . 68 281C4D00 push PhotoToC.004D1C28
004D1BE8 > 8B45 E4 mov eax,dword ptr ss:[ebp-0x1C]
004D1BEB . E8 941BF3FF call PhotoToC.00403784
004D1BF0 . C3 retn
总结：
上面已经分析完了，所以我在这里声明一下变量
Username = Sendige
reg_code[10]=username[1]+2=55 U 意思是取用户名的第一位 即S S的十六进制为53 所以53+2=55 即等于字符串 “U”
reg_code[7]=username[2]+9 =6E n 以此类推
reg_code[1]=username[3]+1=6F o
reg_code[11]=username[4]-4=60 `
reg_code[6]=username[5]-1=68 h
reg_code[2]=username[6]+5=6C l
str1=reg_code[7] 转10进制
str2=reg_code[11] 转10进制
ol110hn96U` 真正注册码
大家可以观察下 可以发现以下规律
reg_code[1]+reg_code[2]+str1+reg_code[6]+reg_code[7]+str2+reg_code[10]+reg_code[11] = ol110hn96U`
注册表键值： "SoftwareLiangzhuptcs"
附上易语言源码
.版本 2
.支持库 spec
.子程序 _编辑框2_获得焦点
.局部变量 username, 文本型
.局部变量 reg_code_1, 文本型
.局部变量 str1, 文本型
.局部变量 result_1, 整数型
.局部变量 result_1w, 文本型
.局部变量 reg_code_2, 文本型
.局部变量 result_2, 整数型
.局部变量 result_2w, 文本型
.局部变量 reg_code_7, 文本型
.局部变量 result_7, 整数型
.局部变量 result_7w, 文本型
.局部变量 reg_code_6, 文本型
.局部变量 result_6, 整数型
.局部变量 result_6w, 文本型
.局部变量 reg_code_10, 文本型
.局部变量 result_10, 整数型
.局部变量 result_10w, 文本型
.局部变量 reg_code_11, 文本型
.局部变量 result_11, 整数型
.局部变量 result_11w, 文本型
.局部变量 str2, 文本型
username ＝ 编辑框1.内容
reg_code_1 ＝ 取文本中间 (username, 3, 1)
' 调试输出 (“aci”, 到整数 (取字节集数据 (到字节集 (reg_code_1), 1, )))
' 调试输出 (reg_code_1)
' str1 ＝ 到文本 (取字节集数据 (到字节集 (reg_code_1), 1, )) ' 110 str1=reg_code[7] 转10进制
reg_code_1 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_1), 1, ))
result_1 ＝ 到整数 (进制_十六到十 (reg_code_1)) ＋ 到整数 (进制_十到十六 (1)) ' reg_code[1]=username[3]+1=6F o
result_1w ＝ 到文本 (到字节集 (result_1))
username ＝ 编辑框1.内容
reg_code_2 ＝ 取文本中间 (username, 6, 1)
reg_code_2 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_2), 1, ))
result_2 ＝ 到整数 (进制_十六到十 (reg_code_2)) ＋ 到整数 (进制_十到十六 (5)) ' reg_code[1]=username[3]+1=6F o
result_2w ＝ 到文本 (到字节集 (result_2))
' 调试输出 (result_2w)
username ＝ 编辑框1.内容
reg_code_7 ＝ 取文本中间 (username, 2, 1)
reg_code_7 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_7), 1, ))
result_7 ＝ 到整数 (进制_十六到十 (reg_code_7)) ＋ 到整数 (进制_十到十六 (9)) ' reg_code[1]=username[3]+1=6F o
result_7w ＝ 到文本 (到字节集 (result_7))
' 调试输出 (result_7w)
str1 ＝ 到文本 (result_7)
调试输出 (str1)
username ＝ 编辑框1.内容
reg_code_6 ＝ 取文本中间 (username, 5, 1)
reg_code_6 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_6), 1, ))
result_6 ＝ 到整数 (进制_十六到十 (reg_code_6)) － 到整数 (进制_十到十六 (1)) ' reg_code[1]=username[3]+1=6F o
result_6w ＝ 到文本 (到字节集 (result_6))
' 调试输出 (result_6w)
username ＝ 编辑框1.内容
reg_code_10 ＝ 取文本中间 (username, 1, 1)
reg_code_10 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_10), 1, ))
result_10 ＝ 到整数 (进制_十六到十 (reg_code_10)) ＋ 到整数 (进制_十到十六 (2)) ' reg_code[1]=username[3]+1=6F o
result_10w ＝ 到文本 (到字节集 (result_10))
username ＝ 编辑框1.内容
reg_code_11 ＝ 取文本中间 (username, 4, 1)
reg_code_11 ＝ 取十六进制文本 (取字节集数据 (到字节集 (reg_code_11), 1, ))
result_11 ＝ 到整数 (进制_十六到十 (reg_code_11)) － 到整数 (进制_十到十六 (4)) ' reg_code[1]=username[3]+1=6F o
result_11w ＝ 到文本 (到字节集 (result_11))
str2 ＝ 到文本 (result_11)
调试输出 (str2)
编辑框2.内容 ＝ result_1w ＋ result_2w ＋ str1 ＋ result_6w ＋ result_7w ＋ str2 ＋ result_10w ＋ result_11w
防止新手朋友看不明白源码 所以把源码打包给大家学习
Down：http://www.vdisk.cn/down/index/19539164
高清文档下载地址：http://www.vdisk.cn/down/index/19539165