File content as of revision 15:85a6bd4539eb:

#include "BigInt.h"
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <iostream>
#include <climits>
#include <cassert>
#include <algorithm>

static uint32_t BITS[] = 
{
    0x00000001, 0x00000002, 0x00000004, 0x00000008, 0x00000010, 0x00000020, 0x00000040, 0x00000080,   
    0x00000100, 0x00000200, 0x00000400, 0x00000800, 0x00001000, 0x00002000, 0x00004000, 0x00008000,   
    0x00010000, 0x00020000, 0x00040000, 0x00080000, 0x00100000, 0x00200000, 0x00400000, 0x00800000,   
    0x01000000, 0x02000000, 0x04000000, 0x08000000, 0x10000000, 0x20000000, 0x40000000, 0x80000000
};

static uint32_t num(const uint32_t a)
{
    return a/4 + (a%4 ? 1:0); 
}


BigInt::BigInt():
size(0),
bits(0)
{
}

BigInt::BigInt(const uint32_t a)
{
    if(a >> 24)
        size = 4;
    else if(a >> 16)
        size = 3;
    else if(a >> 8)
        size = 2;
    else
        size = 1;
    bits = new uint32_t[1];
    bits[0] = a;
}

BigInt::BigInt(const BigInt &a):
size(a.size)
{
    uint32_t l = num(size);
    bits = new uint32_t[l];
    for(int i = 0; i < l; ++i)
        bits[i] = a.bits[i];
}


BigInt::~BigInt()
{
    if(size)
    {
        delete[] bits;
    }
}

BigInt& BigInt::operator=(const BigInt& a)
{
    size = a.size;
    uint32_t l = num(size);
    if(bits)
        delete[] bits;
    bits = new uint32_t[l];
    for(int i = 0; i < l; ++i)
        bits[i] = a.bits[i];    
    return *this;
}

void BigInt::importData(uint8_t *data, uint32_t length)
{
    size = length;
    size_t l = size/4;
    if(size % 4 != 0)
        l++;
    if(bits)
        delete[] bits;
    bits = new uint32_t[l];
    memset(bits, 0, sizeof(uint32_t)*l);
    for(int i = length-1; i >=0; --i)
        bits[i/4] |= data[i] << ((i%4)*8);
}

void BigInt::exportData(uint8_t *data, uint32_t length)
{
    assert(isValid() && data != 0);
    
    if(length < size)
        return;
    uint32_t offset = length-size;
    memset(data, 0, offset);
    for(int i = size-1; i >= 0; --i)
        data[offset+size-1-i] = bits[i/4] >> ((i%4)*8);
}

BigInt operator+(const BigInt &a, const BigInt& b)
{
    assert(a.isValid() && b.isValid());

    BigInt result;
        
    result.size = a.size > b.size ? a.size : b.size;
    size_t l = result.size/4;
    if(result.size % 4 != 0)
        l++;
    result.bits = new uint32_t[l];
    memset(result.bits, 0, sizeof(uint32_t)*l);
    uint32_t al = num(a.size);
    uint32_t bl = num(b.size);
    uint32_t carry = 0;
    for(int i = 0; i < l; ++i)
    {
        uint32_t tmpA = 0, tmpB = 0;
        if(i < al)
            tmpA = a.bits[i];
        if(i < bl)
            tmpB = b.bits[i];
        result.bits[i] = tmpA + tmpB + carry;
        carry = result.bits[i] < std::max(tmpA, tmpB);
    }
    if(carry)
    {
        result.size++;
        if(result.size > l*4)
        { 
            l++;
            result.bits = (uint32_t*)realloc(result.bits, l * sizeof(uint32_t));
            result.bits[l-1] = 0x00000001;
        }
        else
        {
            result.bits[l-1] += 1 << (8 *((result.size-1)%4));
        }
    }
    
    return result;
}

BigInt& BigInt::operator+=(const BigInt &b)
{
    return (*this = (*this) + b);
}

BigInt& BigInt::operator++()
{
    return (*this += 1);
}

BigInt BigInt::operator++(int)
{
    BigInt t = *this;
    *this += 1;
    return t;
}

// a - b, if b >= a, returns 0
// No negative number allowed
BigInt operator-(const BigInt &a, const BigInt& b)
{
    assert(a.isValid() && b.isValid());

    BigInt result;

    if(b >= a)
    {
        return result = 0;
    }
    else
    {
        result.size = a.size;
        uint32_t l = num(a.size);
        result.bits = new uint32_t[l];
        memset(result.bits, 0, sizeof(uint32_t)*l);
        uint32_t bl = num(b.size);
        uint8_t borrow = 0;
        for(uint32_t i = 0; i < l; ++i)
        {
            uint32_t tmpA = a.bits[i], tmpB = 0;
            if(i < bl)
                tmpB = b.bits[i];
            if(borrow)
            {
                if(tmpA == 0)
                    tmpA = ULONG_MAX;
                else
                    --tmpA;
                    
                if(tmpA < tmpB)            
                    result.bits[i] = tmpA + 1 + (ULONG_MAX - tmpB);
                else
                    result.bits[i] = tmpA - tmpB;

                if(a.bits[i] != 0 && tmpA > tmpB)
                    borrow = 0;
            }
            else
            {
                if(tmpA < tmpB)            
                    result.bits[i] = tmpA + 1 + (ULONG_MAX - tmpB);
                else
                    result.bits[i] = tmpA - tmpB;
                borrow = tmpA < tmpB;
            }
        }
        
        result.trim();
        
        return result;
    }
}

BigInt& BigInt::operator-=(const BigInt &b)
{
    return (*this = (*this) - b);
}

BigInt& BigInt::operator--()
{
    return (*this -= 1);
}

BigInt BigInt::operator--(int)
{
    BigInt t = *this;
    *this -= 1;
    return t;
}

BigInt operator*(const BigInt &a, const BigInt& b)
{
    assert(a.isValid() && b.isValid());

    // if a == 0 or b == 0 then result = 0
    if(!a || !b)
        return 0;
    
    // if a == 1, then result = b
    if(a == 1)
        return b;
    
    // if b == 1, then result = a
    if(b == 1)
        return a;
    
    BigInt result;          
    result.size = a.size + b.size;
    result.bits = new uint32_t[num(result.size)];
    memset(result.bits, 0, sizeof(uint32_t)*num(result.size));
    for(int i = 0; i < num(a.size); ++i)
    {
        uint64_t carry = 0;
        for(int j = 0; j < num(b.size); ++j)
        {
            uint64_t tmp = (uint64_t)a.bits[i] * (uint64_t)b.bits[j] + carry;        
            uint32_t t = result.bits[i+j];
            result.bits[i+j] += tmp;
            carry = tmp >> 32;     
            if(t > result.bits[i+j])
                ++carry;                    
        }
        if(carry != 0)
            result.bits[i+num(b.size)] += carry;
    }
    
    result.trim();
    
    return result;
}

BigInt& BigInt::operator*=(const BigInt &b)
{
    return (*this = (*this) * b);
}


BigInt operator/(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid() && b != 0);
    
    if(b == 1)
        return a;
    if(a < b)
        return 0;
    if(a == b)
        return 1;
    BigInt u = a; 
    int m = a.numBits() - b.numBits();
    BigInt q;
    q.size = m/8 + ((m%8 != 0) ? 1 : 0);
    q.bits = new uint32_t[num(q.size)];
    memset(q.bits, 0, num(q.size)*sizeof(uint32_t));
    BigInt tmp = b;
    tmp <<= m;
    for(int j = m; j >= 0; --j)
    {
        if(tmp <= u)
        {
            u -= tmp;
            q.bits[j/32] |= BITS[j%32]; 
        }   
        tmp >>= 1;
    }
    q.trim();
    return q;
}

BigInt& BigInt::operator/=(const BigInt &b)
{
    return (*this = (*this) / b);
} 

BigInt operator>>(const BigInt &a, const uint32_t m)
{
    assert(a.isValid());

    if(m == 0)
        return a;
    if(m/8 >= a.size)
        return 0;
    
    BigInt result;
    result.size = a.size - m/8;
    result.bits = new uint32_t[num(result.size)];
    uint8_t s = m%32;
    for(uint32_t i = 0; i < num(result.size); ++i)
    {
        if(m/32+i+1 < num(a.size))
            result.bits[i] =  (a.bits[m/32+i+1] << (32-s)) |  (a.bits[m/32+i] >> s);
        else
            result.bits[i] = (a.bits[m/32+i] >> s);
    }
    
    result.trim();
        
    return result;
}

BigInt& BigInt::operator>>=(const uint32_t m)
{
    return *this = *this >> m;
}
 
BigInt operator<<(const BigInt &a, const uint32_t m)
{
    assert(a.isValid());

    BigInt result;
    
    if(m == 0)
        return result = a;

    result.size = m/8 + a.size;
    uint32_t h = a.bits[num(a.size)-1];
    if((m%32)%8 != 0)
        ++result.size;
    uint32_t l = num(result.size);
    result.bits = new uint32_t[l];
    memset(result.bits, 0, sizeof(uint32_t)*l);
    uint32_t s = m % 32;
    for(uint32_t i = 0; i < num(a.size); ++i)
    {
        if(i == 0)
            result.bits[m/32+i] = a.bits[i] << s;
        else
            result.bits[m/32+i] = (a.bits[i] << s) | (a.bits[i-1] >> (32-s));
    }
    if(a.bits[num(a.size)-1] && s != 0)
        result.bits[m/32+num(result.size)-1] |= a.bits[num(a.size)-1] >> (32-s);

    result.trim();
    
    return result;
}

BigInt& BigInt::operator<<=(const uint32_t m)
{
    return (*this = *this << m);
}

BigInt operator%(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid() && b > 0);
    return a - (a/b)*b;
}

BigInt& BigInt::operator%=(const BigInt &a)
{
    return (*this = *this % a);
}

bool operator==(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());

    if(a.size != b.size)
        return false;
        
    uint32_t l = num(a.size);
    for(int i = 0; i < l; ++i)
        if(a.bits[i] != b.bits[i])
            return false;
    return true;
}

bool operator!=(const BigInt &a, const BigInt &b)
{
    return ! (a==b);
}

bool operator<(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());

    if(a.size < b.size)
        return true;
    if(a.size > b.size)
        return false;
    uint32_t l = num(a.size);
    for(int i = l-1; i >= 0; --i)
    {
        if(a.bits[i] < b.bits[i])
            return true;
        else if(a.bits[i] > b.bits[i])
            return false;
    }
    return false;
}

bool operator<=(const BigInt &a, const BigInt &b)
{
    return !(a > b);
}

bool operator>(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());

    if(a.size > b.size)
        return true;
    if(a.size < b.size)
        return false;
    uint32_t l = num(a.size);
    for(int i = l-1; i >= 0; --i)
    {
        if(a.bits[i] > b.bits[i])
            return true;
        else if(a.bits[i] < b.bits[i])
            return false;       
    }
    return false;
}

bool operator>=(const BigInt &a, const BigInt &b)
{
    return !(a < b);
}

bool operator!(const BigInt &a)
{
    assert(a.isValid());

    if(a.size != 1)
        return false;
    return a.bits[0] == 0;
}
 
 
BigInt operator&(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());

    BigInt result;

    result.size = a.size < b.size ? a.size : b.size;
    uint32_t l = num(result.size);
    result.bits = new uint32_t[l];
    memset(result.bits, 0, l);
    
    for(uint32_t i = 0; i < l; ++i)
        result.bits[i] = a.bits[i] & b.bits[i];

    result.trim();
    
    return result;
}

BigInt& BigInt::operator&=(const BigInt &a)
{
    return (*this = *this & a);
}

BigInt operator|(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());

    BigInt result;

    uint32_t na = num(a.size);
    uint32_t nb = num(b.size);
    uint32_t l = std::max(na,nb);
    result.size = std::max(a.size, b.size);
    result.bits = new uint32_t[l];
    memset(result.bits, 0, l);
    
    for(uint32_t i = 0; i < l; ++i)
    {
        if(i < na && i < nb)
            result.bits[i] = a.bits[i] | b.bits[i];
        else if(i < na)
            result.bits[i] = a.bits[i];
        else
            result.bits[i] = b.bits[i];
    }
    
    return result;
}

BigInt& BigInt::operator|=(const BigInt &a)
{
    return (*this = *this | a);
}

BigInt operator^(const BigInt &a, const BigInt &b)
{
    assert(a.isValid() && b.isValid());


    BigInt result;

    uint32_t na = num(a.size);
    uint32_t nb = num(b.size);
    uint32_t l = std::max(na,nb);
    result.size = std::max(a.size, b.size);
    result.bits = new uint32_t[l];
    memset(result.bits, 0, l);
    
    for(uint32_t i = 0; i < l; ++i)
    {
        if(i < na && i < nb)
            result.bits[i] = a.bits[i] ^ b.bits[i];
        else if(i < na)
            result.bits[i] = a.bits[i];
        else
            result.bits[i] = b.bits[i];
    }
    
    result.trim();
    
    return result;
}

BigInt& BigInt::operator^=(const BigInt &a)      
{
    return (*this = *this ^ a);
}

BigInt montgomeryStep(const BigInt &a, const BigInt &b, const BigInt &m, uint32_t r)
{
    BigInt result = 0;
    BigInt tmp = a;
    while(r > 0)
    {
        if(tmp.bits[0] & 0x01)
            result += b;   
        
        if(result.bits[0] & 0x01)
            result += m;
      
        --r;
        result >>= 1;    
        tmp >>= 1;
    }
    return result;
}
  
// Implementation using Montgomery algorithm
BigInt modPow(const BigInt &a, const BigInt &expn, const BigInt &modulus)
{
    assert(a.isValid() && expn.isValid() && modulus.isValid());
    
    // precompute R and R^2
    uint32_t r = 8*modulus.size;

    // convert a in montgomery world
    BigInt tmp2 = 1;
    tmp2 <<= r;
    tmp2 *= a;
    BigInt montA = tmp2%modulus;
    BigInt tmp = montA;
    BigInt tmpE = expn;
    while(tmpE > 1)
    {
        tmp = montgomeryStep(montA, tmp, modulus, r);
        --tmpE;
    }
    
    // convert a to normal world
    return montgomeryStep(tmp, 1, modulus, r);
}

bool BigInt::isValid() const
{
    return size != 0 && bits != 0;
}

void BigInt::print() const
{
    assert(isValid());
    
    printf("size: %d bytes\n", size);
    uint32_t n = num(size);
    for(int i = n-1; i >= 0; --i)
    {
        printf("%08x ", bits[i]);
    }
    printf("\n");
}

void BigInt::trim()
{
    uint8_t *tmp = (uint8_t*)bits;
    uint32_t newSize = size;
    while(tmp[newSize-1] == 0 && newSize > 0)
        newSize--;
    if(newSize == 0)
        newSize = 1;
    if(num(newSize) < num(size))
    {
        bits = (uint32_t*)realloc(bits, sizeof(uint32_t)*num(newSize)); 
    }
    size = newSize; 
}

uint32_t BigInt::numBits() const
{
    assert(isValid());

    uint32_t n = (size-1)*8;
    uint8_t a = bits[num(size)-1] >> ((size-1)%4)*8;
    uint8_t tmp2 = 8;
    while(!(a & 0x80)) 
    {
        a <<= 1;
        --tmp2;
    }
    n += tmp2;

    return n;
}