mIRC deki Bilinmeyenler

Ziplayan Nokta:
Ziplayan noktayi bulmak icin, “About mIRC” penceresini acmaniz gerekir… Bunada, üst menüde en sagdaki soru isaretine basarak yada “Help” menüsünden “About mIRC”i seçerek ulasabilirsiniz… “About mIRC” penceresi acilinca fare ile pencere üzerinde sag tusa basin…
Ve orada mIRC”nin “I” harfine bakin. I”nin ustunde nokta zipliyor…

 

Eski mIRC logosu:
Yine “About mIRC” penceresinde sol üstte bulunan mIRC logosunun üstüne tiklarsaniz eski logoyu görürsünüz.

Khaled”in resmi:
“About mIRC” penceresi acikken klavye ile “ARNIE” yazarsaniz Khaled”in resmi bir timsahin resmine dönüsüyor.

Khaled”in burnu:
“About mIRC” penceresindeki resimde Khaled”in burnuna fare ile tiklarsaniz hoparlörden bir ses duyacaksiniz.

Toolbar”daki About butonun gülen surat olmasi:
Toolbar”da en sagdaki sari soru isaretine farenin sag tusu ile tiklarsaniz buton gulen surata donusuyor.

/xyzzy komutu:
mIRC”de herhangi bir yerde /xyzzy yazarsaniz Nothing happens. yazisiyla karsilasirsiniz.
xyzzy, “Adventure” isimli cok eski bir bilgisayar oyununda kullanilan sihirli bir kelimedir.

/help dosyasinda yazili olmayan komutlar
Bunlar eski komutlardir fakat yeni sürümlerde tamamiyle kaldirilmamistir.
Amac bu komutlari kullanan scriptlerin bozulmamasidir.

/auto on/off
Otomatik OP verme özelligini acip/kapatir. “/aop on/off” ile ayni görevi yapar.

/closemsg query_ismi
Acik olan query penceresini kapatir. “/close -m query_ismi” ile ayni görevi yapar.

/colour
Suanki /color komutu ile ayni görevi yapar. Amaci “mIRC Colors” (ALT+K)daki renkleri komut yardimiyla degistirmektir. Ornegin; (/colour normal 4)

/leave
Suanki “/part” komutu ile ayni görevi yapar. Amaci kanaldan komut yazarak cikmaktir.

/registration
Register icin seri numarasini yazacaginiz pencereyi acar. Eger mIRC register edilmemis ise “Help” menusunun altindan da acabilirsiniz. Eger register edilmis ise “Help” menusundeki register secenegi kaybolur. Ozaman sadece bu komutu kullanarak acabilirsiniz.

/username
Suanki “/fullname” ile ayni görevi yapar. Amaci “Connect Dialog”undaki “Full Name” kismini degistirmektir. Ornegin; (/username benim adim)

/mirc
Suanki “/help komutu” ile ayni görevi yapar. mIRC”in yardim dosyasini acar.

$cancel, $no, $ok, $yes
Bu “Identifier”lar gene kendilerini cevap verirler. Ornegin; (//echo -s $cancel)

$beta
Eger mIRC sürümünüz beta ise $true cevabini verir. Fakat artik beta sürümü cikmiyor. Ornegin; (//echo -s $beta)

$colour()
Suanki $color() ile ayni görevi yapar. Amac hangi yazinin hangi renk oldugunu ögrenmektir. Ornegin; “//echo -s $colour(normal)” yazarsaniz size kanallardaki yazilari hangi renkle gosterdigini söyleyecektir.

$auto
Suanki $aop ile ayni görevi yapar. Amac otomatik op verme özelliginin aktif olup olmadigini gormektir. Aktif ise $true, degilse $false cevabini verir. Ornegin; (//echo -s $auto)

$nopnick(#kanal,nick/sayi)
Suanki $nick ile ayni görevi yapar. Belirtilen kanaldaki op olmayan kullanici sayisini gosterir.

$nhnick(#kanal,nick/sayi)
Suanki $nick ile ayni görevi yapar. Belirtilen kanaldaki op ve helper olmayan kullanici sayisini gosterir.

$nvnick(#kanal,nick/sayi)
Suanki $nick ile ayni görevi yapar. Belirtilen kanaldaki op, helper ve voice olmayan kullanici sayisini gosterir.

$pi
Pi sayisini gösterir. “//echo -s $pi” yazarsaniz 3.14159265358979323846 sayisini görürsünüz

mIRC Script Süper Bir Yazı Tipi

mIRC Scriptinizi daha eğlenceli bir hale getirip kanal ortasında yazdığınız yazıları karşı tarafa çok daha  farklı görünecektir.

Yapmanız gereken sadece bu kodları mIRC Scriptinize eklemek İyi eğlenceler

 

- on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c, %d, %e, %f
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }
else {
if (%a == $numtok($1-,32)) {
%d = $+($right(%c,1),..)
%f = $right(%d,2)
}
%e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}

MIRC Toplu UnBan Kodu

mıRC de toplu ban açmak için hazırlanmış bir kod, zaman kaybı olmadan banları açıp serbest kılabilmeniz için işinize yarayacağını düşünoruz. Kodları eklemniz için gerekli açıklama aşağıda verilmiştir

 

- ;tub = total unban
alias tub {
if $1 !ischan || !$2 { /echo $color(info text) -at * /tub: insufficient parameters | halt }
if $me isop $1 || $me ishop $1 {
var %i = $ibl($1,0), %items = $iif($calc($ibl($1,0) – $2) < 0,$ibl($1,0),$2), %modespl = $null
if !$hget($+($1,-ibl)) { hmake $+($1,-ibl) %items }
while $hget($+($1,-ibl),0).item < %items {
if $3 { if $gettok($ibl($1,%i).by,1,33) == $3 { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime $gettok($ibl($1,%i).by,1,33) } }
else { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime }
dec %i 1
if %i <= 0 { break }
}
%i = $hget($+($1,-ibl),0).item
while %i {
if $calc($count(%modespl,$chr(32)) + 1) >= $modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$modespl)) %modespl | %modespl = $null }
%modespl = %modespl $hget($+($1,-ibl),%i).item
dec %i 1
}
if %modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$calc($count(%modespl,$chr(32)) + 1)))) %modespl }
hfree $+($1,-ibl)
}
}
on *:op:#: { if $opnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
on *:halfop:#: { if $hopnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
raw 367:*: { if %ibl { halt } }
raw 368:*: { if %ibl { unset %ibl | halt } }

;eğer kanalın banlistesi 30 u geçmişse($ibl($chan,0) >= 30) son 15 banı kaldır(/tub $chan 15)
on *:ban:#: { if $ibl($chan,0) >= 30 { /tub $chan 15 } }

;f8 e basınca kanaldaki en son banlardan 15 tanesini kaldırsın
alias F8 { if $active ischan { tub $active 15 } }

;ctrl + f8 e basınca kanaldaki en son banlarınızdan(sizin banınız) 5 tanesini kaldırsın
alias CF8 { if $active ischan { tub $active 5 $me } }

;shift + f8 e basınca kanaldaki en son verilen nickin banlarından 5 tanesini kaldırsın

IRC Sunucuları Ozele Gelen Botnet Mesaj Koruma

Malum IRC sunucularında saldırı  yada reklam amaçlı botnet mesajları alırız, leyla24@ hot mayıl  gibi, bu ve bunlar gibi mesajlardan korunmak ve spama eklemek içn hazırlanmış bir koddur

 

 alias yildiztemizle {
var %y $+(.,?) , %yi
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 | halt }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- | halt }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt }
if (*@* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t – 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt }
if (*@h?* iswm %ara) { spch $nick %ara | halt }
if ($right($gettok($strip($1-),$calc(%t – 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t – 1),32) %ara | halt }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}

Sizce Google Nekadar Kazanıyordur

Google reklamlardan günde 10 milyon Euro kazanıyor.Bununla birlikte, aynı zaman sürecinde tıklamalara ödenen para %2 lik bir artış gösterdi. Google CEO’su Eric

 

Schmidt ekonomik krize rağmen Google’un iyi bir çeyrek geçirdiğini, birçok şirketin iflas etmesine rağmen google’un gelirinin arttığını belirtti. Youtube’dan elde edilen kazanç sorulduğunda ise; net bir rakam belirtilmemesine rağmen ileride Youtube’un çok kazançlı bir siteye dönüşeceği yönünde açıklama yetkililer tarafından yapıldı. Eric Schmidt ayrıca Chrome’un yükselmeye eğilimli olduğunu ve her projeyi gelir elde etmek için yapmadıklarını açıkladı. 2009′un ikinci çeyreğinde Google toplam kazancının yarısından fazlasını Abd dışındaki ülkelerden sağlıyor. Gelirin %13′lük bölümünü ise İngiltere’den elde ediyor.

Sonraki sayfa »