openssl/crypto/des/des.c - Issue 2072073002: Delete bundled copy of OpenSSL and replace with README.

Side by Side Diff: openssl/crypto/des/des.c

Issue 2072073002: Delete bundled copy of OpenSSL and replace with README. (Closed) Base URL: https://chromium.googlesource.com/chromium/deps/openssl@master

Patch Set: Delete bundled copy of OpenSSL and replace with README. Created 4 years, 6 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

View unified diff | Download patch

OLD	NEW
	(Empty)
1 /* crypto/des/des.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 #include <stdio.h>

60 #include <stdlib.h>

61 #include <string.h>

62 #include <openssl/opensslconf.h>

63 #ifndef OPENSSL_SYS_MSDOS

64 #ifndef OPENSSL_SYS_VMS

65 #include OPENSSL_UNISTD

66 #else /* OPENSSL_SYS_VMS */

67 #ifdef __DECC

68 #include <unistd.h>

69 #else /* not __DECC */

70 #include <math.h>

71 #endif /* __DECC */

72 #endif /* OPENSSL_SYS_VMS */

73 #else /* OPENSSL_SYS_MSDOS */

74 #include <io.h>

75 #endif

76

77 #include <time.h>

78 #include "des_ver.h"

79

80 #ifdef OPENSSL_SYS_VMS

81 #include <types.h>

82 #include <stat.h>

83 #else

84 #ifndef _IRIX

85 #include <sys/types.h>

86 #endif

87 #include <sys/stat.h>

88 #endif

89 #include <openssl/des.h>

90 #include <openssl/rand.h>

91 #include <openssl/ui_compat.h>

92

93 void usage(void);

94 void doencryption(void);

95 int uufwrite(unsigned char data, int size, unsigned int num, FILE fp);

96 void uufwriteEnd(FILE *fp);

97 int uufread(unsigned char out,int size,unsigned int num,FILE fp);

98 int uuencode(unsigned char in,int num,unsigned char out);

99 int uudecode(unsigned char in,int num,unsigned char out);

100 void DES_3cbc_encrypt(DES_cblock input,DES_cblock output,long length,

101 DES_key_schedule sk1,DES_key_schedule sk2,

102 DES_cblock ivec1,DES_cblock ivec2,int enc);

103 #ifdef OPENSSL_SYS_VMS

104 #define EXIT(a) exit(a&0x10000000L)

105 #else

106 #define EXIT(a) exit(a)

107 #endif

108

109 #define BUFSIZE (8*1024)

110 #define VERIFY 1

111 #define KEYSIZ 8

112 #define KEYSIZB 1024 /* should hit tty line limit first :-) */

113 char key[KEYSIZB+1];

114 int do_encrypt,longk=0;

115 FILE DES_IN,DES_OUT,*CKSUM_OUT;

116 char uuname[200];

117 unsigned char uubuf[50];

118 int uubufnum=0;

119 #define INUUBUFN (45*100)

120 #define OUTUUBUF (65*100)

121 unsigned char b[OUTUUBUF];

122 unsigned char bb[300];

123 DES_cblock cksum={0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};

124 char cksumname[200]="";

125

126 int vflag,cflag,eflag,dflag,kflag,bflag,fflag,sflag,uflag,flag3,hflag,error;

127

128 int main(int argc, char **argv)

129 {

130 int i;

131 struct stat ins,outs;

132 char *p;

133 char in=NULL,out=NULL;

134

135 vflag=cflag=eflag=dflag=kflag=hflag=bflag=fflag=sflag=uflag=flag3=0;

136 error=0;

137 memset(key,0,sizeof(key));

138

139 for (i=1; i<argc; i++)

140 {

141 p=argv[i];

142 if ((p[0] == '-') && (p[1] != '\0'))

143 {

144 p++;

145 while (*p)

146 {

147 switch (*(p++))

148 {

149 case '3':

150 flag3=1;

151 longk=1;

152 break;

153 case 'c':

154 cflag=1;

155 strncpy(cksumname,p,200);

156 cksumname[sizeof(cksumname)-1]='\0';

157 p+=strlen(cksumname);

158 break;

159 case 'C':

160 cflag=1;

161 longk=1;

162 strncpy(cksumname,p,200);

163 cksumname[sizeof(cksumname)-1]='\0';

164 p+=strlen(cksumname);

165 break;

166 case 'e':

167 eflag=1;

168 break;

169 case 'v':

170 vflag=1;

171 break;

172 case 'E':

173 eflag=1;

174 longk=1;

175 break;

176 case 'd':

177 dflag=1;

178 break;

179 case 'D':

180 dflag=1;

181 longk=1;

182 break;

183 case 'b':

184 bflag=1;

185 break;

186 case 'f':

187 fflag=1;

188 break;

189 case 's':

190 sflag=1;

191 break;

192 case 'u':

193 uflag=1;

194 strncpy(uuname,p,200);

195 uuname[sizeof(uuname)-1]='\0';

196 p+=strlen(uuname);

197 break;

198 case 'h':

199 hflag=1;

200 break;

201 case 'k':

202 kflag=1;

203 if ((i+1) == argc)

204 {

205 fputs("must have a key with the -k option\n",stderr);

206 error=1;

207 }

208 else

209 {

210 int j;

211

212 i++;

213 strncpy(key,argv[i],KEYSIZB);

214 for (j=strlen(argv[i])-1; j>=0; j--)

215 argv[i][j]='\0';

216 }

217 break;

218 default:

219 fprintf(stderr,"'%c' unknown flag\n",p[- 1]);

220 error=1;

221 break;

222 }

223 }

224 }

225 else

226 {

227 if (in == NULL)

228 in=argv[i];

229 else if (out == NULL)

230 out=argv[i];

231 else

232 error=1;

233 }

234 }

235 if (error) usage();

236 /* We either

237 * do checksum or

238 * do encrypt or

239 * do decrypt or

240 * do decrypt then ckecksum or

241 * do checksum then encrypt

242 */

243 if (((eflag+dflag) == 1) \|\| cflag)

244 {

245 if (eflag) do_encrypt=DES_ENCRYPT;

246 if (dflag) do_encrypt=DES_DECRYPT;

247 }

248 else

249 {

250 if (vflag)

251 {

252 #ifndef _Windows

253 fprintf(stderr,"des(1) built with %s\n",libdes_version);

254 #endif

255 EXIT(1);

256 }

257 else usage();

258 }

259

260 #ifndef _Windows

261 if (vflag) fprintf(stderr,"des(1) built with %s\n",libdes_version);

262 #endif

263 if ( (in != NULL) &&

264 (out != NULL) &&

265 #ifndef OPENSSL_SYS_MSDOS

266 (stat(in,&ins) != -1) &&

267 (stat(out,&outs) != -1) &&

268 (ins.st_dev == outs.st_dev) &&

269 (ins.st_ino == outs.st_ino))

270 #else /* OPENSSL_SYS_MSDOS */

271 (strcmp(in,out) == 0))

272 #endif

273 {

274 fputs("input and output file are the same\n",stderr);

275 EXIT(3);

276 }

277

278 if (!kflag)

279 if (des_read_pw_string(key,KEYSIZB+1,"Enter key:",eflag?VERIFY:0 ))

280 {

281 fputs("password error\n",stderr);

282 EXIT(2);

283 }

284

285 if (in == NULL)

286 DES_IN=stdin;

287 else if ((DES_IN=fopen(in,"r")) == NULL)

288 {

289 perror("opening input file");

290 EXIT(4);

291 }

292

293 CKSUM_OUT=stdout;

294 if (out == NULL)

295 {

296 DES_OUT=stdout;

297 CKSUM_OUT=stderr;

298 }

299 else if ((DES_OUT=fopen(out,"w")) == NULL)

300 {

301 perror("opening output file");

302 EXIT(5);

303 }

304

305 #ifdef OPENSSL_SYS_MSDOS

306 /* This should set the file to binary mode. */

307 {

308 #include <fcntl.h>

309 if (!(uflag && dflag))

310 setmode(fileno(DES_IN),O_BINARY);

311 if (!(uflag && eflag))

312 setmode(fileno(DES_OUT),O_BINARY);

313 }

314 #endif

315

316 doencryption();

317 fclose(DES_IN);

318 fclose(DES_OUT);

319 EXIT(0);

320 }

321

322 void usage(void)

323 {

324 char **u;

325 static const char *Usage[]={

326 "des <options> [input-file [output-file]]",

327 "options:",

328 "-v : des(1) version number",

329 "-e : encrypt using SunOS compatible user key to DES key conversion.",

330 "-E : encrypt ",

331 "-d : decrypt using SunOS compatible user key to DES key conversion.",

332 "-D : decrypt ",

333 "-c[ckname] : generate a cbc_cksum using SunOS compatible user key to",

334 " DES key conversion and output to ckname (stdout default,",

335 " stderr if data being output on stdout). The checksum is",

336 " generated before encryption and after decryption if used",

337 " in conjunction with -[eEdD].",

338 "-C[ckname] : generate a cbc_cksum as for -c but compatible with -[ED].",

339 "-k key : use key 'key'",

340 "-h : the key that is entered will be a hexadecimal number",

341 " that is used directly as the des key",

342 "-u[uuname] : input file is uudecoded if -[dD] or output uuencoded data if -[eE] ",

343 " (uuname is the filename to put in the uuencode header).",

344 "-b : encrypt using DES in ecb encryption mode, the default is cbc mode. ",

345 "-3 : encrypt using triple DES encryption. This uses 2 keys",

346 " generated from the input key. If the input key is less",

347 " than 8 characters long, this is equivalent to normal",

348 " encryption. Default is triple cbc, -b makes it triple ecb.",

349 NULL

350 };

351 for (u=(char *)Usage; u; u++)

352 {

353 fputs(*u,stderr);

354 fputc('\n',stderr);

355 }

356

357 EXIT(1);

358 }

359

360 void doencryption(void)

361 {

362 #ifdef _LIBC

363 extern unsigned long time();

364 #endif

365

366 register int i;

367 DES_key_schedule ks,ks2;

368 DES_cblock iv,iv2;

369 char *p;

370 int num=0,j,k,l,rem,ll,len,last,ex=0;

371 DES_cblock kk,k2;

372 FILE *O;

373 int Exit=0;

374 #ifndef OPENSSL_SYS_MSDOS

375 static unsigned char buf[BUFSIZE+8],obuf[BUFSIZE+8];

376 #else

377 static unsigned char buf=NULL,obuf=NULL;

378

379 if (buf == NULL)

380 {

381 if ( (( buf=OPENSSL_malloc(BUFSIZE+8)) == NULL) \|\|

382 ((obuf=OPENSSL_malloc(BUFSIZE+8)) == NULL))

383 {

384 fputs("Not enough memory\n",stderr);

385 Exit=10;

386 goto problems;

387 }

388 }

389 #endif

390

391 if (hflag)

392 {

393 j=(flag3?16:8);

394 p=key;

395 for (i=0; i<j; i++)

396 {

397 k=0;

398 if ((p <= '9') && (p >= '0'))

399 k=(*p-'0')<<4;

400 else if ((p <= 'f') && (p >= 'a'))

401 k=(*p-'a'+10)<<4;

402 else if ((p <= 'F') && (p >= 'A'))

403 k=(*p-'A'+10)<<4;

404 else

405 {

406 fputs("Bad hex key\n",stderr);

407 Exit=9;

408 goto problems;

409 }

410 p++;

411 if ((p <= '9') && (p >= '0'))

412 k\|=(*p-'0');

413 else if ((p <= 'f') && (p >= 'a'))

414 k\|=(*p-'a'+10);

415 else if ((p <= 'F') && (p >= 'A'))

416 k\|=(*p-'A'+10);

417 else

418 {

419 fputs("Bad hex key\n",stderr);

420 Exit=9;

421 goto problems;

422 }

423 p++;

424 if (i < 8)

425 kk[i]=k;

426 else

427 k2[i-8]=k;

428 }

429 DES_set_key_unchecked(&k2,&ks2);

430 OPENSSL_cleanse(k2,sizeof(k2));

431 }

432 else if (longk \|\| flag3)

433 {

434 if (flag3)

435 {

436 DES_string_to_2keys(key,&kk,&k2);

437 DES_set_key_unchecked(&k2,&ks2);

438 OPENSSL_cleanse(k2,sizeof(k2));

439 }

440 else

441 DES_string_to_key(key,&kk);

442 }

443 else

444 for (i=0; i<KEYSIZ; i++)

445 {

446 l=0;

447 k=key[i];

448 for (j=0; j<8; j++)

449 {

450 if (k&1) l++;

451 k>>=1;

452 }

453 if (l & 1)

454 kk[i]=key[i]&0x7f;

455 else

456 kk[i]=key[i]\|0x80;

457 }

458

459 DES_set_key_unchecked(&kk,&ks);

460 OPENSSL_cleanse(key,sizeof(key));

461 OPENSSL_cleanse(kk,sizeof(kk));

462 /* woops - A bug that does not showup under unix :-( */

463 memset(iv,0,sizeof(iv));

464 memset(iv2,0,sizeof(iv2));

465

466 l=1;

467 rem=0;

468 /* first read */

469 if (eflag \|\| (!dflag && cflag))

470 {

471 for (;;)

472 {

473 num=l=fread(&(buf[rem]),1,BUFSIZE,DES_IN);

474 l+=rem;

475 num+=rem;

476 if (l < 0)

477 {

478 perror("read error");

479 Exit=6;

480 goto problems;

481 }

482

483 rem=l%8;

484 len=l-rem;

485 if (feof(DES_IN))

486 {

487 for (i=7-rem; i>0; i--)

488 RAND_pseudo_bytes(buf + l++, 1);

489 buf[l++]=rem;

490 ex=1;

491 len+=rem;

492 }

493 else

494 l-=rem;

495

496 if (cflag)

497 {

498 DES_cbc_cksum(buf,&cksum,

499 (long)len,&ks,&cksum);

500 if (!eflag)

501 {

502 if (feof(DES_IN)) break;

503 else continue;

504 }

505 }

506

507 if (bflag && !flag3)

508 for (i=0; i<l; i+=8)

509 DES_ecb_encrypt(

510 (DES_cblock *)&(buf[i]),

511 (DES_cblock *)&(obuf[i]),

512 &ks,do_encrypt);

513 else if (flag3 && bflag)

514 for (i=0; i<l; i+=8)

515 DES_ecb2_encrypt(

516 (DES_cblock *)&(buf[i]),

517 (DES_cblock *)&(obuf[i]),

518 &ks,&ks2,do_encrypt);

519 else if (flag3 && !bflag)

520 {

521 char tmpbuf[8];

522

523 if (rem) memcpy(tmpbuf,&(buf[l]),

524 (unsigned int)rem);

525 DES_3cbc_encrypt(

526 (DES_cblock )buf,(DES_cblock )obuf,

527 (long)l,ks,ks2,&iv,

528 &iv2,do_encrypt);

529 if (rem) memcpy(&(buf[l]),tmpbuf,

530 (unsigned int)rem);

531 }

532 else

533 {

534 DES_cbc_encrypt(

535 buf,obuf,

536 (long)l,&ks,&iv,do_encrypt);

537 if (l >= 8) memcpy(iv,&(obuf[l-8]),8);

538 }

539 if (rem) memcpy(buf,&(buf[l]),(unsigned int)rem);

540

541 i=0;

542 while (i < l)

543 {

544 if (uflag)

545 j=uufwrite(obuf,1,(unsigned int)l-i,

546 DES_OUT);

547 else

548 j=fwrite(obuf,1,(unsigned int)l-i,

549 DES_OUT);

550 if (j == -1)

551 {

552 perror("Write error");

553 Exit=7;

554 goto problems;

555 }

556 i+=j;

557 }

558 if (feof(DES_IN))

559 {

560 if (uflag) uufwriteEnd(DES_OUT);

561 break;

562 }

563 }

564 }

565 else /* decrypt */

566 {

567 ex=1;

568 for (;;)

569 {

570 if (ex) {

571 if (uflag)

572 l=uufread(buf,1,BUFSIZE,DES_IN);

573 else

574 l=fread(buf,1,BUFSIZE,DES_IN);

575 ex=0;

576 rem=l%8;

577 l-=rem;

578 }

579 if (l < 0)

580 {

581 perror("read error");

582 Exit=6;

583 goto problems;

584 }

585

586 if (bflag && !flag3)

587 for (i=0; i<l; i+=8)

588 DES_ecb_encrypt(

589 (DES_cblock *)&(buf[i]),

590 (DES_cblock *)&(obuf[i]),

591 &ks,do_encrypt);

592 else if (flag3 && bflag)

593 for (i=0; i<l; i+=8)

594 DES_ecb2_encrypt(

595 (DES_cblock *)&(buf[i]),

596 (DES_cblock *)&(obuf[i]),

597 &ks,&ks2,do_encrypt);

598 else if (flag3 && !bflag)

599 {

600 DES_3cbc_encrypt(

601 (DES_cblock )buf,(DES_cblock )obuf,

602 (long)l,ks,ks2,&iv,

603 &iv2,do_encrypt);

604 }

605 else

606 {

607 DES_cbc_encrypt(

608 buf,obuf,

609 (long)l,&ks,&iv,do_encrypt);

610 if (l >= 8) memcpy(iv,&(buf[l-8]),8);

611 }

612

613 if (uflag)

614 ll=uufread(&(buf[rem]),1,BUFSIZE,DES_IN);

615 else

616 ll=fread(&(buf[rem]),1,BUFSIZE,DES_IN);

617 ll+=rem;

618 rem=ll%8;

619 ll-=rem;

620 if (feof(DES_IN) && (ll == 0))

621 {

622 last=obuf[l-1];

623

624 if ((last > 7) \|\| (last < 0))

625 {

626 fputs("The file was not decrypted correc tly.\n",

627 stderr);

628 Exit=8;

629 last=0;

630 }

631 l=l-8+last;

632 }

633 i=0;

634 if (cflag) DES_cbc_cksum(obuf,

635 (DES_cblock )cksum,(long)l/88,&ks,

636 (DES_cblock *)cksum);

637 while (i != l)

638 {

639 j=fwrite(obuf,1,(unsigned int)l-i,DES_OUT);

640 if (j == -1)

641 {

642 perror("Write error");

643 Exit=7;

644 goto problems;

645 }

646 i+=j;

647 }

648 l=ll;

649 if ((l == 0) && feof(DES_IN)) break;

650 }

651 }

652 if (cflag)

653 {

654 l=0;

655 if (cksumname[0] != '\0')

656 {

657 if ((O=fopen(cksumname,"w")) != NULL)

658 {

659 CKSUM_OUT=O;

660 l=1;

661 }

662 }

663 for (i=0; i<8; i++)

664 fprintf(CKSUM_OUT,"%02X",cksum[i]);

665 fprintf(CKSUM_OUT,"\n");

666 if (l) fclose(CKSUM_OUT);

667 }

668 problems:

669 OPENSSL_cleanse(buf,sizeof(buf));

670 OPENSSL_cleanse(obuf,sizeof(obuf));

671 OPENSSL_cleanse(&ks,sizeof(ks));

672 OPENSSL_cleanse(&ks2,sizeof(ks2));

673 OPENSSL_cleanse(iv,sizeof(iv));

674 OPENSSL_cleanse(iv2,sizeof(iv2));

675 OPENSSL_cleanse(kk,sizeof(kk));

676 OPENSSL_cleanse(k2,sizeof(k2));

677 OPENSSL_cleanse(uubuf,sizeof(uubuf));

678 OPENSSL_cleanse(b,sizeof(b));

679 OPENSSL_cleanse(bb,sizeof(bb));

680 OPENSSL_cleanse(cksum,sizeof(cksum));

681 if (Exit) EXIT(Exit);

682 }

683

684 /* We ignore this parameter but it should be > ~50 I believe */

685 int uufwrite(unsigned char data, int size, unsigned int num, FILE fp)

686 {

687 int i,j,left,rem,ret=num;

688 static int start=1;

689

690 if (start)

691 {

692 fprintf(fp,"begin 600 %s\n",

693 (uuname[0] == '\0')?"text.d":uuname);

694 start=0;

695 }

696

697 if (uubufnum)

698 {

699 if (uubufnum+num < 45)

700 {

701 memcpy(&(uubuf[uubufnum]),data,(unsigned int)num);

702 uubufnum+=num;

703 return(num);

704 }

705 else

706 {

707 i=45-uubufnum;

708 memcpy(&(uubuf[uubufnum]),data,(unsigned int)i);

709 j=uuencode((unsigned char *)uubuf,45,b);

710 fwrite(b,1,(unsigned int)j,fp);

711 uubufnum=0;

712 data+=i;

713 num-=i;

714 }

715 }

716

717 for (i=0; i<(((int)num)-INUUBUFN); i+=INUUBUFN)

718 {

719 j=uuencode(&(data[i]),INUUBUFN,b);

720 fwrite(b,1,(unsigned int)j,fp);

721 }

722 rem=(num-i)%45;

723 left=(num-i-rem);

724 if (left)

725 {

726 j=uuencode(&(data[i]),left,b);

727 fwrite(b,1,(unsigned int)j,fp);

728 i+=left;

729 }

730 if (i != num)

731 {

732 memcpy(uubuf,&(data[i]),(unsigned int)rem);

733 uubufnum=rem;

734 }

735 return(ret);

736 }

737

738 void uufwriteEnd(FILE *fp)

739 {

740 int j;

741 static const char *end=" \nend\n";

742

743 if (uubufnum != 0)

744 {

745 uubuf[uubufnum]='\0';

746 uubuf[uubufnum+1]='\0';

747 uubuf[uubufnum+2]='\0';

748 j=uuencode(uubuf,uubufnum,b);

749 fwrite(b,1,(unsigned int)j,fp);

750 }

751 fwrite(end,1,strlen(end),fp);

752 }

753

754 /* int size: should always be > ~ 60; I actually ignore this parameter :-) * /

755 int uufread(unsigned char out, int size, unsigned int num, FILE fp)

756 {

757 int i,j,tot;

758 static int done=0;

759 static int valid=0;

760 static int start=1;

761

762 if (start)

763 {

764 for (;;)

765 {

766 b[0]='\0';

767 fgets((char *)b,300,fp);

768 if (b[0] == '\0')

769 {

770 fprintf(stderr,"no 'begin' found in uuencoded in put\n");

771 return(-1);

772 }

773 if (strncmp((char *)b,"begin ",6) == 0) break;

774 }

775 start=0;

776 }

777 if (done) return(0);

778 tot=0;

779 if (valid)

780 {

781 memcpy(out,bb,(unsigned int)valid);

782 tot=valid;

783 valid=0;

784 }

785 for (;;)

786 {

787 b[0]='\0';

788 fgets((char *)b,300,fp);

789 if (b[0] == '\0') break;

790 i=strlen((char *)b);

791 if ((b[0] == 'e') && (b[1] == 'n') && (b[2] == 'd'))

792 {

793 done=1;

794 while (!feof(fp))

795 {

796 fgets((char *)b,300,fp);

797 }

798 break;

799 }

800 i=uudecode(b,i,bb);

801 if (i < 0) break;

802 if ((i+tot+8) > num)

803 {

804 /* num to copy to make it a multiple of 8 */

805 j=(num/8*8)-tot-8;

806 memcpy(&(out[tot]),bb,(unsigned int)j);

807 tot+=j;

808 memcpy(bb,&(bb[j]),(unsigned int)i-j);

809 valid=i-j;

810 break;

811 }

812 memcpy(&(out[tot]),bb,(unsigned int)i);

813 tot+=i;

814 }

815 return(tot);

816 }

817

818 #define ccc2l(c,l) (l =((DES_LONG)(*((c)++)))<<16, \

819 l\|=((DES_LONG)(*((c)++)))<< 8, \

820 l\|=((DES_LONG)(*((c)++))))

821

822 #define l2ccc(l,c) (*((c)++)=(unsigned char)(((l)>>16)&0xff), \

823 *((c)++)=(unsigned char)(((l)>> 8)&0xff), \

824 *((c)++)=(unsigned char)(((l) )&0xff))

825

826

827 int uuencode(unsigned char in, int num, unsigned char out)

828 {

829 int j,i,n,tot=0;

830 DES_LONG l;

831 register unsigned char *p;

832 p=out;

833

834 for (j=0; j<num; j+=45)

835 {

836 if (j+45 > num)

837 i=(num-j);

838 else i=45;

839 *(p++)=i+' ';

840 for (n=0; n<i; n+=3)

841 {

842 ccc2l(in,l);

843 *(p++)=((l>>18)&0x3f)+' ';

844 *(p++)=((l>>12)&0x3f)+' ';

845 *(p++)=((l>> 6)&0x3f)+' ';

846 *(p++)=((l )&0x3f)+' ';

847 tot+=4;

848 }

849 *(p++)='\n';

850 tot+=2;

851 }

852 *p='\0';

853 l=0;

854 return(tot);

855 }

856

857 int uudecode(unsigned char in, int num, unsigned char out)

858 {

859 int j,i,k;

860 unsigned int n=0,space=0;

861 DES_LONG l;

862 DES_LONG w,x,y,z;

863 unsigned int blank=(unsigned int)'\n'-' ';

864

865 for (j=0; j<num; )

866 {

867 n= *(in++)-' ';

868 if (n == blank)

869 {

870 n=0;

871 in--;

872 }

873 if (n > 60)

874 {

875 fprintf(stderr,"uuencoded line length too long\n");

876 return(-1);

877 }

878 j++;

879

880 for (i=0; i<n; j+=4,i+=3)

881 {

882 /* the following is for cases where spaces are

883 * removed from lines.

884 */

885 if (space)

886 {

887 w=x=y=z=0;

888 }

889 else

890 {

891 w= *(in++)-' ';

892 x= *(in++)-' ';

893 y= *(in++)-' ';

894 z= *(in++)-' ';

895 }

896 if ((w > 63) \|\| (x > 63) \|\| (y > 63) \|\| (z > 63))

897 {

898 k=0;

899 if (w == blank) k=1;

900 if (x == blank) k=2;

901 if (y == blank) k=3;

902 if (z == blank) k=4;

903 space=1;

904 switch (k) {

905 case 1: w=0; in--;

906 case 2: x=0; in--;

907 case 3: y=0; in--;

908 case 4: z=0; in--;

909 break;

910 case 0:

911 space=0;

912 fprintf(stderr,"bad uuencoded data value s\n");

913 w=x=y=z=0;

914 return(-1);

915 break;

916 }

917 }

918 l=(w<<18)\|(x<<12)\|(y<< 6)\|(z );

919 l2ccc(l,out);

920 }

921 if (*(in++) != '\n')

922 {

923 fprintf(stderr,"missing nl in uuencoded line\n");

924 w=x=y=z=0;

925 return(-1);

926 }

927 j++;

928 }

929 *out='\0';

930 w=x=y=z=0;

931 return(n);

932 }

OLD	NEW

« no previous file with comments | « openssl/crypto/des/des.h ('k') | openssl/crypto/des/des.pod » ('j') | no next file with comments »