/*!
	Функция зашифровывает блок данных.

	@param h_prov - дескриптор CSP
	@param key - дескриптор ключа шифрования
	@param iv - указатель на вектор инициализации
	@param data - указатель на данные
	@param len_data - размер данных

	@return TRUE в случае успеха, FALSE в случае неудачи
*/
BOOL csp_encrypt ( 
					   HCRYPTPROV h_prov,
					   HCRYPTKEY  key,
					   PBYTE	  iv,
					   PBYTE	  data,
					   DWORD	  len_data, 
					   u64			ind	// смещение данных на диске
					   )
{
	BOOL ret=FALSE;
	DWORD len_data_=len_data;


	DWORD num_sec=0;
	PBYTE cur_data=data;
	DWORD cur_sec=0;
	DWORD size_sec=512;
	DWORD enc_len=size_sec;

	HCRYPTKEY	hDupKey;
	u64		index = ind;

	if (hCSP == NULL) return FALSE;

	if (len_data >= 512)
	{
	  num_sec=len_data/size_sec;
	}
	else
	{
		num_sec=1;
		enc_len=len_data;
	}

	for (cur_sec=0; cur_sec < num_sec; cur_sec++, cur_data+=size_sec)
	{
		ret = hCSP->DuplicateKey(hCSP,h_prov, key,NULL,0,&hDupKey);

		ret = hCSP->SetKeyParam(hCSP,h_prov, hDupKey, KP_IV, &index, 0); // синхропосылка,  64-битный  элемент  данных
		
		ret = hCSP->Encrypt ( 
							hCSP,
							h_prov,
							hDupKey, //key,
							0,
							TRUE, // Final
							0,
							cur_data,
							&enc_len, 
							enc_len );
		
		
		if (ret)
		{
			DbgMsg ("CPEncrypt error. 0x%8.8X\n",ret);
			//return ret;
		}

		ret = hCSP->DestroyKey(hCSP,h_prov, hDupKey);

		index += 512;

	}
	return ret;	
}