Top

Port Checker (mIRC Version)


mIRC Code
+ 3 likes
Please Register to submit score.
Bookmark and Share
Average Score  9.8 (of 5 scores)
Date Added  Dec 01, 2008
Last Updated  Aug 28, 2009
Tags  checker  mirc  port  version 

Description

This is the equivalent mIRC version of my PHP port checking script.

To call it up:
Code:
/pc
Then enter the address:port of the server you wish to test

Grab the Code

;;;;;;;;;;;;;;;;;;
;; Port Checker ;;
;; By Jonesy44  ;;
;;;;;;;;;;;;;;;;;;
 
alias pc {
  set %pc.addr $$input(Enter the Address/IP and port of the server you want to check (IP:Port),eq,Port Check - Input Information)
  if ($sock(pc)) { .sockclose pc }
  if (%pc.addr) {
    echo -a 2Port Check; $str(-,50)
    echo -a 2Port Check; Checking address $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) Please wait..
    .sockopen pc $iif(: isin %pc.addr,$replace(%pc.addr,$chr(58),$chr(32)),%pc.addr 80)
    set %pc.timeout 5
    .timerpc1 0 1 pc.timeout
  }
}
alias pc.timeout {
  if (%pc.timeout <= 0) {
    echo -a 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
    echo -a 2Port Check; $str(-,50) 
    .sockclose pc
    .timerpc1 off
    unset %pc.addr
  }
  else { dec %pc.timeout }
}
on *:SOCKOPEN:pc: {
  if ($sockerr) { echo -a 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  else { echo -a 3Port Check: Connected succesfully to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  echo -a 2Port Check; $str(-,50) 
  unset %pc.addr
  .sockclose pc
  .timerpc1 off
}

Comments

  (16)  RSS
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 1, 2008 1:51 pm
equiv PHP script: http://www.hawkee.com/snippet/5404/
Perhaps this might help people learning PHP who know mIRC?
vaseline28
Comments: 162
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 4, 2008 12:30 pm
What this really shows is quite how much simpler PHP is for something like this ;p
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 4, 2008 12:48 pm
True, true. However each platform does have their use! and i thought this would really help people who know mirc or php, to learn the other language. It's easy enough to make comparisons!
Cheiron
Comments: 623
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 4, 2008 1:59 pm
very nice script there jonesy :) nice easy display and easy to use.
Quote:
2Port Check; --------------------------------------------------------------------------------------
2Port Check; Checking address "208.88.177.68:6667" Please wait..
3Port Check: Connected succesfully to "208.88.177.68:6667"
2Port Check; --------------------------------------------------------------------------------------
-


just looking to see how to make it open in a seperate window instead of showing in status window. not crucial but might be handy to have option.

gets a nice thumbs up and a 9 score
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 4, 2008 3:33 pm
Thanks mate! much appreciated :D

make all echo's into aline's on a new @window?
Xpl0reR
Comments: 227
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 5, 2008 12:28 am
no $active is cool enough :)

i hate it when you have 2345676543 gazillions windows opened :/
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 5, 2008 11:01 am
lol, me too. i perfer to just echo it into the active window :]
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 5, 2008 11:22 am
Thanks for the +Like Cheiron! :]
Cheiron
Comments: 623
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 5, 2008 5:54 pm
yw. i appreciate the script and it has indeed shown its worth and functionality
F*U*R*B*Y*
Comments: 627
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 11, 2008 12:46 am
i'd personally change -------------------------------------------------------------------------------------- to $str(-,50) makes it easier to read and such :P
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 11, 2008 11:07 am
Cheiron: Finally! a script of use that i've made lol! I've actually found this really handy s'peshly with my utorrent script & using sockets more often these days

Furbs: Done :P
Joshuaxiong1
Comments: 126
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 28, 2008 1:22 am
cool this script really work lolololol!!!!!!!!!!!!!!!!!!!!!!!!!!
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Dec 28, 2008 6:04 am
Were you expecting it not to work or somethihng? Why did you comment on the PHP version too?
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Sep 6, 2009 5:22 pm
Thanks for the +Like :)
GlobalAnomaly
Comments: 77
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Sep 6, 2009 7:37 pm
Not my place, but to Cheiron:

Code:



;;;;;;;;;;;;;;;;;;
;; Port Checker ;;
;; By Jonesy44  ;;
;;;;;;;;;;;;;;;;;;
 
alias pc {
  set %pc.addr $$input(Enter the Address/IP and port of the server you want to check (IP:Port),eq,Port Check - Input Information)
  if ($sock(pc)) { .sockclose pc }
  if (%pc.addr) {
  window @Ports
    aline @Ports 2Port Check; $str(-,50)
    aline @Ports  2Port Check; Checking address $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) Please wait..
    .sockopen pc $iif(: isin %pc.addr,$replace(%pc.addr,$chr(58),$chr(32)),%pc.addr 80)
    set %pc.timeout 5
    .timerpc1 0 1 pc.timeout
  }
}
alias pc.timeout {
  if (%pc.timeout <= 0) {
    aline @Ports 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
    aline @Ports 2Port Check; $str(-,50)
    .sockclose pc
    .timerpc1 off
    unset %pc.addr
  }
  else { dec %pc.timeout }
}
on *:SOCKOPEN:pc: {
  if ($sockerr) { aline @Ports 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  else { aline @Ports 3Port Check: Connected succesfully to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  aline @Ports 2Port Check; $str(-,50)
  unset %pc.addr
  .sockclose pc
  .timerpc1 off
}


Just made it work with a @window (@Ports) instead of echoing to the active..Bored.

Nice btw :P
jonesy44
Comments: 1,892
 
mIRC Snippet:  Port Checker (mIRC Version)
Posted on Sep 7, 2009 2:34 pm
Thankyou :) and yeah, it's personal preference. if i were to re-do this i'm pretty sure i'd change a lot of things lol. I might re-do it soemtime. It's got a lot of useless crap that could be shortcutt-ed

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  

Bottom