一个python代码，有高手能帮我转成易语言嘛

406873828

python代码如下：

import base64
Rename="00BFAD00"
Discover = bytes.fromhex(Rename)
print("字节串：", Discover)
Discover1 = base64.b32encode(Discover)
print("Base32编码：", Discover1)

这是输出的结果：
字节串： b'\x00\xbf\xad\x00'
Base32编码： b'AC722AA='

我的问题是要在易语言里面  实现  输入  00BFAD00  然后  返回 Base32编码  AC722AA=

b0y

406873828 发表于 2024-5-9 16:11
00BFAD00

我需要的是输入这个，然后执行。

精益模块  Base32Encode(   字节集_十六进制到字节集("00BFAD00"))

明天自然醒

自己查下base32原理,肯定有代码

zhwsc

可以让ai来帮你转的亲

尛龍科技

这就有是把原始的十六进制字符串被转换成字节串，然后这个字节串被转换成Base32编码的字符串

番茄吧

[JavaScript] 纯文本查看 复制代码

var H2b32 = function(srcStringH) {
    srcString = hex2a(srcStringH);
    var BASE32CHAR = "ABCDEFGHIJKLMNOPQRSTUVWXYZ234567";
    var i = 0;
    var index = 0;
    var digit = 0;
    var currByte;
    var nextByte;
    var retrunString = '';
   
    for (var i = 0; i < srcString.length; ) {
        currByte = srcString
        if (index > 3) {
            if ((i + 1) < srcString.length) {
                nextByte = srcString[i + 1]

            } else {
                nextByte = 0;
            }

            digit = currByte & (0xFF >> index);
            index = (index + 5) % 8;
            digit <<= index;
            digit |= (nextByte >> (8 - index));
            i++;
        } else {
            digit = (currByte >> (8 - (index + 5))) & 0x1F;
            index = (index + 5) % 8;

            if (index == 0) {
                i++;
            }
        }
        retrunString = retrunString + BASE32CHAR.charAt(digit);
    }
            while((retrunString.length % 8) !== 0){
                retrunString += "=";
            }

    return retrunString;
}


function hex2a(hexx) {
    var hex = hexx.toString();//force conversion
    
    var str_list = [];
    for (var i = 0; (i < hex.length ); i += 2)
        str_list.push(parseInt(hex.substr(i, 2), 16));
    
    return str_list;
}

测试了下，你这个编码没问题，只不过你要多测试下各种，因为要修改原版的，没搜到直接16进制编码的，如果有问题就自己改改吧

源码放这里了，网页直接复制可能会出错，下载下边的  txt吧
hex2base32.txt (1.33 KB, 下载次数: 3)

2024-5-9 06:09 上传

点击文件名下载附件
效果图

b0y

  

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

调试输出 (Base32Encode ({ 0, 191, 173, 0 }))  ' 00BFAD00
开始运行被调试程序
* “AC722AA=”
被调试易程序运行完毕

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (Base32Encode ({ 0, 191, 173, 0 }))  ' 00BFAD00<br /> 开始运行被调试程序<br /> * “AC722AA=”<br /> 被调试易程序运行完毕

1.e (11.18 KB, 下载次数: 7)

2024-5-9 09:52 上传

点击文件名下载附件

临时改了一下  

b0y

- -你把下面这段注释掉啊  



开始运行被调试程序
* “AC722AA=”
被调试易程序运行完毕

406873828

b0y 发表于 2024-5-9 14:11
- -你把下面这段注释掉啊  

00BFAD00

我需要的是输入这个，然后执行。