3
گaT @ s$ d Z ddlZddlZddlZddlZddlZddlZddlmZ ddlm Z ddlm
Z
ddlm Z ddlm Z ddlm
Z
dd lmZ dd
lmZ ddlZdd lmZ dd lmZ ddlZdd
lmZ ddlmZ ddlmZ ddlm Z ddlm Z ej e Z G dd dej!Z"G dd de e ej!Z#G dd de"Z$G dd de"Z%G dd de#Z&G d d d e%ej'd Z(e#j)G d d d e&Z*e"j)G d!d" d"e(Z+e#j)G d#d$ d$e&Z,e"j)G d%d& d&e(Z-e#j)G d'd( d(e&Z.e"j)G d)d* d*e(Z/e"j)G d+d, d,e%Z0e#j)G d-d. d.e#Z1dS )/z&ACME Identifier Validation Challenges. N)cast)Any)Dict)Mapping)Optional)Tuple)Type)hashes)crypto)SSL) crypto_util)errors)fields)
ResourceMixin) TypeMixinc sJ e Zd ZU dZi Zeeed f ee ee
f d d fdd Z Z S ) ChallengezACME challenge.)jobjreturnc sD y t j|S tjk
r> } ztj| tj|S d }~X nX d S )N)super from_jsonjoseZUnrecognizedTypeErrorloggerdebugUnrecognizedChallenge)clsr error) __class__ /usr/lib/python3.6/challenges.pyr $ s
zChallenge.from_json)
__name__
__module__ __qualname____doc__TYPESr strr classmethodr r r
__classcell__r r )r r r s
r c @ s4 e Zd ZU dZi Zeeed f dZe j
eZ dS )ChallengeResponsezACME challenge response.Z challengeN) r r r! r" r# r r$ r Z
resource_typer ZResourceZresourcer r r r r' - s
r' c sb e Zd ZdZeeef dd fdd Zeeef dddZ e
eeef d dd d
Z Z S ) r al Unrecognized challenge.
ACME specification defines a generic framework for challenges and
defines some standard challenges that are implemented in this
module. However, other implementations (including peers) might
define additional challenge types, which should be ignored if
unrecognized.
:ivar jobj: Original JSON decoded object.
N)r r c s t j tj| d| d S )Nr )r __init__object __setattr__)selfr )r r r r( B s
z UnrecognizedChallenge.__init__)r c C s | j S )N)r )r+ r r r to_partial_jsonF s z%UnrecognizedChallenge.to_partial_jsonc C s | |S )Nr )r r r r r r I s z UnrecognizedChallenge.from_json)
r r r! r" r r$ r r( r r, r% r r& r r )r r r 5 s
r c @ sL e Zd ZU dZd Zejdejej ej
edddZ e e
edd d
Zd S )
_TokenChallengez3Challenge with token.
:ivar bytes token:
tokenT)sizeZminimum)encoderdecoder)r c C s d| j kod| j kS )zIs `token` good?
.. todo:: acme-spec wants "It MUST NOT contain any non-ASCII
characters", but it should also warrant that it doesn't
contain ".." or "/"...
s .. /)r0 )r+ r r r
good_token] s z_TokenChallenge.good_tokenNg 0@)r r r! r" Z
TOKEN_SIZEr FieldZencode_b64jose functoolspartialZdecode_b64joser0 bytespropertyboolr5 r r r r r- N s
r- c sR e Zd ZdZejdZejZ dej
e dddZ e
eef d fdd Z ZS )
!KeyAuthorizationChallengeResponsez_Response to Challenges based on Key Authorization.
:param unicode key_authorization:
keyAuthorizationKeyAuthorizationChallenge)challaccount_public_keyr c C s | j jd}t|dkr*tjd| j dS |d |jdkrXtjd|d |jd dS tj|j| j dj
}|d |krtjd
|d | dS d S ) a% Verify the key authorization.
:param KeyAuthorization chall: Challenge that corresponds to
this response.
:param JWK account_public_key:
:return: ``True`` iff verification of the key authorization was
successful.
:rtype: bool
. z)Key authorization (%r) is not well formedFr r0 z8Mismatching token in key authorization: %r instead of %r)
hash_function z=Mismatching thumbprint in key authorization: %r instead of %rT) key_authorizationsplitlenr r encoder b64encode
thumbprintthumbprint_hash_functiondecode)r+ r? r@ partsrJ r r r verifyu s z(KeyAuthorizationChallengeResponse.verify)r c s t j }|jdd |S )Nr= )r r, pop)r+ r )r r r r, s
z1KeyAuthorizationChallengeResponse.to_partial_json)r r r! r" r r6 rE r ZSHA256rK JWKr; rN r r$ r r, r& r r )r r r< l s
r< c @ s e Zd ZU dZeZeeZee e j
Z
e j edddZ
e j e dddZeje j eeddd Ze j eeee ef d
d d Zd
S )r> zChallenge based on Key Authorization.
:param response_cls: Subclass of `KeyAuthorizationChallengeResponse`
that will be used to generate ``response``.
:param str typ: type of the challenge
) account_keyr c C s& | j dd tj|j| jdj S )z^Generate Key Authorization.
:param JWK account_key:
:rtype unicode:
r0 rA )rC )rH r rI rJ rK rL )r+ rQ r r r rE s z+KeyAuthorizationChallenge.key_authorizationc C s | j | j|dS )zGenerate response to the challenge.
:param JWK account_key:
:returns: Response (initialized `response_cls`) to the challenge.
:rtype: KeyAuthorizationChallengeResponse
)rE ) response_clsrE )r+ rQ r r r response s z"KeyAuthorizationChallenge.response)rQ kwargsr c K s
t dS )a Generate validation for the challenge.
Subclasses must implement this method, but they are likely to
return completely different data structures, depending on what's
necessary to complete the challenge. Interpretation of that
return value must be known to the caller.
:param JWK account_key:
:returns: Challenge-specific validation.
N)NotImplementedError)r+ rQ rT r r r
validation s
z$KeyAuthorizationChallenge.validation)rQ argsrT r c O s | j || j|f||fS )zGenerate response and validation.
Convenience function that return results of `response` and
`validation`.
:param JWK account_key:
:rtype: tuple
)rS rV )r+ rQ rW rT r r r response_and_validation s z1KeyAuthorizationChallenge.response_and_validationN)r r r! r" NotImplementedtypr$ rR r r< rK r rP rE rS abcabstractmethodr rV r rX r r r r r> s
r> ) metaclassc @ s* e Zd ZdZdZdeejedddZ dS )
DNS01Responsez ACME dns-01 challenge response.zdns-01DNS01)r? domainr@ r c C s | j ||}|stjd |S )a Simple verify.
This method no longer checks DNS records and is a simple wrapper
around `KeyAuthorizationChallengeResponse.verify`.
:param challenges.DNS01 chall: Corresponding challenge.
:param unicode domain: Domain name being verified.
:param JWK account_public_key: Public key for the key pair
being authorized.
:return: ``True`` iff verification of the key authorization was
successful.
:rtype: bool
z4Verification of key authorization in response failed)rN r r )r+ r? r` r@ Zverifiedr r r
simple_verify s
zDNS01Response.simple_verifyN)
r r r! r" rZ r$ r rP r; ra r r r r r^ s r^ c @ sB e Zd ZdZeZejZdZej e
e dddZ e e dddZ
d S )
r_ zACME dns-01 challenge.z_acme-challenge)rQ
unused_kwargsr c K s$ t jtj| j|jdj j S )zWGenerate validation.
:param JWK account_key:
:rtype: unicode
zutf-8)r rI hashlibsha256rE rH digestrL )r+ rQ rb r r r rV s zDNS01.validation)namer c C s dj | j|S )zkDomain name for TXT validation record.
:param unicode name: Domain name being validated.
z{0}.{1})formatLABEL)r+ rf r r r validation_domain_name
s z DNS01.validation_domain_nameN)r r r! r" r^ rR rZ rh r rP r r$ rV ri r r r r r_ s
r_ c @ s: e Zd ZdZdZdZdZd
deej e
e e ddd Z
dS ) HTTP01Responsez ACME http-01 challenge response.zhttp-01P z
NHTTP01)r? r` r@ portr c C s | j ||stjd dS |dk rF|| jkrFtjd| |dj|7 }|j|}tjd|j| ytj |dd}W n2 tj
j k
r } ztj d|| dS d}~X nX d |_
tjd
||j|j |jj| j}| j|krtjd | j| dS d S )
a Simple verify.
:param challenges.SimpleHTTP chall: Corresponding challenge.
:param unicode domain: Domain name being verified.
:param JWK account_public_key: Public key for the key pair
being authorized.
:param int port: Port used in the validation.
:returns: ``True`` iff validation with the files currently served by the
HTTP server is successful.
:rtype: bool
z4Verification of key authorization in response failedFNz4Using non-standard port for http-01 verification: %sz:{0}zVerifying %s at %s...)rN zUnable to reach %s: %sasciiz Received %s: %s. Headers: %szEKey authorization from response (%r) doesn't match HTTP response (%r)T)rN r r PORTZwarningrg urirZ requestsget
exceptionsZRequestExceptionr encodingtextZheadersrstripWHITESPACE_CUTSETrE ) r+ r? r` r@ rm rp Z
http_responser Zchallenge_responser r r ra # s0
z HTTP01Response.simple_verify)N)r r r! r" rZ ro rw r$ r rP r intr; ra r r r r rj s
rj c @ sT e Zd ZdZeZejZdZee dddZ
e e dddZ e j
ee d d
d Zd S )
rl zACME http-01 challenge.z.well-known/acme-challenge)r c C s d| j d | jd S )zTPath (starting with '/') for provisioned resource.
:rtype: string
/r0 )
URI_ROOT_PATHrH )r+ r r r pathd s z HTTP01.path)r` r c C s d| | j S )zCreate an URI to the provisioned resource.
Forms an URI to the HTTPS server provisioned resource
(containing :attr:`~SimpleHTTP.token`).
:param unicode domain: Domain name being verified.
:rtype: string
zhttp://)r{ )r+ r` r r r rp m s
z
HTTP01.uri)rQ rb r c K s
| j |S )zWGenerate validation.
:param JWK account_key:
:rtype: unicode
)rE )r+ rQ rb r r r rV y s zHTTP01.validationN)r r r! r" rj rR rZ rz r: r$ r{ rp r rP r rV r r r r rl [ s rl c @ s e Zd ZdZdZdZdZdZee dddZ
de e e
j eee
je
jf d d d
Zde e e e e e
jdddZe e
jedddZdde eje e
j e e e e edddZd S )TLSALPN01Responsez$ACME tls-alpn-01 challenge response.z tls-alpn-01i s 1.3.6.1.5.5.7.1.30.1z
acme-tls/1)r c C s t j| jjdj S )z*Hash value stored in challenge certificatezutf-8)rc rd rE rH re )r+ r r r h s zTLSALPN01Response.hN )r` keybitsr c C s\ |dkr t j }|jt j| dtj| jd }t j| jd|d}t j
||gd|gd|fS )a Generate tls-alpn-01 certificate.
:param unicode domain: Domain verified by the challenge.
:param OpenSSL.crypto.PKey key: Optional private key used in
certificate generation. If not provided (``None``), then
fresh key will be generated.
:param int bits: Number of bits for newly generated key.
:rtype: `tuple` of `OpenSSL.crypto.X509` and `OpenSSL.crypto.PKey`
Ns DER:hexT)Zcriticalvalue)Z force_san
extensions) r
PKeyZ generate_keyZTYPE_RSAcodecsrH r} Z
X509ExtensionID_PE_ACME_IDENTIFIER_V1r Z gen_ss_cert)r+ r` r r Z der_valueZacme_extensionr r r gen_cert s
zTLSALPN01Response.gen_cert)r` hostrm r c C sL |dkr t j|}tjd|| |dkr.| j}tj|j ||j | jgdS )zProbe tls-alpn-01 challenge certificate.
:param unicode domain: domain being validated, required.
:param string host: IP address used to probe the certificate.
:param int port: Port used to probe the certificate.
Nz%s resolved to %s)r rm rf Zalpn_protocols) socketZ
gethostbynamer r ro r Z probe_snirH ACME_TLS_1_PROTOCOL)r+ r` r rm r r r
probe_cert s
z TLSALPN01Response.probe_cert)r` certr c C s t j|}tjd|jd| t|dks>|d j |j krBdS x= 1.0.2),
or a recent cryptography version shipped with the OpenSSL library is installed.
:returns: ``True`` if TLS-ALPN-01 is supported on this machine, ``False`` otherwise.
:rtype: bool
Zset_alpn_protosZset_alpn_select_callback)hasattrr Z
ConnectionZContextr r r r is_supported s zTLSALPN01.is_supportedN)r r r! r" r| rR rZ r rP r r r
r r rV staticmethodr; r r r r r r s r c @ sr e Zd ZdZdZdZejfejej e
ej dddZ ej eje
ddd Zeje
d
d d d
ZeedddZdS )DNSzACME "dns" challenge.dnsz_acme-challenge)rQ algrT r c K s( t jjf | jddjd||d|S )zGenerate validation.
:param .JWK account_key: Private account key.
:param .JWA alg:
:returns: This challenge wrapped in `.JWS`
:rtype: .JWS
T)Z sort_keyszutf-8)payloadr r )r JWSZsignZ
json_dumpsrH )r+ rQ r rT r r r gen_validation1 s zDNS.gen_validation)rV r@ r c C sZ |j |dsdS y| | j|jjdkS tjk
rT } ztjd| dS d}~X nX dS )zwCheck validation.
:param JWS validation:
:param JWK account_public_key:
:rtype: bool
)r Fzutf-8z&Checking validation for DNS failed: %sN)rN Z
json_loadsr rL r ZDeserializationErrorr r )r+ rV r@ r r r r check_validation@ s zDNS.check_validation DNSResponse)rQ rT r c K s t | j|f|dS )zGenerate response.
:param .JWK account_key: Private account key.
:param .JWA alg:
:rtype: DNSResponse
)rV )r r )r+ rQ rT r r r gen_responseQ s zDNS.gen_response)rf r c C s dj | j|S )zkDomain name for TXT validation record.
:param unicode name: Domain name being validated.
z{0}.{1})rg rh )r+ rf r r r ri ] s zDNS.validation_domain_nameN)r r r! r" rZ rh r ZRS256rP Z JWASignaturer r r r; r r r$ ri r r r r r ) s r c @ s: e Zd ZdZdZejdejjdZ dej
e dddZ d S )
r z@ACME "dns" challenge response.
:param JWS validation:
r rV )r3 r )r? r@ r c C s |j ttj| j|S )z~Check validation.
:param challenges.DNS chall:
:param JWK account_public_key:
:rtype: bool
)r r r r rV )r+ r? r@ r r r r q s z DNSResponse.check_validationN)
r r r! r" rZ r r6 r r rV rP r; r r r r r r f s r )2r" r[ r r7 rc Zloggingr Ztypingr r r r r r r Z cryptography.hazmat.primitivesr Zjosepyr ZOpenSSLr
r rq Zacmer r
r Z acme.mixinsr r Z getLoggerr r ZTypedJSONObjectWithFieldsr r' r r- r< ABCMetar> registerr^ r_ rj rl r| r r r r r r r s^
/AG' $<