Gicik.Net mIRC indir, Türkçe mIRC indir, mIRC, Mirç, Mırc, indir mIRC » Hazır Kodlar

Whois Çekene Ait Bilgiler

Gicik — Wed, 13 May 2009 17:30:33 +0000

Çok güzel bir kodla devam ediyoruz. Bu kodun işlevi şu;
Size whois çekildiğinde, whois çeken kişinin yerel bilgilerini alırsınız.
Ülke, şehir, IP No, Organizasyon, Yerel zaman ve bulunduğu yerin enlem – boylam ölçülerini.
Bu kodu kullanabilmeniz için Admin, Oper veya Helper olmanız gerekir.
+W Flagı gerektiğindendir.

on *:sockopen:yerelbilgi:{
sockwrite -n $sockname GET /ip_tracer/ $+ %yerelipno HTTP/1.1
sockwrite -n $sockname Host: www.ip-adress.com $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:yerelbilgi:{
if ($sockerr) {
echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
}
else {
var %difi
sockread %difi
if (** iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
if (*** iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
}
}
alias bağlan {
sockclose yerelbilgi
sockopen yerelbilgi www.ip-adress.com 80
if !$window(@Whois) {
.timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
.timer -h 1 2850 titlebar @Whois yerel bilgiler…
}
else { .timer -h 1 2800 window -a @Whois }
.timer -h 1 2900 aline @Whois 11,1Nick1…11:8 $!eval(%yerelnick,1) 1…………………………………………….
.timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1……………………………………………..
.timer -h 1 3000 aline @Whois 11,1Ülke1……………11:9 $!eval(%yerelulke,1) 1……………………………………..
.timer -h 1 3100 aline @Whois 11,1Bölge1………….11:9 $!token(%yerelbilgi,1,126) 1…………………………………
.timer -h 1 3200 aline @Whois 11,1Şehir1…………..11:9 $!token(%yerelbilgi,2,126) 1………………………………..
.timer -h 1 3300 aline @Whois 11,1Enlem1…………11:9 $!token(%yerelbilgi,3,126) 1………………………………….
.timer -h 1 3400 aline @Whois 11,1Boylam1……….11:9 $!token(%yerelbilgi,4,126) 1…………………………………..
.timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1………………………………………….
.timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1……………………………………..
.timer -h 1 3700 aline @Whois 0,1—————-Bilgi Sonu——————-
.timer -h 1 3750 sockclose yerelbilgi
.timer -h 1 4000 unset %yerel*
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^< ]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:snotice:*whois*on*you*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set %yerelipno $remove($token($3,2,64),$chr(41))
set %yerelnick $2
bağlan
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor…
}
}

!Nerden Nick

Gicik — Wed, 13 May 2009 17:18:07 +0000

Süper bir kod kullanımıda çok basit birşey. Fakat bu kodu kullanabilmeniz için Admin veya Oper olmanız lazımdır.
Kendi scriptinizde denememenizi tavsiye eder farklı bir mIRC açmanızı öneririm.
Kullanımı: !Nerden Nick

raw 340:*:{
if $2- == $null { msg #dns nerdensine Baktığınız Nick – %nerdennick – Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }
set %nerdennick $remove($gettok($2-,1,61),*)
set %nerdenip $gettok($2-,2,64)
nerdenbul
halt
}
alias nerdenbul {
sockclose nerden
sockopen nerden www.melissadata.com 80
}
on *:sockopen:nerden:{
if ($sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }
sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %nerdenip HTTP/1.1
sockwrite -n $sockname Host: www.melissadata.com $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:nerden:{
var %nerdenoku
sockread %nerdenoku
if (%nerdenoku != $null) {
if (*>City< * iswm %nerdenoku) { msg #dns %mesajnick 2 $+ %nerdennick Sehir :4 $remove(%nerdenoku,
City ,

, ) }
if (*State*or*Region* iswm %nerdenoku) { msg #dns %mesajnick 2 $+ %nerdennick Bolge :4 $remove(%nerdenoku,
State or Region ,

, ) }
if (*>Country< * iswm %nerdenoku) { msg #dns %mesajnick 2 $+ %nerdennick nerden :4 $remove(%nerdenoku,
Country ,

, ) }
if (*>ISP< * iswm %nerdenoku) { msg #dns %mesajnick 2 $+ %nerdennick Baglandigi ADSL :4 $remove(%nerdenoku,
ISP ,

, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !nerden) {
if ($sock(nerden)) { msg #dns Suanda Baska Bir Nick’in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %nerdennick $remove($2,*)
set %mesajnick $nick
userip $2
msg $chan Lütfen Bekleyiniz…
msg $chan $2 Nick’inin ISP Adresi Kontrol Ediliyor..
}
}

Nick Takip Kodu

Gicik — Wed, 13 May 2009 17:09:29 +0000

Bir nickin daha önce hangi nicki kullandığını gösteren bir koddur.
Koruma olarakta kullanılabilir kanalda clone ile girip kural ihlali yapanları önceden bilmek gibi birşey.

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

Statüste Bekleyenleri Bir Kanala Aktarmak

Gicik — Wed, 13 May 2009 16:29:07 +0000

Başlıktanda anlaşılacağı gibi statüste yani hiç bir kanalda bulunmayan kullanıcıları belirlediğiniz bir kanala aktarırsınız.
Bu kodu kullanabilmeniz için Sajoin yetkiniz olması lazımdır.
Kullanımı: /who şeklindedir.

raw 352:*:$iif($left($2,1) != $chr(35),sajoin $6 #Kanal)