易语言MASM汇编置入代码将整数型数值转换到IPv4格式地址(IP地址)字符串 (返回文本型)

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 IP, 文本型
    
14. 
    
15. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
16. IP ＝ 整数型到IPv4地址文本 (1234567890)
    
17. 输出调试文本 (IP)
    
18. IP ＝ 整数型到IPv4地址文本 (-1)
    
19. 输出调试文本 (IP)
    
20. IP ＝ 整数型到IPv4地址文本 (十六进制 (“08080808”))
    
21. 输出调试文本 (IP)
    
22. IP ＝ 整数型到IPv4地址文本 (十六进制 (“0A0A0A0A”))
    
23. 输出调试文本 (IP)
    
24. IP ＝ 整数型到IPv4地址文本 (十六进制 (“64646464”))
    
25. 输出调试文本 (IP)
    
26. IP ＝ 整数型到IPv4地址文本 (十六进制 (“7F000001”))
    
27. 输出调试文本 (IP)
    
28. IP ＝ 整数型到IPv4地址文本 (十六进制 (“AAAAAAAA”))
    
29. 输出调试文本 (IP)
    
30. 
    
31. 
    
32. .子程序 整数型到IPv4地址文本, 文本型, 公开, 与PHP的 long2ip() 函数功能相同
    
33. .参数 IPv4整数, 整数型
    
34. .局部变量 文本缓存, 文本型
    
35. 
    
36. 文本缓存 ＝ 取空白文本 (15)
    
37. 置入代码 ({ 96, 139, 69, 8, 139, 117, 252, 177, 46, 80, 193, 232, 24, 232, 48, 0, 0, 0, 136, 14, 70, 88, 80, 193, 232, 16, 232, 35, 0, 0, 0, 136, 14, 70, 88, 80, 193, 232, 8, 232, 22, 0, 0, 0, 136, 14, 70, 88, 232, 13, 0, 0, 0, 50, 201, 136, 14, 70, 97, 139, 69, 252, 201, 194, 4, 0, 80, 83, 60, 10, 114, 14, 232, 64, 0, 0, 0, 128, 196, 48, 128, 195, 48, 128, 199, 48, 60, 0, 114, 11, 60, 9, 119, 7, 4, 48, 136, 6, 70, 235, 37, 60, 10, 114, 14, 60, 99, 119, 10, 136, 30, 136, 102, 1, 131, 198, 2, 235, 19, 60, 100, 114, 15, 60, 255, 119, 11, 136, 62, 136, 94, 1, 136, 102, 2, 131, 198, 3, 91, 88, 195, 81, 82, 138, 208, 50, 228, 50, 219, 50, 255, 60, 0, 114, 10, 60, 9, 119, 6, 138, 224, 235, 100, 235, 98, 60, 10, 114, 34, 60, 99, 119, 30, 181, 9, 177, 90, 235, 17, 56, 200, 114, 8, 138, 224, 42, 225, 138, 221, 235, 72, 254, 205, 128, 233, 10, 128, 249, 10, 115, 234, 235, 60, 60, 100, 114, 56, 60, 255, 119, 52, 181, 2, 177, 200, 235, 41, 56, 200, 114, 32, 138, 253, 181, 9, 42, 193, 177, 90, 235, 17, 56, 200, 114, 8, 138, 224, 42, 225, 138, 221, 235, 20, 254, 205, 128, 233, 10, 128, 249, 0, 115, 234, 254, 205, 128, 233, 100, 128, 249, 100, 115, 210, 138, 194, 90, 89, 195 })
    
38. ' pushad
    
39. ' mov eax,[ebp+8]
    
40. ' mov esi,[ebp-4]
    
41. ' mov cl,46
    
42. ' push eax
    
43. ' shr eax,24
    
44. ' call CHAR2TEXT
    
45. ' mov [esi],cl
    
46. ' inc esi
    
47. ' pop eax
    
48. ' push eax
    
49. ' shr eax,16
    
50. ' call CHAR2TEXT
    
51. ' mov [esi],cl
    
52. ' inc esi
    
53. ' pop eax
    
54. ' push eax
    
55. ' shr eax,8
    
56. ' call CHAR2TEXT
    
57. ' mov [esi],cl
    
58. ' inc esi
    
59. ' pop eax
    
60. ' call CHAR2TEXT
    
61. ' xor cl,cl
    
62. ' mov [esi],cl
    
63. ' inc esi
    
64. ' popad
    
65. ' mov eax,[ebp-4]
    
66. ' leave
    
67. ' retn 4
    
68. ' CHAR2TEXT:
    
69. ' push eax
    
70. ' push ebx
    
71. ' .if al >=10
    
72. ' call GET_BYTE_UTH
    
73. ' add ah,48
    
74. ' add bl,48
    
75. ' add bh,48
    
76. ' .endif
    
77. ' .if al >= 0 && al <= 9
    
78. ' add al,48
    
79. ' mov [esi],al
    
80. ' inc esi
    
81. ' .elseif al >= 10 && al <= 99
    
82. ' mov [esi],bl
    
83. ' mov [esi+1],ah
    
84. ' add esi,2
    
85. ' .elseif al >= 100 && al <=255
    
86. ' mov [esi],bh
    
87. ' mov [esi+1],bl
    
88. ' mov [esi+2],ah
    
89. ' add esi,3
    
90. ' .endif
    
91. ' pop ebx
    
92. ' pop eax
    
93. ' ret
    
94. ' GET_BYTE_UTH:
    
95. ' push ecx
    
96. ' push edx
    
97. ' mov dl,al
    
98. ' xor ah,ah
    
99. ' xor bl,bl
    
100. ' xor bh,bh
     
101. ' .if al >= 0  && al <= 9
     
102. ' mov ah,al
     
103. ' jmp GBU_END
     
104. ' .elseif al >= 10 && al <= 99
     
105. ' mov ch,9
     
106. ' mov cl,90
     
107. ' .while cl >= 10
     
108. ' .if al >= cl
     
109. ' mov ah,al
     
110. ' sub ah,cl
     
111. ' mov bl,ch
     
112. ' jmp GBU_END
     
113. ' .endif
     
114. ' dec ch
     
115. ' sub cl,10
     
116. ' .endw
     
117. ' .elseif al >= 100 && al <=255
     
118. ' mov ch,2
     
119. ' mov cl,200
     
120. ' .while cl >= 100
     
121. ' .if al >= cl
     
122. ' mov bh,ch
     
123. ' mov ch,9
     
124. ' sub al,cl
     
125. ' mov cl,90
     
126. ' .while cl >= 0
     
127. ' .if al >= cl
     
128. ' mov ah,al
     
129. ' sub ah,cl
     
130. ' mov bl,ch
     
131. ' jmp GBU_END
     
132. ' .endif
     
133. ' dec ch
     
134. ' sub cl,10
     
135. ' .endw
     
136. ' .endif
     
137. ' dec ch
     
138. ' sub cl,100
     
139. ' .endw
     
140. ' .endif
     
141. ' GBU_END:
     
142. ' mov al,dl
     
143. ' pop edx
     
144. ' pop ecx
     
145. ' ret
     
146. 
     
147. 返回 (“”)
     

复制代码

1心1亿

这个更是高手