简单算法分析3

【软件名称】: 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,"Software\Liangzhu\ptcs"

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,"Software\Liangzhu\ptcs"

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,"Software\Liangzhu\ptcs"

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`

 

注册表键值: "Software\Liangzhu\ptcs"

 

 

 
 
 

附上易语言源码

.版本 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
posted @ 2018-09-06 20:44  Sendige  阅读(242)  评论(0编辑  收藏  举报