A pulsed magnetic field at the time of shock polarization of rocks as a possible cause of lunar magnetic-field anomalies associated with craters