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
  
#pike 8.1 
#require constant(Crypto.Hash) 
 
inherit Standards.X509 : pre; 
 
class Verifier 
{ 
  inherit pre::Verifier; 
  optional Crypto.RSA rsa; 
  optional Crypto.DSA dsa; 
} 
 
protected class RSAVerifier 
{ 
  inherit pre::RSAVerifier; 
 
  Crypto.RSA.State `rsa() { 
    return pkc; 
  } 
} 
 
protected class DSAVerifier 
{ 
  inherit pre::DSAVerifier; 
 
  Crypto.DSA.State `dsa() { 
    return pkc; 
  } 
}