467 lines
16 KiB
MQL5
467 lines
16 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| Encrypt.mqh |
|
|
//| Copyright 2026, MetaQuotes Ltd. |
|
|
//| https://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2026, MetaQuotes Ltd."
|
|
#property link "https://www.mql5.com"
|
|
#property strict
|
|
|
|
#ifndef MQLARTICLES_UTILS_ENCRYPT_ENCRYPT_MQH
|
|
#define MQLARTICLES_UTILS_ENCRYPT_ENCRYPT_MQH
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
#include "..\\Basic.mqh"
|
|
#include "..\\RandomSimple.mqh"
|
|
#include "..\\File\\File.mqh"
|
|
/*
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_BASE64 = 0
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_AES128 = 1
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_AES256 = 2
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_DES = 3
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_HASH_SHA1 = 4
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_HASH_SHA256 = 5
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_HASH_MD5 = 6
|
|
2026.03.26 17:37:44.570 Test (EURUSD,H1) CRYPT_ARCH_ZIP = 7
|
|
*/
|
|
|
|
//---
|
|
const uint8_t g_mqlarticles_entryptor_key_len[3] =
|
|
{
|
|
16, // CRYPT_AES128
|
|
32, // CRYPT_AES256
|
|
7 // CRYPT_DES
|
|
};
|
|
|
|
//---
|
|
const bool g_mqlarticles_entryptor_is_encrypther[8] =
|
|
{
|
|
false,
|
|
true,
|
|
true,
|
|
true,
|
|
false,
|
|
false,
|
|
false,
|
|
false
|
|
};
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
typedef uchar(*FuncGenerateRandomUchar)(void* ptr, uchar start, uchar stop);
|
|
uchar RandomSimpleGenerateRandomUchar(void* ptr, uchar start, uchar stop) { return (uchar)((CRandomSimple*)ptr).RandomShort(start, stop); }
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
class CEncryptor : public CLoggerBase
|
|
{
|
|
private:
|
|
string m_key;
|
|
public:
|
|
CEncryptor(void) {}
|
|
~CEncryptor(void) {}
|
|
|
|
//---
|
|
void Key(const string& key) { m_key = key; }
|
|
__forceinline string Key() const { return m_key; }
|
|
|
|
//---
|
|
bool SetAleatoryKey(ENUM_CRYPT_METHOD method, FuncGenerateRandomUchar f_generate_char, void* ptr = NULL, uchar chart_start = 32, uchar chart_stop = 255);
|
|
|
|
//---
|
|
bool EncryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string ext_encrypt = "");
|
|
bool DecryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string ext_decrypt = "");
|
|
bool DecryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, uchar& res_data[]);
|
|
__forceinline bool DecryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string& res_data, int start,
|
|
int count = WHOLE_ARRAY, uint codepage = CP_ACP);
|
|
|
|
//---
|
|
bool EncryptText(const string& initial_text, ENUM_CRYPT_METHOD method, string& encrypted_text);
|
|
bool DecryptText(const string& encrypted_text, ENUM_CRYPT_METHOD method, string& decrypted_text);
|
|
};
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::SetAleatoryKey(ENUM_CRYPT_METHOD method, FuncGenerateRandomUchar f_generate_char, void* ptr = NULL, uchar chart_start = 32, uchar chart_stop = 255)
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo de encrypt = %s, no es de encryptacion de archivos", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
m_key.Truncate(clen);
|
|
for(int i = 0; i < clen; i++)
|
|
{
|
|
m_key.SetChar(i, f_generate_char(ptr, chart_start, chart_stop));
|
|
}
|
|
|
|
//---
|
|
return true;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::EncryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string ext_encrypt = "")
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo de encrypt = %s, no es de encryptacion de archivos", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
if(m_key.Length() != clen)
|
|
{
|
|
LogError(StringFormat("La clave debe de tener un len de %u chars, con el metodo = %s", clen, EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
::ResetLastError();
|
|
const int common_file_flag = (common_flag ? FILE_COMMON : 0);
|
|
int fh = FileOpen(file_name, FILE_BIN | FILE_READ | common_file_flag);
|
|
if(fh == INVALID_HANDLE)
|
|
{
|
|
LogError(StringFormat("Fallo al abrir el archivo = %s, ultimo error =%d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
uchar data[];
|
|
FileReadArray(fh, data);
|
|
FileClose(fh);
|
|
|
|
//---
|
|
uchar key_chars[];
|
|
StringToCharArray(m_key, key_chars, 0, clen);
|
|
|
|
//--- Encryptamos
|
|
uchar res[];
|
|
::ResetLastError();
|
|
if(CryptEncode(method, data, key_chars, res) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al encriptar el archivo %s a AES256, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Creamos el archivo 2 (o sobreescribimos si ext = "")
|
|
// Para la extension como minimo se requiere dos caracteres el punto y algo eg: .h minimo de lo contraio se considera que no se desea extension
|
|
::ResetLastError();
|
|
fh = FileOpen((file_name + (ext_encrypt.Length() > 2 ? ext_encrypt : "")), FILE_BIN | FILE_WRITE | common_file_flag);
|
|
if(fh == INVALID_HANDLE)
|
|
{
|
|
LogError(StringFormat("Fallo al abrir el archivo = %s, ultimo error =%d", (file_name + ext_encrypt), ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
FileWriteArray(fh, res);
|
|
FileClose(fh);
|
|
|
|
//--- Ahora si eliminamso el archivo previo si es que se pide
|
|
::ResetLastError();
|
|
if(delete_prev_file && !FileDelete(file_name, common_file_flag))
|
|
{
|
|
LogWarning(StringFormat("Fallo al eliminar el archivo = %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
}
|
|
|
|
//---
|
|
return true;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Desencripta un archivo |
|
|
//| file_name : ruta del archivo encriptado |
|
|
//| common_flag : true = carpeta Common, false = carpeta Files\ |
|
|
//| method : metodo de encriptacion usado al encriptar |
|
|
//| delete_prev_file: true = elimina el archivo encriptado original |
|
|
//| ext_decrypt : controla el nombre del archivo de salida: |
|
|
//| - "" = sobreescribe el mismo archivo |
|
|
//| - ".ext" = agrega extension file.enc → file.enc.ext |
|
|
//| - "-" = quita la ultima extension file.enc → file |
|
|
//| - ".ext-" = reemplaza ultima ext file.enc → file.ext |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::DecryptFile(const string& file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string ext_decrypt = "")
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo = %s, no es de encryptacion de archivos", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
if(m_key.Length() != clen)
|
|
{
|
|
LogError(StringFormat("La clave debe de tener un len de %u chars, con el metodo = %s", clen, EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
::ResetLastError();
|
|
const int common_file_flag = (common_flag ? FILE_COMMON : 0);
|
|
int fh = FileOpen(file_name, FILE_BIN | FILE_READ | common_file_flag);
|
|
if(fh == INVALID_HANDLE)
|
|
{
|
|
LogError(StringFormat("Fallo al abrir el archivo = %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
uchar data[];
|
|
FileReadArray(fh, data);
|
|
FileClose(fh);
|
|
|
|
//---
|
|
uchar key_chars[];
|
|
StringToCharArray(m_key, key_chars, 0, clen);
|
|
|
|
//--- Desencryptamos
|
|
uchar res[];
|
|
::ResetLastError();
|
|
if(CryptDecode(method, data, key_chars, res) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al desencriptar el archivo %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Creamos el archivo destino (o sobreescribimos si ext = "")
|
|
// si ext_decrypt contiene el . entonces es exntesion si no el nombre del archivo out
|
|
string out_file_name = "";
|
|
if(StringFindCharWRef(ext_decrypt, '.'))
|
|
{
|
|
const uint len = (ext_decrypt.Length());
|
|
if(ext_decrypt[len - 1] == '-') // -. quiere decir elimina la extension previa y añade esta nueva
|
|
{
|
|
ext_decrypt.Truncate(len - 1); // quitamos el - final eg si tiewnmaos extdecurp como .txt- queda .txt
|
|
out_file_name = FileRemoveExtension(file_name) + ext_decrypt;
|
|
}
|
|
else
|
|
{
|
|
out_file_name = file_name + ext_decrypt;
|
|
}
|
|
}
|
|
else
|
|
if(StringFindCharWRef(ext_decrypt, '-')) // quiere decir solo quita la extension que ya tenia
|
|
{
|
|
out_file_name = FileRemoveExtension(file_name); // Removes la primera extension (volvemos al extado original)
|
|
}
|
|
else
|
|
{
|
|
out_file_name = file_name; // lo mismo sobrescribe
|
|
}
|
|
|
|
// Abrimos el archivo res
|
|
::ResetLastError();
|
|
fh = FileOpen(out_file_name, FILE_BIN | FILE_WRITE | common_file_flag);
|
|
if(fh == INVALID_HANDLE)
|
|
{
|
|
LogError(StringFormat("Fallo al abrir el archivo = %s, ultimo error = %d", out_file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
FileWriteArray(fh, res);
|
|
FileClose(fh);
|
|
|
|
//--- Ahora si eliminamos el archivo previo si es que se pide
|
|
::ResetLastError();
|
|
if(delete_prev_file && !FileDelete(file_name, common_file_flag))
|
|
{
|
|
LogWarning(StringFormat("Fallo al eliminar el archivo = %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
}
|
|
|
|
//---
|
|
return true;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::DecryptFile(const string &file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, uchar &res_data[])
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo = %s, no es de encryptacion de archivos", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
if(m_key.Length() != clen)
|
|
{
|
|
LogError(StringFormat("La clave debe de tener un len de %u chars, con el metodo = %s", clen, EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
::ResetLastError();
|
|
const int common_file_flag = (common_flag ? FILE_COMMON : 0);
|
|
int fh = FileOpen(file_name, FILE_BIN | FILE_READ | common_file_flag);
|
|
if(fh == INVALID_HANDLE)
|
|
{
|
|
LogError(StringFormat("Fallo al abrir el archivo = %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
uchar data[];
|
|
FileReadArray(fh, data);
|
|
FileClose(fh);
|
|
|
|
//---
|
|
uchar key_chars[];
|
|
StringToCharArray(m_key, key_chars, 0, clen);
|
|
|
|
//--- Desencryptamos
|
|
::ResetLastError();
|
|
if(CryptDecode(method, data, key_chars, res_data) == 0) // Los datos lo ponemos en el array uchar proporcionado
|
|
{
|
|
LogError(StringFormat("Fallo al desencriptar el archivo %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Ahora si eliminamos el archivo previo si es que se pide
|
|
::ResetLastError();
|
|
if(delete_prev_file && !FileDelete(file_name, common_file_flag))
|
|
{
|
|
LogWarning(StringFormat("Fallo al eliminar el archivo = %s, ultimo error = %d", file_name, ::GetLastError()), FUNCION_ACTUAL);
|
|
}
|
|
|
|
//---
|
|
return true;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
__forceinline bool CEncryptor::DecryptFile(const string &file_name, bool common_flag, ENUM_CRYPT_METHOD method, bool delete_prev_file, string &res_data, int start, int count = WHOLE_ARRAY, uint codepage = CP_ACP)
|
|
{
|
|
uchar temp_data[];
|
|
if(!DecryptFile(file_name, common_flag, method, delete_prev_file, temp_data))
|
|
return false;
|
|
|
|
//---
|
|
res_data = CharArrayToString(temp_data, start, count, codepage);
|
|
|
|
//---
|
|
return true;
|
|
}
|
|
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::EncryptText(const string& initial_text, ENUM_CRYPT_METHOD method, string& encrypted_text)
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo = %s no es de encryptacion", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
if(m_key.Length() != clen)
|
|
{
|
|
LogError(StringFormat("La clave debe de tener un len de %u chars, con el metodo = %s", clen, EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Convertimos el texto a uchar
|
|
uchar data[];
|
|
StringToCharArray(initial_text, data, 0, StringLen(initial_text));
|
|
|
|
//---
|
|
uchar key_chars[];
|
|
StringToCharArray(m_key, key_chars, 0, clen);
|
|
|
|
//--- Encryptamos
|
|
uchar res[];
|
|
::ResetLastError();
|
|
if(CryptEncode(method, data, key_chars, res) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al encriptar el texto, ultimo error = %d", ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Convertimos el resultado a BASE64 para poder guardarlo como string
|
|
uchar base64[];
|
|
::ResetLastError();
|
|
if(CryptEncode(CRYPT_BASE64, res, key_chars, base64) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al convertir a BASE64, ultimo error = %d", ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
encrypted_text = CharArrayToString(base64);
|
|
return true;
|
|
}
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| |
|
|
//+------------------------------------------------------------------+
|
|
bool CEncryptor::DecryptText(const string& encrypted_text, ENUM_CRYPT_METHOD method, string& decrypted_text)
|
|
{
|
|
//---
|
|
if(!g_mqlarticles_entryptor_is_encrypther[method])
|
|
{
|
|
LogError(StringFormat("El metodo = %s no es de encryptacion", EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
const uint8_t clen = g_mqlarticles_entryptor_key_len[method - 1];
|
|
if(m_key.Length() != clen)
|
|
{
|
|
LogError(StringFormat("La clave debe de tener un len de %u chars, con el metodo = %s", clen, EnumToString(method)), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Convertimos el string BASE64 a uchar
|
|
uchar base64[];
|
|
StringToCharArray(encrypted_text, base64, 0, StringLen(encrypted_text));
|
|
|
|
//---
|
|
uchar key_chars[];
|
|
StringToCharArray(m_key, key_chars, 0, clen);
|
|
|
|
//--- Decodificamos BASE64 primero
|
|
uchar data[];
|
|
::ResetLastError();
|
|
if(CryptDecode(CRYPT_BASE64, base64, key_chars, data) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al decodificar BASE64, ultimo error = %d", ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//--- Desencryptamos
|
|
uchar res[];
|
|
::ResetLastError();
|
|
if(CryptDecode(method, data, key_chars, res) == 0)
|
|
{
|
|
LogError(StringFormat("Fallo al desencriptar el texto, ultimo error = %d", ::GetLastError()), FUNCION_ACTUAL);
|
|
return false;
|
|
}
|
|
|
|
//---
|
|
decrypted_text = CharArrayToString(res);
|
|
return true;
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
CEncryptor g_mqlarticles_encryptor;
|
|
//+------------------------------------------------------------------+
|
|
#endif // MQLARTICLES_UTILS_ENCRYPT_ENCRYPT_MQH
|