U
    ÈZjk,  ã                   @   s|   d Z ddlmZ ddlmZ ddlmZ dZdZddd„Z	d	d
„ Z
ddlmZ eedd… ƒZddd„Zdd„ Zdd„ ZdS )zHFunctions to create and test prime numbers.

:undocumented: __package__
é    )ÚRandom)ÚInteger)Ú
iter_rangeé   Nc                 C   s,  t | tƒst| ƒ} | dkrtS |  ¡ r*tS tdƒ}t| d ƒ}|dkrPt ¡ j}t|ƒ}d}| ¡ rv|dL }|d7 }q\t|ƒD ]¨}d}|||fkrÆtj	d| d |d�}d|  kr¾| d ks†n t
‚q†t||| ƒ}	|	||fkràq~td|ƒD ]2}
t|	d| ƒ}	|	|k�r q~|	|krêt    S qêt  S q~tS )a:  Perform a Miller-Rabin primality test on an integer.

    The test is specified in Section C.3.1 of `FIPS PUB 186-4`__.

    :Parameters:
      candidate : integer
        The number to test for primality.
      iterations : integer
        The maximum number of iterations to perform before
        declaring a candidate a probable prime.
      randfunc : callable
        An RNG function where bases are taken from.

    :Returns:
      ``Primality.COMPOSITE`` or ``Primality.PROBABLY_PRIME``.

    .. __: http://nvlpubs.nist.gov/nistpubs/FIPS/NIST.FIPS.186-4.pdf
    ©r   é   é   é   r   Nr   r   )Zmin_inclusiveZmax_inclusiveÚrandfunc)Ú
isinstancer   ÚPROBABLY_PRIMEÚis_evenÚ	COMPOSITEr   ÚnewÚreadr   Zrandom_rangeÚAssertionErrorÚpow)Ú	candidateZ
iterationsr
   ÚoneZ	minus_oneÚmÚaÚiÚbaseÚzÚj© r   úX/var/www/html/TRUCKING_PROJECT/venv/lib/python3.8/site-packages/Crypto/Math/Primality.pyÚmiller_rabin_test-   sD    


þ 

r   c                 C   sÊ  t | tƒst| ƒ} | dkrtS |  ¡ s.|  ¡ r2tS dd„ }|ƒ D ]<}| || fkrTq@t || ¡}|dkrpt  S |dkr@ q~q@| d }| ¡ d }tdƒ}tdƒ}tdƒ}tdƒ}	t|d ddƒD ]ô}
| 	|¡ ||9 }|| ; }|	 	|¡ |	|9 }	|	|9 }	|	 
||¡ |	 ¡ �r|	| 7 }	|	dL }	|	| ; }	| |
¡�r¢| 	|¡ ||	7 }| ¡ �rX|| 7 }|dL }|| ; }| 	|	¡ | 
||¡ | ¡ �r�|| 7 }|dL }|| ; }qÂ| 	|¡ | 	|	¡ qÂ|dk�rÆtS tS )a_  Perform a Lucas primality test on an integer.

    The test is specified in Section C.3.3 of `FIPS PUB 186-4`__.

    :Parameters:
      candidate : integer
        The number to test for primality.

    :Returns:
      ``Primality.COMPOSITE`` or ``Primality.PROBABLY_PRIME``.

    .. __: http://nvlpubs.nist.gov/nistpubs/FIPS/NIST.FIPS.186-4.pdf
    r   c                  s   s0   d} | V  | dkr| d7 } n| d8 } |  } qd S )Nr	   r   r   r   )Úvaluer   r   r   Ú	alternate�   s    
zlucas_test.<locals>.alternater   éÿÿÿÿr   )r   r   r   r   Zis_perfect_squarer   Zjacobi_symbolÚsize_in_bitsr   ÚsetZmultiply_accumulateZis_oddZget_bit)r   r   ÚDÚjsÚKÚrZU_iZV_iZU_tempZV_tempr   r   r   r   Ú
lucas_testw   sf    












r'   )Ú
sieve_baseéd   c                    sÐ   |dkrt  ¡ j}t| tƒs$t| ƒ} t| ƒtkr4tS zt| j	tƒ W n t
k
r\   t Y S X d}|  ¡ ‰ z"tt‡ fdd„|ƒƒd d }W n tk
r¤   d}Y nX t| ||d�tkr¼tS t| ƒtkrÌtS tS )að  Test if a number is prime.

    A number is qualified as prime if it passes a certain
    number of Miller-Rabin tests (dependent on the size
    of the number, but such that probability of a false
    positive is less than 10^-30) and a single Lucas test.

    For instance, a 1024-bit candidate will need to pass
    4 Miller-Rabin tests.

    :Parameters:
      candidate : integer
        The number to test for primality.
      randfunc : callable
        The routine to draw random bytes from to select Miller-Rabin bases.
    :Returns:
      ``PROBABLE_PRIME`` if the number if prime with very high probability.
      ``COMPOSITE`` if the number is a composite.
      For efficiency reasons, ``COMPOSITE`` is also returned for small primes.
    N)
)éÜ   é   )i  é   )i†  é   )i   é
   )il  é   )iä  é   )iz  r	   )i°  é   )i¤  r   )it  r   c                    s   ˆ | d k S )Nr   r   ©Úx©Zbit_sizer   r   Ú<lambda>  ó    z%test_probable_prime.<locals>.<lambda>r   r   ©r
   )r   r   r   r   r   ÚintÚ_sieve_baser   ÚmapZfail_if_divisible_byÚ
ValueErrorr   r!   ÚlistÚfilterÚ
IndexErrorr   r'   )r   r
   Z	mr_rangesZmr_iterationsr   r4   r   Útest_probable_primeÞ   s>    


ÿÿÿ
ÿÿr?   c                  K   s¦   |   dd¡}|   dd¡}|   ddd„ ¡}| r<td|  ¡  ƒ‚|dkrLtdƒ‚|d	k r\td
ƒ‚|dkrnt ¡ j}t}|tkr¢tj||d�dB }||ƒs–qrt	||ƒ}qr|S )ax  Generate a random probable prime.

    The prime will not have any specific properties
    (e.g. it will not be a *strong* prime).

    Random numbers are evaluated for primality until one
    passes all tests, consisting of a certain number of
    Miller-Rabin tests with random bases followed by
    a single Lucas test.

    The number of Miller-Rabin iterations is chosen such that
    the probability that the output number is a non-prime is
    less than 1E-30 (roughly 2^{-100}).

    This approach is compliant to `FIPS PUB 186-4`__.

    :Keywords:
      exact_bits : integer
        The desired size in bits of the probable prime.
        It must be at least 160.
      randfunc : callable
        An RNG function where candidate primes are taken from.
      prime_filter : callable
        A function that takes an Integer as parameter and returns
        True if the number can be passed to further primality tests,
        False if it should be immediately discarded.

    :Return:
        A probable prime in the range 2^exact_bits > p > 2^(exact_bits-1).

    .. __: http://nvlpubs.nist.gov/nistpubs/FIPS/NIST.FIPS.186-4.pdf
    Ú
exact_bitsNr
   Úprime_filterc                 S   s   dS )NTr   r2   r   r   r   r5   <  r6   z)generate_probable_prime.<locals>.<lambda>úUnknown parameters: zMissing exact_bits parameteré    zPrime number is not big enough.©r@   r
   r   )
Úpopr;   Úkeysr   r   r   r   r   Úrandomr?   )Úkwargsr@   r
   rA   Úresultr   r   r   r   Úgenerate_probable_prime  s,    "
ÿÿrJ   c                  K   s†   |   dd¡}|   dd¡}| r,td|  ¡  ƒ‚|dkr>t ¡ j}t}|tkr‚t|d |d�}|d d }| ¡ |krtqBt	||d�}qB|S )	a›  Generate a random, probable safe prime.

    Note this operation is much slower than generating a simple prime.

    :Keywords:
      exact_bits : integer
        The desired size in bits of the probable safe prime.
      randfunc : callable
        An RNG function where candidate primes are taken from.

    :Return:
        A probable safe prime in the range
        2^exact_bits > p > 2^(exact_bits-1).
    r@   Nr
   rB   r   rD   r   r7   )
rE   r;   rF   r   r   r   r   rJ   r!   r?   )rH   r@   r
   rI   Úqr   r   r   r   Úgenerate_probable_safe_primeR  s    
rL   )N)N)Ú__doc__ZCryptor   ZCrypto.Math.Numbersr   ZCrypto.Util.py3compatr   r   r   r   r'   ZCrypto.Util.numberr(   Z_sieve_base_larger"   r9   r?   rJ   rL   r   r   r   r   Ú<module>   s   
Ja
::