资料库: Hash函数库

[Automated-Trading]

Hash函数库:

该库包含以下hash函数：adler32, CRC-32, MaHash8v64。它也有用于将数字基数转换的函数。

作者： Александр Чугунов

[Nikolai Karetnikov]

下午好！

我们的任务是跟踪一组复杂对象集合的变化时刻。我可以将一个对象和一个集合转换成字符串，每个集合大约需要 2000 个字符。您能告诉我哪一个库函数更适合获得如此长字符串 的简短表示吗？

[Maxim Kuznetsov]

Nikolai Karetnikov:

下午好！

我们的任务是跟踪一组复杂对象集合的变化时刻。我可以将一个对象和一个集合转换成字符串，每个集合大约需要 2000 个字符。您能告诉我哪一个库函数更适合获得如此长字符串 的简短表示吗？

CryptEncode/Decode 和选择 HASH_xxx 方法。

您甚至可以使用 ZIP :-)一个 2000 个印刷字符的普通文本只有区区 200-300 字节，可以容纳 4 个 long`es。

[Vitaly Muzichenko]

错误CryptDecode(CRYPT_BASE64)

int OnInit()
{
   string text="";
   string res="";
   string key="fuyTkH3cd63K9Htrl2xdFgjerPjmla8h";

   text="indicator_chart_window";
   if(!CryptEncodeA(text,key,res))
      Print("Error: Encode:",GetLastError());

   Print(res);

   text="vj9jDk+GxxB4W1zQc4/rC4OPvttMcgcF5ZFVC7m7l50=";
   if(!CryptDecodeA(text,key,res))
      Print("Error: Decode:",GetLastError());

   Print(res);
   return(INIT_SUCCEEDED);
}

//------------------------------------------------------------------
bool CryptEncodeA(string InputText,string key,string &Output) {
   uchar scr[];
   uchar dst[];
   uchar res[];
   uchar key_aes256[];
   uchar key_base64[];
   StringToCharArray(InputText,scr);
   StringToCharArray(key,key_aes256);
   if(CryptEncode(CRYPT_AES256,scr,key_aes256,dst)==0) return(false);
   if(CryptEncode(CRYPT_BASE64,dst,key_base64,res)==0) return(false);
   Output = CharArrayToString(res);
   return(true);
}
//--
bool CryptDecodeA(string InputText,string key,string &Output) {
   uchar scr[];
   uchar dst[];
   uchar res[];
   uchar key_base64[];
   uchar key_aes256[];
   StringToCharArray(InputText,scr);
   StringToCharArray(key,key_aes256);
   if(CryptDecode(CRYPT_BASE64,scr,key_base64,dst)==0) return(false);
   if(CryptDecode(CRYPT_AES256,dst,key_aes256,res)==0) return(false);
   Output = CharArrayToString(res);
   return(true);
}

---

CryptEncodeA 函数 创建了一个 字符串，然后CryptDecodeA 无法 解密该字符串，并在 mt4 中显示错误："4029"，在 mt5 中显示错误："4006"。终端已加密，无法自行解密。

日志行： vj9jDk+GxxB4W1zQc4/rC4OPvttMcgcF5ZFVC7m7l50=

如果删除最后一个"="-，就可以解密，而且不会出错。

同时，php 也能正常解码：

$secret_key = 'fuyTkH3cd63K9Htrl2xdFgjerPjmla8h';

$s = "indicator_chart_window";
$res = base64_encode(openssl_encrypt($s,"AES-256-ECB",$secret_key,OPENSSL_RAW_DATA));
echo $res.'<br>';

$s= "vj9jDk+GxxB4W1zQc4/rC54fEtkLAsAONkyeprqmMlw=";
$res = openssl_decrypt(base64_decode($s),"AES-256-ECB",$secret_key,OPENSSL_ZERO_PADDING|OPENSSL_RAW_DATA);
echo $res;

---

在服务器上加密相同的字符串："indicator_chart_window".

获取结果："vj9jDk+GxxB4W1zQc4/rC54fEtkLAsAONkyeprqmMlw=""

我们将这一行插入 mql 代码，再次出现错误 - 删除最后一个"="，一切正常。

---

我输入了一些随机加密密钥，服务器上的字符串是："8CpXr3OlVhGs41syHA0+HqZKnatswQjRWn2fKYN4qN4=="。

我将该字符串插入 mql-code--出错，删除一个"="，只留下一个 -- 工作正常（创建两个等号字符串的密钥是什么--我无法重现）。

我想知道答案，也许我做错了什么！

附：我附上了所有代码，问题出在哪里？

[Ilyas]

如果没有指定字符串的长度，StringToArray 函数会捕获终止符 0（历史上）。

因此，在 CryptDecodeA 函数中应使用

StringToCharArray(InputText,scr,0,StringLen(InputText));

而不是

StringToCharArray(InputText,scr);

[Vitaly Muzichenko]

Ilyas:

如果未指定字符串的长度，StringToArray 函数会捕获终止符 0（历史性地）

因此，在 CryptDecodeA 函数中必须使用

而不是

@Ilyas

我检查了不同的变体，一切正常。

还有 一个问题：

StringReplace(res,"\x00..\x1F",""); // Не помогает

如何删除非打印字符？

谢谢！

[Ilyas]

Vitaly Muzichenko:

@Ilyas

检查了不同的变体 - 一切正常。

还有 一个问题：

如何删除无法打印的字符？

谢谢！

MQL 中没有您需要的功能。

在将数组转换为字符串之前做这件事比较容易：

//+------------------------------------------------------------------+
//|ArrayToString.mq5
//| 2021 年 MetaQuotes 软件公司版权所有。
//|https：//www.mql5.com | |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
//+------------------------------------------------------------------+
//||
//+------------------------------------------------------------------+
template<typename TChar>
string ArrayToString(const TChar &input_array[],bool remove_non_printable=false,int start=0,int count=-1,int codepage=CP_ACP)
  {
   struct cvt
     {
      static string convert(const uchar &input_array[],int start=0,int count=-1,int codepage=CP_ACP) { return(CharArrayToString(input_array,start,count,codepage)); }
      static string convert(const short &input_array[],int start=0,int count=-1,int codepage=CP_ACP) { return(ShortArrayToString(input_array,start,count)); }      
     };
  
   int input_size =ArraySize(input_array);
//--- 没有要转换的数据
   if(start>=input_size || count==0)
      return(NULL);
//--- 固定起始参数
   if(start<0)
      start=0;
//--- 固定计数参数
   if(count<0 || count==WHOLE_ARRAY || (start+count)>input_size)
      count=input_size-start;
//--- 按原样转换输入数组
   if(!remove_non_printable)
      return(cvt::convert(input_array,start,count,codepage));
//--- 从输入数组中删除不可打印的符号
   TChar cvt_array[];
   int   cvt_size=0;

   if(!ArrayResize(cvt_array,input_size))
      return(NULL);

   for(int i=0,n=start; i<input_size; i++)
     {
      const TChar input_sym = input_array[n++];
      //--- 检查负数，输入数组可以是带符号的
      if(input_sym>0 && input_sym<' ')
         continue;
      //----零是终止符
      if(input_sym==0)
         break;
      //--- 复制输入符号
      cvt_array[cvt_size++]=input_sym;
     }
//--- 将清理过的数组转换为字符串
   return(cvt::convert(cvt_array,0,cvt_size));
  }
//+------------------------------------------------------------------+
//| 脚本程序启动功能|
//+------------------------------------------------------------------+
void OnStart()
  {
   uchar input_array_uc[]= { 1, 'T', 2, 'h', 3, 'e', 4, ' ', 5, 'q', 6, 'u', 7, 'i', 8, 'c', 9, 'k', 10, ' ', 11, 'b', 12, 'r', 13, 'o', 14, 'w', 15, 'n', 16, ' ', 15, 'f', 16, 'o', 17, 'x', 18, ' ', 19, 'j', 20, 'u',
                            21, 'm', 22, 'p', 23, 's', 24, ' ', 25, 'o', 26, 'v', 27, 'e', 28, 'r', 29, ' ', 30, 't', 31, 'h','e',' ','l','a','z','y',' ','d','o','g','.', 0, 'X', 'X', 'X', 'X', 'X', 'X' };
   short input_array_s []= { 1, 'T', 2, 'h', 3, 'e', 4, ' ', 5, 'q', 6, 'u', 7, 'i', 8, 'c', 9, 'k', 10, ' ', 11, 'b', 12, 'r', 13, 'o', 14, 'w', 15, 'n', 16, ' ', 15, 'f', 16, 'o', 17, 'x', 18, ' ', 19, 'j', 20, 'u',
                            21, 'm', 22, 'p', 23, 's', 24, ' ', 25, 'o', 26, 'v', 27, 'e', 28, 'r', 29, ' ', 30, 't', 31, 'h','e',' ','l','a','z','y',' ','d','o','g','.', 0, 'X', 'X', 'X', 'X', 'X', 'X' };

   Print("without removing non-printables");
   Print(ArrayToString(input_array_uc));
   Print(ArrayToString(input_array_s));

   Print("with removing non-printables");
   Print(ArrayToString(input_array_uc,true));
   Print(ArrayToString(input_array_s,true));
  }
//+------------------------------------------------------------------+