[Perl-openssl-checkins] Crypt/OpenSSL/RSA RSA.xs,1.58,1.59 RSA.pm,1.39,1.40

[Ian R. <iro...@us...>]

Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2576

Modified Files:
	RSA.xs RSA.pm 
Log Message:
Apply patch from Jim Radford <ra...@bl...> for SHA{224,256,384,512}
support


Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -d -r1.58 -r1.59
*** RSA.xs	9 Apr 2006 22:46:39 -0000	1.58
--- RSA.xs	12 Apr 2006 06:05:06 -0000	1.59
***************
*** 76,79 ****
--- 76,93 ----
              return SHA_DIGEST_LENGTH;
              break;
+ #ifdef SHA512_DIGEST_LENGTH
+         case NID_sha224:
+             return SHA224_DIGEST_LENGTH;
+             break;
+         case NID_sha256:
+             return SHA256_DIGEST_LENGTH;
+             break;
+         case NID_sha384:
+             return SHA384_DIGEST_LENGTH;
+             break;
+         case NID_sha512:
+             return SHA512_DIGEST_LENGTH;
+             break;
+ #endif
          case NID_ripemd160:
              return RIPEMD160_DIGEST_LENGTH;
***************
*** 100,103 ****
--- 114,131 ----
              return SHA1(text, text_length, NULL);
              break;
+ #ifdef SHA512_DIGEST_LENGTH
+         case NID_sha224:
+             return SHA224(text, text_length, NULL);
+             break;
+         case NID_sha256:
+             return SHA256(text, text_length, NULL);
+             break;
+         case NID_sha384:
+             return SHA384(text, text_length, NULL);
+             break;
+         case NID_sha512:
+             return SHA512(text, text_length, NULL);
+             break;
+ #endif
          case NID_ripemd160:
              return RIPEMD160(text, text_length, NULL);
***************
*** 460,463 ****
--- 488,519 ----
      p_rsa->hashMode =  NID_sha1;
  
+ #ifdef SHA512_DIGEST_LENGTH
+ 
+ void
+ use_sha224_hash(p_rsa)
+     rsaData* p_rsa;
+   CODE:
+     p_rsa->hashMode =  NID_sha224;
+ 
+ void
+ use_sha256_hash(p_rsa)
+     rsaData* p_rsa;
+   CODE:
+     p_rsa->hashMode =  NID_sha256;
+ 
+ void
+ use_sha384_hash(p_rsa)
+     rsaData* p_rsa;
+   CODE:
+     p_rsa->hashMode =  NID_sha384;
+ 
+ void
+ use_sha512_hash(p_rsa)
+     rsaData* p_rsa;
+   CODE:
+     p_rsa->hashMode =  NID_sha512;
+ 
+ #endif
+ 
  void
  use_ripemd160_hash(p_rsa)

Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** RSA.pm	15 Nov 2005 04:26:02 -0000	1.39
--- RSA.pm	12 Apr 2006 06:05:06 -0000	1.40
***************
*** 241,244 ****
--- 241,249 ----
  and verifying messages. This is the default.
  
+ =item use_sha224_hash, use_sha256_hash, use_sha384_hash, use_sha512_hash
+ 
+ These FIPS 180-2 hash algorithms, for use when signing and verifying
+ messages, are only available with newer openssl versions (>= 0.9.8).
+ 
  =item use_ripemd160_hash