ore.cu

#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>

void gpu_init();
int gcd(int a, int b);

// updated message the gpu_init() function
int clock_speed;
int number_multi_processors;
int number_blocks;
int number_threads;
int max_threads_per_mp;

int num_messages;

cudaEvent_t start, stop;

#define ROTL64(x, y) (((x) << (y)) | ((x) >> (64 - (y))))

__device__ const char *chars = " !\"#$%&\'()*+'-./0123456789:;<=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
__device__ const uint64_t RC[24] = { 0x0000000000000001, 0x0000000000008082, 0x800000000000808a, 0x8000000080008000, 0x000000000000808b, 0x0000000080000001, 0x8000000080008081, 0x8000000000008009, 0x000000000000008a, 0x0000000000000088, 0x0000000080008009, 0x000000008000000a, 0x000000008000808b, 0x800000000000008b, 0x8000000000008089, 0x8000000000008003, 0x8000000000008002, 0x8000000000000080, 0x000000000000800a, 0x800000008000000a, 0x8000000080008081, 0x8000000000008080, 0x0000000080000001, 0x8000000080008008 };
__device__ const int r[24] = { 1, 3, 6, 10, 15, 21, 28, 36, 45, 55, 2, 14, 27, 41, 56, 8, 25, 43, 62, 18, 39, 61, 20, 44 };
__device__ const int piln[24] = { 10, 7, 11, 17, 18, 3, 5, 16, 8, 21, 24, 4, 15, 23, 19, 13, 12, 2, 20, 14, 22, 9, 6, 1 };

__device__ void keccak256(uint64_t state[25])
{
    uint64_t temp, C[5];
	int j;

    for (int i = 0; i < 24; i++) {
        // Theta
		// for i = 0 to 5
		//    C[i] = state[i] ^ state[i + 5] ^ state[i + 10] ^ state[i + 15] ^ state[i + 20];
		C[0] = state[0] ^ state[5] ^ state[10] ^ state[15] ^ state[20];
		C[1] = state[1] ^ state[6] ^ state[11] ^ state[16] ^ state[21];
		C[2] = state[2] ^ state[7] ^ state[12] ^ state[17] ^ state[22];
		C[3] = state[3] ^ state[8] ^ state[13] ^ state[18] ^ state[23];
		C[4] = state[4] ^ state[9] ^ state[14] ^ state[19] ^ state[24];

		// for i = 0 to 5
		//     temp = C[(i + 4) % 5] ^ ROTL64(C[(i + 1) % 5], 1);
		//     for j = 0 to 25, j += 5
		//          state[j + i] ^= temp;
		temp = C[4] ^ ROTL64(C[1], 1); state[0] ^= temp; state[5] ^= temp; state[10] ^= temp; state[15] ^= temp; state[20] ^= temp;
		temp = C[0] ^ ROTL64(C[2], 1); state[1] ^= temp; state[6] ^= temp; state[11] ^= temp; state[16] ^= temp; state[21] ^= temp;
		temp = C[1] ^ ROTL64(C[3], 1); state[2] ^= temp; state[7] ^= temp; state[12] ^= temp; state[17] ^= temp; state[22] ^= temp;
		temp = C[2] ^ ROTL64(C[4], 1); state[3] ^= temp; state[8] ^= temp; state[13] ^= temp; state[18] ^= temp; state[23] ^= temp;
		temp = C[3] ^ ROTL64(C[0], 1); state[4] ^= temp; state[9] ^= temp; state[14] ^= temp; state[19] ^= temp; state[24] ^= temp;

        // Rho Pi
		// for i = 0 to 24
		//     j = piln[i];
		//     C[0] = state[j];
		//     state[j] = ROTL64(temp, r[i]);
		//     temp = C[0];
		temp = state[1];
		j = piln[0]; C[0] = state[j]; state[j] = ROTL64(temp, r[0]); temp = C[0];
		j = piln[1]; C[0] = state[j]; state[j] = ROTL64(temp, r[1]); temp = C[0];
		j = piln[2]; C[0] = state[j]; state[j] = ROTL64(temp, r[2]); temp = C[0];
		j = piln[3]; C[0] = state[j]; state[j] = ROTL64(temp, r[3]); temp = C[0];
		j = piln[4]; C[0] = state[j]; state[j] = ROTL64(temp, r[4]); temp = C[0];
		j = piln[5]; C[0] = state[j]; state[j] = ROTL64(temp, r[5]); temp = C[0];
		j = piln[6]; C[0] = state[j]; state[j] = ROTL64(temp, r[6]); temp = C[0];
		j = piln[7]; C[0] = state[j]; state[j] = ROTL64(temp, r[7]); temp = C[0];
		j = piln[8]; C[0] = state[j]; state[j] = ROTL64(temp, r[8]); temp = C[0];
		j = piln[9]; C[0] = state[j]; state[j] = ROTL64(temp, r[9]); temp = C[0];
		j = piln[10]; C[0] = state[j]; state[j] = ROTL64(temp, r[10]); temp = C[0];
		j = piln[11]; C[0] = state[j]; state[j] = ROTL64(temp, r[11]); temp = C[0];
		j = piln[12]; C[0] = state[j]; state[j] = ROTL64(temp, r[12]); temp = C[0];
		j = piln[13]; C[0] = state[j]; state[j] = ROTL64(temp, r[13]); temp = C[0];
		j = piln[14]; C[0] = state[j]; state[j] = ROTL64(temp, r[14]); temp = C[0];
		j = piln[15]; C[0] = state[j]; state[j] = ROTL64(temp, r[15]); temp = C[0];
		j = piln[16]; C[0] = state[j]; state[j] = ROTL64(temp, r[16]); temp = C[0];
		j = piln[17]; C[0] = state[j]; state[j] = ROTL64(temp, r[17]); temp = C[0];
		j = piln[18]; C[0] = state[j]; state[j] = ROTL64(temp, r[18]); temp = C[0];
		j = piln[19]; C[0] = state[j]; state[j] = ROTL64(temp, r[19]); temp = C[0];
		j = piln[20]; C[0] = state[j]; state[j] = ROTL64(temp, r[20]); temp = C[0];
		j = piln[21]; C[0] = state[j]; state[j] = ROTL64(temp, r[21]); temp = C[0];
		j = piln[22]; C[0] = state[j]; state[j] = ROTL64(temp, r[22]); temp = C[0];
		j = piln[23]; C[0] = state[j]; state[j] = ROTL64(temp, r[23]); temp = C[0];

        //  Chi
		// for j = 0 to 25, j += 5
		//     for i = 0 to 5
		//         C[i] = state[j + i];
		//     for i = 0 to 5
		//         state[j + 1] ^= (~C[(i + 1) % 5]) & C[(i + 2) % 5];
		C[0] = state[0]; C[1] = state[1]; C[2] = state[2]; C[3] = state[3]; C[4] = state[4];
		state[0] ^= (~C[1]) & C[2]; state[1] ^= (~C[2]) & C[3]; state[2] ^= (~C[3]) & C[4]; state[3] ^= (~C[4]) & C[0]; state[4] ^= (~C[0]) & C[1];

		C[0] = state[5]; C[1] = state[6]; C[2] = state[7]; C[3] = state[8]; C[4] = state[9];
		state[5] ^= (~C[1]) & C[2]; state[6] ^= (~C[2]) & C[3]; state[7] ^= (~C[3]) & C[4]; state[8] ^= (~C[4]) & C[0]; state[9] ^= (~C[0]) & C[1];

		C[0] = state[10]; C[1] = state[11]; C[2] = state[12]; C[3] = state[13]; C[4] = state[14];
		state[10] ^= (~C[1]) & C[2]; state[11] ^= (~C[2]) & C[3]; state[12] ^= (~C[3]) & C[4]; state[13] ^= (~C[4]) & C[0]; state[14] ^= (~C[0]) & C[1];

		C[0] = state[15]; C[1] = state[16]; C[2] = state[17]; C[3] = state[18]; C[4] = state[19];
		state[15] ^= (~C[1]) & C[2]; state[16] ^= (~C[2]) & C[3]; state[17] ^= (~C[3]) & C[4]; state[18] ^= (~C[4]) & C[0]; state[19] ^= (~C[0]) & C[1];

		C[0] = state[20]; C[1] = state[21]; C[2] = state[22]; C[3] = state[23]; C[4] = state[24];
		state[20] ^= (~C[1]) & C[2]; state[21] ^= (~C[2]) & C[3]; state[22] ^= (~C[3]) & C[4]; state[23] ^= (~C[4]) & C[0]; state[24] ^= (~C[0]) & C[1];

        //  Iota
        state[0] ^= RC[i];
    }
}

__device__ void keccak(const char *message, int message_len, unsigned char *output, int output_len)
{
    uint64_t state[25];
    uint8_t temp[144];
    int rsize = 136;
    int rsize_byte = 17;

    memset(state, 0, sizeof(state));

    for ( ; message_len >= rsize; message_len -= rsize, message += rsize) {
        for (int i = 0; i < rsize_byte; i++) {
            state[i] ^= ((uint64_t *) message)[i];
		}
        keccak256(state);
    }

    // last block and padding
    memcpy(temp, message, message_len);
    temp[message_len++] = 1;
    memset(temp + message_len, 0, rsize - message_len);
    temp[rsize - 1] |= 0x80;

    for (int i = 0; i < rsize_byte; i++) {
        state[i] ^= ((uint64_t *) temp)[i];
	}

    keccak256(state);
    memcpy(output, state, output_len);
}

__device__ void generate_message(uint8_t *message, uint64_t tid)
{
	int len = 0;
	const int num_chars = 94;
    while (len < 8)
	{
		message[len++] = tid % 256;
		tid /= num_chars;
	}
}

__global__ void brute_force_single(uint8_t *d_diff, uint8_t *d_preimage, int *done, uint64_t starting_tid)
{
	const int output_len = 32;
	int tid = threadIdx.x + (blockIdx.x * blockDim.x);
	unsigned char output[output_len];
	uint8_t current_message[72];
    memcpy(current_message, d_preimage, 64);

	generate_message(current_message + 64, tid + starting_tid);
	keccak((char*)current_message, 72, &output[0], output_len);

    for (int i = 0; i < 32; i++)
    {
        if (output[i] > d_diff[i]) return;
        if (output[i] < d_diff[i]) {
            done[0] = 1;
            memcpy(d_preimage, output, 32);
            memcpy(d_preimage + 32, current_message + 64, 8);
            return;
        }
    }

}

void gpu_init()
{
    cudaDeviceProp device_prop;
    int block_size;

	cudaError_t cudaerr = cudaGetDeviceProperties(&device_prop, 0);
    if (cudaerr != cudaSuccess) {
		printf("getting properties for device failed with error \"%s\".\n", cudaGetErrorString(cudaerr));
        exit(EXIT_FAILURE);
    }

    number_threads = device_prop.maxThreadsPerBlock;
    number_multi_processors = device_prop.multiProcessorCount;
    max_threads_per_mp = device_prop.maxThreadsPerMultiProcessor;
    block_size = (max_threads_per_mp / gcd(max_threads_per_mp, number_threads));
    number_threads = max_threads_per_mp / block_size;
    number_blocks = block_size * number_multi_processors;
    clock_speed = (int) (device_prop.memoryClockRate * 1000 * 1000);    // convert from GHz to hertz
}

int gcd(int a, int b) {
    return (a == 0) ? b : gcd(b % a, a);
}

void find_message()
{
    uint8_t* data = (uint8_t*)malloc(33 * sizeof(uint8_t));
    // read 33 bytes from stdin
	// first byte is reserved for compatibility with the CPU worker
	// rest are the difficulty
    fread(data, 1, 33, stdin);
    uint8_t* diff = data + 1;

	uint64_t starting_tid = 0;

	int *d_done;
	uint8_t *d_diff;
	uint8_t *d_preimage;

	cudaMalloc((void**) &d_done, sizeof(int));
	cudaMalloc((void**) &d_diff, 32);
	cudaMalloc((void**) &d_preimage, 64);
	cudaMemcpy(d_diff, diff, 32, cudaMemcpyHostToDevice);

	// keep reading proof.hash and pubkey, in total 64 bytes
    while (1) {
        int h_done[1] = {0};
	    cudaMemcpy(d_done, h_done, sizeof(int), cudaMemcpyHostToDevice);
        uint8_t* preimage = (uint8_t*)malloc(64);
        const size_t ret_code = fread(preimage, 1, 64, stdin);
        if (ret_code != 64) {
            break;
        }

        cudaMemcpy(d_preimage, preimage, 64, cudaMemcpyHostToDevice);
        int index = 0;
        while (!h_done[0]) {
            index++;
            brute_force_single<<<number_blocks, number_threads>>>(d_diff, d_preimage, d_done, starting_tid);
            starting_tid += number_blocks * number_threads;
            cudaMemcpy(h_done, d_done, sizeof(int), cudaMemcpyDeviceToHost);
            cudaError_t cudaerr = cudaDeviceSynchronize();
            if (cudaerr != cudaSuccess) {
                h_done[0] = 1;
                printf("kernel launch failed with error \"%s\".\n", cudaGetErrorString(cudaerr));
            }
        }
        cudaMemcpy(preimage, d_preimage, 64, cudaMemcpyDeviceToHost);
        for (int i = 0; i < 40; i++)
        {
            printf("%c", preimage[i]);
        }
    }
}

int main(int argc, char **argv)
{
    gpu_init();
	find_message();
    return EXIT_SUCCESS;
}