curve25519.pp

   1 {$mode objfpc}
   2 unit curve25519;
   3 interface
   4
   5 {
   6   curve25519_athlon.h version 20050915
   7   D. J. Bernstein
   8   Public domain.
   9   Converted with h2pas
  10 }
  11
  12 {$L curve25519.a}
  13
  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);
  18
  19 implementation
  20
  21 procedure curve25519(out ek:t256BitKey; const e:t256BitKey; const k:t256BitKey);
  22  begin
  23  curve25519_athlon(@ek,@e,@k);
  24 end;
  25
  26 end.