ileKraLaz
Soru Cevap Botu Socket
Remote ile kullanabileceğiniz soru-cevap botu botu kullanabilmeniz için mirc ana dizine sorular.txt adı altında bir not defteri açıp içerisine soru*cevap şeklinde soruları alt alta ekleyebilirsiniz. Örnek olarak ingilizce türkçe liste aşağıda veriyorum indirebilirsiniz.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 |
;################# Ayarlancak Bolum ######## alias botnick return ingilizce alias nickpass return 123456 alias kanal return #ingilizce alias sunucu return irc.mircclub.org ;############ Ayarlancak Bolum Bitmistir ####### ;Botun Komutlari ;!start ;!dur ;!top10 ;!puan yada !puan Nick on *:join:$($kanal): { if ($nick == $me) { baslat } } on *:text:*:$($kanal): { if ($1- == %cevap) { if !$hget(toplist) { hmake toplist } if $hget(toplist,$nick) { hadd toplist $nick $calc($hget(toplist,$nick) + $puan) } else { hadd toplist $nick $puan } msg # 2 $rastgele($nick) , Dogru Cevap %cevap .timersoru off .timeralindi off soru } if $1 == !top10 { msg $kanal $toplist } if $1 == !puan { if ($2) { msg # $nick $qt($2) Nickli Kişinin Puanı: $iif($hget(toplist,$2),$hget(toplist,$2),Yok) } else { msg # $nick Sizin Puanınız: $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok) } } if ($1 == !start) { unset %63 baslat } if ($1 == !dur) { .timers off msg # ingilizce Oyun Botu Durdurulmustur. } } alias rastgele { var %x63 $rand(1,10) if (%x63 <= 5) { return 3Dogru Cevap Tebrikler 10 $1 } if (%x63 >= 5) { return 3Yakisir Sana Tebrikler Dogru Cevap Verdin10 $1 } } alias ayirt { var %ss $rand(1,$len($1-)) var %sss $calc(%ss + $len($1-)) inc %ipucu 1 if (%ipucu == 1) { msg $kanal 4Ipucu: $replace(%cevap,$chr(160),$chr(32),a,*,b,*,c,*,d,*,e,*,f,*,g,*,h,*,i,*,j,*,k,*,l,*,m,*,n,*,o,*,p,*,q,*,r,*,s,*,t,*,u,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) } if (%ipucu == 2) { msg $kanal 4Ipucu2: $replace(%cevap,$chr(160),$chr(32),b,*,c,*,d,*,f,*,g,*,h,*,j,*,k,*,l,*,m,*,n,*,p,*,q,*,r,*,s,*,t,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*) } if (%ipucu == 3) { msg $kanal 4Ipucu3: $replace(%cevap,$chr(160),$chr(32),d,*,f,*,g,*,h,*,j,*,k,*,l,*,m,*,p,*,q,*,r,*,s,*,t,*,v,*,w,*,y,*,z,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*) | unset %s } } alias baslat { inc %63 1 if (%63 == 1) { msg $kanal mIRC ingilizce botu | msg $kanal 0,2 Oyun Basliyor Lutfen Hazirlaniniz. } .timers off unset %s soru } alias soru { unset %ipucu set %soruayirt $read(sorular.txt,$rand(1,$lines(sorular.txt))) set %csoru $gettok(%soruayirt,1,42) set %cevap $gettok(%soruayirt,2,42) if (%cevap == $null) { msg # Hatali Soru Tespiti | baslat } msg $kanal 12SORU: 10 %csoru ayirt %cevap .timersoru 2 15 .ayirt %cevap .timeralindi 1 60 /msg $kanal 4Cevabi Bilemediniz , Dogru Cevap %cevap $(|) soru } alias toplist { hsave -a toplist $qt($+($mdir,toplist.data)) .hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data)) if (!$hget(top10puan)) { hmake top10puan } var %xc = $hget(toplist,0).data while %xc { set %top10puan $addtok(%top10puan,$hget(toplist,%xc).data,46) dec %xc } var %sira = $sorttok(%top10puan,46,nr) var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1 %1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46) %2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46) %3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46) %4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46) %5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46) %6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46) %7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46) %8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46) %9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46) %10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46) return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10) } alias -l fazlaise { unset %y | unset %w var %i = $hfind(toplist,$1,0,w).data while (%i) { %y = $hfind(toplist,$1,%i,w).data %w = %y %w dec %i } return $replace($sorttok(%w,32,a),$chr(32),$chr(44)) } alias puan return 20 on *:connect: { identify $nickpass | join 0, | join $kanal } on *:start: { nick $botnick | server $sunucu } on *:exit:hsave -a toplist $qt($+($mdir,toplist.data)) on *:disconnect: { hsave -a toplist $qt($+($mdir,toplist.data)) | unset %63 } |
ileKraLaz
Mircclub Oper/Admin Script v1
| Kullanılan Mirc Sürümü | 6.35 |
| Kullanılan Mirc Dili | Türkçe |
| Yapım Tarihi | 27.12.2018 |
| Versiyon | v1 |
| Script Editör | KraLaz |
| Web Sitesi | www.mircclub.org |
| Boyut | 2.03 MB |
mIRCClub Oper/Admin Script IRC Sunucularında Oper ve Admin olarak görev yapan IRC kullanıcılarına hitap etmektedir. Mirc Scripti helper ve kanal oplarıda kullanabilir. Ayrıca normal kullanıcılarda kullanabilir herhangir bir kısıtlama yoktur. Yetkiniz seviyesine göre işlem yapabilirsiniz.
Script Özellikleri
| İşinize yarayacak tüm raw kodları eklendi. |
| Gelişmiş seslenme remotesi |
| Kanal clone takibi |
| Spamfilter takip ekranı ( ekle-sil-düzenle-döster) |
| Küfür koruması |
| Badnick koruması |
| @takip pencereleri @spam @whois @network @line vs. |
| Sunucu line banlist addonu |
| Proxy koruması |
| Status Kontrol Addonu |
| #Help , #Operhelp kullanıcı giriş uyarı sistemi |
| Whois takip addonu |
| Karaliste addonu |
| Proxy Banlist Addonu |
| Akill Addonu |
| İdent, Realname gibi ekstra korumalar |
| Random nick koruması gzline |
| Hızlı spam alma addonu |
| Otomatik identify addonu |
| Operatör Paneli |
| Ayarlanabilir F kısayolları |
| Gelişmiş Helper, admin, chanserv, nickserv ve memoserv menüleri |
ileKraLaz
Mirc !zar kodu
Mirc scriptinizde kullabileceğiniz eğlenceli bir kod !zar komutu ile çalışır kazanan kullanıcıya hediye gönderir.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
## mirc ana dizine hediyever.txt diye bir dosya açıp hediyeleri alt alta sıralayın. ## !zar şeklinde çalışır on *:text:!zar:#: { var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt) if (%rand == %rand2) { goto kazandi } else { goto kaybetti } :kazandi msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2 msg # 4 $nick 2hediyeniz ->4 %hediye return :kaybetti msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2 msg # 4 $nick 2daha sonra tekrar deneyiniz. } |
ileKraLaz
Admin Oper Bağlantı Menüsü Portlu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
##KraLaz alias penikapat { dialog -c startpen startpen } alias startpen { dialog -m startpen startpen } dialog startpen { title "Bağlanti Menüsü" size -1 -1 361 150 ;; yer üst - yüksek button "LOGIN AYARLARI" ,53, 10 10 110 50, flat button "Mirc LOGO" ,54, 120 10 110 50, flat text "Nick (Rumuz) :" ,2, 30 80 80 30 edit "" ,3, 105 80 130 20, autohs text "Sunucu :" ,13, 30 105 60 20 combo 14, 105 105 131 130 ,drop edit size , flat text "Port:" ,16, 243 105 30 20 edit "" , 17, 269 105 38 22 , edit button "Gir !" ,5, 320 105 36 20, flat button "B A Ğ L A N " ,19, 240 10 110 90, ok, flat } on *:dialog:startpen:*:*:{ if ($devent == init) { did -c startpen 5 did -a startpen 14 %operserver %operbilgi did -c startpen 14 1 did -a startpen 17 6667 did -c startpen 17 1 did -a startpen 3 %yedeknick did -c startpen 3 1 did -f startpen 5 } if ($devent == sclick) && ($did == 14) { /set %servername $did(14) } if ($devent == sclick) && ($did == 17) { /set %serverport $did(17) } if ($devent == sclick) && ($did == 53) { /set %yedeknick $$?="Bağlantı nicki sqline koruma yüzünden yedek nick yazınız" | echo -a 3,30 *** Kayit: 1 Bağlantı Nickiniz ayarlandı 10 %yedeknick 1 Sunucudaki Sqline koruması yüzünden yedek nickiniz ile bağlantı yapıp asıl nickinize geçeceksiniz. /set %nick $$?="Oper nickiniz" | echo -a 3,30 *** Kayit: 1 Nickiniz ayarlandı 10 %nick | /set %nicksifre $$?="Nick Şifreniz" | echo -a 3,30 *** Kayit: 1 Nick şifreniz ayarlandı. 10 %nicksifre /set %operserver $$?="Operserver:port Örnek: oper.sohbet.net:9000" | echo -a 3,30 *** Kayit: 1 Oper Admin Serveriniz Ayarlandı 10 %operserver /set %operbilgi $$?="Oper:Şifre Örnek: admin:123654" | echo -a 3,30 *** Kayit: 1 Oper loginayarlandi. 10 %operbilgi /set %fullname $$?="Fullnamenizi yazın" | echo -a 3,30 *** Kayit: 1 Fullname Ayarladı. 1 %fullname echo -a 3 Ayarlar başarıyla kayıt edildi. Bağlantıya hazır. timer 1 2 /penikapat timer 1 4 /startpen } if ($devent == sclick) && ($did == 54) { /set %logo $$?="Logonuz" | echo -a %logo Logonuz ayarlandı. } if ($devent == sclick) { if ($did == 5) { .server $did(14) $did(5) | .nick $did(3) | penikapat } if ($did == 172) { penikapat dialog -m startpen startpen } if ($did == 19) { server $did(14) $did(17) | .nick $did(3) | penikapat } } } on *:connect:{ timer 1 2 /nick %nick timer 1 4 /ns identify %nicksifre timer 1 6 /echo -a %logo 3 Başarılı bir şekilde login oldunuz. } |
ileKraLaz
Zurna Mirc
Zurna Mirc Script İndir
Zurna mirc script ile sohbete doyamayacaksınız, susmak bilmeyen sohbetciler ile 7/24 durmadan sohbet edebilirsiniz. Zurna mirc güncel mirc sürümü üzerine inşa edilmiş olup windows 7 ve üzeri işletim sistemlerinde sorunsuz olarak kullanabilirsiniz.
Remote silme, lisans sorunu gibi sorunlar yaşamadan, üstelik türkçe olarak kurulacaktır. Zurna mirc içerisinde işlemlerinizi kolaylaştıracak menüler yer almaktadır bunlar nick kayıt etme, kanal kayıt etme ve basit kanal komutlarıyla beraber nick list menüde helper menü gibi ekstra özellikler yer almaktadır.
Zurna mirc içerisinde sunucu kısıtlama gibi bir durum yoktur girmek istediğiniz tüm irc sunucularına kolayca bağlanabilirsiniz, mirc bağlantı menüsünde irc adı yazma sekmesi değişkendir, isterseniz listeden irc seçebilir isterseniniz kendi istediğiniz sunucu adını yazabilirsiniz.
Zurna mirc script ile bilgisayarınızdan hemen sohbet odasına bağlanabilirsiniz.
ileKraLaz
Geveze Mirc
Geveze Mirc Script İndir
Geveze mirc script ile sohbete doyamayacaksınız, susmak bilmeyen gevezelerle 7/24 durmadan sohbet edebilirsiniz. Soyle mirc güncel mirc sürümü üzerine inşa edilmiş olup windows 7 ve üzeri işletim sistemlerinde sorunsuz olarak kullanabilirsiniz.
Remote silme, lisans sorunu gibi sorunlar yaşamadan, üstelik türkçe olarak kurulacaktır. Geveze mirc içerisinde işlemlerinizi kolaylaştıracak menüler yer almaktadır bunlar nick kayıt etme, kanal kayıt etme ve basit kanal komutlarıyla beraber nick list menüde helper menü gibi ekstra özellikler yer almaktadır.
Geveze mirc içerisinde sunucu kısıtlama gibi bir durum yoktur girmek istediğiniz tüm irc sunucularına kolayca bağlanabilirsiniz, mirc bağlantı menüsünde irc adı yazma sekmesi değişkendir, isterseniz listeden irc seçebilir isterseniniz kendi istediğiniz sunucu adını yazabilirsiniz.
Geveze mirc özellikleri;
- Mirc 6.35 sürümü kullanılmıştır.
- Mirc %100 türkçedir.
- İçerisinde işinizi kolaylaştıran remoteler eklenmiştir.
- Bağlantı menüsü esnektir. Tüm irc sunucularına bağlanır.
ileKraLaz
Müslüm Gürses
Müslüm Gürses namı değer Müslüm Baba,
7 Mayıs 1953 tarihinde Urfa’nın Halfeti ilçesinin Fıstıközü köyünde dünyaya gelmiştir. Gerçek adı Ahmet Akbaşdır.
Müslüm Gürses’in çocukluğunun ilk yılları Şanlıurfa’da geçti.
Annesinin acısını kaldıramamışken kardeşini de kara toprağa gömer. Bu durum Gürses’i daha içe dönük, ,kimseyle konuşmayan sadece müzikle ilgilenen biri yapmıştır.
İlkokuldan mezun olduktan sonra eğitim hayatına devam etmeyen Müslüm Gürses; 14 yaşındayken 1968 yılında Adana Aile Çay Bahçesi’nde düzenlenen yarışmaya katılmak istemiş ancak babası Mehmet Akbaş karşı çıkmıştır. Bu konuda taviz vermeyen Müslüm, yarışma için kendisine bit pazarından kıyafet almıştır. Yarışma gecesi, Müslüm uyurken babası saçlarını kesmiştir. Buna rağmen ses yarışmasına katılmasına engel olamamıştır. Katıldığı ses yarışmasında birinci olur. Bu yarışmadan sonra Gürses soyadını almıştır.
Mehmet adındaki arkadaşı, bir gazinonun assolisti olan Sadık Altınmeşe rahatsızlanmasından dolayı onun yerine çıkması için Gürses’e teklifte bulunur. Göstermiş olduğu müthiş performanstan sonra mikrofonu elinden hiç bırakmaz.
Anadolu turnesi sırasında büyük bir kaza geçirir bu kazadan sonra öldü diye morga kaldırılır yanlız son anda yaşadığı anlaşılır ve ameliyata alınır bu ameliyatdan sonra sol kulağının duymaz ve koku alamaz hale gelir.
Geçirdiği kazanın ardından müziği bırakmayan usta sanatçı kaza sonrası çıkardığı “Özür diliyorum senden“, “İsyankar“, “Ben insan Değil miyim” gibi albümlerle çıkışını sürdüren sanatçı, arabesk türünde en çok ilgi gören isimlerden biri oldu.
90 lı yıllarda oldukça popüler olan müslüm baba son yıllarda değişik müzik türlerinde çıkardığı albümlerlede oldukça beğeni kazandı.
2013 kılında müslüm babayı kaybettik.
Müslüm Gürses’in çıkardığı albümler;
Aldatılanlar
Ayrılık Acı Bir Şey
Açık Hava Konserleri 1
Ah Gülüm
Altın Şarkılarım
Anlatamadım
Arkadaş Kurbanıyım, Benim Kaderim
Arkadaşım
Aşk Tesadüfleri Sever
Bakma
Bekle Sevgilim – Nerelerdesin
Benim Meselem
Bir de Benden Dinleyin
Bir Bilebilsen – Zalim
Bir Fırtına Kopacak
Bir Kadeh Daha Ver
Biz Babadan Böyle Gördük
Bizi Kimse Ayıramaz
Canım Dediklerim
Dağlarda Kar Olsaydım
Dertler İnsanı
Dünya Yalan
Düşenin Dostu Olmaz
Esrarlı Gözler
Garipler
Gitme
Gönlünüzdeki Altın Şarkılar
Gönül Teknem
Güldür Yüzümü
Güle Güle Git
Hani Söz Vermiştin
Herşey Yalan
İkimizin Yerine
İsyankar
Kısmetim Kapanmış
Küskünüm
Müslüm Gürses Konseri
Mahsun Kul
Maziden Bir Demet
Meyhaneci – Kırık Sazım
Mutlu Ol Yeter
Müslümce turkuler
Müzik Ziyafeti
Müslümce 92
Nerelerdesin
Öldürdüğün Yetmedi mi
Paramparça
Sadece Türk Sanat Müziği
Senden Vazgeçmem
Sevda Yolu
Sultanım
Talihsizler
Tanrı İstemezse
Topraktan Bedene
Tövbe Etmek – Bir Avuç Gözyaşı
Usta – Ne Yazar
Uyanma Zamanı – Kıyak Bitti
Vay Canım Vay
Vefasız Alem
Yanarım
Yanlış Yaptın
Yaranamadım
Yıkıla Yıkıla
Zavallım
Zincirli Kuyu
ileKraLaz
Admin Nick, İdent ve Host Koruması
Bu koruma ile giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan alternatif bir karaliste addonu.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
### /lamer komutu ile korumayı açabilirsiniz ### mircclub.org alias lamer { /dialog -m start start } dialog start { title "Ident Nick Ekstra Korumaları" size -1 -1 467 274 option pixels box "", 11, 19 13 430 256 text "Güvenlik Giriş Ayarları", 1, 136 3 167 20 edit "", 3, 125 37 186 20, center button "Nick gzline liste ekle", 8, 30 70 190 30, flat button "İdent gzline liste ekle", 4, 30 108 190 30, flat button "Host gzline liste ekle", 5, 30 148 190 30, flat button "Host gzline list'en sil", 2, 240 148 190 30, flat button "İdent gzline list'en sil", 6, 241 108 190 30, flat button "Nick gzline list'en sil", 7, 240 70 190 30, flat button "Kapat", 9, 125 190 192 29, flat text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16 } on 1:dialog:start:*:*: { if ($devent == init) { did -a start 3 $null } if ($devent == sclick) { if ($did == 8 ) { /auser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 9 ) { /dialog -c start start } } if ($devent == sclick) { if ($did == 7 ) { /ruser gzline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi } } if ($devent == sclick) { if ($did == 2 ) { /ruser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi } } if ($devent == sclick) { if ($did == 4 ) { /auser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi } } if ($devent == sclick) { if ($did == 6 ) { /ruser gzline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Listen silindi } } if ($devent == sclick) { if ($did == 5 ) { /auser gzline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi } } } on gzline:join:#:{ gzline $nick : 4,1 Security Korumasi 4 $time - } |
ileKraLaz
IP Takip Sistemi
Addona girdiğiz ipler sunucuya girdiğinde size uyarı verir ve geçici olarak shun atar açılan ekranda istefiğiniz işlemi yapabilirsiniz. Admin ve ircopların işine yarayabilecek bir kod.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
on *:start:{ if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy } if (!$hget(muafn)) { .hmake muafn | .hload muafn muafn.mercy } } alias ips { if !$dialog(ips) { .dialog -ms ips ips } } alias islem { if !$dialog(işlem) { .dialog -ms işlem işlem } } dialog işlem { title "İşlem Merkezi" size -1 -1 109 150 option dbu text " Nick :", 1, 6 6 25 8 edit "", 2, 40 4 65 13, read text " ident :", 3, 6 22 25 8 edit "", 4, 40 20 65 13, read text " iP :", 5, 6 38 25 8 edit "", 6, 40 36 65 13, read text " Şehir :", 7, 4 54 37 8 edit "", 8, 40 52 65 13, read box "", 12, 3 -2 105 69 text "Şuan Bu Kişiye Shun Atıldı", 15, 3 68 102 8, center button "Gline At", 9, 3 79 48 17 button "Shun Kaldır", 10, 55 79 48 17 button "Yardım'a Çek", 11, 3 98 48 17 button "Özel'e Al", 13, 55 98 48 17 button "Bu kişiyi Muaf Nicklere Ekle", 14, 3 117 100 12 box "", 16, 1 74 106 58 button "Kapat", 17, 2 133 104 15, ok } on *:dialog:işlem:init:*: { ;mdx MarkDialog $dname ; mdx SetDialog $dname bgcolor $rgb(237,351,219) ; mdx SetColor $dname 1 textbg $rgb(237,241,219) ;mdx SetColor $dname 1 background $rgb(287,291,219) ;mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 13 900 Verdana ; mdx SetColor $dname 1,2,3,4,5,6,7,8,15 background $rgb(237,241,219) ;mdx SetColor $dname 1,2,3,4,5,6,7,8,15 textbg $rgb(237,241,219) ;mdx SetColor $dname 15l text $rgb(199,92,2) } on *:dialog:işlem:sclick:13: { query $did(2).text } on *:dialog:işlem:sclick:14: { if $hget(muafn,$did(2).text).item { noop $input(Bu Nick Muaf Listede Mevcut,o,Muaf Uyarı) } else { if !$hget(muafn) { .hmake muafn 100 | .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } else { .hadd -m muafn $did(2).text 1 | .hsave muafn muafn.mercy | shun $+(-*@,$did(6).text) | return $input(Nick Muaf Listeye Eklendi ve Shunu Kaldırıldı,o,Muaf Uyarı) } } } dialog ips { title "Sorunlu IP Tespit Merkezi" size -1 -1 159 156 option dbu list 1, 6 13 64 74, size text " IP'ler", 2, 7 5 63 7 text " Muaf Nick'ler", 3, 88 5 64 8 list 4, 88 13 64 74, size edit "", 5, 6 91 64 12, multi autohs button "IP Ekle", 6, 6 107 64 12, flat edit "", 7, 88 91 64 12, multi autohs button "Muaf Nick Ekle", 8, 88 107 64 12, flat button "« « KAPAT » »", 15, 2 139 154 15, flat box "", 16, 2 -1 72 124 box "", 17, 84 -1 72 124 box "", 9, 2 122 154 16 text " Silmek için üstüne Çift tıklayınız", 10, 9 127 125 8 } on *:dialog:ips:*:*: { if $devent == init { mdx MarkDialog $dname mdx SetDialog $dname bgcolor $rgb(237,241,219) mdx SetFont $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 950 Verdana mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 background $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,6,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0) mdx SetColor $dname 9,10,12,13,14,15 background $rgb(237,241,219) mdx SetColor $dname 9,10,12,13,14,15 textbg $rgb(237,241,219) mdx SetFont $dname 2,5,6,7,9,10,11,14 13 950 Verdana mdx SetColor $dname 9,10,15 textbg $rgb(237,241,219) mdx SetFont $dname 9,10,15 13 950 Verdana mdx SetColor $dname 2,3,10l text $rgb(199,92,2) var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips } var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn } } if $devent == sclick { if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) | did -r $dname 5 } } if $did == 8 { if $did(7) { if #* iswm $did(7) || *.* iswm $did(7) { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) | did -r $dname 7 } } if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } } if $did == 12 { if %:nick { .shun $+(-*@,%:ipp) | unset %:nick | unset %:ipp } } if $did == 11 { if %:ipp { gline $+(*@,%:ipp) - Sorunlu | unset %:ipp | unset %:nick } } if $did == 13 { if %:nick { var %:com = 1 | while %:com <= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sorunlu | inc %:com } unset %:nick | unset %:ipp } } if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname } } if $devent == dclick { if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel } if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel } } } on *:dialog:işlem:*:*: { if $devent == init { renklendirici 20 } if $devent == sclick { if $did == 9 { gline $+(*@,$did(6).text) Sorunlu | dialog -c $dname } if $did == 10 { .shun $+(-*@,$did(6).text) | return $input(Shun Kaldırıldı,o,İşlem Merkezi) } if $did == 11 { sajoin $did(2).text #Yardim } } } on *:snotice:*Client connecting on port*:{ if $hget(muafn,$9) { return } .enable #ips | .who +I $9 var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .islem | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | .shun %:nick - Sorunlu | .splay $mircdirsounds\uyar.wav | break } | inc %:ip } } #ips off raw 352:*:{ haltdef var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $4 { if !$dialog(işlem) { .dialog -ms işlem işlem } var %:rand $rand(10,9999999) .sockopen $+(bul,%:rand) anonymouse.org 80 | .sockmark $+(bul,%:rand) $4 .did -a işlem 2 $6 | did -a işlem 4 $3 | did -a işlem 6 $4 | did -a işlem 8 Bekleyin.. break } inc %:ip } .disable #ips } #ips end alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:bul*:{ var %:city sockwrite -n $sockname %:city GET /cgi-bin/anon-www.cgi/http://whatismyipaddress.com/ip/ $+ $sock($sockname).mark HTTP/1.1 %:city Accept: text/html, application/xhtml+xml, */* %:city Accept-Language: tr-TR %:city User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) %:city Host: anonymouse.org %:city DNT: 1 %:city Connection: Keep-Alive %:city $crlf if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Siteye Baglanıldı.. } } on *:sockread:bul*:{ if ($sockerr) { .sockclose $sockname | if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 Hata.. | return } } var %city | sockread %city if (Country: isin %city) { if $token($htmlfree(%city),2,58) != Turkey { if $dialog(işlem) { sockclose $sockname | .did -r işlem 8 | .did -a işlem 8 Yurt Dışı... | return } } } if (City: isin %city) { if $dialog(işlem) { .did -r işlem 8 | .did -a işlem 8 $token($htmlfree(%city),2,58) | sockclose $sockname } } } |
ileKraLaz
Proxy Koruması Socket Sorgulu
Proxy koruması sorgulu sorgu cevaplarını istediğiniz log kanalına yansıtır. %95 civarı başarılı saldırıları büyük çoğunlukla kesmenize yarayabilir faydalı bir kod.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
# Add-on u ekledikten sonra sağ tıklayıp log kanalını ayarlandıktan sonra aktif ediniz. # Muaf port için ilgili satırı çoğaltabilirsiniz. menu * { Proxy Koruması .Aç:/.enable #ProxyKoruma | echo -a Proxy koruması açıldı.. .Kapat:/.disable #ProxyKoruma | echo -a Proxy koruması kapatıldı.. .- .Log Kanalı:.set %proxylogkanali $$?="Örnek #kanal1,#kanal2" } #ProxyKoruma off on *:snotice:*Client connecting*:{ ; alt satır kopyalanarak muaf port eklenebilir if $remove($8,1,33,:) == 7000 { halt } .who +I $token($token($4-,2,58),1,32) } raw 352:*:{ var %:r $+($left($md5($ticks),$r(5,20)),$6) sockopen $+(proxy,%:r) proxy.turkirc.org 80 sockmark $+(proxy,%:r) $+($4,¿,$6) } on *:sockopen:proxy*:{ sockwrite -nt $sockname GET $+(/?ipv4=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* sockwrite -nt $sockname Accept-Language: tr-TR sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) sockwrite -nt $sockname Connection: Keep-Alive sockwrite -nt $sockname $crlf } on *:sockread:proxy*:{ if ($sockerr) { .sockclose $sockname | return } var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy ;msg %proxylogkanali -a %:proxy if $regex($1-,/sonuc red/i) { gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak! /msg %proxylogkanali (4GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy'dir. (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } if $regex($1-,/sonuc green/i) { /msg %proxylogkanali (3GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP Proxy degildir. (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } if $regex($1-,/sonuc orange/i) { /msg %proxylogkanali (7GİRİŞ) $token($sock($sockname).mark,1,191) numaralı IP sorgulanamadı! (Nick: $token($sock($sockname).mark,2,191) $+ ) sockclose $sockname return } } #ProxyKoruma end |
ileKraLaz
Proxy Listesi 30.09.2018
30.09.2018 tarihli güncel ssl proxy listesidir linkden indirebilirsiniz.
ileKraLaz
Socks 5 Proxy List 30.09.2018
30.09.2018 tarihli güncel socks proxy listesi irc sunucularına proxy sokmanıza yarayan socks 5 listesidir.
ileKraLaz
Akill Liste Remotesi Mirc
Mircinizde Sunucu akill listesini döküp düzenleyebileceğiniz güzel bir addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
on ^1:NOTICE:*:*:{ if (*@* iswm $1) && (%akilnotice == on) { write akill.txt $gettok($1,2,64) did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,) } } dialog aklist { title "Akill Listesi - Liste Otomatik Akill Yer" size -1 -1 123 169 option dbu list 1, 2 16 119 104, size edit "", 2, 46 124 57 10, multi autohs text " IP Girin :", 3, 3 125 43 8 button "Ekle", 7, 105 123 16 26 button "KAPAT", 6, 1 152 120 14, ok text "Örnek: 78.161.*", 4, 3 139 98 9 box "", 8, 2 135 101 14 box "", 9, 2 121 42 13 box "", 10, 2 0 119 13 text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8 } on *:dialog:aklist:*:*:{ if $devent == init { ;mdx MarkDialog $dname //set %akilnotice on | .os akill list .timer 1 1 //set %akilnotice off ; mdx MarkDialog $dname ; mdx SetDialog $dname bgcolor $rgb(237,241,219) ; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana ; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219) ; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219) ; mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0) ; mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219) ; mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219) ; mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma ; mdx SetColor $dname 11,4l text $rgb(199,92,2) } if $devent == dclick { if $did == 1 { .os akill del $+(*@, $did(1).seltext,*) did -d $dname 1 $did(1).sel } } if $devent == sclick && $did == 7 { haltdef .os akill add +0 *@ $+ $did(2) $+ * Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2) } if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi } if $devent == close { write -c akill.txt set %akilnotice off } } alias xakil { dialog -m aklist aklist } |
ileKraLaz
Spamfilter Kullanımı Detaylı Anlatım
Spamfilter nedir ? Spamfilter ile nick’leri , yazıları , saldırıları , ipleri dahi , herşeyi kontrol etmemizi sağlayan ve kontrol altına tutmamız için en büyük yarar sağlıyacak bir niteliğe sahip olmasına rağmen çok sık kullanılmamaktadır.
Soru Cevap şeklinde ve kısa anlatım şemasıyla bu metotu sizlere sunayım.
Anlatım:
\ : Bir liste içindeki \ kendinden sonra gelen karakteri önceler (karakter bir özel karakterse onu sıradan bir karakter yapar)
Soru:” Se*lam” yazısını yasaklıyacak olursak bunu : se\*lam olarak ” * ” karakterini garantilemiş oluruz.
Halbu ki , yıldız sembolu aradaki butun herseyı kapsar manasına gelir,düz eklenirse ;
Örnek : se*an < olarak eklediğimizi düşünürsek : Sonuç : serkan > ” rk ” olan kısmı kapsadığından spam olarak algılar ve engeller. bunun için yukardaki ornekte ,
\* katıyoruz ki ; O yıldız sadece yıldız anlamını tasısın diğe garantişlemiş olduk.
Anlatım:
+ : Bir veya daha fazlası ile eşleşme işlecini temsil eder.
Soru : Selllaaamm < yazısını yasaklıcak olursak bunu: sel+a+m+ < bu işlemi yapmamız yeterli olacaktır.
burda denilen şudur ki ; ( + ) artı , neyin önüne geliyorsa , çoğaltıcı sıfatını taşır lakin, ” KARAKTER” vazfı bu çoğaltıcı manasında taşımaz ( değişkenlik gösterir )
Anlatım:
? : İse sıfır veya daha fazlası ile eşleşme işlecini temsil eder.
Soru : Facebook < yazısını veya facebok yazısını yasaklamak istesek yapılcak işlem nedir ?
Cevab : Faceboo?k < olarak almamız , ” o ” harfi 2 sefer yazılsada 1 sefer yazılsada yasaklasın manasını taşır.Yani : ” ? ”(soru işareti ) önündekinin Olsada olur\Olmasada olur sıfatını taşıyor da diye biliriz.Lakin;”KARAKTER” vazfı bu manasında taşımaz(değişkenlik gösterir)
Anlatım:
^ : Satırın başlangıç noktasını temsil ederi
Soru : Selam < yazısını cümle selam ile başlıyorsa yasaklasın ama cümle ortasında yazılıyorsa yasaklamasın nedir diğe sorsak?
cevap : ^Selam < olarak almamız yeterli olacaktır. yani diyoruz ki Cümle O kelime ile başlasın.Başlangıcı o olcak manasını taşır.
Örnek : serkan selam nbr ? < diye yazılsa yasaklamaz , cünkü cümle bası ”selam” ile başlamamıştır.
Örnek2: selam serkan nbr? < diye yazıldığında spama takılır ve o yazı çıkmaz.
Anlatım:
$ : Satır sonu noktasını temsil eder.
Soru: Selam < yazısını cümlede ifade edecek olursak yine şayet ve desek ki , cümlenin sonunda selam yazarsa yakalasın , basında ve ortasında yakalamasın diye sorarsak?
cevap: selam$ örnek : selam serkan nbr ? < yakalamaz.
örnek2: serkan selam nbr? < yakalamaz.
örnek3: serkan selam < yakalar.
Misalleme : ^ ve $ bir arada kullanmak istersek şayet: cümlede veya aralarda kullanılmasın sadece ” tekil ” yazılırsa yasaklasın dıyorsak ne yapmalıyız.?
Cevab : ^selam$ < almamız yeterli olacaktır.
örnek: selam serkan nbr < takılmaz.
örnek2: serkan selam nbr? < takılmaz
örnek3: selam < takılır. Anlatım: { : Aralık başlatma işlecini temsil eder. } : Aralık sonlandırma işlecini temsil eder. (bunların 2 sını bır arada kullanmak zorundayızdır,kullanmaz isek , spamfilter bizi regex hatası ile uyarır) Soru: Naaaabbbbeeerrr > naber , naaabberr , yazılsada yasaklasın istiyorsak ?
cevab:N{1,}a{1,}b{1,}e{1,}r{1,} : dememiz yeterli olacaktır. ayrıyetten. ” + ” ( artı ) sembolü ile eş değerdir.Çoğaltıcı sıfatını taşır.
Not : Sınırlandırmak içinde kullanılır.
Örnek : Selllma < yazısında , selma takılmasın ama ” L ” harfi 3 kere kullanılırsa takılsın istiyorsak?
Cevap : sel{3}ma < almamız yeterli olacaktır.
Anlatım:
| : Veya işlecini temsil eder.
Alt satırda örneği mevcudtur. Kısacası,devir,pas anlamını taşır.
Anlatım:
( : Grup başlatma işlecini temsil eder.
) : Grup sonlandırma işlecini temsil eder.
(bunların 2 sını bır arada kullanmak zorundayızdır,kullanmaz isek , spamfilter bizi regex hatası ile uyarır)
Soru: cümle icerisinde veya satırlar arasında ” sus , kes , mal , salak , deli ” ıfadeleri geciyorsa yasaklasın istiyorsak ?
Cevap : (salak|kes|mal|deli|sus) olarak eklememiz yeterli olacaktır.
Bunu daha kapsamlı hale veya cümle basında bu yazılar yazılsın ıstıyorsak:
Cevap: ^(salak|kes|mal|deli|sus)
veya Cümle sonunda yazılırsa yasaklasın istiyorsak :
Cevap: (salak|kes|mal|deli|sus)$
Veya Tekil olarak kelime algılasın istiyorsak;
Cevap : ^(salak|kes|mal|deli|sus)$
Syntax anlatımı:
Anlatım:
\< : Bir sözcüğün başındaki boş dizge ile eşleşir. \> : Bir sözcüğün sonundaki boş dizge ile eşleşir.
\w : Bir sözcüğün öğesi olan herhangi bir karakter ile eşleşir.
\W : Bir sözcüğün öğesi olmayan herhangi bir karakter ile eşleşir.
\` : Bir tampon işlecidir. Tamponun başlangıcındaki boş dizge ile eşleşir.
\’ : Bir tampon işlecidir. Tamponun sonundaki boş dizge ile eşleşir.
\` : Bir tampon işlecidir. Tamponun başlangıcındaki boş dizge ile eşleşir.
\’ : Bir tampon işlecidir. Tamponun sonundaki boş dizge ile eşleşir.
\s : Herhangi bir boşluk var anlamındadır.
\S : Herhangi bir boşluk yok anlamındadır.
\d : Herhangi bir sayı var anlamındadır.
\D : Herhangi bir sayı yok anlamındadır.
[ifade] : Liste işlecidir. Öğreğin [aCme] ifadesi a veya C veya m veya e ile eşleşir.
[^ifade]: Liste işlecidir. Öğreğin [^aCme] ifadesi a veya C veya m veya e hariç herhangi
\b : Bir sözcüğün başındaki ya da sonundaki boş dizge ile eşleşir
Örneğin : \baCme\b
\B : Bir sözcüğün içindeki boş dizge ile eşleşir.
Örneğin : \BaCme\Be ifadesi tHeaCme1 ile eşleşir fakat tHe aCme ile eşleşmez
Şimdi en baştaki örnekler vererek anlatalım.Syntax’ları.
\w ile \s ‘yi birleştirdiğimizde: (\w\s\w\s){2}
Burda bizde anlatılan sudur: karakter veya harf ardından boşluk tekrardan karakter ve harf ardından boluk varsa yakalasın
örnek : selam takılmaz.
Örnek2: s e l a m < takılır.
\d ile \s yi birleştirdiğimizde : (\d\s\d\s){2}
Burda bizde anlatılan sudur: rakam ve boşluk 2 kez ard arda yazıldığında yasaklasın.
örnek: 12345678 takılmaz.
örnek2: 1 2 3 4 5 < takılır.
\d ile \S yi birleştirdiğimizde: (\d\S\d\S){2}
burda bizde anlatılan sudur: rakam boşluk yok rakam ile devam etmesi gerekir.
örnek: 1 2 3 4 5 6 < takılmaz
örnek2: 12345 < takılır
\W ile \d yi birleştirdiğimizde: (\W\d\W\d){2}
burda bizde anlatılan sudur: karakter rakam 2 kez tekrarlandığında yakalasın.
örnek: numaram 0535555555 ararsın < takılmaz.
örnek2: numaram 0 5 3 555 55 55 ararsın < takılmaz.
örnek3: numaram 0+5+3+5/5/5/55-55 ararsın < takılır. Cünki rakam ve karakter ” 2 ” den fazla kullanılmıştır. Ve bir başka bakış acısı : [:alnum:]->>[0-9a-zA-Z]
[:alpla:]->>[a-zA-Z]
[:ascii:]->>[x01-x7F]
[:blank:]->>[ t]
[:cntrl:]->>[x01-x1F]
[:digit:]->>[0-9]
[:graph:]->>[^x01-x20]
[:lower:]->>[a-z]
[:print:]->>[tx20-xFF]
[:punct:]->>[-!”#$%&'( )*+,./:;<=>?@[]^_`{|}~]
[:space:]->>[nrt x0B]
[:upper:]->>[A-Z]
Bize burda kaşılığını anlıyacağınız şekilde kısa yol metotunu arz etmiş bulunmaktayım.
örnek: harf ler arasında karakter gecıyorsa yasaklasın.
cevap: [:alpla:]{1,}[:punct:]{1,}[:alpla:]{1,}[:punct:]{1,}
veya
cevap2: [A-Za-z]{1,}[:punct:]{1,}[A-Za-z]{1,}[:punct:]{1,}
Burda kısacası en bastaki düz mantık ile açıklıcak olursak:
örnek: selam nbr < takılmaz.
örnek2: s-e(l)+a-m nbr < takılır.
örnek: harfler arasında rakam gecıyorsa yasaklasın.
cevab: [A-Za-z]{1,}[0-9]{1,}[A-Za-z]{1,}[0-9]{1,}
Burda kısacası bastakı düz mantık ile açıklıcak olursak:
örnek: selam 555 555 55 55 ekle < takılmaz.
örnek2: selam 5a5a5 5a5a5 5a5 5a5 < takılır.
Not: ‘a ‘dan z’ye’ kadar her harfı kapsar.
Şimdi : Genel mantık anlatımını kavradığımızı düşünerekten,sizlere bi sınıf daha yukarı çıkması acısından örnekler sunayım.Bu anlatımın ve sembol sisteminin hepsini bir araya toplicak olursak.
örnek: ([0QO])?(be[şŞs]|5)\s?y[uü]z
Burda bizim istediğimiz sudur.Açılımı.
() grup basını acıp kapatmısız ve sonuna ” ? ” koymusuz. bu soru işaretimiz neydi. olsada olur olmasada olur manasını taşır. grub’ta bir butun olduğu için : o grubu olasada olur olmasada olur diğerek satıra başlamısız.
Sonra ; bir grub acarak yine demişiz ki peşinden , ” BEŞ veya 5(rakam)” yazılırsa onun peşine ” \s ” ne anlama geliyordu ( boşluk ) sonuna ne katmısız ” ? ” işareti yanı boşluk olsada olur olmasada olur diğerekten yüz ( u harfi veya ü harfi ) kullanıla bilir. harlerını devamı kılmısız bu bizi neyi anlatmatadır.
Örnek: cep telefonum sıfır 5yüz ellibeş ….. < yakalar.
örnek2: sıfırbeşyüzellibeş …. < yakalar.
örnek3: beş yüz elli < yakalar.
örnek4: sıfır5 yüz elli beş < yakalar. vb….
örnek5: 0beşyüz < yakalar veya Q5yüz < yakalar.vb….
;—-
Örnek : (^|\s)(Q|O|0)?(\s|\W)?(5|b\s?[e€£3e]\s?[şŞs$])(\s|\W)?[4350]\d.?
Şimdi burda anlatılmak istenen nedir.
^ < satır başı demekti.
\s < boşluk demekti değil mi ?
Ne yapmışız. ” | ” işereti ile pas kullanıp satır bası veya satır basından sonra boşluk varsa yakalasın diğerek spam’ı oluşturmusuz.
Nedemisiz : baştan başlıcak olursak:
Sıfır veya Q veya O harflerinden biri varsa sonrasında boşluk ” \s veya \W(karakter) varsa sonrasında , 5(rakam) veya beş < yazısı varsa devamında , 4 veya 3 veya 5 veya 0 bunlardan her hangi biri yazıyor ise sonrasında ” \d ” ( rakam ) manasını taşırdı , rakamla devam edıyorsa yakalasın istemişiz yani.
örnek : selam numaram 0beş35 555 … < yakalar
örnek2: 0535 55 55 55 < yakalar.
örnek3: 5-5-5 5/5/5 5*5* < yakalar
örnek4: numaram bu ekle 5-5-5 5/5/5 5*5* < yakalar
;—
Örnek: ^([A-Za-z]{1,}|[[:punct:]]{1,})?\d{1}([A-Za-z]{1,}|[[:punct:]]{1,})?$
Burda istenılen , nedir? satır basından anlatayım.
^ < işareti kullnaraktan satır (cümle veya kelime ) ile başlamak sartındasın.
( < ile grub’u acarak demisiz ki ” a’dan z’ye yazılan herhangı bir harf veya ” | ” ile pas kullnarak , karakter ola bilir vazfını vermisiz ve ) < kullnarak gurubu kapatmısız.
Anlatılan kısım : ^([A-Za-z]{1,}|[[:punct:]]{1,})?
Devamı:
\d{1} < rakam kullanılsın ve adeti bir adet olsun demişiz.
Sonrasında , Yine yukarda ki satırın aynısını yapmısız. ve ” $ ” ile sonlandırmısız.
özeti ve kapsama alanı sudur:
örnek:
..5 < yakalar.
a5 < yakalar.
&3 < takalar.
..5.. < yakalar.
a5.. < yakalar.
&3… < takalar.
5a < yakalar.
5.. < yakalar.
3- < takalar.
yani kısacası bizim burda dediğimiz kısım:
karakter veya harf içerisinde , başında veya sonunda., tek rakam varsa alt alta yazıldığında yakalasın istemişiz.
Not : Bu ve bunlardan daha farklı binlerce çeşit örnekler verebilir , çoğalta bilir , değiştire biliriz.Lakin sıfırdan öğrenim acısından metotun en kolay şekilde sizlere arz etmeye çalıştım.
veya bunun daha prof bir şekilde yazılacağı gibi ve html şeklinde de yazılacağını gibi.onlarıda bu başlık altından takip ede bilirsiniz. zaman zaman paylaşacağım.
Soru ve isteklerinizide yorum yazabilirsiniz.
ileKraLaz
Random Nick Koruması Spamfilter
Random nick ve identlere karşı spam olarak alabileceğiniz güzel bir koruma, nickleirn sunucuya girmesini engelleyerek statusde ban yemelerine sebeb olur.
|
1 |
/spamfilter add u gzline - Random_Nick (?-i)^(.+![a-z]{3,7}@.+:[a-z]{3,7})$ |
Nick ve identinde 3 ile 7 arası sessiz yanyana harf bulunan kullanıcıların ban yemesine sebeb olur.