pike.git/ src/ post_modules/ Nettle/ nettle.cmod

2003-08-24

2003-08-24 18:28:24 by Martin Nilsson <mani@lysator.liu.se>

• 3955a9e0d4d326ec43feb75c08bd004f4a6abe50 (16 lines) (+15/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

MD5-crypt, top-of-the-line snakeoil

Rev: src/post_modules/Nettle/Makefile.in:1.7
Rev: src/post_modules/Nettle/crypt_md5.c:1.1
Rev: src/post_modules/Nettle/nettle.cmod:1.16

1:   /* nettle.cmod -*- c -*- */      #include "global.h" - RCSID("$Id: nettle.cmod,v 1.15 2003/08/07 20:32:37 nilsson Exp $"); + RCSID("$Id: nettle.cmod,v 1.16 2003/08/24 18:28:24 nilsson Exp $");   #include "interpret.h"   #include "svalue.h"   /* For this_object() */
185:   /*! @endclass    */    + char *crypt_md5(int pl, const char *pw, int sl, const char *salt); +  + /*! Does the crypt_md5 abrakadabra (MD5 + snakeoil). +  *! It is assumed that @[salt] does not contain "$". +  */ + PIKEFUN string crypt_md5(string pw, string salt) + { +  NO_WIDE_STRING(pw); +  NO_WIDE_STRING(salt); +  RETURN make_shared_string(crypt_md5(pw->len, pw->str, +  salt->len, salt->str)); + } +    /*! @endmodule    */