added a missing readout of "ssh-rsa" in normal textual representation

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

source/CryptoRSA.Mod

@@ -314,6 +314,8 @@ VAR
 		k: Key;
 	BEGIN
 		NEW( k ); k.private := FALSE;
+		r.String(str);
+		ASSERT( str = "ssh-rsa" );
 		len := Base64.DecodeStream( r, buf );
 		pos := 0;
 		U.GetString( buf, pos, str );