dELi Türkçe mIRC indir - Resmi mIRC indirme Sitesi

İp adresinden şehir ülke bulma

02 Temmuz 2013 • 14:33 dELi Hazır Kodlar

raw 401:*: { msg #nerden $2 : Nick'i online degil! }
alias nerden {
set %ip $1
sockclose nerden
sockopen nerden www.ripe.net 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&amp;full_query_string=&amp;searchtext= $+ %ip $+ &amp;submit.x=15&amp;submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
sockread %ğ
if (descr: isin %ğ) &amp;&amp; (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }
}
on *:text:*:#Nerden:{
if ($1 == !nerden) &amp;&amp; $2 { baka.q $2 }
}
alias baka.q { whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $gettok($6,2,64) | disable #dirim }
#dirim end

raw 401:*: { msg #nerden $2 : Nick'i online degil! }

alias nerden {

set %ip $1

sockclose nerden

sockopen nerden www.ripe.net 80

}

on *:sockopen:nerden:{

sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1

sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf

}

on *:sockread:nerden:{

sockread %ğ

if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }

if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }

}

on *:text:*:#Nerden:{

if ($1 == !nerden) && $2 { baka.q $2 }

}

alias baka.q { whois $1 | enable #dirim }

#dirim off

raw 378:*: { nerden $gettok($6,2,64) | disable #dirim }

#dirim end

» Devamını Oku

Yorum yaz

Düşman Listesine alma

02 Temmuz 2013 • 14:28 dELi Hazır Kodlar

alias -l _buser { .guser blacklist $1 3 }
alias -l _rbuser { .ruser blacklist $1 3 }
alias -l _luser { dialog -m dusmanlist dusmanlist }
alias -l _blist {
did -r dusmanlist 11
var %_btotal = $ulist(*,blacklist,0) , %_b = 0
while (%_b &lt; %_btotal) {
inc %_b
did -a dusmanlist 11 $ulist(*,blacklist,%_b)
}
}
alias dusman { /dialog -m dusmanlist dusmanlist }
dialog dusmanlist {
title "Falan Filan - Düşman Listesi"
size -1 -1 106 117
option dbu
combo 11, 6 19 94 50, extsel sort autohs autovs
text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15
box "", 3, 3 0 101 96
edit "", 12, 6 69 94 10 , read autohs
button "Ekle", 20, 7 81 40 12 , default
button "Sil", 30, 58 81 40 12 , default
box "", 7, 3 94 101 21
button "Pencereyi Kapat", 8, 17 100 73 12, ok
}

on *:dialog:dusmanlist:init:*: {
_blist
}

on *:dialog:dusmanlist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null &amp;&amp; $level($did(11).text) != blacklist) {
var %_badd = $did(11).text
.auser blacklist %_badd
_blist
did -o $dname 12 1 %_badd Kara Listeye Alındı...
}
}
if ($did == 30) {
if ($did(11).text != $null &amp;&amp; $level($did(11).text) == blacklist) {
var %_brem = $did(11).text
.ruser blacklist %_brem
_blist
did -o $dname 12 1 %_brem Kara Listeden Silindi...
}
}
}

on @blacklist:join:#: {
.gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı.  %Logo1
}

alias -l _buser { .guser blacklist $1 3 }

alias -l _rbuser { .ruser blacklist $1 3 }

alias -l _luser { dialog -m dusmanlist dusmanlist }

alias -l _blist {

did -r dusmanlist 11

var %_btotal = $ulist(*,blacklist,0) , %_b = 0

while (%_b < %_btotal) {

inc %_b

did -a dusmanlist 11 $ulist(*,blacklist,%_b)

}

alias dusman { /dialog -m dusmanlist dusmanlist }

dialog dusmanlist {

title "Falan Filan - Düşman Listesi"

size -1 -1 106 117

option dbu

combo 11, 6 19 94 50, extsel sort autohs autovs

text " Eklediğiniz nickler Gline yiyecektir. Buna Göre Ekleyeceğiniz nicklere dikkat edin", 2, 6 4 95 15

box "", 3, 3 0 101 96

edit "", 12, 6 69 94 10 , read autohs

button "Ekle", 20, 7 81 40 12 , default

button "Sil", 30, 58 81 40 12 , default

box "", 7, 3 94 101 21

button "Pencereyi Kapat", 8, 17 100 73 12, ok

}

on *:dialog:dusmanlist:init:*: {

_blist

}

on *:dialog:dusmanlist:sclick:*: {

if ($did == 20) {

if ($did(11).text != $null && $level($did(11).text) != blacklist) {

var %_badd = $did(11).text

.auser blacklist %_badd

_blist

did -o $dname 12 1 %_badd Kara Listeye Alındı...

}

if ($did == 30) {

if ($did(11).text != $null && $level($did(11).text) == blacklist) {

var %_brem = $did(11).text

.ruser blacklist %_brem

_blist

did -o $dname 12 1 %_brem Kara Listeden Silindi...

}

on @blacklist:join:#: {

.gline $nick 15m Uzaklastırıldınız | .echo $nick 0,1 Kötü Nick / Düşman Listesinden ötürü Serverden Atıldı. %Logo1

}

» Devamını Oku

Yorum yaz

Kanal clone taraması

02 Temmuz 2013 • 14:26 dELi Hazır Kodlar

alias Clone {
  var %ğ = $nick(#,0)
  while %ğ {
    if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
    else { hinc host $address($nick(#,%ğ),2) }
    dec %ğ
  }
  echo 4 -st # kanalı için clone taraması başlatıldı...
  echo -s -
  .timer 1 1 .h_al #
}
alias h_al {
  var %ı = $hget(host,0).item
  while %ı {
    if $hget(host,%ı).data &gt; 1 {
      set %y_k yes
      var %ç = $nick($1,0)
      while %ç {
        if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
        dec %ç
      }
      echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
      unset %_cln
    }
    dec %ı
  }
  echo -s -
  $iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
  unset %y_k
  hfree host
}
menu channel {
  .-
  .Clone Tara:.Clone #

alias Clone {

var %ğ = $nick(#,0)

while %ğ {

if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }

else { hinc host $address($nick(#,%ğ),2) }

dec %ğ

}

echo 4 -st # kanalı için clone taraması başlatıldı...

echo -s -

.timer 1 1 .h_al #

}

alias h_al {

var %ı = $hget(host,0).item

while %ı {

if $hget(host,%ı).data > 1 {

set %y_k yes

var %ç = $nick($1,0)

while %ç {

if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }

dec %ç

}

echo 12 -st 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32)

unset %_cln

}

dec %ı

}

echo -s -

$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)

unset %y_k

hfree host

}

menu channel {

.Clone Tara:.Clone #

» Devamını Oku

Yorum yaz

Nick Takip etmek

02 Temmuz 2013 • 14:25 dELi Hazır Kodlar

on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) &amp;&amp; $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) &gt; 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end

on 1:connect:{ .IAL On | takip + 300 }

alias takip {

if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }

else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }

}

#Takip on

on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }

on !^*:JOIN:#:{

if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }

if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }

}

#Takip end

» Devamını Oku

Yorum yaz

Otomatik Nick Şifresi girme ( Oto identify )

01 Temmuz 2013 • 18:18 dELi Hazır Kodlar

on *:notice:*:?: {
if ($nick == NickServ) {
if (kayitli ve sifre korumali bir nick&amp;amp;amp;#8217;tir isin $1-) { identify şifre }
}
}
on *:notice:*:?: {
if ($nick == NickServ) {
if (kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { ns ghost nick şifre | ns release nick şifre | identify şifre }
}
}

on *:notice:*:?: {

if ($nick == NickServ) {

if (kayitli ve sifre korumali bir nick&amp;amp;#8217;tir isin $1-) { identify şifre }

}

on *:notice:*:?: {

if ($nick == NickServ) {

if (kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { ns ghost nick şifre | ns release nick şifre | identify şifre }

}

» Devamını Oku

Yorum yaz

mIRC Lisanlanması

01 Temmuz 2013 • 18:16 dELi Hazır Kodlar

alias Crack {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr &lt;= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version
echo :Lisanslanan kişi4 $1-
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin...
echo :--------------------------------------------------------------------------------------------
}

alias Crack {

var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16

var %kg.ctr = 4

var %kg.tot = $len($1-)

while (%kg.ctr <= %kg.tot) {

var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58)))

var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))

inc %kg.ctr

}

echo :--------------------------------------------------------------------------------------------

echo :mIRC Sürümü 4 $version

echo :Lisanslanan kişi4 $1-

echo :Key 4 $+(%kg.1,-,%kg.2)

echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..

echo :ardından Acılan Pencereye Parametreleri girin...

echo :--------------------------------------------------------------------------------------------

}

» Devamını Oku

Yorum yaz

Kanaldaki tüm kullanıcılara seslenme

01 Temmuz 2013 • 18:13 dELi Hazır Kodlar

alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }

1	alias millet { var %x = $nick(#,0) \| var %y \| while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } \| dec %x } \| say %y $1- }

» Devamını Oku

Yorum yaz

« 1 … 20 21 22 23 24 25 »