(93 . 7)(93 . 7)
594 end if;
595
596 -- try to unpack a mangled package
597 Pkt(Pkt'First + 3) := Pkt(Pkt'First + 3) and 16#AB#;
598 Pkt(Pkt'First + 3) := Pkt(Pkt'First + 3) + 1;
599 Decr_Msg := (others => 0);
600 Decr_Msg := Packing.Unpack( Pkt, SKey, Success );
601 if Success then