Получить MD5 хэш введенного текста

AnsiString g = "IDontGiveAFuсk, ISeriously";
Memo1->Lines->Add( md5_noerrors(g.c_str(),g.Length()) );
Memo1->Lines->Add( MD5(g) );

AnsiString MD5FromFile(char *szFileName, char *szErrorText = NULL, int iErrorLength = 0);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        char szError[512];
        String sMD5 = MD5FromFile("D:\\obraz.iso", szError, 512);
        if (sMD5 != -1) ShowMessage(sMD5);
        else ShowMessage(szError);
}
//---------------------------------------------------------------------------
 
AnsiString MD5FromFile(char *szFileName, char *szErrorText, int iErrorLength)
{
        #define SET_ERROR_FOR(FUNC) if (szErrorText) strncpy(szErrorText, ( "Error " FUNC ": " + SysErrorMessage(GetLastError()) ).c_str(), iErrorLength)
        #define RELEASE_RESOURCES()  if (hProv) CryptReleaseContext(hProv, 0); \
                                   if (hHash) CryptDestroyHash(hHash); \
                                   delete szBuffer; \
                                   delete fs
 
        const int BUFSIZE = 10240;
        const int MD5LEN = 16;
 
        HCRYPTPROV hProv = 0; // õåíäë êðèïòîïðîâàéäåðà
        HCRYPTHASH hHash = 0; // õåíäë õåø-îáúåêòà
        BYTE szHash[MD5LEN];  // õåø (16 áàéò)
        TFileStream *fs = 0;
        DWORD cbHash = MD5LEN;
        UCHAR *szBuffer = new char[BUFSIZE]; // áëîê äàííûõ, êîòîðûé áóäåò õåøèðîâàòüñÿ
 
        // -------------------------------------- Îòêðûâàåì ôàéë äëÿ ÷òåíèÿ ------------------------------------------
        try
        {
                fs = new TFileStream(szFileName, fmOpenRead);
        }
        catch(Exception &ex)
        {
                if (szErrorText) strncpy(szErrorText, ("Error TFileStream: " + ex.Message).c_str(), iErrorLength);
                return  -1;
        }
        // ------------------------------------------------------------------------------------------------------------
 
        // ------------------- Ïîëó÷àåì õåíäë êðèïòîïðîâàéäåðà PROV_RSA_FULL -------------
        if ( !CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) )
        {
                SET_ERROR_FOR("CryptAcquireContext");
                RELEASE_RESOURCES();
                return -1;
        }
        // -------------------------------------------------------------------------------
 
        // -------- Ñîçäàåì õåø-îáúåêò (MD5) è ïîëó÷àåì åãî õåíäë ----------
        if ( !CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash) )
        {
                SET_ERROR_FOR("CryptCreateHash");
                RELEASE_RESOURCES();
                return -1;
        }
        // -----------------------------------------------------------------
 
        // --------------------- Áëî÷íî õåøèðóåì âåñü ôàéë ----------------
        int cbRead;
        while ( (cbRead = fs->Read(szBuffer, BUFSIZE)) != 0 )
        {
                if ( !CryptHashData(hHash, szBuffer, cbRead, 0) )
                {
                        SET_ERROR_FOR("CryptHashData");
                        RELEASE_RESOURCES();
                        return -1;
                }
        }
        // ----------------------------------------------------------------
 
        // ------ Ïîëó÷àåì çíà÷åíèå õåøà â âèäå ñòðîêè HEX-ôîðìàòà ------
        String sMD5; sMD5.SetLength(MD5LEN*2+1); sMD5[MD5LEN*2+1] = 0;
        if ( !CryptGetHashParam(hHash, HP_HASHVAL, szHash, &cbHash, 0) )
        {
                SET_ERROR_FOR("CryptGetHashParam");
                RELEASE_RESOURCES();
                return -1;
        }
        else
        {
                BinToHex(szHash, sMD5.c_str(), MD5LEN);
        }
        // --------------------------------------------------------------
 
        // Îñâîáîæäàåì ðåñóðñû
        RELEASE_RESOURCES();
 
        return sMD5;
 
        #undef SET_ERROR_FOR
        #undef RELEASE_RESOURCES
}

#include <IdHashMessageDigest.hpp>
//---------------------------------------------------------------------------
String __fastcall MD5(const String Text)
{
  String result;
  TIdHashMessageDigest5 *idmd5 = new TIdHashMessageDigest5();
  try {
    result = idmd5->HashStringAsHex(Text);
  }
  __finally {
    delete idmd5;
  }
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit2->Text = MD5( Edit1->Text );
}
//---------------------------------------------------------------------------

#include <IdHashMessageDigest.hpp>
//---------------------------------------------------------------------------
String __fastcall MD5_v2(const String Text)
{
  String result;
  TMemoryStream *stream = new TMemoryStream();
 
  const char* Buf = (const char*)Text.c_str();
  int   size = Text.Length();
  stream->Write( Buf, size*2 ); // Умножаем на 2, т к юникод содержит по 2 байта
  stream->Position = 0;         // Важно не забыть поставить поток на начало
 
  TIdHashMessageDigest5 *idmd5 = new TIdHashMessageDigest5();
  try { result = idmd5->HashStreamAsHex( stream );  }
  __finally
  {
    delete idmd5;
    delete stream;
  }
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit2->Text = MD5_v2( Edit1->Text );
}
//---------------------------------------------------------------------------

#include <IdHashMessageDigest.hpp>
//---------------------------------------------------------------------------
String __fastcall MD5_buf( char* buf, int buf_size )
{
  String result;
  TMemoryStream *stream = new TMemoryStream();
  stream->Write( buf, buf_size );
  stream->Position = 0;
 
  TIdHashMessageDigest5 *idmd5 = new TIdHashMessageDigest5();
  try {
    result = idmd5->HashStreamAsHex( stream );
  }
  __finally
  {
    delete idmd5;
    delete stream;
  }
 
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int Len = Edit1->Text.Length();
  int max_size = 6*Len + 1; // Максимальное число байтов на символ в utf-8 шесть плюс нулевое окончание строки
  char * u8_buf = new char[max_size];
  int u8_buf_size = UnicodeToUtf8( u8_buf, Edit1->Text.c_str(), max_size ); // Возвращает сформированное кол-во байт
  Edit2->Text = MD5_buf( u8_buf, u8_buf_size-1 ); // нулевой символ откидываем
  delete [] u8_buf;
}
//---------------------------------------------------------------------------

#include <IdHashMessageDigest.hpp>
//---------------------------------------------------------------------------
String __fastcall MD5_stream( TStream* stream )
{
  String result;
  TIdHashMessageDigest5 *idmd5 = new TIdHashMessageDigest5();
  try {
    result = idmd5->HashStreamAsHex( stream );
  }
  __finally
  {
    delete idmd5;
  }
  return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if( ! OpenDialog1->Execute() ) return;
 
  TFileStream *stream = new TFileStream( OpenDialog1->FileName, fmOpenRead );
  Edit4->Text = MD5_stream( stream );
  delete stream;
}
//---------------------------------------------------------------------------