IRCForumu.ORG   çatla net
Goygoy


Ağaç Şeklinde Aç4Beğeni
  • 2 Post By Ottoman
  • 1 Post By AkGün
  • 1 Post By Oktayy

 
 
Seçenekler Stil
Alt 28 Haziran 2021, 21:55   #1
Kayıtlı Üye
Ottoman - ait Kullanıcı Resmi (Avatar)

Standart Proxy Protect (admin/aop mod)

Öncelikle şunu belirtmek istiyorum. Admin mod özelliği Ümit abiye (CoCORiCo) ' ye aittir. Bİ kaç düzenleme yaptım. Diğerleri tarafımdan yazılmıştır. Proxy yakalama oranı %100 olup kullanışı gayet basit bir kod. Extrimci olması lazım tam hatırlayamıyorum o istemişti galiba.
Alıntı:
::::::::::::::::::::::::::::::::::::::::::::::::
: Snotice bölümü için CoCoRiCo ya tşk ler. :
: ;
: by WeiLSİDe :
::::::::::::::::::::::::::::::::::::::::::::::::

#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 *:sockreadrx-*:{
if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :---> $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *ns:{
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 *ialogroxxy: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 *ialogroxxy: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 *ialogroxxy:edit:*:{
%prbavaxt = $did(10)
}
Kullanımı /proxy
Not: Veriable bölümüne %prlogo şeklinde bi sebep setlemeniz gerekmektedir.

Kod @WeiLSiDe aittir.

Oktayy ve Overdose bunu beğendiler.
________________

Unutma;Hеr gеlеn sеvmеz.. Vе hiçbir sеvеn gitmеz.


 
Alt 28 Haziran 2021, 21:56   #2
GameOver
AkGün - ait Kullanıcı Resmi (Avatar)

Standart

emeğine sağllık

Ottoman bunu beğendi.
________________

۰۪۫.۪۫۰𝓑𝓪𝔃𝓲 𝓲𝓷𝓼𝓪𝓷𝓵𝓪𝓻 ,𝓫𝓪𝔃𝓮𝓷 𝓲𝓷𝓼𝓪𝓷𝓵𝓪𝓻۰۪۫.۪۫۰
𝑪𝒊𝒌𝒂𝒓 𝒊𝒍𝒊𝒔𝒌𝒊𝒍𝒆𝒓𝒊𝒏𝒊𝒛 , 𝒔𝒂𝒉𝒕𝒆 𝒅𝒐𝒔𝒕𝒍𝒖𝒌𝒍𝒂𝒓𝒊𝒏𝒊𝒛 𝒎𝒊𝒅𝒆𝒎𝒊 𝒃𝒖𝒍𝒂𝒏𝒅𝒊𝒓𝒊𝒚𝒐𝒓

۰۪۫.۪۫۰AkGün۰۪۫.۪۫۰



 
Alt 28 Haziran 2021, 22:14   #3
Oktayy
Guest
Oktayy - ait Kullanıcı Resmi (Avatar)

Standart

Emeğinize sağlık.

Ottoman bunu beğendi.
 
Alt 15 Ocak 2022, 19:36   #4
Standart

IALOG Unknown command

________________

Eğer vazgeçmek kolay olsaydı, gözden akan yaş bu kadar yakmazdı.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)
 

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

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



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