易语言MASM汇编置入代码实现检测文本型IP地址(IPv4地址)格式是否有效 (返回逻辑型)

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 
    
16. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“0.0.0.0”))
    
17. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“255.255.255.255”))
    
18. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“127.0.0.1”))
    
19. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“384.123.123.123”))
    
20. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“192.168.0.1”))
    
21. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“123.123.123.123”))
    
22. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“172.300.222.8”))
    
23. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“”))
    
24. 输出调试文本 (文本型_IPv4地址_格式是否有效 (“13..13.13”))
    
25. 
    
26. 
    
27. 
    
28. 
    
29. .子程序 文本型_IPv4地址_格式是否有效, 逻辑型, 公开
    
30. .参数 IPv4地址, 文本型
    
31. 
    
32. 置入代码 ({ 83, 81, 82, 86, 87, 139, 69, 8, 139, 0, 232, 166, 0, 0, 0, 131, 250, 7, 114, 5, 131, 250, 15, 118, 7, 51, 192, 233, 140, 0, 0, 0, 232, 168, 0, 0, 0, 131, 250, 3, 116, 4, 51, 192, 235, 126, 232, 180, 0, 0, 0, 10, 210, 117, 4, 51, 192, 235, 113, 232, 22, 1, 0, 0, 10, 210, 116, 4, 51, 192, 235, 100, 232, 46, 1, 0, 0, 10, 210, 117, 4, 51, 192, 235, 87, 50, 201, 235, 73, 232, 176, 0, 0, 0, 102, 129, 250, 255, 0, 118, 4, 51, 192, 235, 67, 128, 249, 3, 115, 50, 102, 131, 250, 0, 114, 11, 102, 131, 250, 9, 119, 5, 131, 192, 2, 235, 33, 102, 131, 250, 10, 114, 11, 102, 131, 250, 99, 119, 5, 131, 192, 3, 235, 16, 102, 131, 250, 100, 114, 10, 102, 129, 250, 255, 0, 119, 3, 131, 192, 4, 254, 193, 128, 249, 4, 114, 178, 184, 1, 0, 0, 0, 95, 94, 90, 89, 91, 201, 194, 4, 0, 80, 83, 139, 208, 138, 24, 10, 219, 117, 2, 235, 3, 64, 235, 245, 139, 216, 135, 218, 43, 211, 91, 88, 195, 80, 83, 51, 210, 138, 24, 10, 219, 117, 4, 235, 11, 235, 6, 128, 251, 46, 117, 1, 66, 64, 235, 237, 91, 88, 195, 80, 83, 138, 24, 10, 219, 117, 6, 178, 1, 235, 24, 235, 19, 128, 251, 48, 114, 5, 128, 251, 57, 118, 9, 128, 251, 46, 116, 4, 50, 210, 235, 3, 64, 235, 222, 91, 88, 195, 83, 81, 86, 51, 210, 51, 219, 51, 201, 190, 10, 0, 0, 0, 235, 48, 138, 28, 1, 128, 251, 48, 114, 5, 128, 251, 57, 118, 4, 235, 37, 235, 30, 128, 251, 48, 117, 7, 10, 255, 117, 3, 70, 235, 18, 183, 1, 128, 235, 48, 107, 210, 10, 83, 129, 227, 255, 0, 0, 0, 3, 211, 91, 65, 59, 206, 114, 204, 94, 89, 91, 195, 80, 83, 138, 24, 10, 219, 117, 6, 50, 210, 235, 22, 235, 17, 128, 251, 46, 117, 12, 138, 88, 1, 128, 251, 46, 117, 4, 178, 1, 235, 3, 64, 235, 224, 91, 88, 195, 80, 83, 138, 24, 10, 219, 117, 6, 178, 1, 235, 40, 235, 35, 128, 251, 46, 117, 30, 138, 88, 255, 138, 120, 1, 128, 251, 48, 114, 15, 128, 251, 57, 119, 10, 128, 255, 48, 114, 5, 128, 255, 57, 118, 4, 50, 210, 235, 3, 64, 235, 206, 91, 88, 195 })
    
33. ' push ebx
    
34. ' push ecx
    
35. ' push edx
    
36. ' push esi
    
37. ' push edi
    
38. ' mov eax,[ebp+8]
    
39. ' mov eax,[eax]
    
40. ' call TEXT_LEN ;
    
41. ' .if edx < 7 || edx > 15
    
42. ' xor eax,eax
    
43. ' jmp ASM_END
    
44. ' .endif
    
45. ' call TEXT_POINT_NUM
    
46. ' .if edx != 3
    
47. ' xor eax,eax
    
48. ' jmp ASM_END
    
49. ' .endif
    
50. ' call IS_TEXT_NUM_POINT
    
51. ' .if !dl
    
52. ' xor eax,eax
    
53. ' jmp ASM_END
    
54. ' .endif
    
55. ' call IS_TEXT_POINT2
    
56. ' .if dl
    
57. ' xor eax,eax
    
58. ' jmp ASM_END
    
59. ' .endif
    
60. ' call IS_TEXT_POINT_LR_NUM
    
61. ' .if !dl
    
62. ' xor eax,eax
    
63. ' jmp ASM_END
    
64. ' .endif
    
65. ' xor cl,cl
    
66. ' .while cl < 4
    
67. ' call TEXT2INT
    
68. ' .if dx > 255
    
69. ' xor eax,eax
    
70. ' jmp ASM_END
    
71. ' .endif
    
72. ' .if cl < 3
    
73. ' .if dx >= 0 && dx <= 9
    
74. ' add eax,2
    
75. ' .elseif dx >= 10 && dx <= 99
    
76. ' add eax,3
    
77. ' .elseif dx >= 100 && dx <= 255
    
78. ' add eax,4
    
79. ' .endif
    
80. ' .endif
    
81. ' inc cl
    
82. ' .endw
    
83. ' mov eax,1
    
84. ' ASM_END:
    
85. ' pop edi
    
86. ' pop esi
    
87. ' pop edx
    
88. ' pop ecx
    
89. ' pop ebx
    
90. ' leave
    
91. ' retn 4
    
92. ' TEXT_LEN: ;EAX:文本指针 EDX(返回):文本长度
    
93. ' push eax
    
94. ' push ebx
    
95. ' mov edx,eax
    
96. ' .while 1
    
97. ' mov bl,[eax]
    
98. ' .if !bl
    
99. ' .break
    
100. ' .endif
     
101. ' inc eax
     
102. ' .endw
     
103. ' mov ebx,eax
     
104. ' xchg ebx,edx
     
105. ' sub edx,ebx
     
106. ' pop ebx
     
107. ' pop eax
     
108. ' ret
     
109. ' TEXT_POINT_NUM:  ;EAX:文本指针 EDX:返回小数点的数量
     
110. ' push eax
     
111. ' push ebx
     
112. ' xor edx,edx
     
113. ' .while 1
     
114. ' mov bl,[eax]
     
115. ' .if !bl
     
116. ' .break
     
117. ' .elseif bl == 46
     
118. ' inc edx
     
119. ' .endif
     
120. ' inc eax
     
121. ' .endw
     
122. ' pop ebx
     
123. ' pop eax
     
124. ' ret
     
125. ' IS_TEXT_NUM_POINT: ;EAX:文本指针 DL:返回1或0 是否只包含数字0~9和小数点
     
126. ' push eax
     
127. ' push ebx
     
128. ' .while 1
     
129. ' mov bl,[eax]
     
130. ' .if ! bl
     
131. ' mov dl,1
     
132. ' .break
     
133. ' .elseif (bl < 48 || bl > 57) && bl != 46
     
134. ' xor dl,dl
     
135. ' .break
     
136. ' .endif
     
137. ' inc eax
     
138. ' .endw
     
139. ' pop ebx
     
140. ' pop eax
     
141. ' ret
     
142. ' ;文本整数转整数型(不支持负数,遇到其他字符终止转换)
     
143. ' ;EAX:文本指针 EDX:整数输出
     
144. ' TEXT2INT:
     
145. ' push ebx
     
146. ' push ecx
     
147. ' push esi
     
148. ' xor edx,edx
     
149. ' xor ebx,ebx
     
150. ' xor ecx,ecx
     
151. ' mov esi,10
     
152. ' .while ecx < esi
     
153. ' mov bl,[eax+ecx]
     
154. ' .if bl < 48 || bl > 57
     
155. ' .break
     
156. ' .elseif bl == 48 && !bh
     
157. ' inc esi
     
158. ' .else
     
159. ' mov bh,1
     
160. ' sub bl,48
     
161. ' imul edx,10
     
162. ' push ebx
     
163. ' and ebx,255
     
164. ' add edx,ebx
     
165. ' pop ebx
     
166. ' .endif
     
167. ' inc ecx
     
168. ' .endw
     
169. ' pop esi
     
170. ' pop ecx
     
171. ' pop ebx
     
172. ' ret
     
173. ' IS_TEXT_POINT2:  ;文本中是否有两个连续的小数点 EAX:文本指针 DL:返回1或0
     
174. ' push eax
     
175. ' push ebx
     
176. ' .while 1
     
177. ' mov bl,[eax]
     
178. ' .if !bl
     
179. ' xor dl,dl
     
180. ' .break
     
181. ' .elseif bl == 46
     
182. ' mov bl,[eax+1]
     
183. ' .if bl == 46
     
184. ' mov dl,1
     
185. ' .break
     
186. ' .endif
     
187. ' .endif
     
188. ' inc eax
     
189. ' .endw
     
190. ' pop ebx
     
191. ' pop eax
     
192. ' ret
     
193. ' IS_TEXT_POINT_LR_NUM: ;小数点左右是否都是数字 EAX:文本指针 DL:返回1或0
     
194. ' push eax
     
195. ' push ebx
     
196. ' .while 1
     
197. ' mov bl,[eax]
     
198. ' .if !bl
     
199. ' mov dl,1
     
200. ' .break
     
201. ' .elseif bl == 46
     
202. ' mov bl,[eax-1]
     
203. ' mov bh,[eax+1]
     
204. ' .if bl < 48 || bl > 57 || bh < 48 || bh > 57
     
205. ' xor dl,dl
     
206. ' .break
     
207. ' .endif
     
208. ' .endif
     
209. ' inc eax
     
210. ' .endw
     
211. ' pop ebx
     
212. ' pop eax
     
213. ' ret
     
214. 
     
215. 返回 (假)
     
216. 
     

复制代码

小清新

这个牛b

丨〇后

很强大的样子，小弟一句也看不懂