wolfssl-sys 4.0.0

System bindings for WolfSSL
Documentation 
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

with Ada.Text_IO;
with Ada.Integer_Text_IO;
with WolfSSL;
procedure AES_Verify_Main is

   use type WolfSSL.Byte_Type;

   procedure Put (Text : String) renames Ada.Text_IO.Put;

   procedure Put (Value : Integer) is
   begin
      Ada.Integer_Text_IO.Put (Value);
   end Put;

   procedure New_Line is
   begin
      Ada.Text_IO.New_Line;
   end New_Line;

   type Unsigned_8 is mod 2 ** 8;

   function To_C (Value : Unsigned_8) return WolfSSL.Byte_Type is
   begin
      return WolfSSL.Byte_Type'Val (Value);
   end To_C;

   RNG : WolfSSL.RNG_Type;


   Salt_Size : constant := 8;

   Salt : WolfSSL.Byte_Array (1 .. 8);

   AES : WolfSSL.AES_Type;
   R : Integer;
   Pad : Integer := 3;

   procedure Cleanup is
      RR : Integer := 0;
   begin
      if WolfSSL.Is_Valid (AES) then
         WolfSSL.AES_Free (AES    => AES,
                           Result => RR);
      end if;

      if WolfSSL.Is_Valid (RNG) then
         WolfSSL.Free_RNG (Key => RNG);
      end if;
   end Cleanup;
begin
   WolfSSL.Create_RNG (Key    => RNG,
                       Result => R);
   if R /= 0 then
      Put ("Attaining RNG key instance failed");
      New_Line;
      Cleanup;
      return;
   end if;

   WolfSSL.RNG_Generate_Block (RNG    => RNG,
                               Output => Salt,
                               Result => R);
   if R /= 0 then
      Put ("Generating random salt");
      New_Line;
      Cleanup;
      return;
   end if;

   if Pad = 0 then
      Salt (1) := To_C (0);
   elsif Salt (1) = To_C (0) then
      Salt (1) := To_C (1);
   end if;

   --  Create_AES signature no longer requires Index when AES objects are
   --  dynamically allocated.
   WolfSSL.Create_AES (Device => WolfSSL.Invalid_Device,
                       AES    => AES,
                       Result => R);
   if R /= 0 then
      Put ("Attaining AES key instance failed");
      New_Line;
      Cleanup;
      return;
   end if;

   --  WolfSSL.PBKDF2 (Output     => ,
   --                  Password   => ,
   --                  Salt       => ,
   --                  Iterations => ,
   --                  Key_Length => ,
   --                  HMAC       => ,
   --                  Result     => R);
   --  if R /= 0 then
   --     Put ("Attaining AES key instance failed");
   --     New_Line;
   --     Cleanup;
   --     return;
   --  end if;

   Cleanup;
end AES_Verify_Main;