An algorithm to calculate the kernel of certain polynomial ring homomorphisms