Откуда берутся смешные фамилии?

Интересно, откуда происходят фамилии Пупкин, Мармеладкина, Веник, Доля, Кузякин, Задирайло, Пипеткина, Вагина и т.п. Ведь когда-то кто-то придумал эти фамилии и дал их людям. Почему нельзя было дать нормальные, приличные фамилии. А как будут страдать дети таких родителей, они не подумали?