52 lines
1.4 KiB
Scheme
52 lines
1.4 KiB
Scheme
(define content-types
|
|
'((change_chipher_spec . 20)
|
|
(alert . 21)
|
|
(handshake . 22)
|
|
(application . 23)
|
|
(heart_beat . 24)))
|
|
(define types-content
|
|
(map (lambda (item) (cons (cdr item) (car item))) content-types))
|
|
|
|
(define alert-types
|
|
'((close_notify . 0)
|
|
(unexpected_message . 10)
|
|
(bad_record_mac . 20)
|
|
(decryption_failed_RESERVED . 21)
|
|
(record_overflow . 22)
|
|
(decompression_failure . 30)
|
|
(handshake_failure . 40)
|
|
(no_certificate_RESERVED . 41)
|
|
(bad_certificate . 42)
|
|
(unsupported_certificate . 43)
|
|
(certificate_revoked . 44)
|
|
(qertificate_expired . 45)
|
|
(certificate_unknown . 46)
|
|
(illegal_parameter . 47)
|
|
(unknown_ca . 48)
|
|
(access_denied . 49)
|
|
(decode_error . 50)
|
|
(decrypt_error . 51)
|
|
(export_restriction_RESERVED . 60)
|
|
(protocol_version . 70)
|
|
(insufficient_security . 71)
|
|
(internal_error . 80)
|
|
(user_canceled . 90)
|
|
(no_renegotiation . 100)
|
|
(unsupported_extension . 110)))
|
|
(define types-alert
|
|
(map (lambda (item) (cons (cdr item) (car item))) alert-types))
|
|
|
|
(define handshake-types
|
|
'((hello_request . 0)
|
|
(client_hello . 1)
|
|
(server_hello . 2)
|
|
(certificate . 11)
|
|
(server_key_exchange . 12)
|
|
(certificate_request . 13)
|
|
(server_hello_done . 14)
|
|
(certificate_verify . 15)
|
|
(client_key_exchange . 16)
|
|
(finished . 20)))
|
|
(define types-handshake
|
|
(map (lambda (item) (cons (cdr item) (car item))) handshake-types))
|