blob: 0bb5436489aceab3d78e966821b3ecab91c6f2c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
unit crypth;
interface
uses BaseUnix,initc;
{$ifdef Linux}{$linklib crypt}{$endif}
Const libname ={$ifdef Linux}'crypt'{$else}clib{$endif};
function crypt(key,salt:pchar):pchar;cdecl; external libname name 'crypt';
implementation
end.
|
