Tekil Mesaj gösterimi
Alt 02 Temmuz 2016, 15:00   #1
Çevrimdışı
immortaL
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Proxy Protect (AdminAop Mod)


Reklam

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:   Kodu kopyalamak için üzerine çift tıklayın!
:::::::::::::::::::::::::::::::::::::::::::::::: 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) }

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:   Kodu kopyalamak için üzerine çift tıklayın!
:::::::::::::::::::::::::::::::::::::::::::::::: 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) }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı