递归火山软件开发平台

标题: 求助易语言中的取数据摘要,在火山PC中怎么替换 [打印本页]
作者: yzy533544    时间: 2023-11-1 03:55
标题: 求助易语言中的取数据摘要,在火山PC中怎么替换
.版本 2
.支持库 dp1

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

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

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

.判断结束
返回 (假)


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


谢谢!

作者: Diablo    时间: 2023-11-1 04:03
https://bbs.voldp.com/forum.php? ... 2&highlight=CNG
作者: b0y    时间: 2023-11-1 06:34
加解密类.取数据MD5 ()

引用openssl模块
(, 下载次数: 42)
作者: 创世魂    时间: 2023-11-1 07:29
加解密类.取数据MD5 ()  

取数据摘要也有。在数据操作支持2里面，
(, 下载次数: 52)
作者: b0y    时间: 2023-11-1 07:56
创世魂 发表于 2023-11-1 07:29
加解密类.取数据MD5 ()  

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

一般还真不好找  视窗基本类里 能不能加上
作者: yzy533544    时间: 2023-11-1 13:23
创世魂 发表于 2023-11-1 07:29
加解密类.取数据MD5 ()  

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

取出来的数据和易语言的不一样,不知道是什么地方的错误呢
作者: yzy533544    时间: 2023-11-1 13:24
b0y 发表于 2023-11-1 06:34
加解密类.取数据MD5 ()

引用openssl模块

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

文本编码不一样啊，火山的文本型是UTF-16编码，你要用 文本到多字节 ("", 假)  转换到 ANSI，才能跟易语言一样
作者: b0y    时间: 2023-11-1 16:58
本帖最后由 b0y 于 2023-11-1 17:03 编辑
yzy533544 发表于 2023-11-1 13:24
取出来的数据和易语言的不一样,不知道是什么地方的错误呢

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



(, 下载次数: 52)
作者: 创世魂    时间: 2023-11-1 21:50
本帖最后由 创世魂 于 2023-11-1 21:59 编辑
yzy533544 发表于 2023-11-1 13:23
取出来的数据和易语言的不一样,不知道是什么地方的错误呢

如果是文本要注意编码问题。。   想要和易语言一样，火山里面需要使用  文本到多字节（"111",假）
作者: 落雪有声    时间: 2023-11-3 12:11
  1. <火山程序 类型 = "通常" 版本 = 1 />

  3. 方法 取数据md5 <公开 类型 = 文本型 注释 = "bcrypt.h cng库方法" 折叠2 @视窗.外部头文件 = "bcrypt.h" @视窗.外部库 = "Bcrypt.lib"
  4.         @禁止流程检查 = 真>
  5. 参数 数据 <类型 = 字节集类 注释 = "提供所欲计算摘要的数据.">
  6. 参数 是否大写 <类型 = 逻辑型 注释 = "真为大写，假为小写，默认小写" @默认值 = 假>
  7. 参数 是否32位 <类型 = 逻辑型 注释 = "真为32位，假为16位，默认32位" @默认值 = 真>
  8. {

  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);//关闭算法程序

  29.     @ CWString Data=HashData.ToHexStr (CVolString ());//字节集到十六进制文本
  30.     @ if(!@<是否大写>){Data=Data.MakeLower ();}//大小写转换
  31.     @ if(!@<是否32位>){Data=Data.Middle (8,16);}
  32.     @ return Data;


  35. }
复制代码


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

可以了,谢谢您!



欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/) Powered by Discuz! X3.4