nagra-0101: (temp) fix map 3b/4e (from opensasc)

diff --git a/systems/nagra/nagra2-0101.c b/systems/nagra/nagra2-0101.c
index 6370b1b301bd9d56755d2e5d29b7c105771348a4..9bf3a5214c12dc1bc0e164cba4725d8af0902660 100644 (file)
--- a/systems/nagra/nagra2-0101.c
+++ b/systems/nagra/nagra2-0101.c
@@ -302,6 +302,11 @@ bool cMap0101::Map(int f, unsigned char *data, int l)
     case 0x3b:
       AddMapCycles(441);
       IMakeJ();
+// START FIX
+      AddMapCycles(327);
+      BN_zero(B);
+      BN_set_bit(B,104);
+// END FIX
       AddMapCycles(46);
       IMonInit0(wordsize*60+4*l);
       I.GetLE(data,l<<3);
@@ -365,7 +370,10 @@ bool cMap0101::Map(int f, unsigned char *data, int l)
       for(int i=0; i<53; i++) data[i]=BN_mod_word(B,primes[i]);
       break;
     case 0x4e:
-      MakePrime(B,data);
+// START INCOMPLETE FIX
+      //MakePrime(B,data);
+      BN_copy(D,B);
+// END INCOMPLETE FIX
       break;
     case 0x57:
 #ifdef HAS_AUXSRV