home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / netz / netapi / nwencryp.pa1 < prev    next >
Encoding:
Text File  |  1994-01-14  |  2.7 KB  |  52 lines
  1. {#Z+}
  2. (*(10U&l12D(s4099T&k2S*)
  3. {***************************************************************************}
  4. {** Program : NWCRYPT                                                     **}
  5. {***************************************************************************}
  6. {** Version : 1.4             ** Started : 11/11/91  ** Ended :   /  /    **}
  7. {***************************************************************************}
  8. {******************************** Description ******************************}
  9. {***************************************************************************}
  10. {**                                                                       **}
  11. {**                                                                       **}
  12. {**                                                                       **}
  13. {**                                                                       **}
  14. {**                                                                       **}
  15. {**                                                                       **}
  16. {***************************************************************************}
  17. {******************************** Information ******************************}
  18. {***************************************************************************}
  19. {** Provides Netware encryption services.                                 **}
  20. {**                                                                       **}
  21. {**                                                                       **}
  22. {** This code is provided as is and with kind permission from Barry Nance **}
  23. {** (c) Copyright 1993 Barry Nance                                        **}
  24. {**                                                                       **}
  25. {** I have changed Barry's variable names to be more readable but apart   **}
  26. {** from that the source is the same as Barry's.                          **}
  27. {**                                                                       **}
  28. {** The complete source to ELOGON can be found at the end of this unit.   **}
  29. {** ELOGON was found in the Software Corner, a monthly feature of Byte    **}
  30. {** magazine.                                                             **}
  31. {**                                                                       **}
  32. {**                                                                       **}
  33. {***************************************************************************}
  34.  
  35. {$I NETWARE.INC}
  36. {#Z-}
  37.  
  38. UNIT NWENCRYP;
  39.  
  40. INTERFACE
  41.  
  42. USES
  43.  
  44.   nwvar;
  45.  
  46. PROCEDURE   Shuffle        (var ObjectID, Password; PasswordLength : byte; VAR OutputArray);
  47.  
  48. PROCEDURE   Shuffle1       (InputArray : TByte32Array; VAR OutputArray);
  49.  
  50. PROCEDURE   NetwareEncrypt (VAR fra, buf, til);
  51.  
  52.