求助易语言中的取数据摘要,在火山PC中怎么替换

yzy533544

.版本 2
.支持库 dp1

.子程序 效验卡密2, 逻辑型
.参数 卡密, 文本型
.局部变量 前4, 文本型
.局部变量 MD5, 文本型
.局部变量 去前缀, 文本型

去前缀 ＝ 取文本右边 (卡密, 30)

前4 ＝ 取文本左边 (去前缀, 5)
MD5 ＝ 到大写 (取数据摘要 (到字节集 (前4)))
.判断开始 (寻找文本 (去前缀, 取文本右边 (MD5, 5), , 假) ≠ -1)
    返回 (真)
.默认

.判断结束
返回 (假)


上面易语言代码中的取数据摘要,请问在火山PC中要怎么写!或者替换成对应的方法


谢谢!

yzy533544

创世魂 发表于 2023-11-1 21:50
如果是文本要注意编码问题。。   想要和易语言一样，火山里面需要使用  文本到多字节（"111",假） ...

可以了,谢谢您!

落雪有声

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 取数据md5 <公开 类型 = 文本型 注释 = "bcrypt.h cng库方法" 折叠2 @视窗.外部头文件 = "bcrypt.h" @视窗.外部库 = "Bcrypt.lib"
   
4.         @禁止流程检查 = 真>
   
5. 参数 数据 <类型 = 字节集类 注释 = "提供所欲计算摘要的数据.">
   
6. 参数 是否大写 <类型 = 逻辑型 注释 = "真为大写，假为小写，默认小写" @默认值 = 假>
   
7. 参数 是否32位 <类型 = 逻辑型 注释 = "真为32位，假为16位，默认32位" @默认值 = 真>
   
8. {
   
9. 
   
10.     // 初始化 CNG 提供程序
    
11.     @ BCRYPT_ALG_HANDLE phAlgorithm;
    
12.     @ if (BCryptOpenAlgorithmProvider (&phAlgorithm,BCRYPT_MD5_ALGORITHM, NULL, 0)){return "";}
    
13.     // 创建哈希
    
14.     @ BCRYPT_HASH_HANDLE phHash;
    
15.     @ if (BCryptCreateHash (phAlgorithm, &phHash, NULL, NULL, NULL, 0, 0)){BCryptCloseAlgorithmProvider (phAlgorithm, 0);return "";}
    
16.     // 执行单向哈希
    
17.     @ if (BCryptHashData (phHash, (PUCHAR)@<数据>.GetPtr (), (ULONG)@<数据>.GetSize (), 0)){BCryptDestroyHash (phHash);BCryptCloseAlgorithmProvider (phAlgorithm, 0);return "";}
    
18.     // 函数检索属性的值
    
19.     @ DWORD dwHashDigLen, dwPropertySize;
    
20.     @ if (BCryptGetProperty (phAlgorithm, BCRYPT_HASH_LENGTH, (PUCHAR)&dwHashDigLen, 4, &dwPropertySize, 0)){BCryptDestroyHash (phHash);BCryptCloseAlgorithmProvider (phAlgorithm, 0);return "";}
    
21.     // 提取哈希数据
    
22.     @ CVolMem HashData;
    
23.     @ HashData.Alloc ((INT)dwHashDigLen, TRUE);
    
24.     @ BCryptFinishHash (phHash, (PUCHAR)HashData.GetPtr (), (ULONG)HashData.GetSize (), 0);
    
25.     // 释放哈希对象
    
26.     @ BCryptDestroyHash (phHash);//释放哈希对象
    
27.     @ BCryptCloseAlgorithmProvider (phAlgorithm, 0);//关闭算法程序
    
28. 
    
29.     @ CWString Data=HashData.ToHexStr (CVolString ());//字节集到十六进制文本
    
30.     @ if(!@<是否大写>){Data=Data.MakeLower ();}//大小写转换
    
31.     @ if(!@<是否32位>){Data=Data.Middle (8,16);}
    
32.     @ return Data;
    
33. 
    
34. 
    
35. }

复制代码

创世魂

yzy533544 发表于 2023-11-1 13:23
取出来的数据和易语言的不一样,不知道是什么地方的错误呢

如果是文本要注意编码问题。。   想要和易语言一样，火山里面需要使用  文本到多字节（"111",假）

b0y

yzy533544 发表于 2023-11-1 13:24
取出来的数据和易语言的不一样,不知道是什么地方的错误呢

md5一般都是转换为utf8 在加密的  

Xelloss0618

yzy533544 发表于 2023-11-1 13:24
取出来的数据和易语言的不一样,不知道是什么地方的错误呢

文本编码不一样啊，火山的文本型是UTF-16编码，你要用 文本到多字节 ("", 假)  转换到 ANSI，才能跟易语言一样

yzy533544

b0y 发表于 2023-11-1 06:34
加解密类.取数据MD5 ()

引用openssl模块

取出来的数据和易语言的不一样,不知道是什么地方的错误呢

yzy533544

创世魂 发表于 2023-11-1 07:29
加解密类.取数据MD5 ()  

取数据摘要也有。在数据操作支持2里面，

取出来的数据和易语言的不一样,不知道是什么地方的错误呢

b0y

创世魂 发表于 2023-11-1 07:29
加解密类.取数据MD5 ()  

取数据摘要也有。在数据操作支持2里面，

一般还真不好找  视窗基本类里 能不能加上

创世魂

加解密类.取数据MD5 ()  

取数据摘要也有。在数据操作支持2里面，