mac-classes: Use constant in overrided attributes.

Rev: lib/modules/SSL.pmod/cipher.pike:1.7

lib/modules/SSL.pmod/cipher.pike

-/* $Id: cipher.pike,v 1.6 1997/05/31 22:03:52 grubba Exp $
+/* $Id: cipher.pike,v 1.7 1998/01/20 16:11:53 nisse Exp $
  *
  */
 
@@ -25,11 +25,11 @@ class mac_none
 
 class mac_sha
 {
-  string pad_1 =  "6666666666666666666666666666666666666666";
-  string pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-		  "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
+  constant pad_1 =  "6666666666666666666666666666666666666666";
+  constant pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+		    "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
 
-  program algorithm = Crypto.sha;
+  constant algorithm = Crypto.sha;
 
   string secret;
 
@@ -69,11 +69,11 @@ class mac_sha
 class mac_md5 {
   inherit mac_sha;
 
-  string pad_1 =  "666666666666666666666666666666666666666666666666";
-  string pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
-		  "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
+  constant pad_1 =  "666666666666666666666666666666666666666666666666";
+  constant pad_2 = ("\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+		    "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\");
   
-  program algorithm = Crypto.md5;
+  constant algorithm = Crypto.md5;
 }
 
 #if 0