易语言汇编置入代码实现字节集与十六进制文本型字符串极速互相转换 (不区分大小写)

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 字节集, 字节集
    
15. .局部变量 十六进制文本, 文本型
    
16. .局部变量 字节集2, 字节集
    
17. 
    
18. 字节集 ＝ 到字节集 (“Hello World! 中文测试”)
    
19. 
    
20. 十六进制文本 ＝ 取空白文本 (左移 (取字节集长度 (字节集), 1))
    
21. 置入代码_字节集到十六进制文本 (字节集, 十六进制文本, 真)
    
22. 
    
23. 调试输出 (“十六进制文本”, 十六进制文本)
    
24. 
    
25. 字节集2 ＝ 取空白字节集 (右移 (取文本长度 (十六进制文本), 1))
    
26. 置入代码_十六进制文本到字节集 (十六进制文本, 字节集2)
    
27. 调试输出 (“转换后”, 到文本 (字节集2))
    
28. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
29. 
    
30. 
    
31. 
    
32. .子程序 置入代码_字节集到十六进制文本, , 公开,  
    
33. .参数 字节集, 字节集
    
34. .参数 结果文本, 文本型, 参考, 调用前结果文本必须进行 取空白文本(左移(取字节集长度(字节集),1))
    
35. .参数 大写, 逻辑型, , 是否以大写结果输出
    
36. 
    
37. 置入代码 ({ 139, 69, 8, 138, 93, 16, 128, 227, 1, 139, 16, 139, 66, 4, 131, 194, 8, 185, 0, 0, 0, 0, 235, 11, 80, 138, 4, 17, 232, 10, 0, 0, 0, 88, 65, 59, 200, 114, 241, 201, 194, 12, 0, 80, 81, 82, 81, 209, 225, 139, 209, 89, 139, 77, 12, 139, 9, 138, 224, 192, 232, 4, 232, 18, 0, 0, 0, 136, 4, 10, 138, 196, 232, 8, 0, 0, 0, 136, 68, 10, 1, 90, 89, 88, 195, 36, 15, 60, 0, 114, 8, 60, 9, 119, 4, 4, 48, 235, 11, 128, 251, 1, 117, 4, 4, 55, 235, 2, 4, 87, 195 })
    
38. ' mov eax,[ebp+8] ;字节集地址
    
39. ' mov bl,[ebp+16] ;大小写 1大写0小写
    
40. ' and bl,1
    
41. ' mov edx,[eax] ;字节集数据地址
    
42. ' mov eax,[edx+4] ;字节集长度
    
43. ' add edx,8 ;字节集数据地址+8
    
44. ' mov ecx,0 ;字节集指针计数
    
45. ' .while ecx < eax
    
46. ' push eax
    
47. ' mov al,[edx+ecx] ;字节集值 送AL寄存器
    
48. ' CALL WRITE_TEXT
    
49. ' pop eax
    
50. ' inc ecx
    
51. ' .endw
    
52. ' leave
    
53. ' retn 12
    
54. ' WRITE_TEXT: ;写文本 ECX 地址 AL值
    
55. ' push eax
    
56. ' push ecx
    
57. ' push edx
    
58. ' push ecx ; 高位地址 EDX=ECX*2 低位=高位+1
    
59. ' shl ecx,1
    
60. ' mov edx,ecx
    
61. ' pop ecx
    
62. ' mov ecx,[ebp+12] ;文本地址
    
63. ' mov ecx,[ecx]  ;文本数据地址
    
64. ' mov ah,al
    
65. ' shr al,4
    
66. ' CALL DEC2HEX
    
67. ' mov [ecx+edx],al ;写高位
    
68. ' mov al,ah
    
69. ' CALL DEC2HEX
    
70. ' mov [ecx+edx+1],al ;写低位
    
71. ' pop edx
    
72. ' pop ecx
    
73. ' pop eax
    
74. ' ret
    
75. ' DEC2HEX: ;十进制整数(0~15)转十六进制Ascii (AL进出)
    
76. ' AND AL,0FH ;处理低8位
    
77. ' .if Al >=0 && Al <=9 ;数字
    
78. ' ADD AL,30H
    
79. ' .else
    
80. ' .if BL == 1
    
81. ' ADD AL,37H ;大写+37H
    
82. ' .elseif
    
83. ' ADD AL,57H ;小写+57H
    
84. ' .endif
    
85. ' .endif
    
86. ' ret
    
87. 
    
88. 
    
89. .子程序 置入代码_十六进制文本到字节集, , 公开
    
90. .参数 输入文本, 文本型, , 不区分大小写，不得为奇数字节，非十六进制字符视为0处理
    
91. .参数 结果字节集, 字节集, 参考, 调用前结果字节集必须进行 取空白字节集(右移(取文本长度(输入文本),1))
    
92. 
    
93. 置入代码 ({ 139, 85, 8, 139, 18, 139, 77, 12, 139, 9, 131, 193, 8, 102, 139, 2, 102, 11, 192, 117, 2, 235, 15, 134, 224, 232, 10, 0, 0, 0, 136, 25, 131, 194, 2, 65, 235, 231, 201, 195, 102, 82, 138, 212, 232, 17, 0, 0, 0, 138, 218, 192, 227, 4, 138, 208, 232, 5, 0, 0, 0, 10, 218, 102, 90, 195, 128, 250, 48, 114, 10, 128, 250, 57, 119, 5, 128, 234, 48, 235, 32, 128, 250, 65, 114, 10, 128, 250, 70, 119, 5, 128, 234, 55, 235, 17, 128, 250, 97, 114, 10, 128, 250, 102, 119, 5, 128, 234, 87, 235, 2, 178, 0, 195 })
    
94. ' mov edx,[ebp+8]  ;文本地址
    
95. ' mov edx,[edx]  ;文本数据地址
    
96. ' mov ecx,[ebp+12] ;字节集地址
    
97. ' mov ecx,[ecx]  ;字节集数据地址
    
98. ' add ecx,8  ;数据地址+8
    
99. ' START:
    
100. ' mov ax,[edx] ;读文本2字节到AX寄存器
     
101. ' .if ax == 0 ;读到空字符
     
102. ' JMP ASM_END  ;结束转换
     
103. ' .endif
     
104. ' xchg ah,al  ;AH与AL交换 (AX高低字节交换)
     
105. ' CALL BYTE_HEX2DEC ;调用十六进制字符串转10进制
     
106. ' mov [ecx],bl  ;将转换结果写入字节集
     
107. ' add edx,2 ;文本数据地址+2
     
108. ' inc ecx  ;字节集数据地址+1
     
109. ' JMP START
     
110. ' ASM_END:
     
111. ' leave
     
112. ' retn 8
     
113. ' BYTE_HEX2DEC: ;将2个16进制字符串转为10进制 AX进 BL出(0~255)
     
114. ' push dx
     
115. ' mov dl,ah ;处理高位
     
116. ' call HEX2DEC
     
117. ' mov bl,dl
     
118. ' shl bl,4 ;左移4位
     
119. ' mov dl,al ;处理低位
     
120. ' call HEX2DEC
     
121. ' or bl,dl
     
122. ' pop dx
     
123. ' ret
     
124. ' HEX2DEC: ;将1个16进制字符串转换为10进制 DL进DL出(0~15)
     
125. ' .if dl >= 48 && dl <= 57 ;数字
     
126. ' sub dl,48
     
127. ' .elseif dl >= 65 && dl <=70 ;大写字母
     
128. ' sub dl,55
     
129. ' .elseif dl >= 97 && dl <=102 ;小写字母
     
130. ' sub dl,87
     
131. ' .else    ;非法字符
     
132. ' mov dl,0
     
133. ' .endif
     
134. ' ret
     

复制代码

520

沙发。