fix(primitives): Fix native scripts policy id (add missing tag) (#94)

pallas-crypto/src/hash/hasher.rs

@@ -78,6 +78,14 @@ macro_rules! common_hasher {
                 hasher.finalize()
             }
 
+            #[inline]
+            pub fn hash_tagged_cbor(data: &impl minicbor::Encode, tag: u8) -> Hash<{ $size / 8 }> {
+                let mut hasher = Self::new();
+                hasher.input(&[tag]);
+                let () = minicbor::encode(data, &mut hasher).expect("Infallible");
+                hasher.finalize()
+            }
+
             /// consume the [`Hasher`] and returns the computed digest
             pub fn finalize(mut self) -> Hash<{ $size / 8 }> {
                 use cryptoxide::digest::Digest as _;

pallas-primitives/src/alonzo/crypto.rs

@@ -21,7 +21,7 @@ pub fn hash_plutus_data(data: &PlutusData) -> Hash<32> {
 
 impl NativeScript {
     pub fn to_hash(&self) -> Hash<28> {
-        Hasher::<224>::hash_cbor(self)
+        Hasher::<224>::hash_tagged_cbor(self, 0)
     }
 }