Source position: crypth.inc line 25
procedure encrypt_r(
__block: Pchar;
__edflag: LongInt;
__data: Pcrypt_data
);