#[macro_use]
extern crate arrayref;
extern crate generic_array;
extern crate mimc_rs;
extern crate num;
extern crate num_bigint;
extern crate num_traits;
extern crate rand;

use blake2::{Blake2b, Digest};
use mimc_rs::Mimc7;

use num_bigint::{BigInt, RandBigInt, Sign, ToBigInt};
use num_traits::{One, Zero};

use generic_array::GenericArray;

mod utils;

#[macro_use]
extern crate lazy_static;

lazy_static! {
    static ref D: BigInt = BigInt::parse_bytes(b"168696", 10).unwrap();
    static ref A: BigInt = BigInt::parse_bytes(b"168700", 10).unwrap();
    static ref Q: BigInt = BigInt::parse_bytes(
        b"21888242871839275222246405745257275088548364400416034343698204186575808495617",
        10,
    )
    .unwrap();
    static ref B8: Point = Point {
        x: BigInt::parse_bytes(
            b"5299619240641551281634865583518297030282874472190772894086521144482721001553",
            10,
        )
        .unwrap(),
        y: BigInt::parse_bytes(
            b"16950150798460657717958625567821834550301663161624707787222815936182638968203",
            10,
        )
        .unwrap(),
    };
    static ref ORDER: BigInt = BigInt::parse_bytes(
        b"21888242871839275222246405745257275088614511777268538073601725287587578984328",
        10,
    )
    .unwrap();
    static ref SUBORDER: BigInt = &BigInt::parse_bytes(
        b"21888242871839275222246405745257275088614511777268538073601725287587578984328",
        10,
    )
    .unwrap()
        >> 3;
}

#[derive(Clone, Debug)]
pub struct Point {
    pub x: BigInt,
    pub y: BigInt,
}

impl Point {
    pub fn add(&self, q: &Point) -> Point {
        // x = (x1*y2+y1*x2)/(c*(1+d*x1*x2*y1*y2))
        // y = (y1*y2-x1*x2)/(c*(1-d*x1*x2*y1*y2))

        // x = (x1 * y2 + y1 * x2) / (1 + d * x1 * y1 * y2)
        let one: BigInt = One::one();
        let x_num: BigInt = &self.x * &q.y + &self.y * &q.x;
        let x_den: BigInt = &one + &D.clone() * &self.x * &q.x * &self.y * &q.y;
        let x_den_inv = utils::modinv(&x_den, &Q);
        let x: BigInt = utils::modulus(&(&x_num * &x_den_inv), &Q);

        // y = (y1 * y2 - a * x1 * x2) / (1 - d * x1 * x2 * y1 * y2)
        let y_num = &self.y * &q.y - &A.clone() * &self.x * &q.x;
        let y_den = utils::modulus(&(&one - &D.clone() * &self.x * &q.x * &self.y * &q.y), &Q);
        let y_den_inv = utils::modinv(&y_den, &Q);
        let y: BigInt = utils::modulus(&(&y_num * &y_den_inv), &Q);

        Point { x: x, y: y }
    }

    pub fn mul_scalar(&self, n: BigInt) -> Point {
        // TODO use & in n to avoid clones on function call
        let mut r: Point = Point {
            x: Zero::zero(),
            y: One::one(),
        };
        let mut rem: BigInt = n;
        let mut exp: Point = self.clone();

        let zero: BigInt = Zero::zero();
        let one: BigInt = One::one();
        while rem != zero {
            let is_odd = &rem & &one == one;
            if is_odd == true {
                r = r.add(&exp);
            }
            exp = exp.add(&exp);
            rem = rem >> 1;
        }
        r.x = utils::modulus(&r.x, &Q);
        r.y = utils::modulus(&r.y, &Q);
        r
    }

    pub fn compress(&self) -> [u8; 32] {
        let mut r: [u8; 32];
        let (_, y_bytes) = self.y.to_bytes_le();
        r = *array_ref!(y_bytes, 0, 32);
        if &self.x > &(&Q.clone() >> 1) {
            r[31] = r[31] | 0x80;
        }
        r
    }
}

pub fn decompress_point(bb: [u8; 32]) -> Point {
    // https://tools.ietf.org/html/rfc8032#section-5.2.3
    let mut sign: bool = false;
    let mut b = bb.clone();
    if b[31] & 0x80 != 0x00 {
        sign = true;
        b[31] = b[31] & 0x7F;
    }
    let y: BigInt = BigInt::from_bytes_le(Sign::Plus, &b[..]);
    if y >= Q.clone() {
        // println!("ERROR0");
    }
    let one: BigInt = One::one();

    // x^2 = (1 - y^2) / (a - d * y^2) (mod p)
    let mut x: BigInt = utils::modulus(
        &((one - utils::modulus(&(&y * &y), &Q))
            * utils::modinv(
                &utils::modulus(
                    &(&A.clone() - utils::modulus(&(&D.clone() * (&y * &y)), &Q)),
                    &Q,
                ),
                &Q,
            )),
        &Q,
    );
    x = utils::modsqrt(&x, &Q);

    if (sign && x >= Zero::zero()) || (!sign && x < Zero::zero()) {
        x = x * -1.to_bigint().unwrap();
    }
    x = utils::modulus(&x, &Q);
    Point { x: x, y: y }
}

pub struct Signature {
    r_b8: Point,
    s: BigInt,
}

impl Signature {
    pub fn compress(&self) -> [u8; 64] {
        let mut b: Vec<u8> = Vec::new();
        b.append(&mut self.r_b8.compress().to_vec());
        // let (_, mut s_bytes) = self.s.to_bytes_le();
        let (_, mut s_bytes) = self.s.to_bytes_le();
        println!("sbytes LENGTH {:?}", s_bytes.len());
        // let mut s_32bytes: [u8; 32] = [0; 32];
        // s_32bytes[..].copy_from_slice(&s_bytes[..]);
        b.append(&mut s_bytes);
        let mut r: [u8; 64] = [0; 64];
        // r = *array_ref!(b, 0, 64);
        // r.copy_from_slice(&b[..]);
        println!("b LENGTH {:?}", b.len());
        // if b.len() < 64 {
        //     // let diff = 64 - b.len();
        //     println!("less than 64, add padding");
        //     let e: [u8; 1] = [0];
        //     b.append(&mut e.to_vec());
        // }
        r[..].copy_from_slice(&b[..]);
        println!("r {:?}", r.len());
        r
    }
}

pub fn decompress_signature(b: &[u8; 64]) -> Signature {
    let r_b8_bytes: [u8; 32] = *array_ref!(b[..32], 0, 32);
    let s: BigInt = BigInt::from_bytes_le(Sign::Plus, &b[32..]);
    let r_b8 = decompress_point(r_b8_bytes);
    Signature {
        r_b8: r_b8.clone(),
        s: s,
    }
}

pub struct PrivateKey {
    key: BigInt,
}

impl PrivateKey {
    pub fn public(&self) -> Point {
        // https://tools.ietf.org/html/rfc8032#section-5.1.5
        let pk = B8.mul_scalar(self.key.clone());
        pk.clone()
    }

    pub fn sign(&self, msg: BigInt) -> Signature {
        // https://tools.ietf.org/html/rfc8032#section-5.1.6
        let mut hasher = Blake2b::new();
        let (_, sk_bytes) = self.key.to_bytes_be();
        hasher.input(sk_bytes);
        let mut h = hasher.result(); // h: hash(sk)
                                     // s: h[32:64]
        let s = GenericArray::<u8, generic_array::typenum::U32>::from_mut_slice(&mut h[32..64]);
        let (_, msg_bytes) = msg.to_bytes_be();
        let r_bytes = utils::concatenate_arrays(s, &msg_bytes);
        let mut r = BigInt::from_bytes_be(Sign::Plus, &r_bytes[..]);
        r = utils::modulus(&r, &SUBORDER);
        let r8: Point = B8.mul_scalar(r.clone());
        let a = &self.public();

        let hm_input = vec![r8.x.clone(), r8.y.clone(), a.x.clone(), a.y.clone(), msg];
        let mimc7 = Mimc7::new();
        let hm = mimc7.hash(hm_input);

        let mut s = &self.key << 3;
        s = hm * s;
        s = r + s;
        s = s % &SUBORDER.clone();

        Signature {
            r_b8: r8.clone(),
            s: s,
        }
    }
}

pub fn new_key() -> PrivateKey {
    // https://tools.ietf.org/html/rfc8032#section-5.1.5
    let mut rng = rand::thread_rng();
    let sk_raw = rng.gen_biguint(1024).to_bigint().unwrap();

    let mut hasher = Blake2b::new();
    let (_, sk_raw_bytes) = sk_raw.to_bytes_be();
    hasher.input(sk_raw_bytes);
    let mut h = hasher.result();

    h[0] = h[0] & 0xF8;
    h[31] = h[31] & 0x7F;
    h[31] = h[31] | 0x40;

    let sk = BigInt::from_bytes_le(Sign::Plus, &h[..]);

    PrivateKey { key: sk }
}

pub fn verify(pk: Point, sig: Signature, msg: BigInt) -> bool {
    let hm_input = vec![
        sig.r_b8.x.clone(),
        sig.r_b8.y.clone(),
        pk.x.clone(),
        pk.y.clone(),
        msg,
    ];
    let mimc7 = Mimc7::new();
    let hm = mimc7.hash(hm_input);
    let l = B8.mul_scalar(sig.s);
    let r = sig.r_b8.add(&pk.mul_scalar(8.to_bigint().unwrap() * hm));
    if l.x == r.x && l.y == r.y {
        return true;
    }
    false
}

#[cfg(test)]
mod tests {
    use super::*;
    extern crate rustc_hex;
    use rustc_hex::ToHex;

    #[test]
    fn test_add_same_point() {
        let p: Point = Point {
            x: BigInt::parse_bytes(
                b"17777552123799933955779906779655732241715742912184938656739573121738514868268",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"2626589144620713026669568689430873010625803728049924121243784502389097019475",
                10,
            )
            .unwrap(),
        };
        let q: Point = Point {
            x: BigInt::parse_bytes(
                b"17777552123799933955779906779655732241715742912184938656739573121738514868268",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"2626589144620713026669568689430873010625803728049924121243784502389097019475",
                10,
            )
            .unwrap(),
        };
        let res = p.add(&q);
        assert_eq!(
            res.x.to_string(),
            "6890855772600357754907169075114257697580319025794532037257385534741338397365"
        );
        assert_eq!(
            res.y.to_string(),
            "4338620300185947561074059802482547481416142213883829469920100239455078257889"
        );
    }
    #[test]
    fn test_add_different_points() {
        let p: Point = Point {
            x: BigInt::parse_bytes(
                b"17777552123799933955779906779655732241715742912184938656739573121738514868268",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"2626589144620713026669568689430873010625803728049924121243784502389097019475",
                10,
            )
            .unwrap(),
        };
        let q: Point = Point {
            x: BigInt::parse_bytes(
                b"16540640123574156134436876038791482806971768689494387082833631921987005038935",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"20819045374670962167435360035096875258406992893633759881276124905556507972311",
                10,
            )
            .unwrap(),
        };
        let res = p.add(&q);
        assert_eq!(
            res.x.to_string(),
            "7916061937171219682591368294088513039687205273691143098332585753343424131937"
        );
        assert_eq!(
            res.y.to_string(),
            "14035240266687799601661095864649209771790948434046947201833777492504781204499"
        );
    }

    #[test]
    fn test_mul_scalar() {
        let p: Point = Point {
            x: BigInt::parse_bytes(
                b"17777552123799933955779906779655732241715742912184938656739573121738514868268",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"2626589144620713026669568689430873010625803728049924121243784502389097019475",
                10,
            )
            .unwrap(),
        };
        let res_m = p.mul_scalar(3.to_bigint().unwrap());
        let res_a = p.add(&p);
        let res_a = res_a.add(&p);
        assert_eq!(res_m.x, res_a.x);
        assert_eq!(
            res_m.x.to_string(),
            "19372461775513343691590086534037741906533799473648040012278229434133483800898"
        );
        assert_eq!(
            res_m.y.to_string(),
            "9458658722007214007257525444427903161243386465067105737478306991484593958249"
        );

        let n = BigInt::parse_bytes(
            b"14035240266687799601661095864649209771790948434046947201833777492504781204499",
            10,
        )
        .unwrap();
        let res2 = p.mul_scalar(n);
        assert_eq!(
            res2.x.to_string(),
            "17070357974431721403481313912716834497662307308519659060910483826664480189605"
        );
        assert_eq!(
            res2.y.to_string(),
            "4014745322800118607127020275658861516666525056516280575712425373174125159339"
        );
    }

    #[test]
    fn test_point_compress_decompress() {
        let p: Point = Point {
            x: BigInt::parse_bytes(
                b"17777552123799933955779906779655732241715742912184938656739573121738514868268",
                10,
            )
            .unwrap(),
            y: BigInt::parse_bytes(
                b"2626589144620713026669568689430873010625803728049924121243784502389097019475",
                10,
            )
            .unwrap(),
        };
        let p_comp = p.compress();
        assert_eq!(
            p_comp[..].to_hex(),
            "53b81ed5bffe9545b54016234682e7b2f699bd42a5e9eae27ff4051bc698ce85"
        );
        let p2 = decompress_point(p_comp);
        assert_eq!(p.x, p2.x);
        assert_eq!(p.y, p2.y);
    }

    #[test]
    fn test_new_key_sign_verify0() {
        let sk = new_key();
        let pk = sk.public();
        let msg = 5.to_bigint().unwrap();
        let sig = sk.sign(msg.clone());
        let v = verify(pk, sig, msg);
        assert_eq!(v, true);
    }

    #[test]
    fn test_new_key_sign_verify1() {
        let sk = new_key();
        let pk = sk.public();
        let msg = BigInt::parse_bytes(b"123456789012345678901234567890", 10).unwrap();
        let sig = sk.sign(msg.clone());
        let v = verify(pk, sig, msg);
        assert_eq!(v, true);
    }

    #[test]
    fn test_signature_compress_decompress() {
        let sk = new_key();
        let pk = sk.public();

        for i in 0..1 {
            println!("i {:?}", i);
            let msg_raw = "123456".to_owned() + &i.to_string();
            let msg = BigInt::parse_bytes(msg_raw.as_bytes(), 10).unwrap();
            let sig = sk.sign(msg.clone());

            let compressed_sig = sig.compress();
            println!("compressedsig {:?}", compressed_sig.to_hex());
            let decompressed_sig = decompress_signature(&compressed_sig);
            assert_eq!(&sig.r_b8.x, &decompressed_sig.r_b8.x);
            assert_eq!(&sig.r_b8.y, &decompressed_sig.r_b8.y);
            assert_eq!(&sig.s, &decompressed_sig.s);

            let v = verify(pk.clone(), decompressed_sig, msg);
            assert_eq!(v, true);
        }
    }
}