字符串加密后的文本跟原加密文本不同.有大佬帮忙看下吗

枯朽的梧桐树

用易语言加密出来的比原来加密的长度长前面一直后面直接裂开了 源码附上了大佬帮忙看看吧
测试解密.e (866.2 KB, 下载次数: 10)

2025-4-19 19:00 上传

点击文件名下载附件

aipca

这里要用对称加密，补齐16位数，用AES_DES_算法超过8位不补零，自然就会错了。

  

子程序名	返回值类型	公开	备 注
EncryStrHex	文本型
参数名	类 型	参考	可空	数组	备 注
加密内容	文本型
秘钥	文本型

返回 (字节集_字节集到十六进制 (对称加密 (到字节集 (加密内容), 到字节集 (秘钥), #对称算法_DES_ECB, #数据填充_NO_PADDING )))

.版本 2<br /> <br /> .子程序 EncryStrHex, 文本型<br /> .参数 加密内容, 文本型<br /> .参数 秘钥, 文本型<br /> <br /> 返回 (字节集_字节集到十六进制 (对称加密 (到字节集 (加密内容), 到字节集 (秘钥), #对称算法_DES_ECB, #数据填充_NO_PADDING)))

1425113841

那么"正确的结果"你从哪里得知的?

枯朽的梧桐树

1425113841 发表于 2025-4-19 20:26
那么"正确的结果"你从哪里得知的?

不能说是正确的结果 这是别的语言写法 加密后的文本然后我把里面的加密那些转换成易语言的加密就成这样了..

1425113841

枯朽的梧桐树 发表于 2025-4-19 20:28
不能说是正确的结果 这是别的语言写法 加密后的文本然后我把里面的加密那些转换成易语言的加密就成这样了 ...

那很明显就是你转成易语言的加密转错了呀, 那你应该上传别的语言的代码片段, 让别人给你转呀

wucheng666

发链接看看吧 老板

枯朽的梧桐树

wucheng666 发表于 2025-4-19 21:14
发链接看看吧 老板

function GetCode(S: string): string;

  function _ToCase(s: string): string;
  var
    i: integer;
  begin
    for i := 1 to Length(s) do
    begin
      case s of
        'a'..'z':
          begin
            Dec(s, Ord('a') - Ord('A'));
          end;
        'A'..'Z':
          begin
            Inc(s, 32);
          end;
      end;
    end;
    Result := s;
  end;

begin
  Result := StringReplace(StringReplace(StringReplace(_ToCase(Base64EncodeStr(EncryStrHex(Base64EncodeStr(EncryStrHex(S, S + 'user32.dll')), 'kernel32.dll'))), '+', '-', [rfReplaceAll]), '/', '\', [rfReplaceAll]), '=', '!', [rfReplaceAll]);
end;
这是源代码加密 这里面的加密就是模块里面的对称加密 剩下的哪个编码转换