MIRC 60
Test Guest on 20th February 2021 03:24:03 AM
  1. alias pcheck {
  2.   if (!$1) { echo 4 -agte * /pcheck: Error, Please specify a Host or IP Address! | return }
  3.   if (!$2) || ($2 !isnum) { echo 4 -agte * /pcheck: Error, Invalid Port number! | return }
  4.   echo -agtec info * /pcheck: Scanning $bold($+($1,:,$2)) IP/Host and Port now.. Please wait! - Connection: $bold(TCP) - Type: $bold($iif($iptype($1),$upper($iptype($1)),Host))
  5.   if ($sock(chk_*,0)) { sockclose chk_* }
  6.   if ($iptype($1) == ipv4) { sockopen -n4 chk_plain $1 $2 }
  7.   elseif ($iptype($1) == ipv6) { sockopen -n6 chk_plain $1 $2 }
  8.   else { sockopen -n chk_plain $1 $2 }
  9.   sockmark chk_plain $1
  10. }

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.