获取PE文件区段工具

.子程序 Hex, 长整数型
.参数 被转换文本, 文本型, , 将转换的文本型字符
.局部变量 整数, 长整数型
.局部变量 N, 整数型

被转换文本 ＝ 到大写 (被转换文本)
整数 ＝ 0
.计次循环首 (取文本长度 (被转换文本), N)
    .如果 (取代码 (被转换文本, N) ＞ 47 且 取代码 (被转换文本, N) ＜ 58 或 取代码 (被转换文本, N) ＞ 64 且 取代码 (被转换文本, N) ＜ 71)
        .如果 (取代码 (被转换文本, N) ＞ 57)
            整数 ＝ 整数 × 16 ＋ 取代码 (被转换文本, N) － 55
        .否则
            整数 ＝ 整数 × 16 ＋ 取代码 (被转换文本, N) － 48
        .如果结束

    .否则
        返回 (0)
    .如果结束

.计次循环尾 ()
返回 (整数)

.子程序 对齐进制, 文本型
.参数 十进制, 整数型
.局部变量 十六进制, 文本型

十六进制 ＝ 取十六进制文本 (十进制)
返回 (取重复文本 (8 － 取文本长度 (十六进制), “0”) ＋ 十六进制)

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())
' 取区段 (读入文件 (“C:\Users\Administrator\Desktop\手写PE\Test.exe”))