Заимств. из ст.-сл. яз. Производное (с перегласовкой) от порицати (см. порицать). Порок буквально — «то, что осуждается».
Школьный этимологический словарь русского языка. Происхождение слов. — М.: Дрофа
Н. М. Шанский, Т. А. Боброва
2004