mIRC ident yasaklama icin alias

/spamfilter add u gzline – 4,0Nick (?-i).+! $+ $$?=\\"Girmesini istemediginiz identi Yaziniz?:\\"$+@.+

mIRC Giris cikis Yapana Whois

Kanal Giren\\\’e ve kanaldan cikan\\\’a Otomatik Whois ceker ve Sag Tarafta @whois Window\\\’unda Gosterir Elle cekilen WhoisLeride @Whois Penceresinde Gösterir.

Kod;

Kod:
on 1:Part:#: { /whois $nick | .echo -a 2,15 Whois Çekimi ßa?ar?L?… 10 Yandaki @Whois Penceresine ßaq?n?z… }
on 1:join:#: { /whois $nick | .echo -a 2,15 Whois Çekimi ßa?ar?L?… 10 Yandaki @Whois Penceresine ßaq?n?z… }

;Whois RawLar?
raw 301:*: {
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Away Durumu:10 ( $+ $3- $+ )
}
raw 307:*: {
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Kay?t Durumu:10 Bu Nick Kay?tl? ve ?dentify Edilmi?tir.
}
raw 310:*: {
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6ÖzeLLikLeri: 10IRC HeLper
}
raw 311:*:{
haltdef
window @Whois | echo @Whois 6************************* |10 Whois Bilgileri 6| *************************
window @Whois | echo @Whois 4® 1»14»15» 6Nick:10 $2
window @Whois | echo @Whois 4® 1»14»15» 6FuLLName:10 $6-
window @Whois | echo @Whois 4® 1»14»15» 6?p Adresi:10 $3 $+ 4 $+ @ $+ 10 $+ $4
}
raw 312:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Ba?L? OLdu?u Server:10 $3 $4 $5- | halt
}
raw 313:*: {
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Network ÖzeLLi?i:10 $5 $6 $7 $8 $9
}
raw 314:*:{
haltdef
window @Whois | echo @Whois 6************************* |10 Whois Sonu 6| *************************
window @Whois | echo @Whois 4® 1»14»15» 6Nick:10 $2
window @Whois | echo @Whois 4® 1»14»15» 6FullName:10 $6-
window @Whois | echo @Whois 4® 1»14»15» 14Ip Adresi:10 $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($asctime($4),mon,Pazartesi,tue,Sal?,wed,Ç ar?amba,thu,Per?embe,fri,Cuma,sat,Cumartesi,sun,Pa zar,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)
window @Whois | echo @Whois 4® 1»14»15» 6Ba?land??? Zaman:10 %baglanis
window @Whois | echo @Whois 4® 1»14»15» 6Bo? Oldu?u Süre:10 %idle
window @Whois | echo @Whois 4® 1»14»15» 6Ba?land?ktan Sonra Geçen Süre:10 $duration($calc($ctime – $4))
}
raw 318:*:{
haltdef
window @Whois | echo @Whois 6************************* |10 Whois Sonu 6| *************************
}
raw 319:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6KanaLLar?:10 $3-
}
raw 338:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Gerçek ?p Adresi:10 $6
window @Whois | echo @Whois 4® 1»14»15» 6Gerçek ?p:10 $4
}
raw 320:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Swhois:10 $4-
}
raw 378:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Gerçek Ip Adresi:10 $6
}
raw 379:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Nick modeLeri:10 $6-
}
raw 671:*:{
haltdef
window @Whois | echo @Whois 4® 1»14»15» 6Ba?Lant?:10 $3-
}

mIRC Kombinasyonel Sistem.

Yazmis Oldu?umuz Bu Hazir Kod Sayesinde X Sayisinin Hangi Sayilara Tam Olarak Bolunebildigini Gormenize Yaricak Kombinasyonel Sistemdir.

Kod;

//echo -a $kombinasyon(Say?).prop

Kullanabilce?iniz 2 Prop. Var
Bunlar ; S?rala ve Grupla

Diz & S?rala ayn? i?levde kullan?ld?.

//echo -a $kombinasyon(16).Diz

Yazd???mda ; 1 16 2 8 4 4 8 2

Yani 16 Say?s?na tam bölünebilen say?lar? verdi.

//echo -a $kombinasyon(16).grupla

Dedi?imde ; (1,16) (2,8) (4,4)

16 \\\’ya Bölünebilen Say?lar? grupla***** verdi.

PHP- Kodu:
alias kombinasyon {
if $1 == $null {
echo -a Hatal? Kullan?m!
}
if ($isid) {
var %kombinasyon 0 | var %kombinasyon1
while (%kombinasyon < $calc($1 / 2)) {
inc %kombinasyon
if ( . !isin $calc($1 / %kombinasyon %kombinasyon-)) {
if (($prop == s?rala) || ($prop == diz)) $iif(%kombinasyon1 isin %kombinasyon2,,set %kombinasyon2 %kombinasyon2 %kombinasyon $calc($1 / %kombinasyon))
elseif ($prop == grupla) $iif(%kombinasyon isin %kombinasyon2,,set %kombinasyon2 %kombinasyon2 ( $+ %kombinasyon $+ , $+ $calc($1 / %kombinasyon) $+ ))
}
}
if ($prop = diz) set %kombinasyon1 $numtok(%kombinasyon1,32)
var %kombinasyon- %kombinasyon2 | unset %kombinasyon2
return %kombinasyon-
}
}

mIRC uzerinden ( Domain ) SorguLama

Kod:
alias ipwhois {
if ($1 == $null) {
set %temp.ad $?=\\"Enter Address: \\"
sockopen wip $+ $r(1,10000) completewhois.com 80
}
if ($1 != $null) {
set %temp.ad $1
sockopen wip $+ $r(1,10000) completewhois.com 80
}
}
on 1:sockopen:wip*: {
sockwrite -n $sockname POST /cgi-bin/whois.cgi?query= $+ %temp.ad HTTP/1.1
sockwrite -n $sockname Host: $sock($sockname).ip $+ $str($crlf ,2)
}
on 1:sockread:wip*:{
window -e @Whois
aline @Whois Getting Info… done.
if ($sockerr > 0) return
:nextread
sockread %temp
if ($sockbr == 0) return
if (%temp == $null) %temp = -
if ($nohtml(%temp) != $null) {
aline @Whois $nohtml(%temp)
goto nextread
sockclose wip*
}
}
on 1:sockopen:wh*: {
sockwrite -n $sockname GET /whois.cgi2?d= $+ %temp.ho HTTP/1.1
sockwrite -n $sockname Host: whois.net $+ $str($crlf ,2)
}
on 1:sockread:wh*:{
if (%whoisrdy == 1) {
if (15f9 isin %temp) {
set %whoisrdy 0
}
window -e @Whois
sockread %temp
if ($nohtml(%temp) != $Null) {
aline @Whois  $+ $nohtml(%temp)
.timerss 1 3 /sockclose wh*
}
}
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}

mIRC Ayarlanabilir kufur, reklam koruma

Kod:
menu channel,status,menubar {
® KüFüR KoRuMa
.GösTeR:.dialog -m king king
.Aç:.enable #real | .enable #real2 | echo -a 9,1Korumalar Aktif Edildi Lütfen Ban Ayarlar?n?z Kontrol Edinizzz!!!…
.Kapat:.disable #real | .disable #real2 | echo -a 8,1 Korumalar ?uanda Pasif Konumda….
}
dialog king {
title \\" . . . . . : : : : : Küfür Koruma : : : : : . . . . \\"
size -1 -1 190 208
option dbu
button \\"EKLE\\", 2, 82 8 19 9
button \\"SiL\\", 3, 105 8 19 9
edit \\"\\", 4, 4 167 184 10, autohs
button \\"< < KAYDET / ÇIK > >\\", 5, 52 183 77 22, ok
box \\"BiLGi ALANI << BY: ReaL_KinG >>\\", 7, 81 103 106 61
radio \\"SADECE BAN\\", 6, 82 33 48 10, push
radio \\"KONU?AMASIN\\", 8, 134 47 48 10, push
radio \\"KiCK + BAN\\", 9, 82 47 48 10, push
radio \\"SADECE KiCK\\", 10, 134 33 48 10, push
edit \\"\\", 11, 99 89 53 10, autohs
check \\"Ban Süresini Belirlemek ?stiyorum\\", 12, 82 66 103 10
text \\"BAN SÜRES? SN.\\", 13, 99 79 52 8, center
edit \\"\\", 1, 5 8 72 10 , autohs
list 14, 5 19 73 146, size
text \\"\\", 16, 82 111 103 52
}
on 1:dialog:king:*:*:{
if ($devent == sclick) {
if ($did == 2) {
var %ekle $did(1).text
if (%ekle == $null) { halt $input(Eklemek ?çin Bir?eyler Yazmal?s?n,owud,HATA) }
elseif $read(küfür.txt,w,%ekle) { halt $input(Ekelemek ?stedi?iniz Kelime Listede Mevcut,oiud,B?LG?) }
else { write küfür.txt %ekle | did -a $dname 14 $did(1).text | did -r $dname 1 $did(1).text | did -a $dname 16 Kelime Ba?ar? ile Eklendi }
}
if ($did == 3) {
if ($did(14).sel == 0) { halt $input(Seçim Yapmadan Silenide ?lk Kez Görüyorum,owud,HATA) }
else { write -dl $+ $did(14).sel küfür.txt | did -d $dname 14 $did(14).sel }
}
if ($did == 6) {
if ($did(6).state == 1) { set %ban sadeban | set %bantip ban -u | .enable #real | .disable #real2 }
}
if ($did == {
if ($did(8).state == 1) { set %ban konu?ma | .enable #real2 | .disable #real | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullan?rsan?z Süre Kullanamazs?n?z!!,oiud,BiLGi) }
}
if ($did == 9) {
if ($did(9).state == 1) { set %ban kickban | set %de?er kick | .enable #real | .disable #real2 }
}
if ($did == 10) {
if ($did(10).state == 1) { set %ban kick | unset %bantip .enable #real | .disable #real2 | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullan?rsan?z Süre Kullanamazs?n?z!!,oiud,BiLGi) }
}
if ($did == 12) {
if ($did(12).state == 1) { set %süre aç?k | did -e $dname 11 }
if ($did(12).state == 0) { set %süre kapal? | did -b $dname 11 }
}
if ($did == 5) {
if ($did(4) == $null) { halt $input(Kick Mesaj? Belirlemediniz!!,oiud,BiLGi) }
if ($did(11) == $null) && ($did(12).state == 1) { did -u $dname 12 | did -b $dname 11 | set %süre kapal? | halt $input(Zaman Belirlemedi?iniz için Ban Tipi Süresize Çevirildi,oiud,BiLGi) }
else { set %kickmsg $did(4) | set %zaman $did(11) }
}
}
if ($devent == init) {
loadbuf -o $dname 14 $shortfn(küfür.txt)
if (%ban == sadeban) { did -c $dname 6 | unset %de?er }
if (%ban == konu?ma) { did -c $dname 8 }
if (%ban == kickban) { did -c $dname 9 }
if (%ban == kick) { did -c $dname 10 | unset %bantip | unset %zaman | did -b $dname 11 }
if (%süre == aç?k) { did -c $dname 12 }
if (%süre == kapal?) { did -b $dname 11 | unset %zaman }
did -a $dname 4 %kickmsg
did -a $dname 11 %zaman
}
if ($devent == mouse) {
if ($did == 6) did -ra $dname 16 Bu Seçene?i T?klad???n?zda E?er Süre Belirtirseniz Ki?i Sadece Belirledi?iniz süre Boyunca Ban \\\’l? Kal?r.. E?er Süre Belirlenmemi? ise Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == did -ra $dname 16 Bu Seçene?i T?klad???n?zda Süre belirtemezsiniz.. Ki?i Kanala Girip Ç?kabilir Fakat Kanala Yaz? Yazamaz..
if ($did == 2) did -ra $dname 16 Bu Buton ile istedi?iniz Bir Kelimeyi Listenize Ekleyebilirsiniz.. Kelimenin Ba??na (*) i?aretini Koyarsan?z Kelimeden Önce Yaz?lan Yaz?y?da Kapsar. E?er Sonuna (*) i?areti Koyarsan?z Kelimeden Sonra Yaz?lan Yaz?y?da Kapsar.. E?er iki Tarafada Y?ld?z Koyarsan?z Kelimeyi Yaz?lan Metnin içinde Arar.
if ($did == 3) did -ra $dname 16 Bu Buton ile Listede Seçilmi? Olan Kelimeyi Silebilirsiniz.. E?er Listeden Seçim yap?lmad?ysa Silemezsiniz.. Silmek için Bir Kelime Seçmek Zorunludur..
if ($did == 9) did -ra $dname 16 Bu Seçene?i T?klad???n?zda E?er Süre Belirtirseniz Ki?i Kanaldan Hem BAN \\\’lan?r Ve Kick Edilir.Belirtilen Sürenin Sonunda BAN Kendi Çözülür.. E?er Süre Belirtilmemi? ?se Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == 10) did -ra $dname 16 Bu Seçene?i T?klad???n?zda Süre Belirtemezsiniz.. Ki?i Sadece Kanaldan Kick Edilir.. Büyük Bir ihtimalle Tekrar Gelecektir..
if ($did == 14) did -ra $dname 16 Bu Liste Sizin Eklemek ?stedi?iniz Kelimeleri Gösterir.. E?er Ayn? Kelimeyi Eklemek isterseniz Sizi Uyar?r..
if ($did == 5) did -ra $dname 16 Bu Buton T?klad???n?zda Eksik yada Yanl?? Bir?eyler Var ise Size Uyar? Verecektir.. Ve Ayarlar? Kaydedip ileti Kutusunu Kapat?r..
if ($did == 12) did -ra $dname 16 Bu Seçenek BAN Tipi Seçti?inizde Size BAN Süresi Belirlemek Gibi Bir Seçenek Sunar.. E?er Süre Belirtilmeyen Bir BAN Tipi Seçerseniz Otmatik Ayarlan?r..
if ($did == 1) did -ra $dname 16 Listeye Eklemek istedi?iniz Kelimeyi Buraya Yaz?n?z.. Varolan Kelimeleri Eklemezsiniz…
if ($did == 11) did -ra $dname 16 Bu Kutucu?a Ban Süresini Yazabilirsiniz.. E?er Harf Girmeyi Denerseniz Bu Mümkün Olmayacakt?r.. Sadece Rakam Olarak Ban Süresi .sn Olarak Yaz?labilir. Yada Bo? B?rak?l?r.. örnek : 600 }
if ($did == 4) did -ra $dname 16 Bu Kutucu?a Kendi Kick Mesaj?n?z? Yazabilirsiniz.. Ki?i Kanaldan Sizin Taraf?n?zdan Kick Edilirse Bu Mesaj Görüntülenir.. Karizma Bir?ey Olmas? ?art?yla
if ($devent == edit) {
if ($did == 11) && ($did(11) !isnum) did -r $dname 11
}
}
#real off
on 1@:TEXT:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %de?er $chan $nick %kickmsg }
inc %t
}
}
#real end
#real2 off
on 1@:TEXT:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
inc %t
}
}
#real2 end
#real off
on 1@:ACTION:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %de?er $chan $nick %kickmsg }
inc %t
}
}
#real end
#real2 off
on 1@:ACTION:*:#:{
var %t 1
while (%t <= $lines(küfür.txt)) {
if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* }
inc %t
}
}
#real2 end
on *:LOAD:{
write küfür.txt Beni silermisin plss..
echo -a Küfür Koruma Yüklendi
echo -a BY : ReaL_KinG
echo -a Sa? Click \\\’e T?klay?p ® KüfüR KoRuMa sekmesinden ula?abirsin
echo -a www.mircdb.com
}