.

“mIRC Aliasları” Kategorisi için Arþiv

Basit bir Koddur fakat kullanım yerlerine göre etkilidir. Radyo reklamı, saldırıları önleme, script linkinizi dagıtma v.b birçok durumda kullanabilirsiniz. mIRC Scriptinizde Remote bölümüne ekleyiniz. Kanal adını ve Reklam mesajını değiştirebilirsiniz..

on *:join:#radyo:{ /msg $nick Radyo Kanalımıza Hoş Geldiniz. !istek şarkı Yazarak Şarkı İsteğinde Bulunabilirsiniz }

Comments Yorum Yok »

mIRC ‘in eğlenceleri yanlarından biriside sahte log hazırlayıp IRCD uzerindeki arkadaşlarla geyik yapmaktır. Tabi sadece eğlence değil kötü niyetli kişilerin eline düştüğünde bu kod ile sahte konuşmalar hazırlayıp sizleri rencide edebilir. Kodun çalıştırılması gayet basittir. Addon şeklindedir Aşağıdaki kodu mIRC Remotenize eklemeniz yeterlidir.

KOD:

sahtelog { dialog -m sahtelog sahtelog }
dialog sahtelog {
title ?Sahte Log Hazırlama?
size -1 -1 155 246
option dbu
edit ??, 1, 15 14 50 10, autohs
edit ??, 2, 15 25 50 10, autohs
edit ??, 3, 15 36 50 10, autohs
edit ??, 4, 15 47 50 10, autohs
edit ??, 5, 15 58 50 10, autohs
edit ??, 6, 15 69 50 10, autohs
edit ??, 7, 15 80 50 10, autohs
edit ??, 8, 15 91 50 10, autohs
edit ??, 9, 15 102 50 10, autohs
edit ??, 10, 15 113 50 10, autohs
edit ??, 11, 68 14 83 10, autohs
edit ??, 12, 68 25 83 10, autohs
edit ??, 13, 68 37 83 10, autohs
edit ??, 14, 68 48 83 10, autohs
edit ??, 15, 68 60 83 10, autohs
edit ??, 16, 68 71 83 10, autohs
edit ??, 17, 68 82 83 10, autohs
edit ??, 18, 68 93 83 10, autohs
edit ??, 19, 68 103 83 10, autohs
edit ??, 20, 68 114 83 10, autohs
text ?Sahte Log HazırLanacak Nick?, 21, 0 6 70 8
text ?Yazdığı Mesaj?, 22, 87 6 54 8
edit ??, 23, 59 133 86 10, autohs
text ?Gönderilecek Kanal/Kişi?, 24, 0 133 60 8
box ?Sahte Log Biçimi?, 25, 7 143 138 37
button ?Text?, 26, 12 153 37 11
button ?Notice?, 27, 52 153 37 11
button ?Action?, 28, 91 153 37 11
edit ??, 29, 37 167 50 10, read
text ?Şu Anda?, 30, 16 168 21 8
text ?Durumunda?, 31, 89 168 46 8
link ?By SCouNDReL?, 32, 48 221 51 8
text ?Not: Eğer İstediğinizden Fazla Metin Boşluğu Varsa ? – ? Yazınız Eğer Koymazsanız Başka Şeyler Gönderebilir??, 35, 18 202 136 19
button ?Gönder?, 36, 18 183 115 14
button ?Kapat?, 37, 126 224 31 18, ok
}
on 1:dialog:sahtelog:*:*:{
if ($devent == init) {
did -a $dname 1 %kisi1
did -a $dname 2 %kisi2
did -a $dname 3 %kisi3
did -a $dname 4 %kisi4
did -a $dname 5 %kisi5
did -a $dname 6 %kisi6
did -a $dname 7 %kisi7
did -a $dname 8 %kisi8
did -a $dname 9 %kisi9
did -a $dname 10 %kisi10
did -a $dname 11 %mesaj1
did -a $dname 12 %mesaj2
did -a $dname 13 %mesaj3
did -a $dname 14 %mesaj4
did -a $dname 15 %mesaj5
did -a $dname 16 %mesaj6
did -a $dname 17 %mesaj7
did -a $dname 18 %mesaj8
did -a $dname 19 %mesaj9
did -a $dname 20 %mesaj10
did -a $dname 29 %durum
did -a $dname 23 %kanal
}
if ($devent == sclick) {
if ($did == 36) { set %kisi1 $did(1) | set %kisi2 $did(2) | set %kisi3 $did(3) | set %kisi4 $did(4) | set %kisi5 $did(5) | set %kisi6 $did(6) | set %kisi7 $did(7) | set %kisi8 $did( | set %kisi9 $did(9) | set %kisi10 $did(10) | set %mesaj1 $did(11) | set %mesaj2 $did(12) | set %mesaj3 $did(13) | set %mesaj4 $did(14) | set %mesaj5 $did(15) | set %mesaj6 $did(16) | set %mesaj7 $did(17) | set %mesaj8 $did(18) | set %mesaj9 $did(19) | set %mesaj10 $did(20) | set %kanal $did(23) |
if (%durum == Text) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) < $+ %kisi1 $+ > %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) < $+ %kisi2 $+ > %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) < $+ %kisi3 $+ > %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) < $+ %kisi4 $+ > %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) < $+ %kisi5 $+ > %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) < $+ %kisi6 $+ > %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) < $+ %kisi7 $+ > %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) < $+ %kisi8 $+ > %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) < $+ %kisi9 $+ > %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) < $+ %kisi10 $+ > %mesaj10 }
}
if (%durum == Notice) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) – $+ %kisi1 $+ – %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) – $+ %kisi2 $+ – %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) – $+ %kisi3 $+ – %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) – $+ %kisi4 $+ – %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) – $+ %kisi5 $+ – %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) – $+ %kisi6 $+ – %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) – $+ %kisi7 $+ – %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) – $+ %kisi8 $+ – %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) – $+ %kisi9 $+ – %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) – $+ %kisi10 $+ – %mesaj10 }
}
if (%durum == Action) {
if (%kisi1 != -) && (%mesaj1 != -) { msg %kanal $time([HH:nn]) * %kisi1 %mesaj1 }
if (%kisi2 != -) && (%mesaj2 != -) { msg %kanal $time([HH:nn]) * %kisi2 %mesaj2 }
if (%kisi3 != -) && (%mesaj3 != -) { msg %kanal $time([HH:nn]) * %kisi3 %mesaj3 }
if (%kisi4 != -) && (%mesaj4 != -) { msg %kanal $time([HH:nn]) * %kisi4 %mesaj4 }
if (%kisi5 != -) && (%mesaj5 != -) { msg %kanal $time([HH:nn]) * %kisi5 %mesaj5 }
if (%kisi6 != -) && (%mesaj6 != -) { msg %kanal $time([HH:nn]) * %kisi6 %mesaj6 }
if (%kisi7 != -) && (%mesaj7 != -) { msg %kanal $time([HH:nn]) * %kisi7 %mesaj7 }
if (%kisi8 != -) && (%mesaj8 != -) { msg %kanal $time([HH:nn]) * %kisi8 %mesaj8 }
if (%kisi9 != -) && (%mesaj9 != -) { msg %kana1 $time([HH:nn]) * %kisi9 %mesaj9 }
if (%kisi10 != -) && (%mesaj10 != -) { msg %kanal $time([HH:nn]) * %kisi10 %mesaj10 }
}
}
if ($did == 26) { set %durum Text | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 27) { set %durum Notice | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 28) { set %durum Action | dialog -x sahtelog sahtelog | dialog -m sahtelog sahtelog }
if ($did == 37) { set %kisi1 $did(1) | set %kisi2 $did(2) | set %kisi3 $did(3) | set %kisi4 $did(4) | set %kisi5 $did(5) | set %kisi6 $did(6) | set %kisi7 $did(7) | set %kisi8 $did( | set %kisi9 $did(9) | set %kisi10 $did(10) | set %mesaj1 $did(11) | set %mesaj2 $did(12) | set %mesaj3 $did(13) | set %mesaj4 $did(14) | set %mesaj5 $did(15) | set %mesaj6 $did(16) | set %mesaj7 $did(17) | set %mesaj8 $did(18) | set %mesaj9 $did(19) | set %mesaj10 $did(20) | set %kanal $did(23) }
if ($did == 33) { run www.mircbul.net }
if ($did == 34) { run www.liderchat.net }
}
}
on 1:LOAD:{
set %kisi1 -
set %kisi2 -
set %kisi3 -
set %kisi4 -
set %kisi5 -
set %kisi6 -
set %kisi7 -
set %kisi8 -
set %kisi9 -
set %kisi10 -
set %mesaj1 -
set %mesaj2 -
set %mesaj3 -
set %mesaj4 -
set %mesaj5 -
set %mesaj6 -
set %mesaj7 -
set %mesaj8 -
set %mesaj9 -
set %mesaj10 -
set %durum Text
echo -a 4,1Bu Addon 0,1mIRCBuL 4,1Tarafından Hazırlanmıştır
}

Comments Yorum Yok »

Bu Kodu mIRC Scriptimizde Remote Bölümüne Ekliyoruz. Botnet’e bağlı botlar finger ve versiyon sorgulamasına cevap veremediklerinden sunucudan G:Line olarak atılacaklardır. Koruma gayet etkilidir tavsiye ederim.

Kodumuz :

on *:snotice:*Client connecting*: {
writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
ctcp $9 version
.timer $+ $readini(version.ini,$9,ip) 1 30 versionban $9
}
alias versionban { gline $readini(version.ini,$1,ip) 1d :Trojan tespit edildi }
on 1:ctcpreply:* {
if ($1 == version) {
if ($regex($readini(version.ini,$nick,ip),\d) == 1) {
.timer $+ $readini(version.ini,$nick,ip) off
remini version.ini $nick
}
}
}

Comments Yorum Yok »

Bu kod ile sunucunuza giren her kullanıcıyı farklı kanallara alabilirsiniz. UNREAL deki sıralı giriş modülünün çok basit halidir. Admin yetkiniz var ise Remotenize ekleyiniz.

Öncelikle mIRC Ana klasörünüzde kanal.txt dosyası açın ve altalta kanalları yazın. Daha sonra bu kodu Remotenize ekleyin.

on *:join:#kanal: {
.sajoin $nick $read(kanal.txt) }

Comments Yorum Yok »

bu kod ile bulundugunuz kanalda /hopall yazarak tüm kanallara part / join yapabilirsiniz. IRCD üzerinde /hop komutunu tüm kanallara uygulayan versiyonudur.

Comments Yorum Yok »

Bu Kod sayesinde kanalda yetkili iseniz !kick nick yazmanız yeterlidir. 
Socket botlarda kullanılan bu kodu kendi mircninizde kullanmak istiyorsanız text kısmını input yapınız.
on *:text:*:#:{
  if !kick isin $1 {
    if $nick !isop $chan {
      .msg $chan $nick $+  : Komut Kullanımı için Yetkili Olmalısınız    }
    else {
      .k $2 2,15
    }
  }

Comments Yorum Yok »

Bu kodu mirc editörünüzden remote kısmına ekleyiniz. sapır saçma identlerle girenlere direk ban uygular. Sc5, proxy, tor, clone koruması olarak kullanabilirsiniz.

Kod:

on !*:join:#:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if ($randomnick($nick)) || ($randomnick(%identd)) { kill  $nick  4Proxy Koruması! 12By LiderChat }
}

Comments Yorum Yok »

Sorumuz : Özelimdeki kişilerin sayısını saymadan nasıl öğrenebilirim.?
Komutumuz : //say query(0)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Sunucu içerisinde kaç kanala girdiğimi nasıl öğrenebilirim.?
Komutumuz : //say $chan(0)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Özelimde bulunan kişileri hangi komut ile sıralayabilirim ?
Komutumuz : //say $query(1) $query(2)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Internet sağlayıcımın (ISS) verdigi Host’u Nasıl Öğrenebilirim. ?
Komutumuz : //say $Host
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Gercek Ip’imi whois cekmeden nasil ogrenirim ?
Komutumuz : //say $ip
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Giriş yaptigim IRC sunucusunun linkini nasıl gorebilirim ?
Komutumuz : //say $server
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Hangi sunucuya bagli oldugumu nasil ogrenebilirim ?
Komutumuz : //say $network
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Bugün günlerden ne hangi komutla öğrenebilirim ?
Komutumuz : //say $day
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Hangi gunde olduğumuzu saati ve yili nasil oğrenebilirim?
Komutumuz : //say $fulldate
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Kullandigim windows’un versionunu hangi komut ile gorebilirim ?
Komutumuz : //say $os
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Kullanmakta oldugum kullanici modelerimi nasil ogrenebilirim ?
Komutumuz : //say $usermode
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Bagli oldugum sunucudaki kanal modelerini nasil ogrenebilirim ?
Komutumuz : //say $chanmodes
,,,,,,,,,,,,,,,,,,,,
Sorumuz : mIRC’imde secili olan notice renginin numarasini nasil gorebilirim ?
Komutumuz : //say $color(notice)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : #MircALem kanalindaki +o kipine sahip kullanicilarin sayisini nasil gorebilirim ?
Komutumuz : //say $nick(#MircALem,0,o)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : kanalda ustten 2. Operatörun ( @ ) nick’ini hangi komutla gorebilirim ?
Komutumuz : //say $nick(#kanal,2,o)
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Away mesajimi hangi komutla ogrenebilirim ?
Komutumuz : //say $awaymsg
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Kac saniyedir away oldugumu nasil gorebilirim ?
Komutumuz : //say $awaytime
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Isim kismimi hangi komut ile gorebilirim ?
Komutumuz : //say $fullname
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Away olup olmadigimi “true ve false” gibi veriler ile nasil gorebilirim ?
Komutumuz : //say $away
________________
Sorumuz : Bagli oldugum sunucudaki yetki simgelerini nasil ogrenebilirim ?
Komutumuz : //say $prefix
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Bulundugum sunucunun ya da server linkinin ip numarasini hangi komut ile ogrenebilirim ?
Komutumuz : //say $serverip
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Sunucuya bagli olup olmadigim hakkindaki veriyi nasil ogrenebilirim ?
Komutumuz : //say $status
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Zaman dilimi durumumu nasil gorebilirim ?
Komutumuz : //say $timezone
,,,,,,,,,,,,,,,,,,,,
Sorumuz : Kullandigim mirc’in ust kisimdaki başligini hangi komutla ogrenebilirim ?
Komutumuz : //say $titlebar
,,,,,,,,,,,,,,,,,,,,
Sorumuz : mIRC uzerinden son tikladigim url’yi nasil ogrenirim ?
Komutumuz : //say $url

Comments Yorum Yok »

Genellikle Büyük Sunucu Operatörleri için Kullanılan Bu Korumayı Sizlere de Sunuyorum. Kanalda Büyük Harf ile Belirli Bir limitte Yazı Yazan Kişi Uyarılır ve Kanaldan Atılır. Kodun Çalışması için Aşşağıdaki Kodları Alt+R Yaparak mirc Remotenize eklemeniz gerekir.

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) < 50) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,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))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Buyuk Harf Koruması!2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}

#caps end

Comments Yorum Yok »

IRC Sunucusu üzerinde istediğiniz / belirttiğiniz nickler kanala giriş yaptıgında onlara otomatik olarak mesaj göndermeye yarar.

on *:Join:#Kanal: {
if $regex($nick,/(nick1||nick2|nick3|nick4)/i) {
/msg $nick Mesajın
}
}

nick1 v.b yerleri istediginiz nickleri yazıp remotenize atın. kodunuz hazırdır.

Comments Yorum Yok »