New feature added. Getting response certificate from BinarySecurityTo…

…ken and validating by "Organisation".
mirus77 · Oct 22, 2017 · 32efe02 · 32efe02
1 parent f3abeb9
commit 32efe02
Show file tree

Hide file tree

Showing 6 changed files with 271 additions and 30 deletions.
diff --git a/bin/libeetsigner.dll b/bin/libeetsigner.dll
diff --git a/bin64/libeetsigner.dll b/bin64/libeetsigner.dll
diff --git a/demo/u_main.pas b/demo/u_main.pas
@@ -199,7 +199,7 @@ procedure TTestEETForm.DoOdeslatTrzba;
 //    EET.ProxyHost := 'proxy';
     EET.Initialize;
 
-    lblKeySubject.Caption := 'Pøedmìt :' + EET.Signer.PrivKeyInfo.Subject;
+    lblKeySubject.Caption := 'Pøedmìt :' + EET.Signer.PrivKeyInfo.CommonName;
     lblKeyValidFrom.Caption := 'Platnost klíèe od :' + DateTimeToStr(EET.Signer.PrivKeyInfo.notValidBefore);
     lblKeyValidTo.Caption := 'Platnost klíèe do :' + DateTimeToStr(EET.Signer.PrivKeyInfo.notValidAfter);
 
@@ -271,7 +271,7 @@ procedure TTestEETForm.DoOdeslatTrzba;
       begin
         if Odp.Potvrzeni <> nil then
           begin
-            if EET.ValidResponse then
+            if EET.ValidResponse and EET.ValidResponseCert then
               begin
                 Lst := TStringList.Create;
                 try
@@ -292,7 +292,12 @@ procedure TTestEETForm.DoOdeslatTrzba;
                 end;
               end
             else
-              MessageDlg('Neplatný podpis odpovìdi !!!', mtError, [mbOK], 0);
+              begin
+                if EET.ValidResponse and (EET.ValidResponseCert = False) then
+                   MessageDlg('Neplatný pùvod odpovìdi !!!', mtError, [mbOK], 0)
+                else
+                   MessageDlg('Neplatný podpis odpovìdi !!!', mtError, [mbOK], 0);
+              end
           end
         else
           begin