Rousing SUB Noticeעל ידי ZxoR
ICFG News RSS E.Xעל ידי ZxoR
ircd.confעל ידי darksis
דשגדגגדשעל ידי Vgsus
aaעל ידי Zen-
ssssעל ידי Zen-
שדכשדכעל ידי Xeinok
youtube Zen-על ידי Zen-
Clubs botעל ידי Editor
Proxy Monitor
סוג הסקריפט/סניפט: Microchip AssemblerabapkixtartActionScriptJavascriptactionscript3mxmlAdaMySQLApachelscriptAppleScriptlsl2apt_sourcesNSISx86 Assembleroberon2ASPObjective CAutoItOCamlavisynthOCamlBashOpenOffice.org Basicbasic4gloracle11bfOracle 8 SQLbibtexLuaBlitzBasicPascalBNFperbooPerlCPHP (brief)C (Mac)PHPCAD DCLpic16CAD LisppixelbenderCFDGPL/SQLColdFusionpovraycilprogresscmakeprologcobolpropertiesC++ (QT)providexC++PythonC#QBasic/QuickBASICCSSRailsDreboldcsMicrosoft RegistryDelphirobots.txtDiffRubyDIVSASDOSscaladotSchemeEiffelscilabemailsdlBasicerlangSmalltalkfoSmartyFortranm68kFreeBasicSQLgeneroTCLgettextteratermglslTextGMLthinBasicgnuplotT-SQLGroovytyposcripthaskellVisual Basichq9plusmakeHTMLvb.netUno IdlverilogINIVHDLInnovimintercalVisual Fox ProIovisualprologJavawhitespaceJava(TM) 2 Platform Standard Edition 5.0klonecwhoisklonecppWinbatchLaTeXXMLLispMatlab Mlocobasicxorg_conflolcodemIRC Scriptinglotusformulasmodula3lotusscriptX++ZiLOG Z80 Assembler
; ; * DEZTR0JAH PR0XY M0NITOR v0.1 * ; Coded by UnDeaD with mIRC 6.3 / undead@email.hinet.hr ; ; ; Greetz goes to my friends ; dialog proxy_table { title "deztr0jah pr0xy m0nitor v0.1" size -1 -1 222 101 option dbu text "Scan at ports:", 1, 10 14 36 8 edit "", 2, 54 13 28 10 edit "", 3, 87 13 27 10 edit "", 4, 120 13 26 10 edit "", 5, 151 13 29 10 edit "", 6, 185 13 29 10 text "If open:", 7, 16 42 20 8 radio "Ban", 9, 45 69 23 10 radio "Kick/Ban", 10, 45 60 34 10 link "deztr0jah.cjb.net", 13, 97 85 42 8 text "UnDeaD / undead@email.hinet.hr", 12, 6 85 83 8 edit "", 11, 96 38 118 33, read multi autovs vsbar button "OK", 14, 187 82 26 11, flat ok cancel check "Warn", 8, 45 41 26 10 radio "None", 15, 45 51 25 10 } alias Proxymonitor dialog -mv ProxyTable proxy_table on *:JOIN:#:{ set %deztr0jah.Proxy.Host $Gettok($address,2,64) set %deztr0jah.Proxy.Nick $nick set %deztr0jah.Proxy.Chan $chan if (!%deztr0jah.proxy.port1) return | else { sockopen pr0xy.skannz1. $+ $rand(1,99999) $Gettok($address,2,64) %deztr0jah.proxy.port1 } if (!%deztr0jah.proxy.port2) return | else { sockopen pr0xy.skannz2. $+ $rand(1,99999) $Gettok($address,2,64) %deztr0jah.proxy.port2 } if (!%deztr0jah.proxy.port3) return | else { sockopen pr0xy.skannz3. $+ $rand(1,99999) $Gettok($address,2,64) %deztr0jah.proxy.port3 } if (!%deztr0jah.proxy.port4) return | else { sockopen pr0xy.skannz4. $+ $rand(1,99999) $Gettok($address,2,64) %deztr0jah.proxy.port4 } if (!%deztr0jah.proxy.port5) return | else { sockopen pr0xy.skannz5. $+ $rand(1,99999) $Gettok($address,2,64) %deztr0jah.proxy.port5 } } on 1:dialog:ProxyTable:Init:0: { did -a $dname 2 %deztr0jah.proxy.port1 did -a $dname 3 %deztr0jah.proxy.port2 did -a $dname 4 %deztr0jah.proxy.port3 did -a $dname 5 %deztr0jah.proxy.port4 did -a $dname 6 %deztr0jah.proxy.port5 if (%deztr0jah.proxy.warn isin on) did -c $dname 8 if (%deztr0jah.proxy.ban isin on) did -c $dname 9 if (%deztr0jah.proxy.kickban isin on) did -c $dname 10 if (%deztr0jah.proxy.ban isin off) && (%deztr0jah.proxy.kickban isin off) did -c $dname 15 } on 1:dialog:ProxyTable:edit:*: { if ($did == 2) { set %deztr0jah.proxy.port1 $did(2) } elseif ($did == 3) { set %deztr0jah.proxy.port2 $did(3) } elseif ($did == 4) { set %deztr0jah.proxy.port3 $did(4) } elseif ($did == 5) { set %deztr0jah.proxy.port4 $did(5) } elseif ($did == 6) { set %deztr0jah.proxy.port5 $did(6) } } on 1:dialog:ProxyTable:sclick:*: { if ($did == 8) { if (%deztr0jah.Proxy.warn == on) { set %deztr0jah.Proxy.warn off } | else { set %deztr0jah.proxy.warn on } } elseif ($did == 9) { set %deztr0jah.Proxy.ban on | set %deztr0jah.Proxy.kickban off } elseif ($did == 10) { set %deztr0jah.Proxy.kickban on | set %deztr0jah.Proxy.ban off } elseif ($did == 15) { set %deztr0jah.Proxy.kickban off | set %deztr0jah.Proxy.ban off } elseif ($did == 13) { run http://www.deztr0jah.cjb.net } } on 1:sockopen:pr0xy.skannz1.*:{ if ($sockerr > 0) { sockclose $sockname return } sockclose $sockname if (%deztr0jah.Proxy.warn == on) { dialog.check | did -a ProxyTable 11 $crlf Proxy found! - Host: %deztr0jah.Proxy.Host - Port: %deztr0jah.proxy.port1 } proxy.check } on 1:sockopen:pr0xy.skannz2.*:{ if ($sockerr > 0) { sockclose $sockname return } sockclose $sockname if (%deztr0jah.Proxy.warn == on) { dialog.check | did -a ProxyTable 11 $crlf Proxy found! - Host: %deztr0jah.Proxy.Host - Port: %deztr0jah.proxy.port2 } proxy.check } on 1:sockopen:pr0xy.skannz3.*:{ if ($sockerr > 0) { sockclose $sockname return } sockclose $sockname if (%deztr0jah.Proxy.warn == on) { dialog.check | did -a ProxyTable 11 $crlf Proxy found! - Host: %deztr0jah.Proxy.Host - Port: %deztr0jah.proxy.port3 } proxy.check } on 1:sockopen:pr0xy.skannz4.*:{ if ($sockerr > 0) { sockclose $sockname return } sockclose $sockname if (%deztr0jah.Proxy.warn == on) { dialog.check | did -a ProxyTable 11 $crlf Proxy found! - Host: %deztr0jah.Proxy.Host - Port: %deztr0jah.proxy.port4 } proxy.check } on 1:sockopen:pr0xy.skannz5.*:{ if ($sockerr > 0) { sockclose $sockname return } sockclose $sockname if (%deztr0jah.Proxy.warn == on) { dialog.check | did -a ProxyTable 11 $crlf Proxy found! - Host: %deztr0jah.Proxy.Host - Port: %deztr0jah.proxy.port5 } proxy.check } alias -l proxy.check { if (%deztr0jah.Proxy.ban == on) { mode %deztr0jah.Proxy.Chan +b *!*@ $+ %deztr0jah.Proxy.Host } if (%deztr0jah.Proxy.kickban == on) { mode %deztr0jah.Proxy.Chan +b *!*@ $+ %deztr0jah.Proxy.Host | kick %deztr0jah.Proxy.Chan %deztr0jah.Proxy.nick Open PROXY! - www.deztr0jah.cjb.net } } alias -l dialog.check { if ($dialog(ProxyTable)) { dialog -a ProxyTable proxy_table } else { dialog -mv ProxyTable proxy_table } } menu menubar { deztr0jah .proxy monitor:proxymonitor } ; ; End Of File ;