进制_十到十六EX（最长可支持到64位长整数型数值）

夏目阿布

说明一下，这个代码是我搜集的，感觉比精易模块里面的更强大，项目部的你们看一下

  

子程序名	返回值类型	公开	备 注
进制_十到十六EX	文本型		返回把长整数型值转换为16个字符组成的16进制文本
参数名	类 型	参考	可空	数组	备 注
十进制值	长整数型				最长可支持到64位长整数型数值.返回16个字符16进制文本
取字符数	整数型				默认返回 FFFFFFFF 共8个字符,可以指定返回多少个字符

变量名	类 型	静态	数组	备 注
十六进制	文本型

' 004033BA    8B45 10             mov     eax, dword ptr [ebp+10]          ; EAX=长度
' 004033BD    83F8 11             cmp     eax, 11                          ; 大于16?
' 004033C0    73 05               jnb     short 004033C7                   ; >16 跳
' 004033C2    83F8 00             cmp     eax, 0                           ; 大于0?
' 004033C5    75 05               jnz     short 004033CC                   ; <>0 跳
' 004033C7    B8 08000000         mov     eax, 8                           ; 字符08个
' 004033CC    8945 14             mov     dword ptr [ebp+14], eax          ; 非空=长度
' 8B 45 10 83 F8 11 73 05 83 F8 00 75 05 B8 08 00 00 00 89 45 14
置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })
十六进制 ＝ 取文本左边 (“0000000000000000”, 16)  ' 可写内存
取字符数 ＝ 取文本型指针 (十六进制)  ' 参数1=文本指针
' 77C62FD7    51              push    ecx                              ; 备份寄存器
' 77C62FD8    52              push    edx
' 77C62FD9    53              push    ebx
' 77C62FDA    B9 10000000     mov     ecx, 10                          ; ECX=16除数
' 77C62FDF    8B5D 10         mov     ebx, dword ptr [ebp+10]          ; EBX=文本指针
' 77C62FE2    83C3 0F         add     ebx, 0F                          ; EBX=低文本尾
' 77C62FE5    8B45 08         mov     eax, dword ptr [ebp+8]           ; EAX=低位
' 77C62FE8    85C0            test    eax, eax                         ; 数值=0?
' 77C62FEA    74 11           je      short 77C62FFD                   ; 等于0 跳
' 77C62FEC    33D2            xor     edx, edx                         ; EDX=0 余
' 77C62FEE    F7F1            div     ecx                              ; 除以16
' 77C62FF0    83FA 0A         cmp     edx, 0A                          ; 余>10
' 77C62FF3    72 03           jb      short 77C62FF8                   ; 小于 跳
' 77C62FF5    83C2 07         add     edx, 7                           ; 英文+55
' 77C62FF8    0013            add     byte ptr [ebx], dl               ; 数值+48
' 77C62FFA    4B              dec     ebx                              ; 递减指针
' 77C62FFB  ^ EB EB           jmp     short 77C62FE8                   ; 继续循环
' 77C62FFD    837D 0C 00      cmp     dword ptr [ebp+C], 0             ; 高位=0?
' 77C63001    74 0B           je      short 77C6300E                   ; 等于0 跳
' 77C63003    8745 0C         xchg    dword ptr [ebp+C], eax           ; 高低交换
' 77C63006    8B5D 10         mov     ebx, dword ptr [ebp+10]          ; EBX=文本指针
' 77C63009    83C3 07         add     ebx, 7                           ; EBX=高文本尾
' 77C6300C  ^ EB DA           jmp     short 77C62FE8                   ; 继续循环
' 77C6300E    5B              pop     ebx
' 77C6300F    5A              pop     edx
' 77C63010    59              pop     ecx                              ; 恢复寄存器
' 77C63011    8B45 14         mov     eax, dword ptr [ebp+14]          ; EAX=长度
' 77C63014    8945 10         mov     dword ptr [ebp+10], eax          ; 参数2=长度
' 51 52 53 B9 10 00 00 00 8B 5D 10 83 C3 0F 8B 45 08 85 C0 74 11 33 D2 F7 F1 83 FA 0A 72 03 83 C2
' 07 00 13 4B EB EB 83 7D 0C 00 74 0B 87 45 0C 8B 5D 10 83 C3 07 EB DA 5B 5A 59 8B 45 14 89 45 10
置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })
返回 (取文本右边 (十六进制, 取字符数))

.版本 2<br /> <br /> .子程序 进制_十到十六EX, 文本型, 公开, 返回把长整数型值转换为16个字符组成的16进制文本<br /> .参数 十进制值, 长整数型, , 最长可支持到64位长整数型数值.返回16个字符16进制文本<br /> .参数 取字符数, 整数型, 可空, 默认返回 FFFFFFFF 共8个字符,可以指定返回多少个字符<br /> .局部变量 十六进制, 文本型<br /> <br /> ' 004033BA    8B45 10             mov     eax, dword ptr [ebp+10]          ; EAX=长度<br /> ' 004033BD    83F8 11             cmp     eax, 11                          ; 大于16?<br /> ' 004033C0    73 05               jnb     short 004033C7                   ; >16 跳<br /> ' 004033C2    83F8 00             cmp     eax, 0                           ; 大于0?<br /> ' 004033C5    75 05               jnz     short 004033CC                   ; <>0 跳<br /> ' 004033C7    B8 08000000         mov     eax, 8                           ; 字符08个<br /> ' 004033CC    8945 14             mov     dword ptr [ebp+14], eax          ; 非空=长度<br /> ' 8B 45 10 83 F8 11 73 05 83 F8 00 75 05 B8 08 00 00 00 89 45 14<br /> 置入代码 ({ 139, 69, 16, 131, 248, 17, 115, 5, 131, 248, 0, 117, 5, 184, 8, 0, 0, 0, 137, 69, 20 })<br /> 十六进制 ＝ 取文本左边 (“0000000000000000”, 16)  ' 可写内存<br /> 取字符数 ＝ 取文本型指针 (十六进制)  ' 参数1=文本指针<br /> <br /> ' 77C62FD7    51              push    ecx                              ; 备份寄存器<br /> ' 77C62FD8    52              push    edx<br /> ' 77C62FD9    53              push    ebx<br /> ' 77C62FDA    B9 10000000     mov     ecx, 10                          ; ECX=16除数<br /> ' 77C62FDF    8B5D 10         mov     ebx, dword ptr [ebp+10]          ; EBX=文本指针<br /> ' 77C62FE2    83C3 0F         add     ebx, 0F                          ; EBX=低文本尾<br /> ' 77C62FE5    8B45 08         mov     eax, dword ptr [ebp+8]           ; EAX=低位<br /> ' 77C62FE8    85C0            test    eax, eax                         ; 数值=0?<br /> ' 77C62FEA    74 11           je      short 77C62FFD                   ; 等于0 跳<br /> ' 77C62FEC    33D2            xor     edx, edx                         ; EDX=0 余<br /> ' 77C62FEE    F7F1            div     ecx                              ; 除以16<br /> ' 77C62FF0    83FA 0A         cmp     edx, 0A                          ; 余>10<br /> ' 77C62FF3    72 03           jb      short 77C62FF8                   ; 小于 跳<br /> ' 77C62FF5    83C2 07         add     edx, 7                           ; 英文+55<br /> ' 77C62FF8    0013            add     byte ptr [ebx], dl               ; 数值+48<br /> ' 77C62FFA    4B              dec     ebx                              ; 递减指针<br /> ' 77C62FFB  ^ EB EB           jmp     short 77C62FE8                   ; 继续循环<br /> ' 77C62FFD    837D 0C 00      cmp     dword ptr [ebp+C], 0             ; 高位=0?<br /> ' 77C63001    74 0B           je      short 77C6300E                   ; 等于0 跳<br /> ' 77C63003    8745 0C         xchg    dword ptr [ebp+C], eax           ; 高低交换<br /> ' 77C63006    8B5D 10         mov     ebx, dword ptr [ebp+10]          ; EBX=文本指针<br /> ' 77C63009    83C3 07         add     ebx, 7                           ; EBX=高文本尾<br /> ' 77C6300C  ^ EB DA           jmp     short 77C62FE8                   ; 继续循环<br /> ' 77C6300E    5B              pop     ebx<br /> ' 77C6300F    5A              pop     edx<br /> ' 77C63010    59              pop     ecx                              ; 恢复寄存器<br /> ' 77C63011    8B45 14         mov     eax, dword ptr [ebp+14]          ; EAX=长度<br /> ' 77C63014    8945 10         mov     dword ptr [ebp+10], eax          ; 参数2=长度<br /> ' 51 52 53 B9 10 00 00 00 8B 5D 10 83 C3 0F 8B 45 08 85 C0 74 11 33 D2 F7 F1 83 FA 0A 72 03 83 C2<br /> ' 07 00 13 4B EB EB 83 7D 0C 00 74 0B 87 45 0C 8B 5D 10 83 C3 07 EB DA 5B 5A 59 8B 45 14 89 45 10<br /> <br /> <br /> 置入代码 ({ 81, 82, 83, 185, 16, 0, 0, 0, 139, 93, 16, 131, 195, 15, 139, 69, 8, 133, 192, 116, 17, 51, 210, 247, 241, 131, 250, 10, 114, 3, 131, 194, 7, 0, 19, 75, 235, 235, 131, 125, 12, 0, 116, 11, 135, 69, 12, 139, 93, 16, 131, 195, 7, 235, 218, 91, 90, 89, 139, 69, 20, 137, 69, 16 })<br /> 返回 (取文本右边 (十六进制, 取字符数))

liutao24k

？？？？？？？？？？？？？？？？？？？？？？？？

xtd小土豆

这不就是万挂作坊的

福仔

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (子程序1 (-1, 256, 真, 假))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
十进制值	长整数型
取字符数	整数型
是否为小写	逻辑型
不用0x开头	逻辑型

变量名	类 型	静态	数组	备 注
buf	文本型
fmt	文本型
bufSize	整数型

fmt ＝ 取空白文本 (20)
' 这里是拼接格式化使用的文本
' 第一个%s 是是否使用0x, 使用就传0x, 不使用就传空文本
' 第二个%% 弄一个百分号
' 第三个0 是不足位数使用0补充, 使用其他的话把0改成其他就行
' 第四个%d 是把16进制转成多少位数
' 第五个%s 是大写还是小写, llx, 大写就用大写的X, 小写就用小写
sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令 (fmt, 20, “%s%%0%d%s”, 选择 (不用0x开头, “”, “0x”), 取字符数, 选择 (是否为小写, “llx”, “llX”))
判断 (取字符数 ＜ 16)
' 小于16的话需要给19个字节的缓冲区
' 不然传递进来的数超大的话, 缓冲区就不够了
' 长整数最大16个字符, 加上0x, 再加上结束标识
' 最少需要19个字符
bufSize ＝ 19
bufSize ＝ 取字符数 ＋ 3

' 因为易语言的文本已经有结束标识了, 这里申请空白字符可以-1
buf ＝ 取空白文本 (bufSize － 1)
sprintf_s (buf, bufSize, fmt, 十进制值)  ' 这里的缓冲区尺寸不能-1, 否则会失败
调试输出 (fmt)
返回 (buf)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 (-1, 256, 真, 假))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 十进制值, 长整数型<br /> .参数 取字符数, 整数型, 可空<br /> .参数 是否为小写, 逻辑型, 可空<br /> .参数 不用0x开头, 逻辑型, 可空<br /> .局部变量 buf, 文本型<br /> .局部变量 fmt, 文本型<br /> .局部变量 bufSize, 整数型<br /> <br /> fmt ＝ 取空白文本 (20)<br /> ' 这里是拼接格式化使用的文本<br /> ' 第一个%s 是是否使用0x, 使用就传0x, 不使用就传空文本<br /> ' 第二个%% 弄一个百分号<br /> ' 第三个0 是不足位数使用0补充, 使用其他的话把0改成其他就行<br /> ' 第四个%d 是把16进制转成多少位数<br /> ' 第五个%s 是大写还是小写, llx, 大写就用大写的X, 小写就用小写<br /> sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令 (fmt, 20, “%s%%0%d%s”, 选择 (不用0x开头, “”, “0x”), 取字符数, 选择 (是否为小写, “llx”, “llX”))<br /> .判断开始 (取字符数 ＜ 16)<br />     ' 小于16的话需要给19个字节的缓冲区<br />     ' 不然传递进来的数超大的话, 缓冲区就不够了<br />     ' 长整数最大16个字符, 加上0x, 再加上结束标识<br />     ' 最少需要19个字符<br />     bufSize ＝ 19<br /> .默认<br />     bufSize ＝ 取字符数 ＋ 3<br /> .判断结束<br /> <br /> ' 因为易语言的文本已经有结束标识了, 这里申请空白字符可以-1<br /> buf ＝ 取空白文本 (bufSize － 1)<br /> sprintf_s (buf, bufSize, fmt, 十进制值)  ' 这里的缓冲区尺寸不能-1, 否则会失败<br /> 调试输出 (fmt)<br /> 返回 (buf)

稍微修改了一下

福仔

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (子程序1 (123))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
十进制值	长整数型
取字符数	整数型
是否为小写	逻辑型
不用0x开头	逻辑型

变量名	类 型	静态	数组	备 注
buf	文本型
fmt	文本型

fmt ＝ 取空白文本 (20)
' 第一个%s 是是否使用0x, 使用就传0x, 不使用就传空文本
' 第二个%% 弄一个百分号
' 第三个0 是不足位数使用0补充, 使用其他的话把0改成其他就行
' 第四个%d 是把16进制转成多少位数
' 第五个%s 是大写还是小写, llx, 大写就用大写的X, 小写就用小写
sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令 (fmt, 20, “%s%%0%d%s”, 选择 (不用0x开头, “”, “0x”), 取字符数, 选择 (是否为小写, “llx”, “llX”))
buf ＝ 取空白文本 (20)
sprintf_s (buf, 20, fmt, 十进制值)
返回 (buf)

DLL命令名	返回值类型	公开	备 注
sprintf_s	整数型
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
@sprintf_s
参数名	类 型	传址	数组	备 注
buf	文本型
size	整数型
fmt	文本型
num	长整数型

DLL命令名	返回值类型	公开	备 注
sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令	整数型
DLL库文件名:
ntdll.dll
在DLL库中对应命令名:
@sprintf_s
参数名	类 型	传址	数组	备 注
buf	文本型
size	整数型
fmt	文本型
a	文本型
a	整数型
a	文本型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 (123))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 十进制值, 长整数型<br /> .参数 取字符数, 整数型, 可空<br /> .参数 是否为小写, 逻辑型, 可空<br /> .参数 不用0x开头, 逻辑型, 可空<br /> .局部变量 buf, 文本型<br /> .局部变量 fmt, 文本型<br /> <br /> fmt ＝ 取空白文本 (20)<br /> ' 第一个%s 是是否使用0x, 使用就传0x, 不使用就传空文本<br /> ' 第二个%% 弄一个百分号<br /> ' 第三个0 是不足位数使用0补充, 使用其他的话把0改成其他就行<br /> ' 第四个%d 是把16进制转成多少位数<br /> ' 第五个%s 是大写还是小写, llx, 大写就用大写的X, 小写就用小写<br /> sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令 (fmt, 20, “%s%%0%d%s”, 选择 (不用0x开头, “”, “0x”), 取字符数, 选择 (是否为小写, “llx”, “llX”))<br /> buf ＝ 取空白文本 (20)<br /> sprintf_s (buf, 20, fmt, 十进制值)<br /> 返回 (buf)<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 sprintf_s, 整数型, "ntdll.dll", "@sprintf_s"<br />     .参数 buf, 文本型, 传址<br />     .参数 size, 整数型<br />     .参数 fmt, 文本型<br />     .参数 num, 长整数型<br /> <br /> .DLL命令 sprintf_s_神烦易语言不能无限参数_同一个功能还得定义N多个命令, 整数型, "ntdll.dll", "@sprintf_s"<br />     .参数 buf, 文本型, 传址<br />     .参数 size, 整数型<br />     .参数 fmt, 文本型<br />     .参数 a, 文本型<br />     .参数 a, 整数型<br />     .参数 a, 文本型

效率跟你比起来不知道怎样, 但是这个人人都能维护....