Librerie: Libreria di funzioni hash e conversioni in altri sistemi numerici

 

Libreria di funzioni hash e conversioni in altri sistemi numerici:

La libreria contiene algoritmi di funzioni hash di uso generale: adler32, CRC-32, MaHash8v64. Oltre a funzioni per convertire la rappresentazione da decimale a stringa nel sistema Base e viceversa.

Author: Aleksandr Chugunov

 

Buon pomeriggio!

Il compito è quello di tracciare i momenti di cambiamento di un insieme di collezioni di oggetti complessi. Posso convertire un oggetto e una collezione in una stringa, che sarà di circa 2000 caratteri per collezione. Potete dirmi quale funzione di libreria è più corretta per ottenere una rappresentazione breve di una stringa così lunga?

Документация по MQL5: Основы языка / Типы данных / Тип string
Документация по MQL5: Основы языка / Типы данных / Тип string
  • www.mql5.com
Тип string предназначен для хранения текстовых строк. Текстовая строка представляет собой последовательность символов в формате Unicode с завершающим нулем на конце. string-переменной может быть назначена строковая константа. Строковая константа представляет собой последовательность символов Unicode, заключенную в двойные кавычки: "Это...
 
Nikolai Karetnikov:

Buon pomeriggio!

Il compito è quello di tracciare i momenti di cambiamento di un insieme di collezioni di oggetti complessi. Posso convertire un oggetto e una collezione in una stringa, che sarà di circa 2000 caratteri per collezione. Potete dirmi quale funzione di libreria è più corretta per ottenere una rappresentazione breve di una stringa così lunga?

CryptEncode/Decode e scegliere i metodi HASH_xxx.

Si può anche fare ZIP :-) un testo normale di 2000 caratteri stampati è un misero 200-300 byte, che può stare in 4 long`es.

 

ErroreCryptDecode(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);
}

---

La funzione CryptEncodeA crea una stringa che poiCryptDecodeA non riesce a decifrare e dà un errore in mt4: "4029", in mt5: "4006". Il terminale ha criptato una stringa che non può decifrare da solo.

Riga del registro: vj9jDk+GxxB4W1zQc4/rC4OPvttMcgcF5ZFVC7m7l50=

Se si rimuove l'ultimo "=", la decodifica avviene senza errori.

Allo stesso tempo, php decodifica normalmente e correttamente:

$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;

---

Crittografare la stessa stringa sul server: "indicator_chart_window".

Ottenere il risultato:"vj9jDk+GxxB4W1zQc4/rC54fEtkLAsAONkyeprqmMlw=""

Inseriamo questa riga nel codice mql e otteniamo nuovamente un errore - rimuoviamo l'ultimo "=" e tutto funziona bene.

---

Ho messo una chiave di crittografia casuale, sul server la stringa è: "8CpXr3OlVhGs41syHA0+HqZKnatswQjRWn2fKYN4qN4=="

Ho inserito la stringa in mql-code - errore, horimosso un "=" lasciandone solo uno - ha funzionato bene (quale fosse la chiave che creava una stringa con due uguali - non sono riuscito a riprodurlo)

Vorrei avere una risposta, forse sto sbagliando qualcosa!

P.S. Ho allegato tutti i codici, quale potrebbe essere il problema?
 

La funzione StringToArray cattura lo zero di terminazione se non si specifica la lunghezza della stringa (storicamente).

Pertanto, nella funzione CryptDecodeA si dovrebbe usare

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

invece di

StringToCharArray(InputText,scr);
Документация по MQL5: Общие функции / CryptDecode
Документация по MQL5: Общие функции / CryptDecode
  • www.mql5.com
CryptDecode - Общие функции - Справочник MQL5 - Справочник по языку алгоритмического/автоматического трейдинга для MetaTrader 5
 
Ilyas:

La funzione StringToArray cattura lo zero di terminazione se non si specifica la lunghezza della stringa (storicamente)

Pertanto, nella funzione CryptDecodeA è necessario usare

invece di

@Ilyas

L'ho verificato in diverse varianti: tutto funziona.

Rimane un problema:

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

Come rimuovere i caratteri non stampati?

Grazie!

 
Vitaly Muzichenko:

@Ilyas

Ho controllato con diverse varianti: tutto funziona.

Rimane un problema:

Come rimuovere i caratteri non stampati?

Grazie!

Non esiste una funzione in MQL con la funzionalità di cui hai bisogno.

È più facile farlo prima di convertire l'array in una stringa:

//+------------------------------------------------------------------+
//|ArrayToString.mq5 |
//| Copyright 2021, MetaQuotes Software Corp. | |
//|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);
//--- nessun dato da convertire
   if(start>=input_size || count==0)
      return(NULL);
//--- fissare il parametro di avvio
   if(start<0)
      start=0;
//--- fissare il parametro del conteggio
   if(count<0 || count==WHOLE_ARRAY || (start+count)>input_size)
      count=input_size-start;
//--- convertire l'array di input così com'è
   if(!remove_non_printable)
      return(cvt::convert(input_array,start,count,codepage));
//--- rimuovere i simboli non stampabili dall'array di input
   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++];
      //--- verifica il negativo, input_array può essere firmato
      if(input_sym>0 && input_sym<' ')
         continue;
      //--- lo zero è il terminatore
      if(input_sym==0)
         break;
      //--- copia del simbolo di ingresso
      cvt_array[cvt_size++]=input_sym;
     }
//--- convertire l'array pulito in stringa
   return(cvt::convert(cvt_array,0,cvt_size));
  }
//+------------------------------------------------------------------+
//| Funzione di avvio del programma di script|
//+------------------------------------------------------------------+
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));
  }
//+------------------------------------------------------------------+