home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / gate_master.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.2 KB  |  39 lines
  1. menu nicklist {
  2.   ~=\\Wingate//=~
  3.   .Scans
  4.   ..Scan Now:whois $1 | set %wingate.scan $gettok($address($$1,2),2,64) | .sockclose wg | .sockopen wg %wingate.scan 1080 | echo -a *** Wingate Scanning $1
  5.   ..Scan On Join
  6.   ...On:set %onjoin.scan ON | echo 4 -a *** Wingate Scan on Join Enabled
  7.   ...Off:unset %onjoin.scan | echo 4 -a *** Wingate Scan on Join Disabled
  8.   ..Class C Scan
  9.   ...Port 23:set %gate.search 23 | set %wingate.scanaddy $?="Enter Ip Address" | classcscan
  10.   ...Port 1080:set %gate.search 1080 | set %wingate.scanaddy $?="Enter Ip Address" | classcscan
  11.   .Connection
  12.   ..Default Port:firewall -m5+d on $?="Enter Gate Address or IP" 1080 | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
  13.   ..Force Socks4:fireall -m4 on $?="Enter Gate Address or IP" 1080 | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
  14.   ..Manual Login:firewall -m5+d on $?="Enter Gate Address or IP" $?"="Enter Port" $?="Enter UserId" $?="Enter Password" | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
  15.   .-
  16.   .Status:firewall
  17.   ..Change Identd:identd on $?="Enter New Identd"
  18.   .-
  19. }
  20. ;=================================================================================================
  21. on *:join:#:if (%onjoin.scan == ON) { .sockclose wg | .sockopen wg $site 1080 }
  22. on *:sockopen:wg:if ($sockerr > 0) { echo -a *** No Gate Found. | return } | echo -a 7,1*** Gate Found: $sock($sockname).ip
  23. on *:sockopen:classc*:if ($sockerr > 0) { return } | echo 4 -a ***7 Open Proxie Found:7 $sock($sockname).ip
  24. ;=================================================================================================
  25. alias /classcscan {
  26.   set %wingate.scanaddy $gettok(%wingate.scanaddy,1-3,46)
  27.   echo 4 -a ***8 Class C Scanning $gettok(%wingate.scanaddy,1-3,46) $+ . $+ 0 For Open Proxies on Port %gate.search 4***
  28.   %gatescan.loop = 0
  29.   %gates.found = 0
  30.   :loop
  31.   inc %gatescan.loop 1
  32.   if (%gatescan.loop == 256) { goto end }
  33.   .sockopen classc $+ %gatescan.loop %wingate.scanaddy $+ . $+ %gatescan.loop %gate.search
  34.   goto loop
  35.   :end
  36.   .timer 1 5 echo 4 -a ***8 Class C Scan Complete. Closing All Sockets. 4***
  37.   .timer 1 5 .sockclose classc*
  38. }
  39.