mIRCbuL.Net Türkçe mIRC indir

Değerli mIRC kullanıcıları. Şimdi sizlere süper bir mirc addonu paylaşıcam. Alıntı ama üzerinde baya bir değişiklik yaptım daha iyi hale getirip sizlere sunuyorum.

Bu mIRC Kodu istediğiniz kişinin nereli olduğu bilgilerini size sunacaktır.

on *:LOAD:{
if (!$exists(” $+ $scriptdirdns.cache.ini $+ ” )) {
write -c ” $+ $scriptdirdns.cache.ini $+ ”
}
}

alias ClassC {
;This alias will return Class C of the given ip
;Example: $ClassC(127.0.0.9) will return 127.0.0.*
if ($isid) {
if ($1) {
;checking if ip’s structure is valid.
if (*.*.*.* iswm $1) {
if ($GetNum($1,1) isnum && $GetNum($1,2) isnum && $GetNum($1,3) isnum && $GetNum($1,4) isnum) {
return $+($GetNum($1,1),.,$GetNum($1,2),.,$GetNum($1,3),.,*)
}
else {
return invalid
halt
}
}
else {
return $1
}
}
else {
echo $color(info) -at * /ClassC: insufficient parameters
halt
}
}
}

alias -l GetNum {
return $gettok($1,$2,46)
}

on *:DNS:{
if ($raddress) {
if ($raddress isnum) {
write ” $+ $scriptdirdns.tmp $+ ” $raddress
traceip
}
else {
var %tot = $dns(0)
var %i = 1
while (%i <= %tot) {
write ” $+ $scriptdirdns.tmp $+ ” $dns(%i).ip
inc %i
}
traceip
}
}
else {
write ” $+ $scriptdirdns.tmp $+ ” $dns(0).ip
traceip
}
}

alias traceip {
if ($1) {
if ($1 == -r && $2) {
if ($ini(” $+ $scriptdirdns.cache.ini $+ “,$ClassC($2)) != 0) {
remini -n ” $+ $scriptdirdns.cache.ini $+ ” $ClassC($2)
if ($show) {
echo $color(info) -at * /traceip: removed $ClassC($2) from the cache.
}
}
else {
if ($show) {
echo $color(info) -at * /traceip: couldn’t find $ClassC($2) $+ .
halt
}
}
}
elseif ($1 == -u) {
if (!$sock(update.traceip)) {
sockopen update.traceip scripts.THM.org.ua 80
if ($show) {
echo $color(info) -at * /traceip: Update is in progress…
}
}
else {
if ($show) {
echo $color(info) -at * /traceip: Update is alredy in progress.
halt
}
}
}
else {
set %ip $1
:check1
if ($exists(” $+ $scriptdirdns.cache.ini $+ “)) {
if ($ini(” $+ $scriptdirdns.cache.ini $+ “,$ClassC($1),0) != 0) {
if ($readini(” $+ $scriptdirdns.cache.ini $+ “,$ClassC($1),location) != unresolved) {
if ($show) {
echo $color(other) -at [CACHED] $1 is $readini(” $+ $scriptdirdns.cache.ini $+ “,$ClassC($1),location)
halt
}
}
else {
goto w00t
}
}
else {
writeini -n ” $+ $scriptdirdns.cache.ini $+ ” $ClassC($1) location unresolved
:w00t
if (!$sock(traceip $+ %ip)) {
sockopen traceip $+ %ip www.dnsstuff.com 80
}
}
}
else {
write -c ” $+ $scriptdirdns.cache.ini $+ ”
goto check1
}
}
}
else {
if ($exists(” $+ $scriptdirdns.tmp $+ “)) {
var %i = 1
if ($lines(” $+ $scriptdirdns.tmp $+ “) > 0) {
if ($show) {
.timerechoips -m 1 1 echo $color(other) -at * /traceip: Going to trace $lines(” $+ $scriptdirdns.tmp $+ “) $iif($lines(” $+ $scriptdirdns.tmp $+ “) > 1,IP’s,IP) $+ …
}
while (%i <= $lines(” $+ $scriptdirdns.tmp $+ “)) {
.timertraceip $+ $read(” $+ $scriptdirdns.tmp $+ “,%i) 1 %i traceip $read(” $+ $scriptdirdns.tmp $+ “,%i)
inc %i
}
}
.remove ” $+ $scriptdirdns.tmp $+ ”
}
else {
echo $color(info) -at * /traceip: insufficient parameters
}
}
}

on *:SOCKOPEN:update.traceip:{
if ($sockerr > 0) {
sockclose $sockname
echo $color(info) -at * /traceip (update): An error has occured.
if ($sockerr == 3) {
if (!$sock($sockname)) {
sockopen update.traceip scripts.THM.org.ua 80
}
}
}
else {
sockwrite -n $sockname GET /scripts/IPTracer/dns.cache.ini HTTP/1.0
sockwrite -n $sockname Host: www.THM.org.ua
sockwrite -n $sockname ACCEPT: *.*
sockwrite $sockname $crlf
%ip.line = 0
.remove ” $+ $scriptdirtempdns.cache.ini $+ ”
}
}

on *:SOCKREAD:update.traceip:{
if (%ip.line <= 9) {
sockread %update
tokenize 32 %update
if ($1 == Content-Length:) {
if ($calc($2 – $file(” $+ $scriptdirdns.cache.ini $+ “).size) > 0) {
set %allow.update $true
}
}
inc %ip.line
}
else {
if (%allow.update) {
sockread &update
bwrite ” $+ $scriptdirtempdns.cache.ini $+ ” -1 &update
unset %ip.line
}
else {
sockclose $sockname
echo $color(info) -at /traceip (update): Your cache is bigger than the internet cache. There are $ini(” $+ $scriptdirdns.cache.ini $+ “,0) zones in your cache. Aborted
}
}
unset %update
bunset &update
}

alias -l ask.for {
if ($?!=”There are less/same IP’s in the updated file. Do you wish to replace your cache anyway?” == $true) {
return $true
}
else {
return $false
}
}

on *:SOCKCLOSE:update.traceip:{
.timerdo.update -m 1 1 do.update
unset %allow.update
}

alias -l do.update {
var %total = $calc($ini($scriptdirtempdns.cache.ini,0) – $ini($scriptdirdns.cache.ini,0))
.remove ” $+ $scriptdirdns.cache.ini $+ ”
.rename ” $+ $scriptdirtempdns.cache.ini $+ ” ” $+ $scriptdirdns.cache.ini $+ ”
echo $color(info) -at /traceip (update): Update succeeded! There are $ini(” $+ $scriptdirdns.cache.ini $+ “,0) zones in the cache now. Total %total zones added.
}

on *:SOCKOPEN:traceip*:{
if ($sockerr > 0) {
sockclose $sockname
echo $color(info) -at * /traceip: An error has occured.
if ($sockerr == 3) {
if (!$sock($sockname)) { sockopen traceip $+ %ip www.dnsstuff.com 80 }
}
}
else {
sockwrite -n $sockname GET /tools/whois.ch?ip= $+ %ip HTTP/1.1
sockwrite -n $sockname Host: www.dnsstuff.com
sockwrite -n $sockname Connection: keep-alive
sockwrite $sockname $crlf
}
}

on *:SOCKCLOSE:traceip*:{
if (!%ip) { echo $color(info) -at * /traceip: An error has occured. }
}

on *:SOCKREAD:traceip*:{
sockread %trace
tokenize 32 %trace
if (Country: isin %trace) {
echo $color(other) -at $remove($sockname,traceip) is $remove($2-,[,],(High))
writeini -n ” $+ $scriptdirdns.cache.ini $+ ” $ClassC($remove($sockname,traceip)) location $remove($2-,[,],(High))
sockclose $sockname
}
unset %trace
.timerruns 1 1 unset %ip
}

menu nicklist {
Trace IP:dns $$1
}

menu query {
Trace IP:dns $$1
}

Bu kod’u ister mircinize dosya olarak yükleyin, isterseniz direk remoteye ekleyiniz.

Addon yükledikden sonra calıştırmak için /traceip IP komutunu kullanarak istediginiz ipin hangi şehire baglı oldugunu bulabilirsiniz..

Tags: ip bulma addonu, şehir bulma addonu, mirc addonları, mirc kodları