求翻译成易语言

世界因你而不同

public static string GetUniqueCode(string timeStamp) {
            long j = Convert.ToInt64(timeStamp);
            string code_string = "ZFCDGHQABNOPIEJRSTUVMWXKLY";
            string str = "";
            while (j > 0) {
                int i = (int)(j % 26);
                j = (j - i) / 26;
                char[] charArray = code_string.ToCharArray();
                str += charArray[i];
            }
            byte[] keyB = Encoding.UTF8.GetBytes(str);
            long j2 = Convert.ToInt64(timeStamp) / 30000;
            byte[] dataB = new byte[8];
            for (int i = 7; i >= 0; i--) {
                dataB[i] = (byte)(int)(255 & j2);
                j2 >>= 8;
            }
            HMACSHA1 hmacSHA1 = new HMACSHA1(keyB);
            byte[] hmacBytes = hmacSHA1.ComputeHash(dataB);
            int i2 = hmacBytes[19] & 15;
            string uniqueCode = (((hmacBytes[i2 + 3] & byte.MaxValue) | ((hmacBytes[i2] & sbyte.MaxValue) << 24) | ((hmacBytes[i2 + 1] & byte.MaxValue) << 16) | ((hmacBytes[i2 + 2] & byte.MaxValue) << 8)) % 1000000).ToString().PadLeft(6, '0');
            return uniqueCode;
        }

|﹎℡若即

初夏喔 发表于 2022-9-5 14:32
总体来说，写的是对的

j ＝ 到整数 (timeStamp)

确实是这样
改了一下，传了份源码
14745010.e (917.45 KB, 下载次数: 6)

2022-9-5 14:43 上传

点击文件名下载附件

神女软件定制

编译dll给易调用

|﹎℡若即

不会c#，一边百d一边写的，能取到结果，没办法测试对不对，自行测试，用了精易模块和e2ee支持库，自行论坛搜索下载

  

子程序名	返回值类型	公开	备 注
_临时子程序

GetUniqueCode (时间_取现行时间戳 ())

子程序名	返回值类型	公开	备 注
GetUniqueCode	文本型
参数名	类 型	参考	可空	数组	备 注
timeStamp	文本型

变量名	类 型	静态	数组	备 注
j	整数型
code_string	文本型
str	文本型
i	整数型
charArray	文本型		0
keyB	字节集
j2	整数型
dataB	字节集
Encrypt	加解密对象
hmacBytes	字节集
i2	整数型
uniqueCode	文本型

j ＝ 到整数 (timeStamp)
code_string ＝ “ZFCDGHQABNOPIEJRSTUVMWXKLY”
str ＝ “”
判断循环首 (j ＞ 0)
i ＝ j ％ 26
j ＝ (j － i) ÷ 26
文本_逐字分割 (code_string, charArray)
str ＝ str ＋ charArray [i ＋ 1]
判断循环尾 ()
keyB ＝ 编码_Ansi到Utf8 (str)
j2 ＝ 到整数 (timeStamp) ÷ 30000
dataB ＝ 取空白字节集 (8)
变量循环首 (8, 1, -1, i)
dataB [i] ＝ 位与 (255, j2)
j2 ＝ 右移 (j2, 8)
变量循环尾 ()
调试输出 (dataB, keyB)
hmacBytes ＝ 编码_BASE64解码 (Encrypt.取HMAC值 ( #哈希算法_SHA1, dataB, keyB, #文本内容类型_Base64 ), )
i2 ＝ 位与 (hmacBytes [20], 15) ＋ 1
uniqueCode ＝ 文本_自动补零 (到文本 (到整数 (位或 (位或 (位或 (位与 (hmacBytes [i2 ＋ 3], 255), 左移 (位与 (hmacBytes [i2], 127), 24)), 左移 (位与 (hmacBytes [i2 ＋ 1], 255), 16)), 左移 (位与 (hmacBytes [i2 ＋ 2], 255), 8)) ％ 1000000)), 6)
调试输出 (uniqueCode)
返回 (uniqueCode)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> <br /> GetUniqueCode (时间_取现行时间戳 ())<br /> <br /> .子程序 GetUniqueCode, 文本型<br /> .参数 timeStamp, 文本型<br /> .局部变量 j, 整数型<br /> .局部变量 code_string, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 charArray, 文本型, , "0"<br /> .局部变量 keyB, 字节集<br /> .局部变量 j2, 整数型<br /> .局部变量 dataB, 字节集<br /> .局部变量 Encrypt, 加解密对象<br /> .局部变量 hmacBytes, 字节集<br /> .局部变量 i2, 整数型<br /> .局部变量 uniqueCode, 文本型<br /> <br /> j ＝ 到整数 (timeStamp)<br /> code_string ＝ “ZFCDGHQABNOPIEJRSTUVMWXKLY”<br /> str ＝ “”<br /> .判断循环首 (j ＞ 0)<br />     i ＝ j ％ 26<br />     j ＝ (j － i) ÷ 26<br />     文本_逐字分割 (code_string, charArray)<br />     str ＝ str ＋ charArray [i ＋ 1]<br /> .判断循环尾 ()<br /> keyB ＝ 编码_Ansi到Utf8 (str)<br /> j2 ＝ 到整数 (timeStamp) ÷ 30000<br /> dataB ＝ 取空白字节集 (8)<br /> .变量循环首 (8, 1, -1, i)<br />     dataB <i> ＝ 位与 (255, j2)<br />     j2 ＝ 右移 (j2, 8)<br /> .变量循环尾 ()<br /> 调试输出 (dataB, keyB)<br /> hmacBytes ＝ 编码_BASE64解码 (Encrypt.取HMAC值 (#哈希算法_SHA1, dataB, keyB, #文本内容类型_Base64), )<br /> i2 ＝ 位与 (hmacBytes [20], 15) ＋ 1<br /> <br /> uniqueCode ＝ 文本_自动补零 (到文本 (到整数 (位或 (位或 (位或 (位与 (hmacBytes [i2 ＋ 3], 255), 左移 (位与 (hmacBytes [i2], 127), 24)), 左移 (位与 (hmacBytes [i2 ＋ 1], 255), 16)), 左移 (位与 (hmacBytes [i2 ＋ 2], 255), 8)) ％ 1000000)), 6)<br /> <br /> 调试输出 (uniqueCode)<br /> 返回 (uniqueCode)

初夏喔

|﹎℡若即 发表于 2022-9-5 13:09
不会c#，一边百d一边写的，能取到结果，没办法测试对不对，自行测试，用了精易模块和e2ee支持库，自行论坛 ...

总体来说，写的是对的

j ＝ 到整数 (timeStamp)
j2 ＝ 到整数 (timeStamp) ÷ 30000

这些改成长整数就好了，变量声明那边也要改一下，你用整数算出来的值是错的