[win32] add support for crypt() via user-supplied des_fcrypt() source or library.
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Dec 1997 02:24:59 +0000 (02:24 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Dec 1997 02:24:59 +0000 (02:24 +0000)
Update README.win32.

p4raw-id: //depot/win32/perl@385

README.win32
perl.h
win32/Makefile
win32/makedef.pl
win32/makefile.mk
win32/win32.c
win32/win32.h
win32/win32iop.h

index 1f8dd07..3fac64b 100644 (file)
@@ -10,9 +10,9 @@ perlwin32 - Perl under Win32
 
 These are instructions for building Perl under Windows NT (versions
 3.51 or 4.0), using Visual C++ (versions 2.0 through 5.0) or Borland
-C++ (version 5.x).  Currently, this port may also build under Windows95,
-but you can expect problems stemming from the unmentionable command
-shell that infests that platform.  Note this caveat is only about
+C++ (version 5.02 or later).  Currently, this port is reported to build
+under Windows95 using the 4DOS shell--the default shell that infests
+Windows95 will not work (see below).  Note this caveat is only about
 B<building> perl.  Once built, you should be able to B<use> it on
 either Win32 platform (modulo the problems arising from the inferior
 command shell).
@@ -59,27 +59,30 @@ See L<Usage Hints> below for general hints about this.
 
 =item Command Shell
 
-Use the default "cmd" shell that comes with NT.  In particular, do
-*not* use the 4DOS/NT shell.  The Makefile has commands that are not
-compatible with that shell.  The Makefile also has known
-incompatibilites with the default shell that comes with Windows95,
-so building under Windows95 should be considered "unsupported".
+Use the default "cmd" shell that comes with NT.  Some versions of the
+popular 4DOS/NT shell have incompatibilities that may cause you trouble.
+If the build fails under that shell, try building again with the cmd
+shell.  The Makefile also has known incompatibilites with the "command.com"
+shell that comes with Windows95, so building under Windows95 should
+be considered "unsupported".  However, there have been reports of successful
+build attempts using 4DOS/NT version 3.00 under Windows95, using dmake, but
+your mileage may vary.
+
+The surest way to build it is on WindowsNT, using the cmd shell.
 
 =item Borland C++
 
 If you are using the Borland compiler, you will need dmake, a freely
 available make that has very nice macro features and parallelability.
 (The make that Borland supplies is seriously crippled, and will not
-work for MakeMaker builds--if you *have* to bug someone about this,
-I suggest you bug Borland to fix their make :)
+work for MakeMaker builds.)
+
+A port of dmake for win32 platforms is available from:
 
-A port of dmake for win32 platforms is available from
-"http://www-personal.umich.edu/~gsar/dmake-4.0-win32.tar.gz".
-Fetch and install dmake somewhere on your path.  Also make sure you
-copy the Borland dmake.ini file to some location where you keep
-*.ini files.  If you use the binary that comes with the above port, you
-will need to set INIT in your environment to the directory where you
-put the dmake.ini file.
+    http://www-personal.umich.edu/~gsar/dmake-4.1-win32.zip
+
+Fetch and install dmake somewhere on your path (follow the instructions
+in the README.NOW file).
 
 =item Microsoft Visual C++
 
@@ -89,12 +92,12 @@ environment variables when you installed Visual C++ on your system, you
 will need to run the VCVARS32.BAT file usually found somewhere like
 C:\MSDEV4.2\BIN.  This will set your build environment.
 
-You can also use dmake to build using Visual C++, provided: you
-copied the dmake.ini for Visual C++; set INIT to point to the
-directory where you put it, as above; and edit win32/config.vc
-and change "make=nmake" to "make=dmake".  The last step is only
-essential if you want to use dmake to be your default make for
-building extensions using MakeMaker.
+You can also use dmake to build using Visual C++, provided:
+you set OSRELEASE to "microsft" (or whatever the directory name
+under which the Visual C dmake configuration lives) in your environment,
+and edit win32/config.vc to change "make=nmake" into "make=dmake".  The
+latter step is only essential if you want to use dmake as your default
+make for building extensions using MakeMaker.
 
 =item Permissions
 
@@ -126,9 +129,23 @@ Borland compiler.
 =item *
 
 Edit the Makefile (or makefile.mk, if using dmake) and change the values
-of INST_DRV and INST_TOP if you want perl to be installed in a location
-other than "C:\PERL".  If you are using Visual C++ ver. 2.0, uncomment
-the line that sets "CCTYPE=MSVC20".
+of INST_DRV and INST_TOP.  If you are using Visual C++ ver. 2.0, uncomment
+the line that sets "CCTYPE=MSVC20".  You can also enable various build
+flags.
+
+If you have either the source or a library that contains des_fcrypt(),
+enable the appropriate option in the makefile.  des_fcrypt() is not
+bundled with the distribution due to US Government restrictions
+on the export of cryptographic software.  Nevertheless, this routine
+is part of the "libdes" library (written by Ed Young) which is widely
+available worldwide, usually along with SSLeay (for example:
+"ftp://fractal.mta.ca/pub/crypto/SSLeay/DES/").  Set CRYPT_SRC to the
+name of the file that implements des_fcrypt().  Alternatively, if
+you have built a library that contains des_fcrypt(), you can set
+CRYPT_LIB to point to the library name.
+
+Perl will also build without des_fcrypt(), but the crypt() builtin will
+fail at run time.
 
 You will also have to make sure CCHOME points to wherever you installed
 your compiler.
@@ -150,12 +167,12 @@ When building using Visual C++, a perl95.exe will also get built.  This
 executable is only needed on Windows95, and should be used instead of
 perl.exe, and then only if you want sockets to work properly on Windows95.
 This is necessitated by a bug in the Microsoft C Runtime that cannot be
-worked around in the "normal" perl.exe.  Again, if this bugs you, please
-bug Microsoft :). perl95.exe gets built with its own private copy of the
-C Runtime that is not accessible to extensions (which see the DLL version
-of the CRT).  Be aware, therefore, that this perl95.exe will have
-esoteric problems with extensions like perl/Tk that themselves use the C
-Runtime heavily, or want to free() pointers malloc()-ed by perl.
+worked around in the "normal" perl.exe.  perl95.exe gets built with its
+own private copy of the C Runtime that is not accessible to extensions
+(which see the DLL version of the CRT).  Be aware, therefore, that this
+perl95.exe will have esoteric problems with extensions like perl/Tk that
+themselves use the C Runtime heavily, or want to free() pointers
+malloc()-ed by perl.
 
 You can avoid the perl95.exe problems completely if you use Borland
 C++ for building perl (perl95.exe is not needed and will not be built
@@ -182,12 +199,11 @@ Please report any other failures as described under L<BUGS AND CAVEATS>.
 =head2 Installation
 
 Type "nmake install" (or "dmake install").  This will put the newly
-built perl and the libraries under "C:\perl" (actually whatever you set
-C<INST_TOP> to in the Makefile).  It will also install the pod
-documentation under C<$INST_TOP\lib\pod> and HTML versions of the same
-under C<$INST_TOP\lib\pod\html>.  To use the Perl you just installed,
-set your PATH environment variable to "C:\perl\bin" (or C<$INST_TOP\bin>,
-if you changed the default as above).
+built perl and the libraries under whatever C<INST_TOP> points to in the
+Makefile.  It will also install the pod documentation under
+C<$INST_TOP\lib\pod> and HTML versions of the same under
+C<$INST_TOP\lib\pod\html>.  To use the Perl you just installed,
+set your PATH environment variable to C<$INST_TOP\bin>.
 
 =head2 Usage Hints
 
@@ -202,7 +218,10 @@ using that perl (except add its location to your PATH variable).
 If you put extensions in unusual places, you can set PERL5LIB
 to a list of paths separated by semicolons where you want perl
 to look for libraries.  Look for descriptions of other environment
-variables you can set in the perlrun podpage.
+variables you can set in L<perlrun>.
+
+You can also control the shell that perl uses to run system() and
+backtick commands via PERL5SHELL.  See L<perlrun>.
 
 Sometime in the future, some of the configuration information
 for perl will be moved into the Windows registry.
@@ -341,7 +360,7 @@ all of the Activeware extensions and most other Win32 extensions from
 CPAN in source form, along with many added bugfixes, and with MakeMaker
 support.  This bundle is available at:
 
-   http://www.perl.com/CPAN/authors/id/GSAR/libwin32-0.08.tar.gz
+   http://www.perl.com/CPAN/authors/id/GSAR/libwin32-0.09.tar.gz
 
 See the README in that distribution for building and installation
 instructions.  Look for later versions that may be available at the
@@ -482,14 +501,12 @@ bogus.
 
 The following functions are currently unavailable: C<fork()>,
 C<dump()>, C<chown()>, C<link()>, C<symlink()>, C<chroot()>,
-C<setpgrp()>, C<getpgrp()>, C<setpriority()>, C<getpriority()>,
-C<syscall()>, C<fcntl()>.  This list is possibly very incomplete.
-
-=item *
-
-crypt() is not available due to silly export restrictions.  It may
-become available when the laws change.  Meanwhile, look in CPAN for
-extensions that provide it.
+C<setpgrp()> and related security functions, C<setpriority()>,
+C<getpriority()>, C<syscall()>, C<fcntl()>, C<getpw*()>,
+C<getlogin()>, C<wait*()>, C<msg*()>, C<shm*()>, C<sem*()>,
+C<ioctl()>, C<alarm()>, C<socketpair()>, C<*netent()>, C<*protoent()>,
+C<*servent()>, C<*hostent()>, C<getnetby*()>.
+This list is possibly incomplete.
 
 =item *
 
@@ -509,9 +526,9 @@ Failure to spawn() the subprocess is indicated by setting $? to
 
 =item *
 
-Building modules available on CPAN is mostly supported, but this
-hasn't been tested much yet.  Expect strange problems, and be
-prepared to deal with the consequences.
+You can expect problems building modules available on CPAN if you
+build perl itself with -DUSE_THREADS.  These problems should be resolved
+as we get closer to 5.005.
 
 =item *
 
@@ -577,7 +594,7 @@ sundry hacks since then.
 
 Borland support was added in 5.004_01 (Gurusamy Sarathy).
 
-Last updated: 25 July 1997
+Last updated: 23 December 1997
 
 =cut
 
diff --git a/perl.h b/perl.h
index 4edbd0d..59d7293 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1299,19 +1299,21 @@ END_EXTERN_C
 #endif
 
 #ifndef __cplusplus
-#ifdef __NeXT__ /* or whatever catches all NeXTs */
+#  ifdef __NeXT__ /* or whatever catches all NeXTs */
 char *crypt ();       /* Maybe more hosts will need the unprototyped version */
-#else
+#  else
+#    if !defined(WIN32) || !defined(HAVE_DES_FCRYPT)
 char *crypt _((const char*, const char*));
-#endif
-#ifndef DONT_DECLARE_STD
-#ifndef getenv
+#    endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
+#  endif /* !__NeXT__ */
+#  ifndef DONT_DECLARE_STD
+#    ifndef getenv
 char *getenv _((const char*));
-#endif
+#    endif /* !getenv */
 Off_t lseek _((int,Off_t,int));
-#endif
+#  endif /* !DONT_DECLARE_STD */
 char *getlogin _((void));
-#endif
+#endif /* !__cplusplus */
 
 #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
 #define UNLINK unlnk
index 968b1df..12410e2 100644 (file)
@@ -25,6 +25,16 @@ BUILDOPT=-DUSE_THREADS
 #CFG=Debug
 
 #
+# if you have the source for des_fcrypt(), uncomment this and make sure the
+# file exists (see README.win32)
+#CRYPT_SRC=des_fcrypt.c
+
+#
+# if you didn't set CRYPT_SRC and if you have des_fcrypt() available in a
+# library, uncomment this, and make sure the library exists (see README.win32)
+#CRYPT_LIB=des_fcrypt.lib
+
+#
 # set the install locations of the compiler include/libraries
 #CCHOME = f:\msvc20
 CCHOME = $(MSVCDIR)
@@ -38,6 +48,13 @@ CCLIBDIR = $(CCHOME)\lib
 
 ##################### CHANGE THESE ONLY IF YOU MUST #####################
 
+!IF "$(CRYPT_SRC)$(CRYPT_LIB)" == ""
+D_CRYPT=undef
+!ELSE
+D_CRYPT=define
+CRYPT_FLAG=-DHAVE_DES_FCRYPT
+!ENDIF
+
 #
 # Programs to compile, build .lib files and link
 #
@@ -53,7 +70,7 @@ RUNTIME  = -MD
 !ENDIF
 INCLUDES = -I.\include -I. -I..
 #PCHFLAGS = -Fp"$(INTDIR)/modules.pch" -YX 
-DEFINES  = -DWIN32 -D_CONSOLE $(BUILDOPT)
+DEFINES  = -DWIN32 -D_CONSOLE $(BUILDOPT) $(CRYPT_FLAG)
 LOCDEFS  = -DPERLDLL -DPERL_CORE
 SUBSYS   = console
 
@@ -82,7 +99,7 @@ LINK_DBG = -release
 !ENDIF
 
 # we don't add LIBC here, the compiler do it based on -MD/-MT
-LIBFILES = oldnames.lib kernel32.lib user32.lib gdi32.lib \
+LIBFILES = $(CRYPT_LIB) oldnames.lib kernel32.lib user32.lib gdi32.lib \
        winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib \
        oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib \
        version.lib odbc32.lib odbccp32.lib
@@ -141,6 +158,10 @@ XCOPY=xcopy /f /r /i /d
 RCOPY=xcopy /f /r /i /e /d
 NULL=
 
+!IF "$(CRYPT_SRC)" != ""
+CRYPT_OBJ=$(CRYPT_SRC:.c=.obj)
+!ENDIF
+
 #
 # filenames given to xsubpp must have forward slashes (since it puts
 # full pathnames in #line strings)
@@ -172,7 +193,8 @@ CORE_C=     ..\av.c         \
        ..\toke.c       \
        ..\universal.c  \
        ..\util.c       \
-       ..\malloc.c
+       ..\malloc.c     \
+       $(CRYPT_SRC)
 
 CORE_OBJ= ..\av$(o)    \
        ..\deb$(o)      \
@@ -200,7 +222,8 @@ CORE_OBJ= ..\av$(o) \
        ..\toke$(o)     \
        ..\universal$(o)\
        ..\util$(o)     \
-       ..\malloc$(o)
+       ..\malloc$(o)   \
+       $(CRYPT_OBJ)
 
 WIN32_C = perllib.c \
        win32.c \
@@ -213,7 +236,8 @@ WIN32_OBJ = win32$(o) \
 
 PERL95_OBJ = perl95$(o) \
        win32mt$(o) \
-       win32sckmt$(o)
+       win32sckmt$(o) \
+       $(CRYPT_OBJ)
 
 DLL_OBJ = perllib$(o) $(DYNALOADER)$(o)
 
@@ -324,6 +348,7 @@ config.w32 : $(CFGSH_TMPL)
            "cc=$(CC)"                          \
            "ccflags=$(OPTIMIZE) $(DEFINES)"    \
            "cf_email=$(EMAIL)"                 \
+           "d_crypt=$(D_CRYPT)"                \
            "libs=$(LIBFILES)"                  \
            "incpath=$(CCINCDIR)"               \
            "libpth=$(CCLIBDIR)"                \
index 75bd1c7..766a426 100644 (file)
@@ -280,6 +280,11 @@ unless ($define{'DEBUGGING'})
     Perl_watchok)];
  }
 
+if ($define{'HAVE_DES_FCRYPT'})
+ {
+  emit_symbols [qw(win32_crypt)];
+ }
+
 open (GLOBAL, "<../global.sym") || die "failed to open global.sym" . $!;
 while (<GLOBAL>) 
  {
index 2ab571a..916d73c 100644 (file)
@@ -36,6 +36,16 @@ CCTYPE               *= BORLAND
 #CFG           *= Debug
 
 #
+# if you have the source for des_fcrypt(), uncomment this and make sure the
+# file exists (see README.win32)
+#CRYPT_SRC     *= des_fcrypt.c
+
+#
+# if you didn't set CRYPT_SRC and if you have des_fcrypt() available in a
+# library, uncomment this, and make sure the library exists (see README.win32)
+#CRYPT_LIB     *= des_fcrypt.lib
+
+#
 # set the install locations of the compiler include/libraries
 #CCHOME                *= f:\msdev\vc
 CCHOME         *= C:\bc5
@@ -55,6 +65,13 @@ CCLIBDIR     *= $(CCHOME)\lib
 
 ##################### CHANGE THESE ONLY IF YOU MUST #####################
 
+.IF "$(CRYPT_SRC)$(CRYPT_LIB)" == ""
+D_CRYPT=undef
+.ELSE
+D_CRYPT=define
+CRYPT_FLAG=-DHAVE_DES_FCRYPT
+.ENDIF
+
 #
 # Programs to compile, build .lib files and link
 #
@@ -74,11 +91,11 @@ IMPLIB = implib -c
 RUNTIME  = -D_RTLDLL
 INCLUDES = -I.\include -I. -I.. -I$(CCINCDIR)
 #PCHFLAGS = -H -H$(INTDIR)\bcmoduls.pch 
-DEFINES  = -DWIN32 $(BUILDOPT) 
+DEFINES  = -DWIN32 $(BUILDOPT) $(CRYPT_FLAG)
 LOCDEFS  = -DPERLDLL -DPERL_CORE
 SUBSYS   = console
 LIBC = cw32mti.lib
-LIBFILES = import32.lib $(LIBC) odbc32.lib odbccp32.lib
+LIBFILES = $(CRYPT_LIB) import32.lib $(LIBC) odbc32.lib odbccp32.lib
 
 WINIOMAYBE =
 
@@ -109,11 +126,11 @@ o = .o
 #
 RUNTIME  =
 INCLUDES = -I.\include -I. -I..
-DEFINES  = -DWIN32 $(BUILDOPT) 
+DEFINES  = -DWIN32 $(BUILDOPT) $(CRYPT_FLAG)
 LOCDEFS  = -DPERLDLL -DPERL_CORE
 SUBSYS   = console
 LIBC    = -lcrtdll
-LIBFILES = -ladvapi32 -luser32 -lwsock32 -lmingw32 -lgcc -lmoldname $(LIBC) \
+LIBFILES = $(CRYPT_LIB) -ladvapi32 -luser32 -lwsock32 -lmingw32 -lgcc -lmoldname $(LIBC) \
                -lkernel32
 
 WINIOMAYBE =
@@ -144,7 +161,7 @@ RUNTIME  = -MD
 .ENDIF
 INCLUDES = -I.\include -I. -I..
 #PCHFLAGS = -Fp$(INTDIR)\vcmoduls.pch -YX 
-DEFINES  = -DWIN32 -D_CONSOLE $(BUILDOPT)
+DEFINES  = -DWIN32 -D_CONSOLE $(BUILDOPT) $(CRYPT_FLAG)
 LOCDEFS  = -DPERLDLL -DPERL_CORE
 SUBSYS   = console
 
@@ -177,7 +194,7 @@ LINK_DBG = -release
 PROCESSOR_ARCHITECTURE *= x86
 
 # we don't add LIBC here, the compiler do it based on -MD/-MT
-LIBFILES = oldnames.lib kernel32.lib user32.lib gdi32.lib \
+LIBFILES = $(CRYPT_LIB) oldnames.lib kernel32.lib user32.lib gdi32.lib \
        winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib \
        oleaut32.lib netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib \
        version.lib odbc32.lib odbccp32.lib
@@ -261,6 +278,10 @@ XCOPY=xcopy /f /r /i /d
 RCOPY=xcopy /f /r /i /e /d
 #NULL=
 
+.IF "$(CRYPT_SRC)" != ""
+CRYPT_OBJ=$(CRYPT_SRC:db:+$(o))
+.ENDIF
+
 #
 # filenames given to xsubpp must have forward slashes (since it puts
 # full pathnames in #line strings)
@@ -292,7 +313,8 @@ CORE_C=     ..\av.c         \
        ..\toke.c       \
        ..\universal.c  \
        ..\util.c       \
-       ..\malloc.c
+       ..\malloc.c     \
+       $(CRYPT_SRC)
 
 CORE_OBJ= ..\av$(o)    \
        ..\deb$(o)      \
@@ -320,7 +342,8 @@ CORE_OBJ= ..\av$(o) \
        ..\toke$(o)     \
        ..\universal$(o)\
        ..\util$(o)     \
-       ..\malloc$(o)
+       ..\malloc$(o)   \
+       $(CRYPT_OBJ)
 
 WIN32_C = perllib.c \
        win32.c \
@@ -333,7 +356,8 @@ WIN32_OBJ = win32$(o) \
 
 PERL95_OBJ = perl95$(o) \
        win32mt$(o) \
-       win32sckmt$(o)
+       win32sckmt$(o) \
+       $(CRYPT_OBJ)
 
 DLL_OBJ = perllib$(o) $(DYNALOADER)$(o)
 
@@ -452,6 +476,7 @@ config.w32 : $(CFGSH_TMPL)
            "cc=$(CC)"                          \
            "ccflags=$(OPTIMIZE) $(DEFINES)"    \
            "cf_email=$(EMAIL)"                 \
+           "d_crypt=$(D_CRYPT)"                \
            "libs=$(LIBFILES:f)"                \
            "incpath=$(CCINCDIR)"               \
            "libpth=$(strip $(CCLIBDIR) $(LIBFILES:d))" \
index dcdda53..1de1bb8 100644 (file)
@@ -55,6 +55,23 @@ char  szShellPath[MAX_PATH+1];
 char  szPerlLibRoot[MAX_PATH+1];
 HANDLE PerlDllHandle = INVALID_HANDLE_VALUE;
 
+#ifdef USE_THREADS
+#  ifdef USE_DECLSPEC_THREAD
+__declspec(thread) char        strerror_buffer[512];
+#    ifdef HAVE_DES_FCRYPT
+__declspec(thread) char        crypt_buffer[30];
+#    endif
+#  else
+#    define strerror_buffer    (thr->i.Wstrerror_buffer)
+#    define crypt_buffer       (thr->i.Wcrypt_buffer)
+#  endif
+#else
+char   strerror_buffer[512];
+#  ifdef HAVE_DES_FCRYPT
+char   crypt_buffer[30];
+#  endif
+#endif
+
 static int do_spawn2(char *cmd, int exectype);
 
 int 
@@ -733,6 +750,17 @@ win32_alarm(unsigned int sec)
     return 0;
 }
 
+#ifdef HAVE_DES_FCRYPT
+extern char *  des_fcrypt(char *cbuf, const char *txt, const char *salt);
+
+DllExport char *
+win32_crypt(const char *txt, const char *salt)
+{
+    dTHR;
+    return des_fcrypt(crypt_buffer, txt, salt);
+}
+#endif
+
 #ifdef USE_FIXED_OSFHANDLE
 
 EXTERN_C int __cdecl _alloc_osfhnd(void);
@@ -936,16 +964,6 @@ win32_feof(FILE *fp)
  * we have to roll our own.
  */
 
-#ifdef USE_THREADS
-#ifdef USE_DECLSPEC_THREAD
-__declspec(thread) char        strerror_buffer[512];
-#else
-#define strerror_buffer (thr->i.Wstrerror_buffer)
-#endif
-#else
-char   strerror_buffer[512];
-#endif
-
 DllExport char *
 win32_strerror(int e) 
 {
index a58e884..7534ec5 100644 (file)
@@ -212,6 +212,9 @@ struct thread_intern
 {
  char          Wstrerror_buffer[512];
  struct servent Wservent;
+#ifdef HAVE_DES_FCRYPT
+ char          Wcrypt_buffer[30];
+#endif
 };
 #endif
 #endif
index 78c90e1..d565cb5 100644 (file)
@@ -54,23 +54,23 @@ DllExport  int              win32_fputc(int c,FILE *pf);
 DllExport  int         win32_ungetc(int c,FILE *pf);
 DllExport  int         win32_getc(FILE *pf);
 DllExport  int         win32_fileno(FILE *pf);
-DllExport  void        win32_clearerr(FILE *pf);
+DllExport  void                win32_clearerr(FILE *pf);
 DllExport  int         win32_fflush(FILE *pf);
-DllExport  long        win32_ftell(FILE *pf);
+DllExport  long                win32_ftell(FILE *pf);
 DllExport  int         win32_fseek(FILE *pf,long offset,int origin);
 DllExport  int         win32_fgetpos(FILE *pf,fpos_t *p);
 DllExport  int         win32_fsetpos(FILE *pf,const fpos_t *p);
-DllExport  void        win32_rewind(FILE *pf);
+DllExport  void                win32_rewind(FILE *pf);
 DllExport  FILE*       win32_tmpfile(void);
-DllExport  void        win32_abort(void);
+DllExport  void                win32_abort(void);
 DllExport  int         win32_fstat(int fd,struct stat *sbufptr);
 DllExport  int         win32_stat(const char *name,struct stat *sbufptr);
 DllExport  int         win32_pipe( int *phandles, unsigned int psize, int textmode );
 DllExport  FILE*       win32_popen( const char *command, const char *mode );
 DllExport  int         win32_pclose( FILE *pf);
 DllExport  int         win32_setmode( int fd, int mode);
-DllExport  long        win32_lseek( int fd, long offset, int origin);
-DllExport  long        win32_tell( int fd);
+DllExport  long                win32_lseek( int fd, long offset, int origin);
+DllExport  long                win32_tell( int fd);
 DllExport  int         win32_dup( int fd);
 DllExport  int         win32_dup2(int h1, int h2);
 DllExport  int         win32_open(const char *path, int oflag,...);
@@ -85,8 +85,8 @@ DllExport  int                win32_rmdir(const char *dir);
 DllExport  int         win32_chdir(const char *dir);
 DllExport  int         win32_flock(int fd, int oper);
 DllExport  int         win32_execvp(const char *cmdname, const char *const *argv);
-DllExport  void        win32_perror(const char *str);
-DllExport  void        win32_setbuf(FILE *pf, char *buf);
+DllExport  void                win32_perror(const char *str);
+DllExport  void                win32_setbuf(FILE *pf, char *buf);
 DllExport  int         win32_setvbuf(FILE *pf, char *buf, int type, size_t size);
 DllExport  int         win32_flushall(void);
 DllExport  int         win32_fcloseall(void);
@@ -100,20 +100,24 @@ DllExport  int            win32_putchar(int c);
 DllExport  void*       win32_malloc(size_t size);
 DllExport  void*       win32_calloc(size_t numitems, size_t size);
 DllExport  void*       win32_realloc(void *block, size_t size);
-DllExport  void        win32_free(void *block);
+DllExport  void                win32_free(void *block);
 
 DllExport  int         win32_open_osfhandle(long handle, int flags);
-DllExport  long        win32_get_osfhandle(int fd);
+DllExport  long                win32_get_osfhandle(int fd);
 
 #ifndef USE_WIN32_RTL_ENV
 DllExport  char*       win32_getenv(const char *name);
 #endif
 
-DllExport  unsigned int        win32_sleep(unsigned int);
-DllExport  int                 win32_times(struct tms *timebuf);
-DllExport  unsigned int        win32_alarm(unsigned int sec);
-DllExport  int                 win32_flock(int fd, int oper);
-DllExport  int                 win32_stat(const char *path, struct stat *buf);
+DllExport  unsigned    win32_sleep(unsigned int);
+DllExport  int         win32_times(struct tms *timebuf);
+DllExport  unsigned    win32_alarm(unsigned int sec);
+DllExport  int         win32_flock(int fd, int oper);
+DllExport  int         win32_stat(const char *path, struct stat *buf);
+
+#ifdef HAVE_DES_FCRYPT
+DllExport char *       win32_crypt(const char *txt, const char *salt);
+#endif
 
 END_EXTERN_C
 
@@ -233,6 +237,11 @@ END_EXTERN_C
 #define times                  win32_times
 #define alarm                  win32_alarm
 
+#ifdef HAVE_DES_FCRYPT
+#undef crypt
+#define crypt                  win32_crypt
+#endif
+
 #ifndef USE_WIN32_RTL_ENV
 #undef getenv
 #define getenv win32_getenv