IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Proxy Koruması porttan tarayıp atar (https://www.ircforumu.net/hazir-kodlar/53-proxy-korumasi-porttan-tarayip-atar.html)

immortaL 07 Mayıs 2016 21:25

Proxy Koruması porttan tarayıp atar
 
Kod:

alias deb {
  debug -i db debg debg
}
alias debg {
  tokenize 32 $1-
  echo -s : $1-
}
on ^*:snotice:*: {
  if (*client*connect*on*port* iswm $1-) {
    tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))
    $iif(!$window(@giris-cıkıs), window -fen @giris-cıkıs verdana 9)
    echo 5 @giris-cıkıs $1-
  }
  halt
}
alias po {
  return  21 22 23 33 47 56 54 81 70 1046 1080 1182 1183 1184 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
  set %prx $ticks
  .dns $1
  set %ip  $1 | var %pi = 1
  while (%pi <= $gettok($po,0,32)) {
    var %ki = $gettok($po,%pi,32)
    sockopen $+(prx-,$1,-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki 
    inc %pi
  }
  ;echo 4 Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:*prx-*: {
  if ($sockerr) { sockclose $sockname | return }
  ;echo 2 IP: $sock($sockname).ip $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\KAPALI: $portfree($sockerr) 4HATA\WS_Err: $sock($sockname).wserr 4MESAJ\WS_Msg: $sock($sockname).wsmsg
  if ($portfree($sockerr))  {
    var %ipsikim $sock($sockname).ip
    kline $+(*@,$sock($sockname).ip) 1Proxy yasaktır. Lütfen 1sohbet kurallarına uyunuz!
    sockclose $+(*,$sock($sockname).ip,*)
    $iif(!$window(@pRoXy----),window -fen @pRoXy---- verdana 9,echo @pRoXy---- GzlineD %ipsikim Proxy taramasından geçemeyen ip pasif edildi. )
    return
  }
  .sockclose $sockname
}
on *:sockread:prx-*:{
  if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
  ; echo 4 -s :---> $sock($sockname).ip $sock($sockname).port
  sockclose  $sockname
}
on *:dns:{
  if (%prx) {
    var %di = $dns(0)
    while (%di > 0) {
      echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \ $dns(%di).ip
      dec %di
    }
    unset %prx | unset %ip
    halt
  }
  unset %prx | unset %ip
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:10.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.