2
0

s2_pkt.c 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744
  1. /* ssl/s2_pkt.c */
  2. /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  3. * All rights reserved.
  4. *
  5. * This package is an SSL implementation written
  6. * by Eric Young (eay@cryptsoft.com).
  7. * The implementation was written so as to conform with Netscapes SSL.
  8. *
  9. * This library is free for commercial and non-commercial use as long as
  10. * the following conditions are aheared to. The following conditions
  11. * apply to all code found in this distribution, be it the RC4, RSA,
  12. * lhash, DES, etc., code; not just the SSL code. The SSL documentation
  13. * included with this distribution is covered by the same copyright terms
  14. * except that the holder is Tim Hudson (tjh@cryptsoft.com).
  15. *
  16. * Copyright remains Eric Young's, and as such any Copyright notices in
  17. * the code are not to be removed.
  18. * If this package is used in a product, Eric Young should be given attribution
  19. * as the author of the parts of the library used.
  20. * This can be in the form of a textual message at program startup or
  21. * in documentation (online or textual) provided with the package.
  22. *
  23. * Redistribution and use in source and binary forms, with or without
  24. * modification, are permitted provided that the following conditions
  25. * are met:
  26. * 1. Redistributions of source code must retain the copyright
  27. * notice, this list of conditions and the following disclaimer.
  28. * 2. Redistributions in binary form must reproduce the above copyright
  29. * notice, this list of conditions and the following disclaimer in the
  30. * documentation and/or other materials provided with the distribution.
  31. * 3. All advertising materials mentioning features or use of this software
  32. * must display the following acknowledgement:
  33. * "This product includes cryptographic software written by
  34. * Eric Young (eay@cryptsoft.com)"
  35. * The word 'cryptographic' can be left out if the rouines from the library
  36. * being used are not cryptographic related :-).
  37. * 4. If you include any Windows specific code (or a derivative thereof) from
  38. * the apps directory (application code) you must include an acknowledgement:
  39. * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
  40. *
  41. * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  42. * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  43. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  44. * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  45. * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  46. * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  47. * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  48. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  49. * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  50. * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  51. * SUCH DAMAGE.
  52. *
  53. * The licence and distribution terms for any publically available version or
  54. * derivative of this code cannot be changed. i.e. this code cannot simply be
  55. * copied and put under another distribution licence
  56. * [including the GNU Public Licence.]
  57. */
  58. /* ====================================================================
  59. * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved.
  60. *
  61. * Redistribution and use in source and binary forms, with or without
  62. * modification, are permitted provided that the following conditions
  63. * are met:
  64. *
  65. * 1. Redistributions of source code must retain the above copyright
  66. * notice, this list of conditions and the following disclaimer.
  67. *
  68. * 2. Redistributions in binary form must reproduce the above copyright
  69. * notice, this list of conditions and the following disclaimer in
  70. * the documentation and/or other materials provided with the
  71. * distribution.
  72. *
  73. * 3. All advertising materials mentioning features or use of this
  74. * software must display the following acknowledgment:
  75. * "This product includes software developed by the OpenSSL Project
  76. * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
  77. *
  78. * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  79. * endorse or promote products derived from this software without
  80. * prior written permission. For written permission, please contact
  81. * openssl-core@openssl.org.
  82. *
  83. * 5. Products derived from this software may not be called "OpenSSL"
  84. * nor may "OpenSSL" appear in their names without prior written
  85. * permission of the OpenSSL Project.
  86. *
  87. * 6. Redistributions of any form whatsoever must retain the following
  88. * acknowledgment:
  89. * "This product includes software developed by the OpenSSL Project
  90. * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
  91. *
  92. * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  93. * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  94. * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  95. * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
  96. * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  97. * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  98. * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  99. * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  100. * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  101. * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  102. * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  103. * OF THE POSSIBILITY OF SUCH DAMAGE.
  104. * ====================================================================
  105. *
  106. * This product includes cryptographic software written by Eric Young
  107. * (eay@cryptsoft.com). This product includes software written by Tim
  108. * Hudson (tjh@cryptsoft.com).
  109. *
  110. */
  111. #include "ssl_locl.h"
  112. #ifndef OPENSSL_NO_SSL2
  113. #include <stdio.h>
  114. #include <errno.h>
  115. #define USE_SOCKETS
  116. static int read_n(SSL *s,unsigned int n,unsigned int max,unsigned int extend);
  117. static int n_do_ssl_write(SSL *s, const unsigned char *buf, unsigned int len);
  118. static int write_pending(SSL *s, const unsigned char *buf, unsigned int len);
  119. static int ssl_mt_error(int n);
  120. /* SSL 2.0 imlementation for SSL_read/SSL_peek -
  121. * This routine will return 0 to len bytes, decrypted etc if required.
  122. */
  123. static int ssl2_read_internal(SSL *s, void *buf, int len, int peek)
  124. {
  125. int n;
  126. unsigned char mac[MAX_MAC_SIZE];
  127. unsigned char *p;
  128. int i;
  129. int mac_size;
  130. ssl2_read_again:
  131. if (SSL_in_init(s) && !s->in_handshake)
  132. {
  133. n=s->handshake_func(s);
  134. if (n < 0) return(n);
  135. if (n == 0)
  136. {
  137. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_SSL_HANDSHAKE_FAILURE);
  138. return(-1);
  139. }
  140. }
  141. clear_sys_error();
  142. s->rwstate=SSL_NOTHING;
  143. if (len <= 0) return(len);
  144. if (s->s2->ract_data_length != 0) /* read from buffer */
  145. {
  146. if (len > s->s2->ract_data_length)
  147. n=s->s2->ract_data_length;
  148. else
  149. n=len;
  150. memcpy(buf,s->s2->ract_data,(unsigned int)n);
  151. if (!peek)
  152. {
  153. s->s2->ract_data_length-=n;
  154. s->s2->ract_data+=n;
  155. if (s->s2->ract_data_length == 0)
  156. s->rstate=SSL_ST_READ_HEADER;
  157. }
  158. return(n);
  159. }
  160. /* s->s2->ract_data_length == 0
  161. *
  162. * Fill the buffer, then goto ssl2_read_again.
  163. */
  164. if (s->rstate == SSL_ST_READ_HEADER)
  165. {
  166. if (s->first_packet)
  167. {
  168. n=read_n(s,5,SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER+2,0);
  169. if (n <= 0) return(n); /* error or non-blocking */
  170. s->first_packet=0;
  171. p=s->packet;
  172. if (!((p[0] & 0x80) && (
  173. (p[2] == SSL2_MT_CLIENT_HELLO) ||
  174. (p[2] == SSL2_MT_SERVER_HELLO))))
  175. {
  176. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_NON_SSLV2_INITIAL_PACKET);
  177. return(-1);
  178. }
  179. }
  180. else
  181. {
  182. n=read_n(s,2,SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER+2,0);
  183. if (n <= 0) return(n); /* error or non-blocking */
  184. }
  185. /* part read stuff */
  186. s->rstate=SSL_ST_READ_BODY;
  187. p=s->packet;
  188. /* Do header */
  189. /*s->s2->padding=0;*/
  190. s->s2->escape=0;
  191. s->s2->rlength=(((unsigned int)p[0])<<8)|((unsigned int)p[1]);
  192. if ((p[0] & TWO_BYTE_BIT)) /* Two byte header? */
  193. {
  194. s->s2->three_byte_header=0;
  195. s->s2->rlength&=TWO_BYTE_MASK;
  196. }
  197. else
  198. {
  199. s->s2->three_byte_header=1;
  200. s->s2->rlength&=THREE_BYTE_MASK;
  201. /* security >s2->escape */
  202. s->s2->escape=((p[0] & SEC_ESC_BIT))?1:0;
  203. }
  204. }
  205. if (s->rstate == SSL_ST_READ_BODY)
  206. {
  207. n=s->s2->rlength+2+s->s2->three_byte_header;
  208. if (n > (int)s->packet_length)
  209. {
  210. n-=s->packet_length;
  211. i=read_n(s,(unsigned int)n,(unsigned int)n,1);
  212. if (i <= 0) return(i); /* ERROR */
  213. }
  214. p= &(s->packet[2]);
  215. s->rstate=SSL_ST_READ_HEADER;
  216. if (s->s2->three_byte_header)
  217. s->s2->padding= *(p++);
  218. else s->s2->padding=0;
  219. /* Data portion */
  220. if (s->s2->clear_text)
  221. {
  222. mac_size = 0;
  223. s->s2->mac_data=p;
  224. s->s2->ract_data=p;
  225. if (s->s2->padding)
  226. {
  227. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_ILLEGAL_PADDING);
  228. return(-1);
  229. }
  230. }
  231. else
  232. {
  233. mac_size=EVP_MD_CTX_size(s->read_hash);
  234. if (mac_size < 0)
  235. return -1;
  236. OPENSSL_assert(mac_size <= MAX_MAC_SIZE);
  237. s->s2->mac_data=p;
  238. s->s2->ract_data= &p[mac_size];
  239. if (s->s2->padding + mac_size > s->s2->rlength)
  240. {
  241. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_ILLEGAL_PADDING);
  242. return(-1);
  243. }
  244. }
  245. s->s2->ract_data_length=s->s2->rlength;
  246. /* added a check for length > max_size in case
  247. * encryption was not turned on yet due to an error */
  248. if ((!s->s2->clear_text) &&
  249. (s->s2->rlength >= (unsigned int)mac_size))
  250. {
  251. ssl2_enc(s,0);
  252. s->s2->ract_data_length-=mac_size;
  253. ssl2_mac(s,mac,0);
  254. s->s2->ract_data_length-=s->s2->padding;
  255. if ( (memcmp(mac,s->s2->mac_data,
  256. (unsigned int)mac_size) != 0) ||
  257. (s->s2->rlength%EVP_CIPHER_CTX_block_size(s->enc_read_ctx) != 0))
  258. {
  259. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_BAD_MAC_DECODE);
  260. return(-1);
  261. }
  262. }
  263. INC32(s->s2->read_sequence); /* expect next number */
  264. /* s->s2->ract_data is now available for processing */
  265. /* Possibly the packet that we just read had 0 actual data bytes.
  266. * (SSLeay/OpenSSL itself never sends such packets; see ssl2_write.)
  267. * In this case, returning 0 would be interpreted by the caller
  268. * as indicating EOF, so it's not a good idea. Instead, we just
  269. * continue reading; thus ssl2_read_internal may have to process
  270. * multiple packets before it can return.
  271. *
  272. * [Note that using select() for blocking sockets *never* guarantees
  273. * that the next SSL_read will not block -- the available
  274. * data may contain incomplete packets, and except for SSL 2,
  275. * renegotiation can confuse things even more.] */
  276. goto ssl2_read_again; /* This should really be
  277. * "return ssl2_read(s,buf,len)",
  278. * but that would allow for
  279. * denial-of-service attacks if a
  280. * C compiler is used that does not
  281. * recognize end-recursion. */
  282. }
  283. else
  284. {
  285. SSLerr(SSL_F_SSL2_READ_INTERNAL,SSL_R_BAD_STATE);
  286. return(-1);
  287. }
  288. }
  289. int ssl2_read(SSL *s, void *buf, int len)
  290. {
  291. return ssl2_read_internal(s, buf, len, 0);
  292. }
  293. int ssl2_peek(SSL *s, void *buf, int len)
  294. {
  295. return ssl2_read_internal(s, buf, len, 1);
  296. }
  297. static int read_n(SSL *s, unsigned int n, unsigned int max,
  298. unsigned int extend)
  299. {
  300. int i,off,newb;
  301. /* if there is stuff still in the buffer from a previous read,
  302. * and there is more than we want, take some. */
  303. if (s->s2->rbuf_left >= (int)n)
  304. {
  305. if (extend)
  306. s->packet_length+=n;
  307. else
  308. {
  309. s->packet= &(s->s2->rbuf[s->s2->rbuf_offs]);
  310. s->packet_length=n;
  311. }
  312. s->s2->rbuf_left-=n;
  313. s->s2->rbuf_offs+=n;
  314. return(n);
  315. }
  316. if (!s->read_ahead) max=n;
  317. if (max > (unsigned int)(SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER+2))
  318. max=SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER+2;
  319. /* Else we want more than we have.
  320. * First, if there is some left or we want to extend */
  321. off=0;
  322. if ((s->s2->rbuf_left != 0) || ((s->packet_length != 0) && extend))
  323. {
  324. newb=s->s2->rbuf_left;
  325. if (extend)
  326. {
  327. off=s->packet_length;
  328. if (s->packet != s->s2->rbuf)
  329. memcpy(s->s2->rbuf,s->packet,
  330. (unsigned int)newb+off);
  331. }
  332. else if (s->s2->rbuf_offs != 0)
  333. {
  334. memcpy(s->s2->rbuf,&(s->s2->rbuf[s->s2->rbuf_offs]),
  335. (unsigned int)newb);
  336. s->s2->rbuf_offs=0;
  337. }
  338. s->s2->rbuf_left=0;
  339. }
  340. else
  341. newb=0;
  342. /* off is the offset to start writing too.
  343. * r->s2->rbuf_offs is the 'unread data', now 0.
  344. * newb is the number of new bytes so far
  345. */
  346. s->packet=s->s2->rbuf;
  347. while (newb < (int)n)
  348. {
  349. clear_sys_error();
  350. if (s->rbio != NULL)
  351. {
  352. s->rwstate=SSL_READING;
  353. i=BIO_read(s->rbio,(char *)&(s->s2->rbuf[off+newb]),
  354. max-newb);
  355. }
  356. else
  357. {
  358. SSLerr(SSL_F_READ_N,SSL_R_READ_BIO_NOT_SET);
  359. i= -1;
  360. }
  361. #ifdef PKT_DEBUG
  362. if (s->debug & 0x01) sleep(1);
  363. #endif
  364. if (i <= 0)
  365. {
  366. s->s2->rbuf_left+=newb;
  367. return(i);
  368. }
  369. newb+=i;
  370. }
  371. /* record unread data */
  372. if (newb > (int)n)
  373. {
  374. s->s2->rbuf_offs=n+off;
  375. s->s2->rbuf_left=newb-n;
  376. }
  377. else
  378. {
  379. s->s2->rbuf_offs=0;
  380. s->s2->rbuf_left=0;
  381. }
  382. if (extend)
  383. s->packet_length+=n;
  384. else
  385. s->packet_length=n;
  386. s->rwstate=SSL_NOTHING;
  387. return(n);
  388. }
  389. int ssl2_write(SSL *s, const void *_buf, int len)
  390. {
  391. const unsigned char *buf=_buf;
  392. unsigned int n,tot;
  393. int i;
  394. if (SSL_in_init(s) && !s->in_handshake)
  395. {
  396. i=s->handshake_func(s);
  397. if (i < 0) return(i);
  398. if (i == 0)
  399. {
  400. SSLerr(SSL_F_SSL2_WRITE,SSL_R_SSL_HANDSHAKE_FAILURE);
  401. return(-1);
  402. }
  403. }
  404. if (s->error)
  405. {
  406. ssl2_write_error(s);
  407. if (s->error)
  408. return(-1);
  409. }
  410. clear_sys_error();
  411. s->rwstate=SSL_NOTHING;
  412. if (len <= 0) return(len);
  413. tot=s->s2->wnum;
  414. s->s2->wnum=0;
  415. n=(len-tot);
  416. for (;;)
  417. {
  418. i=n_do_ssl_write(s,&(buf[tot]),n);
  419. if (i <= 0)
  420. {
  421. s->s2->wnum=tot;
  422. return(i);
  423. }
  424. if ((i == (int)n) ||
  425. (s->mode & SSL_MODE_ENABLE_PARTIAL_WRITE))
  426. {
  427. return(tot+i);
  428. }
  429. n-=i;
  430. tot+=i;
  431. }
  432. }
  433. static int write_pending(SSL *s, const unsigned char *buf, unsigned int len)
  434. {
  435. int i;
  436. /* s->s2->wpend_len != 0 MUST be true. */
  437. /* check that they have given us the same buffer to
  438. * write */
  439. if ((s->s2->wpend_tot > (int)len) ||
  440. ((s->s2->wpend_buf != buf) &&
  441. !(s->mode & SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER)))
  442. {
  443. SSLerr(SSL_F_WRITE_PENDING,SSL_R_BAD_WRITE_RETRY);
  444. return(-1);
  445. }
  446. for (;;)
  447. {
  448. clear_sys_error();
  449. if (s->wbio != NULL)
  450. {
  451. s->rwstate=SSL_WRITING;
  452. i=BIO_write(s->wbio,
  453. (char *)&(s->s2->write_ptr[s->s2->wpend_off]),
  454. (unsigned int)s->s2->wpend_len);
  455. }
  456. else
  457. {
  458. SSLerr(SSL_F_WRITE_PENDING,SSL_R_WRITE_BIO_NOT_SET);
  459. i= -1;
  460. }
  461. #ifdef PKT_DEBUG
  462. if (s->debug & 0x01) sleep(1);
  463. #endif
  464. if (i == s->s2->wpend_len)
  465. {
  466. s->s2->wpend_len=0;
  467. s->rwstate=SSL_NOTHING;
  468. return(s->s2->wpend_ret);
  469. }
  470. else if (i <= 0)
  471. return(i);
  472. s->s2->wpend_off+=i;
  473. s->s2->wpend_len-=i;
  474. }
  475. }
  476. static int n_do_ssl_write(SSL *s, const unsigned char *buf, unsigned int len)
  477. {
  478. unsigned int j,k,olen,p,bs;
  479. int mac_size;
  480. register unsigned char *pp;
  481. olen=len;
  482. /* first check if there is data from an encryption waiting to
  483. * be sent - it must be sent because the other end is waiting.
  484. * This will happen with non-blocking IO. We print it and then
  485. * return.
  486. */
  487. if (s->s2->wpend_len != 0) return(write_pending(s,buf,len));
  488. /* set mac_size to mac size */
  489. if (s->s2->clear_text)
  490. mac_size=0;
  491. else
  492. {
  493. mac_size=EVP_MD_CTX_size(s->write_hash);
  494. if (mac_size < 0)
  495. return -1;
  496. }
  497. /* lets set the pad p */
  498. if (s->s2->clear_text)
  499. {
  500. if (len > SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER)
  501. len=SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER;
  502. p=0;
  503. s->s2->three_byte_header=0;
  504. /* len=len; */
  505. }
  506. else
  507. {
  508. bs=EVP_CIPHER_CTX_block_size(s->enc_read_ctx);
  509. j=len+mac_size;
  510. /* Two-byte headers allow for a larger record length than
  511. * three-byte headers, but we can't use them if we need
  512. * padding or if we have to set the escape bit. */
  513. if ((j > SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER) &&
  514. (!s->s2->escape))
  515. {
  516. if (j > SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER)
  517. j=SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER;
  518. /* set k to the max number of bytes with 2
  519. * byte header */
  520. k=j-(j%bs);
  521. /* how many data bytes? */
  522. len=k-mac_size;
  523. s->s2->three_byte_header=0;
  524. p=0;
  525. }
  526. else if ((bs <= 1) && (!s->s2->escape))
  527. {
  528. /* j <= SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER, thus
  529. * j < SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER */
  530. s->s2->three_byte_header=0;
  531. p=0;
  532. }
  533. else /* we may have to use a 3 byte header */
  534. {
  535. /* If s->s2->escape is not set, then
  536. * j <= SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER, and thus
  537. * j < SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER. */
  538. p=(j%bs);
  539. p=(p == 0)?0:(bs-p);
  540. if (s->s2->escape)
  541. {
  542. s->s2->three_byte_header=1;
  543. if (j > SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER)
  544. j=SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER;
  545. }
  546. else
  547. s->s2->three_byte_header=(p == 0)?0:1;
  548. }
  549. }
  550. /* Now
  551. * j <= SSL2_MAX_RECORD_LENGTH_2_BYTE_HEADER
  552. * holds, and if s->s2->three_byte_header is set, then even
  553. * j <= SSL2_MAX_RECORD_LENGTH_3_BYTE_HEADER.
  554. */
  555. /* mac_size is the number of MAC bytes
  556. * len is the number of data bytes we are going to send
  557. * p is the number of padding bytes
  558. * (if it is a two-byte header, then p == 0) */
  559. s->s2->wlength=len;
  560. s->s2->padding=p;
  561. s->s2->mac_data= &(s->s2->wbuf[3]);
  562. s->s2->wact_data= &(s->s2->wbuf[3+mac_size]);
  563. /* we copy the data into s->s2->wbuf */
  564. memcpy(s->s2->wact_data,buf,len);
  565. if (p)
  566. memset(&(s->s2->wact_data[len]),0,p); /* arbitrary padding */
  567. if (!s->s2->clear_text)
  568. {
  569. s->s2->wact_data_length=len+p;
  570. ssl2_mac(s,s->s2->mac_data,1);
  571. s->s2->wlength+=p+mac_size;
  572. ssl2_enc(s,1);
  573. }
  574. /* package up the header */
  575. s->s2->wpend_len=s->s2->wlength;
  576. if (s->s2->three_byte_header) /* 3 byte header */
  577. {
  578. pp=s->s2->mac_data;
  579. pp-=3;
  580. pp[0]=(s->s2->wlength>>8)&(THREE_BYTE_MASK>>8);
  581. if (s->s2->escape) pp[0]|=SEC_ESC_BIT;
  582. pp[1]=s->s2->wlength&0xff;
  583. pp[2]=s->s2->padding;
  584. s->s2->wpend_len+=3;
  585. }
  586. else
  587. {
  588. pp=s->s2->mac_data;
  589. pp-=2;
  590. pp[0]=((s->s2->wlength>>8)&(TWO_BYTE_MASK>>8))|TWO_BYTE_BIT;
  591. pp[1]=s->s2->wlength&0xff;
  592. s->s2->wpend_len+=2;
  593. }
  594. s->s2->write_ptr=pp;
  595. INC32(s->s2->write_sequence); /* expect next number */
  596. /* lets try to actually write the data */
  597. s->s2->wpend_tot=olen;
  598. s->s2->wpend_buf=buf;
  599. s->s2->wpend_ret=len;
  600. s->s2->wpend_off=0;
  601. return(write_pending(s,buf,olen));
  602. }
  603. int ssl2_part_read(SSL *s, unsigned long f, int i)
  604. {
  605. unsigned char *p;
  606. int j;
  607. if (i < 0)
  608. {
  609. /* ssl2_return_error(s); */
  610. /* for non-blocking io,
  611. * this is not necessarily fatal */
  612. return(i);
  613. }
  614. else
  615. {
  616. s->init_num+=i;
  617. /* Check for error. While there are recoverable errors,
  618. * this function is not called when those must be expected;
  619. * any error detected here is fatal. */
  620. if (s->init_num >= 3)
  621. {
  622. p=(unsigned char *)s->init_buf->data;
  623. if (p[0] == SSL2_MT_ERROR)
  624. {
  625. j=(p[1]<<8)|p[2];
  626. SSLerr((int)f,ssl_mt_error(j));
  627. s->init_num -= 3;
  628. if (s->init_num > 0)
  629. memmove(p, p+3, s->init_num);
  630. }
  631. }
  632. /* If it's not an error message, we have some error anyway --
  633. * the message was shorter than expected. This too is treated
  634. * as fatal (at least if SSL_get_error is asked for its opinion). */
  635. return(0);
  636. }
  637. }
  638. int ssl2_do_write(SSL *s)
  639. {
  640. int ret;
  641. ret=ssl2_write(s,&s->init_buf->data[s->init_off],s->init_num);
  642. if (ret == s->init_num)
  643. {
  644. if (s->msg_callback)
  645. s->msg_callback(1, s->version, 0, s->init_buf->data, (size_t)(s->init_off + s->init_num), s, s->msg_callback_arg);
  646. return(1);
  647. }
  648. if (ret < 0)
  649. return(-1);
  650. s->init_off+=ret;
  651. s->init_num-=ret;
  652. return(0);
  653. }
  654. static int ssl_mt_error(int n)
  655. {
  656. int ret;
  657. switch (n)
  658. {
  659. case SSL2_PE_NO_CIPHER:
  660. ret=SSL_R_PEER_ERROR_NO_CIPHER;
  661. break;
  662. case SSL2_PE_NO_CERTIFICATE:
  663. ret=SSL_R_PEER_ERROR_NO_CERTIFICATE;
  664. break;
  665. case SSL2_PE_BAD_CERTIFICATE:
  666. ret=SSL_R_PEER_ERROR_CERTIFICATE;
  667. break;
  668. case SSL2_PE_UNSUPPORTED_CERTIFICATE_TYPE:
  669. ret=SSL_R_PEER_ERROR_UNSUPPORTED_CERTIFICATE_TYPE;
  670. break;
  671. default:
  672. ret=SSL_R_UNKNOWN_REMOTE_ERROR_TYPE;
  673. break;
  674. }
  675. return(ret);
  676. }
  677. #else /* !OPENSSL_NO_SSL2 */
  678. # if PEDANTIC
  679. static void *dummy=&dummy;
  680. # endif
  681. #endif