~/.tkabber/config.tcl:

proc ban_the_bastard {connid from args} {
if {$from eq "JID_или_номер_icq_транспорта"} {
return stop
}
}
hook::add process_message_hook ban_the_bastard