Proxy Monitor - מחבר ועוקב פרוקסי

[Editor]

שם הקוד: Proxy Monitor
יוצר: UnDeaD
גרסה: 0.1
תיאור: Proxy Monitor, מחבר ועוקב פרוקסי.
הפעלה: כנסו למירק ולחצו במקלדת ALT + R, לחצו למעלה בצד שמאל File ואז New, תעתיקו את הסקריפט ותאשרו.

קוד: בחר הכל

;
; * 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
;

יש למצוא גם: pastebin.php?mode=view&s=21