ПОРОК
I порок "осадная машина для проламывания стен", др.-русск. порокъ (Новгор. 1 летоп., Лаврентьевск., Ипатьевск. летоп.; см. Срезн. II, 1212 и сл.), чеш., слвц. рrаk "праща", др.-польск. рrоk (Брюкнер 437), в.-луж., н.-луж. рrоk "праща", в.-луж. рrоkаc "метать, швырять", н.-луж. рrоkаs – то же. Ср. также праща. Праслав. *роr-kъ производится от *реro, *реrti "бить" (см. перу, Перун); см. Брюкнер 437; Ланг, LF 43, 228 и сл.; М.–Э. 3, 209. Неубедительно сближение с др.-инд. раrаcus "топор", греч. – то же, лесб. "молот", которые считаются заимств. (ср. ассиро-вавил. pilaqqu "стилет, кинжал" (И. Шмидт, Urheimat 9; Кречмер, Einl. 105 и сл.; Гофман, Gr. Wb. 259; Буазак 761, против Маценауэра, LF 13, 186 и сл.), тем более что тогда было бы слав. *реl(е)sъ. II порок род. п. -ока, др.-русск., ст.-слав. порокъ "порицание" (Супр.). От по- и рок; ср. порицать; см. Траутман, ВSW 243; Мi. ЕW 274.
http://www.slovopedia.com/22/207/1639807.html

Праслав. *роr-kъ производится от *реro, *реrti "бить" (см. перу, Перун);

ПЕРУН
род. п. -уна "молния" (Ломоносов, Державин, Батюшков), укр. перун "гром", блр. пярун, чеш. реrun "гром", польск. piorun – то же, сюда же сербохорв. перуника "касатик (бот.), ирис", словен. perunika – то же, далее связано с реro, рьrаti "бить, поражать"; см. переть II и сл.

http://www.slovopedia.com/22/207/1639252.html
ПОРОК- устройство для метания с использованием грома и молнии , которые производит ПОРОХ.

Тема подхвачена, с моей подачи, 24-09-09 на официальном НХ-форуме и интересно развита.
http://chronologia.org/dcforum/DCForumID2/12508.html