Librería/Biblioteca de componentes GlibWMI v.3.2 compatible con Delphi 12

[navbuoy]

chatgpt me dio esta opcion con los componentes INDY

AnsiString CodificarSHA256(const AnsiString &texto)
{
    // Crea una instancia de la clase de hash SHA256
    TIdHashSHA256 *sha256 = new TIdHashSHA256();
    AnsiString resultado;

    try {
        // Convierte el AnsiString en un TIdBytes manualmente
        TIdBytes buffer;
        buffer.Length = texto.Length(); // Ajusta el tamaño del buffer

        for (int i = 0; i < texto.Length(); i++)
        {
            buffer[i] = static_cast<unsigned char>(texto[i + 1]); // Convierte cada carácter
        }

        // Calcula el hash en un TIdBytes
        TIdBytes hash = sha256->HashBytes(buffer);

        // Convierte el hash a una cadena hexadecimal
        resultado = sha256->HashBytesAsHex(hash);
    }
    __finally {
        delete sha256;  // Libera la memoria
    }

    return resultado;
}

Uso de la funcion:

AnsiString texto = "MiTextoSeguro";
AnsiString hash = CodificarSHA256(texto);
ShowMessage(hash);