added some OID's (object identifiers)

CryptoLib/src/Asn1/Nist/ClpNistObjectIdentifiers.pas

@@ -38,7 +38,8 @@ type
       FIdHMacWithSha3_384, FIdHMacWithSha3_512, FAES, FIdAES128Ecb,
       FIdAes128Cbc, FIdAes128Ofb, FIdAes128Cfb, FidAes192Ecb, FIdAes192Cbc,
       FIdAes192Ofb, FIdAes192Cfb, FIdAes256Ecb, FIdAes256Cbc, FIdAes256Ofb,
-      FIdAes256Cfb: IDerObjectIdentifier;
+      FIdAes256Cfb, FIdDsaWithSha2, FDsaWithSha224, FDsaWithSha256,
+      FDsaWithSha384, FDsaWithSha512: IDerObjectIdentifier;
 
     class function GetNistAlgorithm: IDerObjectIdentifier; static; inline;
     class function GetHashAlgs: IDerObjectIdentifier; static; inline;
@@ -74,6 +75,12 @@ type
     class function GetIdAes256Ofb: IDerObjectIdentifier; static; inline;
     class function GetIdAes256Cfb: IDerObjectIdentifier; static; inline;
 
+    class function GetIdDsaWithSha2: IDerObjectIdentifier; static; inline;
+    class function GetDsaWithSha224: IDerObjectIdentifier; static; inline;
+    class function GetDsaWithSha256: IDerObjectIdentifier; static; inline;
+    class function GetDsaWithSha384: IDerObjectIdentifier; static; inline;
+    class function GetDsaWithSha512: IDerObjectIdentifier; static; inline;
+
     class constructor NistObjectIdentifiers();
 
   public
@@ -123,6 +130,12 @@ type
     class property IdAes256Ofb: IDerObjectIdentifier read GetIdAes256Ofb;
     class property IdAes256Cfb: IDerObjectIdentifier read GetIdAes256Cfb;
 
+    class property IdDsaWithSha2: IDerObjectIdentifier read GetIdDsaWithSha2;
+    class property DsaWithSha224: IDerObjectIdentifier read GetDsaWithSha224;
+    class property DsaWithSha256: IDerObjectIdentifier read GetDsaWithSha256;
+    class property DsaWithSha384: IDerObjectIdentifier read GetDsaWithSha384;
+    class property DsaWithSha512: IDerObjectIdentifier read GetDsaWithSha512;
+
     class procedure Boot(); static;
 
   end;
@@ -166,6 +179,16 @@ begin
   FIdAes256Cbc := TDerObjectIdentifier.Create(AES.id + '.42');
   FIdAes256Ofb := TDerObjectIdentifier.Create(AES.id + '.43');
   FIdAes256Cfb := TDerObjectIdentifier.Create(AES.id + '.44');
+
+  //
+  // signatures
+  //
+  FIdDsaWithSha2 := TDerObjectIdentifier.Create(NistAlgorithm.id + '.3');
+
+  FDsaWithSha224 := TDerObjectIdentifier.Create(IdDsaWithSha2.id + '.1');
+  FDsaWithSha256 := TDerObjectIdentifier.Create(IdDsaWithSha2.id + '.2');
+  FDsaWithSha384 := TDerObjectIdentifier.Create(IdDsaWithSha2.id + '.3');
+  FDsaWithSha512 := TDerObjectIdentifier.Create(IdDsaWithSha2.id + '.4');
 end;
 
 class function TNistObjectIdentifiers.GetAES: IDerObjectIdentifier;
@@ -173,11 +196,36 @@ begin
   result := FAES;
 end;
 
+class function TNistObjectIdentifiers.GetDsaWithSha224: IDerObjectIdentifier;
+begin
+  result := FDsaWithSha224;
+end;
+
+class function TNistObjectIdentifiers.GetDsaWithSha256: IDerObjectIdentifier;
+begin
+  result := FDsaWithSha256;
+end;
+
+class function TNistObjectIdentifiers.GetDsaWithSha384: IDerObjectIdentifier;
+begin
+  result := FDsaWithSha384;
+end;
+
+class function TNistObjectIdentifiers.GetDsaWithSha512: IDerObjectIdentifier;
+begin
+  result := FDsaWithSha512;
+end;
+
 class function TNistObjectIdentifiers.GetHashAlgs: IDerObjectIdentifier;
 begin
   result := FHashAlgs;
 end;
 
+class function TNistObjectIdentifiers.GetIdDsaWithSha2: IDerObjectIdentifier;
+begin
+  result := FIdDsaWithSha2;
+end;
+
 class function TNistObjectIdentifiers.GetIdAes128Cbc: IDerObjectIdentifier;
 begin
   result := FIdAes128Cbc;

CryptoLib/src/Asn1/Oiw/ClpOiwObjectIdentifiers.pas

@@ -32,9 +32,10 @@ type
 
     class var
 
-      FIdSha1: IDerObjectIdentifier;
+      FIdSha1, FDsaWithSha1: IDerObjectIdentifier;
 
     class function GetIdSha1: IDerObjectIdentifier; static; inline;
+    class function GetDsaWithSha1: IDerObjectIdentifier; static; inline;
 
     class constructor OiwObjectIdentifiers();
 
@@ -44,6 +45,8 @@ type
     // {iso(1) identified-organization(3) oiw(14) secsig(3) algorithms(2) 26 }    //
     class property IdSha1: IDerObjectIdentifier read GetIdSha1;
 
+    class property DsaWithSha1: IDerObjectIdentifier read GetDsaWithSha1;
+
     class procedure Boot(); static;
 
   end;
@@ -55,6 +58,12 @@ implementation
 class procedure TOiwObjectIdentifiers.Boot;
 begin
   FIdSha1 := TDerObjectIdentifier.Create('1.3.14.3.2.26');
+  FDsaWithSha1 := TDerObjectIdentifier.Create('1.3.14.3.2.27');
+end;
+
+class function TOiwObjectIdentifiers.GetDsaWithSha1: IDerObjectIdentifier;
+begin
+  Result := FDsaWithSha1;
 end;
 
 class function TOiwObjectIdentifiers.GetIdSha1: IDerObjectIdentifier;