Mercurial > hg > xemacs-beta

comparison src/md5.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
363 contains extended characters, because the extended characters 363 contains extended characters, because the extended characters
364 will get sent over the wire in an external form that is different 364 will get sent over the wire in an external form that is different
365 from their internal representation, and thus their MD5 hash would 365 from their internal representation, and thus their MD5 hash would
366 be different. */ 366 be different. */
367 367
368 DEFUN ("md5", Fmd5, Smd5, 1, 3, 0 /* 368 DEFUN ("md5", Fmd5, 1, 3, 0, /*
369 Return the MD5 (a secure message digest algorithm) of an object. 369 Return the MD5 (a secure message digest algorithm) of an object.
370 OBJECT is either a string or a buffer. 370 OBJECT is either a string or a buffer.
371 Optional arguments START and END denote buffer positions for computing the 371 Optional arguments START and END denote buffer positions for computing the
372 hash of a portion of OBJECT. 372 hash of a portion of OBJECT.
373 */ ) 373 */
374 (object, start, end) 374 (object, start, end))
375 Lisp_Object object, start, end;
376 { 375 {
377 MD_CTX context; 376 MD_CTX context;
378 unsigned char digest[16]; 377 unsigned char digest[16];
379 unsigned char thehash[32]; 378 unsigned char thehash[32];
380 int i; 379 int i;
420 } 419 }
421 420
422 void 421 void
423 syms_of_md5 (void) 422 syms_of_md5 (void)
424 { 423 {
425 defsubr (&Smd5); 424 DEFSUBR (Fmd5);
426 defsymbol (&Qmd5, "md5"); 425 defsymbol (&Qmd5, "md5");
427 } 426 }
428 427
429 void 428 void
430 vars_of_md5 (void) 429 vars_of_md5 (void)