1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
--- generic/crypt.c Sat Nov 18 17:42:31 2000
+++ generic/crypt.c Fri Feb 8 11:59:47 2002
@@ -112,4 +112,6 @@
*/
+char *crypt_md5(const char *pw, const char *salt); /* Lives in -lcrypt */
+
static int
TrfMd5CryptObjCmd (notUsed, interp, objc, objv)
@@ -128,8 +130,4 @@
Tcl_Obj* res;
- if (TrfLoadMD5 (interp) != TCL_OK) {
- return TCL_ERROR;
- }
-
if (objc != 3) {
Tcl_AppendResult (interp,
@@ -159,5 +157,5 @@
TrfLock;
- res = Tcl_NewStringObj ((char*) md5f.crypt (passwd, salt_b) + 3, -1);
+ res = Tcl_NewStringObj (crypt_md5(passwd, salt_b) + 3, -1);
TrfUnlock;
|
