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

Во-первых, не все фамилии изначально были смешные. Скажем, Вагина - это старинная русская фамилия, произошла от слова "вага" и появилась в те времена, когда латинский термин "вагина" для обозначения женских половых органов на Руси был неизвестен. Или украинские фамилии (типа Задирайло в вашем примере) кажутся смешными русским, а для украинцев они нормальные. Фамилия Веник, я подозреваю, имеет немецкие корни, по крайней мере мне известна фамилия Wenig (Вениг).

Некоторые из действительно смешных фамилий (Пупкин, Мармеладкин) появились в детдомах и приютах, когда подкидышей и беспризорников записывали по усмотрению персонала, среди которого было немало совсем молоденьких девушек (думаю, именно так появилась фамилия Мармеладкин).

Часть смешных фамилий обязана своим происхождением чиновникам 18-19 вв., когда происходила "паспортизация населения". Из личной неприязни такой чиновник мог присвоить "смешную фамилию". Особенно много таких вариантов было при "паспортизации" евреев. По крайней мере, приходилось встречать еврейские фамилии Залупский, Хуер, Глистович. Немало было "остроумных" чиновников и в Германии с Австрией - так появились фамилии Шайссер, Кнопелькопф, Швайнер и т.д.