setup the key size when allocating a new pub key

git-svn-id: https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk@8703 8c9fc860-2736-0410-a75d-ab315db34111

source/CryptoRSA.Mod

@@ -147,6 +147,7 @@ VAR
 		NEW( rsa );
 		rsa.name := "unkown";
 		rsa.private := FALSE;
+		rsa.size := m.len*32;
 		B.Copy( e, rsa.exponent );
 		B.Copy( m, rsa.modulus );
 		RETURN rsa