/*
 ============================================================================
 Name        : calculhash.c
 Author      : Didier Chavaroche
 Version     : 1.0
 Copyright   : copyright Distribution Service 2015
 Description : Calcul des hashs pour des DCPs
 ============================================================================
 */

#define SIZE_BUFFER 2064

#include <jni.h>
#include <stdio.h>
#include <stdlib.h>
#include <mhash.h>
#include "com_distri_service_DCPUtils_CalculHash.h"

void translatetobase64(unsigned char* hash, int longueur, unsigned char* hashbase64) {
	const unsigned char alphabet[64] = {'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/'};

	//variables pour conversion en base 64
	int i,j,k;
	long valeur;
	unsigned char donnes[3];

	j = 0;
	k = 0;
	while(j<longueur - 3) {
		for(i = 0; i < 3; i++) {
			donnes[i] = hash[j++];
		}
		valeur = donnes[2] + 256 * donnes[1] + 65536 * donnes[0];
		hashbase64[k++] = alphabet[valeur/262144];
		hashbase64[k++] = alphabet[(valeur%262144)/4096];
		hashbase64[k++] = alphabet[((valeur%262144)%4096)/64];
		hashbase64[k++] = alphabet[((valeur%262144)%4096)%64];
	}

	switch(longueur%3) {
		case 1:
			valeur = hash[j]*16;
			hashbase64[k++] = alphabet[valeur/64];
			hashbase64[k++] = alphabet[valeur%64];
			hashbase64[k++] = '=';
			hashbase64[k++] = '=';
			break;
		case 2:
			valeur = hash[j++]*4*256;
			valeur += hash[j]*4;
			hashbase64[k++] = alphabet[valeur/4096];
			hashbase64[k++] = alphabet[(valeur%4096)/64];
			hashbase64[k++] = alphabet[(valeur%4096)%64];
			hashbase64[k++] = '=';
			break;
		default:
			break;
	}

	hashbase64[k] = 0;
}

JNIEXPORT jstring JNICALL Java_com_distri_1service_DCPUtils_CalculHash_sha1Base64
  (JNIEnv *env, jobject obj, jstring file) {
	//variables pour le calcul de hash

	FILE* fichier;

	MHASH calculhash;

	long read;
	unsigned char buffer[SIZE_BUFFER];

	unsigned char* hash;

	int longueur, longeurhash;

	unsigned char* hash64;
	
	jstring retour;

	//Ouverture du fichier
	fichier = fopen((*env)->GetStringUTFChars(env, file, 0), "r");

	if(fichier == NULL) return (*env)->NewStringUTF(env, "Erreur - Fichier");

	//établissement de la fonction
	calculhash = mhash_init(MHASH_SHA1);
	
	if(calculhash == MHASH_FAILED) return (*env)->NewStringUTF(env, "Erreur - Composant calcul");

	//Calcul du hash
	read = fread(buffer, 1, SIZE_BUFFER, fichier);
	while(read == SIZE_BUFFER) {
		mhash(calculhash, buffer, SIZE_BUFFER);
		read = fread(buffer, 1, SIZE_BUFFER, fichier);
	}

	if(read > 0) mhash(calculhash, buffer, read);

	hash = mhash_end(calculhash);

	longueur = mhash_get_block_size(MHASH_SHA1);

	longueur = 20;
	
	longeurhash = 4 * (longueur / 3);
	if(longueur%3 > 0) longeurhash += 4;

	longeurhash++;

	hash64 = malloc(longeurhash*sizeof(char));

	if(hash64 == NULL) return (*env)->NewStringUTF(env, "Erreur - Allocation");

	translatetobase64(hash, longueur, hash64);

	retour = (*env)->NewStringUTF(env, (char*)hash64);

	free(hash64);

	fclose(fichier);

	return retour;
}