crypth.pp 406 B

1234567891011121314151617181920
  1. {$IFNDEF FPC_DOTTEDUNITS}
  2. unit crypth;
  3. {$ENDIF FPC_DOTTEDUNITS}
  4. interface
  5. {$IFDEF FPC_DOTTEDUNITS}
  6. uses UnixApi.Base,System.InitC;
  7. {$ELSE FPC_DOTTEDUNITS}
  8. uses BaseUnix,initc;
  9. {$ENDIF FPC_DOTTEDUNITS}
  10. {$ifdef Linux}{$linklib crypt}{$endif}
  11. Const libname ={$ifdef Linux}'crypt'{$else}clib{$endif};
  12. function crypt(key,salt:PAnsiChar):PAnsiChar;cdecl; external libname name 'crypt';
  13. implementation
  14. end.