DHT: ECC Auth and PoW.
[brdnet.git] / curve25519.pp
blobeb35ca75e6df4e0cf057ad8244befa683215084b
1 {$mode objfpc}
2 unit curve25519;
3 interface
6 curve25519_athlon.h version 20050915
7 D. J. Bernstein
8 Public domain.
9 Converted with h2pas
12 {$L curve25519.a}
14 type t256BitKey=packed array [0..31] of byte;
15 const basepoint:t256BitKey=(9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
16 procedure curve25519_athlon(_para1:pointer; _para2:pointer; _para3:pointer);cdecl;external;
17 procedure curve25519(out ek:t256BitKey; const e:t256BitKey; const k:t256BitKey);
19 implementation
21 procedure curve25519(out ek:t256BitKey; const e:t256BitKey; const k:t256BitKey);
22 begin
23 curve25519_athlon(@ek,@e,@k);
24 end;
26 end.