base64.c
上传用户:xiejiait
上传日期:2007-01-06
资源大小:881k
文件大小:5k
源码类别:

SCSI/ASPI

开发平台:

MultiPlatform

  1. /* @(#)base64.c 1.2 99/12/19 Copyright 1998,1999 Heiko Eissfeldt */
  2. #ifndef lint
  3. static char     sccsid[] =
  4. "@(#)base64.c 1.2 99/12/19 Copyright 1998,1999 Heiko Eissfeldt";
  5. #endif
  6. /*____________________________________________________________________________
  7. //
  8. //   CD Index - The Internet CD Index
  9. //
  10. //   This program is free software; you can redistribute it and/or modify
  11. //   it under the terms of the GNU General Public License as published by
  12. //   the Free Software Foundation; either version 2 of the License, or
  13. //   (at your option) any later version.
  14. //
  15. //   This program is distributed in the hope that it will be useful,
  16. //   but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. //   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. //   GNU General Public License for more details.
  19. //
  20. //   You should have received a copy of the GNU General Public License
  21. //   along with this program; if not, write to the Free Software
  22. //   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23. //
  24. //   $Id: base64.c,v 1.1.1.3 1999/04/29 00:57:14 marc Exp $
  25. //____________________________________________________________________________
  26. */
  27. /*
  28.  * Program: RFC-822 routines (originally from SMTP)
  29.  *
  30.  * Author: Mark Crispin
  31.  * Networks and Distributed Computing
  32.  * Computing & Communications
  33.  * University of Washington
  34.  * Administration Building, AG-44
  35.  * Seattle, WA  98195
  36.  * Internet: MRC@CAC.Washington.EDU
  37.  *
  38.  * Date: 27 July 1988
  39.  * Last Edited: 10 September 1998
  40.  *
  41.  * Sponsorship: The original version of this work was developed in the
  42.  * Symbolic Systems Resources Group of the Knowledge Systems
  43.  * Laboratory at Stanford University in 1987-88, and was funded
  44.  * by the Biomedical Research Technology Program of the National
  45.  * Institutes of Health under grant number RR-00785.
  46.  *
  47.  * Original version Copyright 1988 by The Leland Stanford Junior University
  48.  * Copyright 1998 by the University of Washington
  49.  *
  50.  *  Permission to use, copy, modify, and distribute this software and its
  51.  * documentation for any purpose and without fee is hereby granted, provided
  52.  * that the above copyright notices appear in all copies and that both the
  53.  * above copyright notices and this permission notice appear in supporting
  54.  * documentation, and that the name of the University of Washington or The
  55.  * Leland Stanford Junior University not be used in advertising or publicity
  56.  * pertaining to distribution of the software without specific, written prior
  57.  * permission.  This software is made available "as is", and
  58.  * THE UNIVERSITY OF WASHINGTON AND THE LELAND STANFORD JUNIOR UNIVERSITY
  59.  * DISCLAIM ALL WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO THIS SOFTWARE,
  60.  * INCLUDING WITHOUT LIMITATION ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  61.  * FITNESS FOR A PARTICULAR PURPOSE, AND IN NO EVENT SHALL THE UNIVERSITY OF
  62.  * WASHINGTON OR THE LELAND STANFORD JUNIOR UNIVERSITY BE LIABLE FOR ANY
  63.  * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
  64.  * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
  65.  * CONTRACT, TORT (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF
  66.  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  67.  *
  68.  */
  69. #include "config.h"
  70. #include <ctype.h>
  71. #include <stdio.h>
  72. #include <time.h>
  73. #include <stdlib.h>
  74. #include "base64.h"
  75. /* NOTE: This is not true RFC822 anymore. The use of the characters
  76. // '/', '+', and '=' is no bueno when the ID will be used as part of a URL.
  77. // '_', '.', and '-' have been used instead
  78. */
  79. /* Convert binary contents to BASE64
  80.  * Accepts: source
  81.  *     length of source
  82.  *     pointer to return destination length
  83.  * Returns: destination as BASE64
  84.  */
  85. unsigned char *rfc822_binary (src, srcl, len)
  86. char *src;
  87. unsigned long srcl;
  88. unsigned long *len;
  89. {
  90.   unsigned char *ret,*d;
  91.   unsigned char *s = (unsigned char *) src;
  92.   char *v = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789._";
  93.   unsigned long i = ((srcl + 2) / 3) * 4;
  94.   *len = i += 2 * ((i / 60) + 1);
  95.   d = ret = (unsigned char *) malloc ((size_t) ++i);
  96.   for (i = 0; srcl; s += 3) { /* process tuplets */
  97.     *d++ = v[s[0] >> 2]; /* byte 1: high 6 bits (1) */
  98. /* byte 2: low 2 bits (1), high 4 bits (2) */
  99.     *d++ = v[((s[0] << 4) + (--srcl ? (s[1] >> 4) : 0)) & 0x3f];
  100. /* byte 3: low 4 bits (2), high 2 bits (3) */
  101.     *d++ = srcl ? v[((s[1] << 2) + (--srcl ? (s[2] >> 6) : 0)) & 0x3f] : '-';
  102. /* byte 4: low 6 bits (3) */
  103.     *d++ = srcl ? v[s[2] & 0x3f] : '-';
  104.     if (srcl) srcl--; /* count third character if processed */
  105.     if ((++i) == 15) { /* output 60 characters? */
  106.       i = 0; /* restart line break count, insert CRLF */
  107.       *d++ = '15'; *d++ = '12';
  108.     }
  109.   }
  110.   *d = ''; /* tie off string */
  111.   return ret; /* return the resulting string */
  112. }