IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu   Reklam Alanı

 

Go Back   IRCForumu.Net | Türkiye'nin IRC ve mIRC Forumu > IF - mIRC Scripting > Hazır Kodlar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Temmuz 2016, 15:00   #1
Gelme, burası çok derin.
Avatar Yok
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 584
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post Proxy Protect (AdminAop Mod)

Admin mod port, aop mod host baz alarak çalışır. Proxy yakalama oranı nerdeyse %100 diyebilirim.

Dikkat: Kullanmak isteyen arkadaşar port numaralarını kontrol etsin.
Kullanımı /proxy
Not: Veriables bölümüne %prlogo şeklinde bi sebep setlemeniz gerekmektedir.
İyi Forumlar



Kod:
::::::::::::::::::::::::::::::::::::::::::::::::
04.11.2009
a code by dArK 
::::::::::::::::::::::::::::::::::::::::::::::::
 
#snoticersPr off
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(@G.C), window -fen @G.C verdana 9)
    echo 5 @G.C $1-
  }
  halt
}
alias po {
  return  21 22 23 33 47 56 54 70 1046 1080 1182 1183 1184 1188 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 %ipssust $sock($sockname).ip
    if (%prShun == on) { shun $+(*@,$sock($sockname).ip) 10m %prlogo }
    if (%prakill == on) { os killclones $9 %prlogo }
    if (%prkill == on) { kill $9 %prlogo }
    if (%prz-Line == on) { zline $+(*@,$sock($sockname).ip) 10m %prlogo }
    sockclose $+(*,$sock($sockname).ip,*)
    $iif(!$window(@Line),window -fen @Line verdana 9,echo @Line GzlineD %ipssust 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
}
#snoticersPr end
#joinnnPr on
on @prox:join:#:{ 
  if (%prkick == on) { kick # $nick %prlogo }
  if (%prban == on) { ban $iif(%prbavaxt isnum,-u $+ %prbavaxt) # $nick 2 }
  if (%prShun == on) { shun $nick +10m %prlogo }
  if (%prakill == on) { os killclones $nick }
  if (%prkill == on) { kill $nick %prlogo }
  if (%prz-Line == on) { zline $nick +10m %prlogo }
}
#joinnnPr end
alias proxy { .dialog -m proxxy proxxy }
dialog proxxy {
  title "Karadeniz TEAM"
  size -1 -1 150 90
  option dbu
  box "KeLime *!*@ip", 1, 86 0 64 89
  combo 2, 89 7 59 71, size
  button "Ekle", 3, 89 78 20 9
  button "Sil", 4, 111 78 20 9
  check " Z-Line ", 8, 42 49 27 10
  check " KiLL", 9, 4 58 21 10
  edit "", 10, 26 31 23 10
  text "Saniye", 11, 50 32 20 8
  box "Ayir", 12, 1 0 40 26
  box "ceza", 112, 1 25 83 44
  check "@plar", 13, 5 6 34 10
  check "+v", 14, 5 15 30 10
  check " AKiLL", 7, 42 58 27 10
  check " Kick", 15, 4 40 21 10
  check " Ban", 16, 4 31 21 10
  check " Shun", 17, 4 49 26 10
  box "Mod", 18, 44 0 40 26
  radio "admin", 21, 47 6 26 10
  radio "aop", 22, 47 15 26 10
  button "X", 5, 141 78 7 9, ok
  box "", 6, 1 67 83 22
}
on *:dialog:proxxy:init:*:{
  if %pr@plar == on { did -c $dname 13 }
  if %pr+v == on  { did -c $dname 14 }
  if %prz-Line == on { did -c $dname 8 }
  if %prkill == on { did -c $dname 9 } 
  if %prakill == on { did -c $dname 7 }
  if %prShun == on { did -c $dname 17 }
  if %prban == on { did -c $dname 16 }  
  if %prKick == on  { did -c $dname 15 }
  if ($group(#snoticersPr) == on) { did -c $dname 21 }
  if ($group(#joinnnPr) == on) { did -c $dname 22 }
  if ($ulist(*,prox,0) != $null) {  var %i = 1 | while $ulist(*,prox,%i) { did -a $dname 2 $v1 | inc %i  } } 
  did -a $dname 10 %prbavaxt
}
on *:dialog:proxxy:sclick:*:{
  if $istok(7 8 9 13 14 15 16 17 ,$did,32) {  $iif($did($did).state == 1,set %pr $+ $gettok($did($did).text,1,32) on,.set %pr $+ $gettok($did($did).text,1,32) off) }
  if ($did == 3) {  if ($did(2) != $null) { did -a $dname 2 $did(2) |  .auser prox $did(2)  } }
  if ($did == 4) { if $did(2).seltext { .ruser prox $did(2).seltext | did -d $dname 2 $did(2).sel } }
  if ($did = 21) { .disable #joinnnPr | .enable #snoticersPr | echo -a 4[ 1dikkat 4]  proxy koruması için admin modu devrede | did -b proxxy 10,11,13,14,15,16  }
  if ($did = 22) { .disable #snoticersPr | .enable #joinnnPr | echo -a 4[ 1dikkat 4]  proxy koruması için admin modu devredışı | did -e proxxy 10,11,13,14,15,16  }
}
on *:dialog:proxxy:edit:*:{
  %prbavaxt = $did(10)
}
__________________
immortaL isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Etiketler
adminaop, mod, protect, proxy

Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Kuruluş: IRCForumu.Net © 30 Nisan 2018 Cumartesi
Kurucular: immortaL

IRCForumu.Net Her Hakkı Saklıdır.

irc forumu | ircforumları | irc forumları |
Sitemiz bir "paylaşım" sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda [email protected] adresine mail atıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5101 sayılı yasayla değişik 5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı T.C. Kültür ve Turizm Bakanlığı tarafından hak sahipliği verilmiş olan MÜ-YAP tarafından yasaklanmış olup, yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.