blob: 162ed1c3e1b9a639e0e7111427fceac0794c2c46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{$MACRO ON}
(******************************************************************************
*
* Copyright (c) 1994-2000 Palm, Inc. or its subsidiaries.
* All rights reserved.
*
* File: Encrypt.h
*
* Release: Palm OS SDK 4.0 (63220)
*
* Description:
* Equates for encryption/digestion routines in pilot
*
* History:
* 7/31/96 RM - Created by Ron Marianetti
*
*****************************************************************************)
unit encrypt;
interface
uses palmos, coretraps;
(************************************************************
* Function Prototypes
*************************************************************)
// Perform reversible encryption or decryption of 8 byte string in
// srcP using 8 byte key keyP. Place 8 byte result in dstP.
function EncDES(srcP, keyP, dstP: UInt8Ptr; encrypt: Boolean): Err; syscall sysTrapEncDES;
// Digest a string of bytes and produce a 128 bit result using
// the MD4 algorithm.
type
TDigestArray = array [0..15] of UInt8;
function EncDigestMD4(strP: UInt8Ptr; strLen: UInt16; var digestP: TDigestArray): Err; syscall sysTrapEncDigestMD4;
// Digest a string of bytes and produce a 128 bit result using
// the MD5 algorithm.
function EncDigestMD5(strP: UInt8Ptr; strLen: UInt16; var digestP: TDigestArray): Err; syscall sysTrapEncDigestMD5;
implementation
end.
|
