CryptoByLeo/Src/Hash/Base.mqh

//+------------------------------------------------------------------+
//|                                                         Base.mqh |
//|                                   Copyright 2026, Niquel Mendoza |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2026, Niquel Mendoza"
#property link      "https://www.mql5.com"
#property strict

#ifndef CRYPTOBYLEO_SRC_HASH_BASE_MQH
#define CRYPTOBYLEO_SRC_HASH_BASE_MQH

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
namespace TSN
{
class CCryptoHash
 {
public:
                     CCryptoHash(void) {}
                    ~CCryptoHash(void) {}
  //---
  //--- SHA2
  static void        SHA256(const uchar &inp[], int ins, uchar& out[], int o_s);

  // sha2 high family
  static void        SHA2_HIGH(ulong& h[], const uchar &inp[], int ins); // funcion base de bajo nivel

  // 512
  static void        SHA512_224(const uchar &inp[], int ins, uchar& out[], const int o_s);
  static void        SHA512_256(const uchar &inp[], int ins, uchar& out[], const int o_s);
  static void        SHA512(const uchar &inp[], const int inpr, uchar& out[], int o_s);

  // 384
  static void        SHA384(const uchar &inp[], const int inpr, uchar& out[], int o_s);


  //--- BLAKE
  static void        BLAKE2B(const uchar &in[], int ins, uchar &out[], int outl = 64);

  //--- Extra internal
  static void        Expand8To32(uint32_t &in[], uint8_t& out[]);
  static void        Expand8To32(uint64_t &in[], uint8_t& out[]);
 };

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
// Esto en BE no es LE
static void CCryptoHash::Expand8To32(uint &in[], uchar &out[])
 {
//--- BE
#define CRYPTOHASHBYLEO_HASH_ASSING(INDEX) \
  out[INDEX]   = uint8_t(t >> 24); \
  out[INDEX+1] = uint8_t(t >> 16); \
  out[INDEX+2] = uint8_t(t >> 8);  \
  out[INDEX+3] = uint8_t(t);

//---
  uint32_t t = in[0];
  CRYPTOHASHBYLEO_HASH_ASSING(0)
  t = in[1];
  CRYPTOHASHBYLEO_HASH_ASSING(4)
  t = in[2];
  CRYPTOHASHBYLEO_HASH_ASSING(8)
  t = in[3];
  CRYPTOHASHBYLEO_HASH_ASSING(12)
  t = in[4];
  CRYPTOHASHBYLEO_HASH_ASSING(16)
  t = in[5];
  CRYPTOHASHBYLEO_HASH_ASSING(20)
  t = in[6];
  CRYPTOHASHBYLEO_HASH_ASSING(24)
  t = in[7];
  CRYPTOHASHBYLEO_HASH_ASSING(28)

//---
#undef CRYPTOHASHBYLEO_HASH_ASSING
 }
}

#endif // CRYPTOBYLEO_SRC_HASH_BASE_MQH
//+------------------------------------------------------------------+