🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
alias nerden {
var %rand $rand(0,999999)
sockopen $+(yerbul,%rand) Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80
sockmark $+(yerbul,%rand) $1
}
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -n $sockname $crlf
}
on *:sockread:yerbul*: {
var %yerbul
sockread %yerbul
if $regex(%yerbul,/IP.City\:/i) {
var %sehir $token($token(%yerbul,3,62),1,60)
if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }
}
}
/nerden 95.15.60.58
ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.
alias nerden {
var %rand $rand(0,999999)
sockopen $+(yerbul,%rand) Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80
sockmark $+(yerbul,%rand) $1
}
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -n $sockname $crlf
}
on *:sockread:yerbul*: {
var %yerbul
sockread %yerbul
if $regex(%yerbul,/IP.City\:/i) {
var %sehir $token($token(%yerbul,3,62),1,60)
if $istok(Berlin Berlin2 Berlin3 Sehir4 Sanliurfa,%sehir,32) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }
}
}
/nerden 95.15.60.58
ne demek istedigini anlamadım ama bu isini görür bence. demo olarak veriyorum gerisi sana kalmıs.
Teşekkür ederim Set. yapmak istedigimi farklı bi şekilde yaptım
yapmak istedigim şuydu.
mesela bu modem resetleyip saldırı yapan lamerler var.
bu lamerleri önlemek için şöyle bişey düşünmüştüm.
bu yukardaki !nerden nick komutunda yazılan nickin şehrini gösteriyor.
bende burdan yola cıkarak mesela adam adana şehrinden baglanıyorsa 1 saatligine adana şehrinden girenleri banlamak... gbi bi düşünceydi.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias nerden { sockopen yerbul Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80 }
on *:sockopen:yerbul:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
sockwrite -n $sockname host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -n $sockname $crlf
}
on *:sockread:yerbul: {
var %yerbul
sockread %yerbul
if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ulke,IP Country Code,Ulke Kodu,IP Continent,Kita,IP Region,B?lge,IP City,Sehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Sirket,ISP Provider,Servis Saglayici) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:input:*: {
if ($1 == !nerden) || ($1 == .nerden) && ($2) {
if ($left($2,1) isnum) {
.set -e %nrd $2 | set -e %aktif $active
.nerden $2
.timer 1 2 .sockclose nerden
}
else {
.userip $2
.enable #nerdenbul
set -e %aktif $active
.nerden $2
.timer 1 2 .sockclose nerden
}
}
}
#nerdenbul off
raw 340:*: {
set %nrd $gettok($2,2,64)
.disable #nerdenbul
}
#nerdenbul end
#takiple on
alias takiple {
if ($1) {
inc %xx
sockopen $+(tkpet*,%xx) Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80
sockmark $+(tkpet*,%xx) $1
}
}
on *:sockopen:tkpet*:{
var %s sockwrite -n $sockname
%s GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1
%s Host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. on *:sockread:tkpet*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
if (* $+ %sehirle $+ * iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) : 1Lütfen 4Sohbet 1Kurallarina Uyunuz.. $date $time 5 $me
sockclose $sockname
}
}
raw 352:*:{ takiple $4 }
on *:snotice:*Client connecting*: { .who +I $9 }
#takiple end
alias takipet {
enable #takiple
set %sehirle $1-
echo -a 0,4 $1- Sehri Takibe Alindi.. $1- Sehrinde Girenlere Gzline atilcak.. Kapatmak icin /takipkapa yaziniz.
}
alias takipkapa {
disable #takiple
set %sehirle takipetme
echo -a 0,1 Takip Korumasi Kapandi.. Tekrar Kullanmak icin /takipet Sehir yaziniz.
}
Şu Şekilde yaptım. Belki işine yarayan arkadaşlar olur..
ilk önce Aktif Ekranda !nerden nick yazıyosunuz
Sonra
/takipet şehir
Kapatmak için;
/takipkapa
şeklinde kullanabilirsiniz..
26 Mayıs 2013, 03:12
Benzer Konular 
Hybrid-Şeklinde
