Middle English shamen, from Old English scamian "be ashamed, blush, feel shame;" by late Old English also transitive, "cause shame," from the root of shame (n.). Compare Old Saxon scamian, Dutch schamen, Old High German scamen, Danish skamme, Gothic skaman, German schämen sich.
The meaning "make ashamed, cover with reproach or indignity" is by 1520s. Related: Shamed; shaming.
<a href="https://www.etymonline.com/word/shaming">Etymology of shaming by etymonline</a>
Harper, D. (n.d.). Etymology of shaming. Online Etymology Dictionary. Retrieved $(datetime), from https://www.etymonline.com/word/shaming