IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Ocak 2015, 17:51   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Merhaba, iyi iF'ler arkadaşlar. Elimde Proxy koruması var yalnız. +b (ban) atmak da. Ben bunu Z:lined'e çevirmek istiyorum. Yardımcı olabilir misiniz.



Kod;


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:join:#:{ if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On { var %ip $gettok($address,2,$asc(@)) if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick Atilmadi. | return } kick $chan $nick sebep| mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) } } }




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:Start:{ if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } alias pr { if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x } if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } if $1 == Ac { set %proxy.koruma ON | echo 3 -ae *** 5Proxy Koruması acılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 5Proxy Korumasi kapatılmıştır.. } if $1 == ekle { if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { echo 3 -ae *** Bu ip listede mecvuttur. | return } hadd -m p $2 Proxy | hsave p pr.x echo 3 -ae *** $2 Listeye eklenmiştir. } if $1 == sil { if !$2 { echo 3 -ae *** Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { hdel p $ifmatch | hsave p pr.x echo 3 -ae *** $ifmatch Listeden silinmiştir. } else { echo 3 -ae *** Listeden bulunamamistır. } } if $1 == liste { var %s 1, %f $hget(p,0).item if $hget(p,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return } while %s <= %f { echo 3 -ae ***4 Proxy IP listesi: $hget(p,%s).item inc %s } } if $1 == muaf { if $2 == ekle { if $hfind(m,$3,1,W).item { echo 3 -ae *** Bu nick listede mecvuttur. | return } hadd -m m $3 Proxy | hsave m m.x echo 3 -ae *** $3 Muaf nick listeye eklenmiştir. } if $2 == sil { if $hfind(m,$3,1,W).item { hdel m $ifmatch | hsave m m.x } else { echo 3 -ae *** Listeden bulunamamistır. } } if $3 == liste { var %s 1, %f $hget(m,0).item if $hget(m,0).item == 0 { echo 3 -ae *** Liste bos durumda. | return } while %s <= %f { echo 3 -ae ***4 Proxy muaf nick listesi: $hget(m,%s).item inc %s } } } } on *:join:#:{ if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On { var %ip $gettok($address,2,$asc(@)) if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick Atilmadi. | return } kick $chan $nick SEBEP | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) } } }



Yukarıda paylaşmış olduğum Remoteyi Zline ye çevirebilir miyiz?

__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır

Konu Toprak tarafından (19 Ocak 2015 Saat 22:36 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Ocak 2015, 18:06   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Buyur;


Oper/Admin host'ları muaf tutuldu..


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on !*:join:#:{ if %Proxy.koruma == On { var %:ip $gettok($address,2,64) if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|network|oper|ircop|services|technical)/i) { return } if $hfind(p,%:ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick Atilmadi. | return } gzline $nick - Sebep } } }


 
Alıntı ile Cevapla

Alt 30 Mayıs 2022, 13:56   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Kanala giriş de değil de Sunucuya bağlandığın da nasıl işlem yaptırabiliriz.

__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 30 Mayıs 2022, 17:15   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting*:{ if %Proxy.koruma == On { var %:ip $gettok($address,2,64) if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|network|oper|ircop|services|technical)/i) { return } if $hfind(p,%:ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae **** Muaf nick girişi:4 $nick Atilmadi. | return } gzline $nick - Sebep } } }

Böyle olabilir belki

__________________
Şüphe tek gerçektir!
 
Alıntı ile Cevapla

Alt 30 Mayıs 2022, 17:38   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




deneyelim bakalım gerçi ben buna benzer şekilde denedim ama olmadı umarım olur.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:38 -->-> Daha önceki mesaj 17:29 --

Yok malesef olmadı sağ ol yinede

__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 05 Haziran 2022, 09:28   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Arkadaşlar ben bu Kodu çalıştıramadım. Kod da hata gören var mı?
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:Start:{ if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } alias pr { if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x } if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. } if $1 == ekle { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin Proxy listede mecvuttur. | return } hadd -m p $2 Proxy | hsave p pr.x echo -ae 11***3 $2 4Listeye eklenmiştir. } if $1 == sil { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { hdel p $ifmatch | hsave p pr.x echo -ae 11*** $ifmatch 7Listeden silinmiştir. } else { echo -ae 11***7 Listeden bulunamamıştır. } } if $1 == liste { var %s 1, %f $hget(p,0).item if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item inc %s } } if $1 == muaf { if $2 == ekle { if $hfind(m,$3,1,W).item { echo -ae 11***7Bu nick listede mecvuttur. | return } hadd -m m $3 Proxy | hsave m m.x echo -ae 11*** $3 12Muaf nick listeye eklenmiştir. } if $2 == sil { if $hfind(m,$3,1,W).item { hdel m $ifmatch | hsave m m.x } else { echo -ae 11***7 Silmek istediğin Proxy liste de bulunamamıştır. } } if $3 == liste { var %s 1, %f $hget(m,0).item if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***12 Proxy muaf Nick Listesi: $hget(m,%s).item inc %s } } } } on !*:join:#:{ if %Proxy.koruma == On { var %:ip $gettok($address,2,64) if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i) || $regex(%:ip,/(root|admin|Security|Owner|Help|network||SoyLe.Net|oper|ircop|services|technical)/i) { return } if $hfind(p,%:ip,1,W).item { if $hfind(m,$nick,1,W).item { echo -ae 11****7 Muaf nick girişi:4 $nick 7atılmadı | return } gline $nick - 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. } } }


__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 05 Haziran 2022, 10:18   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




if !$regex($nick(#,$me).pnick,/(%|@|&|~|\.)/i)

Join eventında !$regex in başındaki ! Bunu kaldır dostum

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 07 Haziran 2022, 16:57   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Arkadaşlar join eventi yerine connectin girişte işlem yaptırmaya çalıştık arkadaşım ile anlamadığımız bir sebepten KOD yine çalışmadı bilgisi olan yardımcı olabilir mi?
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*: { if (connecting isin $1-) { if %Proxy.koruma == On { if $regex($1-,/\((.+)@(.+)\)/i) { var %:ip = *@ $+ $regml(2) } if $hfind(p,%:ip,1,W).item { if $hfind(m,$8,1,W).item { echo -ae 11****7 Muaf nick girişi:4 $nick 7atılmadı | return } gline $nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. } } } } on *:Start:{ if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } alias pr { if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x } if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. } if $1 == ekle { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin Proxy listede mecvuttur. | return } hadd -m p $2 Proxy | hsave p pr.x echo -ae 11***3 $2 4Listeye eklenmiştir. } if $1 == sil { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { hdel p $ifmatch | hsave p pr.x echo -ae 11*** $ifmatch 7Listeden silinmiştir. } else { echo -ae 11***7 Listeden bulunamamıştır. } } if $1 == liste { var %s 1, %f $hget(p,0).item if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item inc %s } } if $1 == muaf { if $2 == ekle { if $hfind(m,$3,1,W).item { echo -ae 11***7Bu nick listede mevcuttur. | return } hadd -m m $3 Proxy | hsave m m.x echo -ae 11*** $3 4Muaf nick listeye eklenmiştir. } if $2 == sil { if $hfind(m,$3,1,W).item { hdel m $ifmatch | hsave m m.x } else { echo -ae 11***7 Silmek istediğin Proxy liste de bulunamamıştır. } } if $3 == liste { var %s 1, %f $hget(m,0).item if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item inc %s } } } } - alias iekle { if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } | dialog -ma Proxy_ekle Proxy_ekle } dialog Proxy_ekle { title "Hash Proxy Ekleme" size -1 -1 264 163 option pixels box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130 button "Proxy IP Ekle", 2, 33 34 197 80, normal text "Yüklenen Proxy Adet:", 3, 62 140 108 16 text "0", 4, 171 140 50 16, center } on 1:dialog:Proxy_ekle:*:*:{ if ($devent == init) { } if ($devent == sclick) { if ($Did == 2) { Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0 If (%F) { Var %I = 1 While ($Read(%F,%I)) { Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*) if !$hget(p,%j) { hadd -m p %j Proxy hsave -o p pr.x inc %eklenen } inc %I } } did -o Proxy_ekle 4 1 %eklenen } } }


__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 09 Haziran 2022, 18:35   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




ÇALIŞIR HALi ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on ^*:snotice:*:{ Haltdef } on *:Start:{ if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x if !$file(m.x) { write -c m.x } | hmake m | hload m m.x debug -i debug1.txt $!console2 } alias debugaçç { debug -i debug1.txt $!console2 } Alias console2 { tokenize 32 $1- if $regex($1-,/Client connecting (at|on port) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %:port = $remove($regml(2),$chr(40),$chr(41)) var %:ip $iif(%:port == 6667,$gettok($regml(5),-2,41),$remove($regml(5),$chr(40),$chr(41))) var %:nick $remove($regml(3),$chr(40),$chr(41)) echo -st 3Giriş:4 %:nick 3nickli kullanıcı0 (4 %:ip 0)3 ip üzerinden bağlandı. } if $regex($1-,/Client exiting/Si) { if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) } elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) } echo -st 14Çıkış: IRC`den Çıktı: $+(%_cnk,!,%_cit,@,%_cip) (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $hfind(p,%:ip,1,W).item { if $hfind(m,%:nick,1,W).item { echo -st 11****7 Muaf nick girişi:4 $nick 7atılmadı | return } gline %:nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. 3Mask:0 $hfind(p,%:ip,1,W).item } } alias pr { if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x } if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x } if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. } if $1 == ekle { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin4 Proxy7 listesin de mecvuttur. | return } hadd -m p $2 Proxy | hsave p pr.x echo -ae 11***3 $2 4Listeye eklenmiştir. } if $1 == sil { if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return } if $hfind(p,$2,1,W).item { hdel p $ifmatch | hsave p pr.x echo -ae 11*** $ifmatch 7Listeden silinmiştir. } else { echo -ae 11***7 Listeden bulunamamıştır. } } if $1 == liste { var %s 1, %f $hget(p,0).item if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item inc %s } } if $1 == muaf { if $2 == ekle { if $hfind(m,$3,1,W).item { echo -ae 11***7 Eklemeye açlıştığın4 Nick7 listede mevcuttur. | return } hadd -m m $3 Proxy | hsave m m.x echo -ae 11*** $3 4Muaf nick listeye eklenmiştir. } if $2 == sil { if $hfind(m,$3,1,W).item { hdel m $ifmatch | hsave m m.x } else { echo -ae 11***7 Silmek istediğin4 Proxy7 liste de bulunamamıştır. } } if $2 == liste { var %s 1, %f $hget(m,0).item if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return } while %s <= %f { echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item inc %s } } } }


__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

Alt 11 Haziran 2022, 02:53   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: +b Z:line çevirme.




Merhaba senin sunucuda snoticileri ip girişlerini göruyormusun koda hata yok gayet iyi çalisiyor denedim..

 
Alıntı ile Cevapla

Cevapla

Etiketler
cevirme, zline


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
.mrc .tcl cevirme skylord mIRC Scripting Sorunları 8 09 Nisan 2010 20:33
* /.timerprot.repeat.#C...: line too long (line 5, flood.mrc) MavipikSeL mIRC Scripting Sorunları 14 12 Temmuz 2007 14:12
K-Line, g-line ban msjlarında IP ile ilgili.. strikeR mIRC Scripting Sorunları 11 23 Nisan 2006 23:53