1 // Transport Security Layer (TLS)
2 // Copyright (c) 2003-2004 Carlos Guzman Alvarez
5 // Permission is hereby granted, free of charge, to any person obtaining
6 // a copy of this software and associated documentation files (the
7 // "Software"), to deal in the Software without restriction, including
8 // without limitation the rights to use, copy, modify, merge, publish,
9 // distribute, sublicense, and/or sell copies of the Software, and to
10 // permit persons to whom the Software is furnished to do so, subject to
11 // the following conditions:
13 // The above copyright notice and this permission notice shall be
14 // included in all copies or substantial portions of the Software.
16 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
20 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
21 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
22 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28 using Mono
.Security
.X509
;
30 namespace Mono
.Security
.Protocol
.Tls
.Handshake
.Server
32 internal class TlsServerCertificateRequest
: HandshakeMessage
36 public TlsServerCertificateRequest(Context context
)
37 : base(context
, HandshakeType
.CertificateRequest
)
43 #region Protected Methods
45 protected override void ProcessAsSsl3()
50 protected override void ProcessAsTls1()
52 ServerContext context
= (ServerContext
)this.Context
;
54 int count
= context
.ServerSettings
.CertificateTypes
.Length
;
56 this.WriteByte(Convert
.ToByte(count
));
58 // Write requested certificate types
59 for (int i
= 0; i
< count
; i
++)
61 this.WriteByte((byte)context
.ServerSettings
.CertificateTypes
[i
]);
65 * Write requested certificate authorities (Distinguised Names)
67 * Name ::= SEQUENCE OF RelativeDistinguishedName
69 * RelativeDistinguishedName ::= SET OF AttributeValueAssertion
71 * AttributeValueAssertion ::= SEQUENCE {
72 * attributeType OBJECT IDENTIFIER
73 * attributeValue ANY }
76 if (context
.ServerSettings
.DistinguisedNames
.Length
> 0)
78 TlsStream list
= new TlsStream ();
79 // this is the worst formating ever :-|
80 foreach (string dn
in context
.ServerSettings
.DistinguisedNames
)
82 byte[] name
= X501
.FromString (dn
).GetBytes ();
83 list
.Write ((short)name
.Length
);
86 this.Write ((short)list
.Length
);
87 this.Write (list
.ToArray ());
91 this.Write ((short)0);