Source position: lbstring.pas line 68
procedure DESEncryptStringA(
const InString: AnsiString;
var OutString: AnsiString;
const Key: TKey64;
Encrypt: Boolean
);