Merhaba. Oper Admin ve Helperler için kullanması zorunlu olan kodlardan birisi haline gelen remotelerden birisi olan amsg ve ame muaf kodunu sizinle paylaşacağım. Kodun kullanımı oldukça kolay. Öncelikle aşağıda vereceğim kodları mircinizin remote kısmına...
Youtube link analiz botu Çalışma şekli !kim youtubelinki örnek: !kim youtube.be/watch?v=PUiNB0UFwJM
|
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 |
## KraLaz ## on *:text:!kim &:#: { ;msg # calisti döngü noop $regex($2,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si) if $read(songrequest.txt,nw,$+(*,$2)) { ; msg # $gettok($v1,2-,32) << 4,40 Youtube Link Dedektör : } elseif !$regml(2) { msg # $nick --> url } else { youtube $2 $chan $nick } } alias -l sockopenmark { sockopen -e $1-3 | sockmark $1 $4- } alias -l youtube { noop $regex($1,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si) sockopenmark $+(yt.,$calc($ticks + $rand(1,99))) www.youtube.com 443 $regml(2) msg $2- } on *:sockopen:yt.*:{ tokenize 32 $sock($sockname).mark sockwrite -n $sockname GET /watch?v= $+ $1 HTTP/1.0 sockwrite -n $sockname HOST: www.youtube.com $+ $str($crlf,2) } on *:sockread:yt.*:{ tokenize 32 $sock($sockname).mark var %v | sockread %v if ($regex(%v,/"name" content="(.+)"/)) { var %song $replace($regml(1),&amp;,$chr(38),&#39;,$chr(39),',$chr(39),&quot;,$chr(34),",$chr(34),&,$chr(38)) $5- $2-3 4,40 Youtube 12Linki Verilen Parça : 1 %song write songrequest.txt $4 $+ : %song $+ : sockclose $sockname } elseif *</html> iswm %v { $2-3 The Song ( https://www.youtube.com/watch?v= $+ $1 ) is not exists. } } |
Kodu mircinizin remote kısmına eklemeniz yeterli olacaktır. Bot komutları .burç – .burc – !burç- !burc bu komutların hepsinde çalışır. örnek: !burç kova
|
1 2 3 4 5 6 7 8 |
alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?:ko[Ççc]|bo[gğĞ]a|[İiı]k[İiı]zler|yenge[cÇç]|aslan|ba[Şşs]ak|teraz[İıi]|akrep|yay|o[Ğğg]lak|kova|bal[iİı]k)$/Si } else { set -e %brc $replace($lower($1),ç,c,ğ,g,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 var %rd $r(111,999999) | sockopen $+(burc,%rd) www.saglikveguzellik.net 80 | sockmark $+(burc,%rd) %brc } } on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf on *:sockread:burc*:var %a | sockread %a | if $regex(%a,/(?:<p>.+(<\/p><p>)?<\/p>\z)/) { tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) | msg %k_ 2 $* } ;on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } } on $*:text:$($fltr):#:fltr $2 # |
Merhaba arkadaşlar. Bu yazımızda sunucu güvenliğinin sağlanması için oldukça gerekli olan Proxy Koruması hakkında bilgiler vereceğim. Öncelikle bilmenizi isterimki vereceğim kod sizin ekleyeceğiniz proxy.txt dosyasından ip adreslerini okuyarak sunucuya girişleri kontrol edip ona göre...
Ip den şehir bulma remotesi ( .Who Nick ) Merhaba bügün sizlere Ip den şehir bulma remotesi ( .Who Nick ) hakkında yardım edeceğim. Aşağıdaki kodu mircinizin remote kısmına ekliyorsunuz. Alt +R şeklinde remote satırını...
Helper Admin F Tuşu Kısayolları mirc alias kısmına ekleyiniz.
|
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 |
### Gün durumlu helper kısayolları ve diğer f tuşu kısayol ayarları by KraLaz ## gundurumu { %durum = $gettok($time,1,58) if $istok(22 23 24 00 01 02 03 04,%durum,32) { return İyi Geceler } if $istok(05 06 07 08 09 10 11,%durum,32) { return Günaydın } if $istok(12 13 14 15 16 17 18,%durum,32) { return İyi Günler } if $istok(19 20 21,%durum,32) { return İyi Akşamlar } } - F1 /mode # +v $$1 | /msg # $gundurumu $$1 $+ , size nasıl yardımcı olabilirim? F2 /say $$1 , yardımcı olabileceğim başka sorunuz varmıdır? F3 /say $$1 , Kanalda bekleme yapmak yasaktır. | mode # -v $$1 F4 /mode # +b $$1 | /kick # $$1 5 # Kanalı kurallarına uymadığınız gerekçesiyle kanaldan uzaklaştırıldınız. 4 $me F5 /say $$1 , Bu konuda 4#operhelp kanalından yardım alabilirsiniz. #Help kanalında bu konuda yardım verilmemektedir. F6 /chanserv akick # add $$1 $+ !*@* Akick yasak tekrarı.. | /kick # $1 5Yasak tekrarı sebebiyle Akick Listesine Alındınız. F7 /join #$$?="Kanalın adı?" F8 /oper $me $$?="Oper Sifreniz" f9 /ignore $$1 | msg $$1 12Sizi engelledim artık bana yazamassınız yazdıklarını görmeyeceğim. | /close -m $$1 | echo -a 4 $$1 5 Nicki engellendi artık size yazamaz. f10 /zline $$1 Kurallara uymadığınız tespit edildi. f11 /mode # -M | /mode # -R | /msg # 3Güvenli Mod devre dışı bırakıldı. f12 /mode # +M | /mode # +R | /msg # 4Agresif bağlantı tespit edildi kanal güvenli moda alındı. |
Kick Ban Koruma Remotesi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
## Kick Ban koruması by KraLaz ## on *:ban:#: { if $banmask iswm $address($me,5) { echo -as 4,1<15,1 # 4,1> kanalinda $+ $nick $+ sizi banladi: $+ $banmask $+ ) if $yetki(#) { mode # -b $banmask } } } on *:kick:#: { if $knick == $me && $nick != $me { .msg # Ban otomatik açılıyor. .cs unban # $me .timer 1 2 join # } } |
Özelde ve Kanalda Seslenme Remotesi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
### Kanalda ve özelde size seslenenleri bildirme by KraLaz ### on *:Text:$(* $+ $me $+ *):?:{ if ($active == $nick) { goto son } echo -a 4|||||| *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+ özelinde senden bahsediyor : " $1- " :son } on *:Text:$(* $+ $me $+ *):#:{ if ($active == $chan) { goto end } echo -a 4|||| *** 12 ( $+ $time(hh:nn) $+ ) 1 $+ $nick $+ $chan kanalında senden bahsediyor : " $1- " :end } |
Otomatik Oper ve Nick Şifresi Remotesi
|
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 |
#sifre on ;on *:notice:*Nickserv*IDENTIFY*:*: { if ($nick == Nickserv) .dialog -m sifre sifre } ;on *:notice:*Kayıt*nick*:*: { if ($nick == Nickserv) .dialog -m sifre sifre } #sifre end alias sifre { .dialog -m sifre sifre } dialog sifre { title "Otomatik Oper Sifre" size -1 -1 130 130 option dbu box $me Kayitli bir Nicktir., 2, 4 2 122 50 text " Sifre Gir: ", 3, 10 12 50 10 text " Nick Degistir:", 4, 10 24 50 10 edit "", 5, 70 12 50 10, pass autohs edit "", 6, 70 24 50 10, autohs button "Uygula", 8, 10 38 110 10, ok box "", 9, 4 54 122 60 check "Oto Nick Identify Aç Kapat", 10, 10 60 110 8 text " Şifre Gir;", 11, 10 70 50 10 edit "", 12, 70 70 50 10, pass autohs check "Oto Oper nick Oper Pass Aç Kapat", 13, 10 82 110 8 text " Oper Nick Gir;", 14, 10 92 50 8 text " Oper Pass Gir;", 15, 70 92 50 8 edit "", 16, 10 102 50 10, flat edit "", 17, 70 102 50 10, pass autohs button "Tamam", 18, 10 117 110 10, cancel } on 1:dialog:sifre:sclick:*: { if ($did(10).state == 1) { .enable #otonick | .disable #sifre } | else { .disable #otonick | .enable #sifre } if ($did(13).state == 1) { .enable #operpasta } | else { .disable #operpasta } if ($did == 8) { if ($null != $did(6)) .nick $did(6) | .ns identify $did(5) else { .ns identify $did(5) } } } on 1:dialog:sifre:*:*:{ if ($devent == edit) { if ($did == 12) { set %oto-nick-sifre $did(12) } if ($did == 16) { set %oper-nick $did(16) } if ($did == 17) { set %oper-pass $did(17) } } if ($devent == init) { idset if ($group(#otonick) == on) { did -c sifre 10 } if ($group(#operpasta) == on) { did -c sifre 13 } did -ra $dname 12 %oto-nick-sifre did -ra $dname 16 %oper-nick did -ra $dname 17 %oper-pass } } #otonick off on *:notice:*:*:{ if ($nick == NickServ) { if (*Nickserv*IDENTIFY* iswm $1-) { .dialog -m sifre sifre .ns identify %oto-nick-sifre } if (*Sifre*kabul*edildi* iswm $1-) { echo -a 14,14l15,1 $me Şifreniz Kabul Edildi.14,14l %logo .dialog -x sifre sifre .halt } } } #otonick end #operpasta off on *:connect:{ .oper %oper-nick %oper-pass } |
mIRC Raw kodları mircinizin remote kısmına ekleyebilirsiniz.
|
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 |
### Kanala Giriş Rawları - KraLaz ### on *^:Join:#:{ if ($nick == $me) { echo $chan 4 $+ # 14Kanalına Girdiniz.. | halt } } raw 332:* { echo $2 4Kanal Mesaj: $+ $3- $+ halt } raw 333:* { echo $2 4Kanal Kuruluş Tarihi:14 $asctime($4) echo $2 4Topic Kurucusu:14 $3 halt } raw 366:*: { echo $2 4Kanalda Op:14 $opnick($2,0) 4Voice:14 $vnick($2,0) 4Toplam:14 $nick($2,0) kişi bulunuyor. | echo -a 14 $str(¯,106) | halt } halt }} ### Nick whois rawları ### raw 301:*: { haltdef echo -a Durumum :12 ( $+ $3- $+ ) } raw 307:*: { haltdef echo -a 15»14»1» Kayıt Durumu: Bu Nick Kayıtlı ve İdentify Edilmiştir. } raw 310:*: { haltdef echo -a 15»14»1» 4Sunucu Yardım Görevlisi (IRCd Helper) } raw 311:*:{ haltdef echo -a _____________________________________________ echo -a $str($chr(160),10) 4Whois Başlangıcı echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ echo -a 15»14»1» Nick :4 $2 echo -a 15»14»1» FullName: $6- echo -a 15»14»1» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4 } raw 312:*:{ haltdef echo -a 15»14»1» Bağlı Olduğu Server: $3 } raw 313:*: { haltdef echo -a 15»14»1» 4Network Özelliği: $5 $6 $7 $8 $9 } raw 314:*:{ haltdef echo -a _____________________________________________ echo -a $str($chr(160),10) 4Whois Başlangıcı echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ echo -a 15»14»1» Nick: $2 echo -a 15»14»1» FullName: $6- echo -a 15»14»1» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4 } raw 317:*:{ haltdef %idle = $replace($duration($3),secs,saniye,sec,saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta) %baglanis = $replace($replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık),Cumarttesi,Cumartesi) echo -a 15»14»1» Bağlandığı Zaman: %baglanis echo -a 15»14»1» Boş Olduğu Süre: %idle echo -a 15»14»1» Bağlandıktan Sonra Geçen Süre: $duration($calc($ctime - $4)) } raw 318:*:{ haltdef echo -a ____________________________________________ echo -a $str($chr(160),10) 4Whois Bitişi echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ } raw 319:*:{ haltdef echo -a 15»14»1» Kanalları: $3- } raw 338:*:{ haltdef echo -a 15»14»1» Gerçek İp Adresi: $4 $5 $6 echo -a 15»14»1» Gerçek İp: $4 $5 $6 } raw 320:*:{ haltdef echo -a 15»14»1» LOGIN ID: $5- } raw 378:*:{ haltdef echo -a 15»14»1» Gerçek Ip Adresi: $6 $7 } raw 379:*:{ haltdef echo -a 15»14»1» Nick modeleri: $6- } raw 671:*:{ haltdef echo -a 15»14»1» Bağlantı: $3- } ### Notice ve servis raporları bildirimleri ### on ^*:SNOTICE:*: { echo -s $+ $colour(notice) $+ 4,1<15,1 $server 4,1> $+ $colour(notice) $1- haltdef } on ^*:NOTICE:*:?: { echo -a 4,1<15,1 $nick 4,1> $+ $colour(notice) $1- | haltdef } |
Son Yorumlar