IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Sayfa 1 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Girişte Ülke/Şehir/İSP Gösterme (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/682252-giriste-ulke-sehir-isp-gosterme.html)

Toprak

17 Şubat 2015 15:44

Girişte Ülke/Şehir/İSP Gösterme

Merhaba,
Giriş yapan kişinin Ülke, Şehir, ISP, Mobil(IP), VPN olup olmadığı şeklinde @Giris penceresine yansıtır..
Kodu kullanabilmeniz için client girişini görebilmeniz gerekmektedir.

Kod:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \((.+)@(.+)\)/Si) { who +I $regml(2) }

raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) igs.gevezeyiz.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6)

on *:sockopen:giris_bildiri*:{  

  if ($sockerr) { sockclose $sockname }

  else {

    sockwrite -nt $sockname GET $+(/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Cache-Control: max-age=0

    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36

    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7

    sockwrite -nt $sockname $crlf  

  } 

}

on *:sockread:giris_bildiri*:{  

  var %tr | sockread %tr | tokenize 32 %tr

  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }

  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $regml(1) }

  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }

  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) }

  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { 

    $iif(!$window(@Giris),window -e @Giris)

    .echo @Giris 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır)

    sockclose $sockname

  }

}

Kod güncellendi..

Feragat

17 Şubat 2015 18:07

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Güzel olmuş. Emeklerine sağlık.

mercenary

17 Şubat 2015 18:46

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Teşekkürler toprak yalnız bende iki sefer gösteriyor.
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom

Toprak

17 Şubat 2015 19:00

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

mercenary Nickli Üyeden Alıntı (Mesaj 1041617322)

Sanırım mIRC'inizde başka bir kod daha var girişte who filan çeken.

Kod'daki bu kısmı kaldırın siz tamamdır..

Kod:

on *:snotice:*Client connecting on port*:who +I $9

eTheRciTy

18 Şubat 2015 22:50

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Peki bunu kanala yansıtmak için ne yapmamız gerekiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Örnek #Şehir kanalına yansıtmak istiyorum.

Aytac

19 Şubat 2015 01:53

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

eTheRciTy Nickli Üyeden Alıntı (Mesaj 1041618143)

Peki bunu kanala yansıtmak için ne yapmamız gerekiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Örnek #Şehir kanalına yansıtmak istiyorum.

Kod:

#giriste on

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (ISP Provider: isin %:pro) { 

    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp 

    .hfree -sw %:n

    sockclose $sockname

  }

}

#giriste end

menu menubar {

  +> IP GIRIS

  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }

  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }

  ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.

}

POSOFxPOWER

20 Şubat 2015 03:01

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Guzel Kod yazmisin Toprak
ama CR3.5 te calismiyor. bu sekilde hata veriyor

01:56] -> Server: 315:*:halt
-
[01:56] -> Server: 352:*:{
-
+I End of /WHO list.
-
( 315:*:halt ) Yanlis Komut Kullandiniz..
( 352:*:{ ) Yanlis Komut Kullandiniz..

statuste connect bu sekilde gozukuyir
[01:57] -iRC.network.CoM- *** Notice -- Client connecting on 5.5.5.5:6667 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] client

Toprak

20 Şubat 2015 14:29

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

POSOFxPOWER Nickli Üyeden Alıntı (Mesaj 1041618732)

CR'de hiç bulunmadım ama mantık şu kullanıcı girişte who +I Nick komutunu uyguluyor ve 352.' rawda ip adresini alıp socks açıyor..

oSmanLi

16 Mart 2015 16:39

Cevap: Girişte Ülke/Şehir/İSP Gösterme

güzeL çalışma olmus

[RaNGeR]

19 Mart 2015 00:16

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam Emeklerine Sağlık Kod Harika Bir Şekilde Çalışıyor Ellerine Sağlık Hocam.

[RaNGeR]

22 Mart 2015 00:36

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Usta bir şey dikkatimi çekti verdiğin kod'da web girişlerini vermiyor sadece scriptten girenleri listeleyip gösteriyor. web girişleri için eklememi yapmak lazım yoksa kod o şekildemi çalışıyor.

Hangman

22 Mart 2015 18:20

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

aLpTeKiN Nickli Üyeden Alıntı (Mesaj 1041636566)

on *:snotice:*Client connecting on port*:who +I $9

Bu bölümün altına aşağıdaki verdiğim satırı eklersen büyük ihtimalle işini görür. Web girişi snoticelerini bilmeden tahmını soyluyorum. Çalışmaz ise web girişi snotice örneği verirsen bir tane ona göre bilgi verilir.

on *:snotice:*Client connecting at*:who +I $8

Toprak

22 Mart 2015 18:33

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

aLpTeKiN Nickli Üyeden Alıntı (Mesaj 1041636566)

Web girişlerin hub üzerinden ise alt kısımdaki kod'uda ekleyin;

Kod:

on *:snotice:*Client connecting at*:who +I $8

Yada şöyle yapalım her 2 snotice yide sil bunu ekle;

Kod:

on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)

Ody	29 Mart 2015 16:28

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam bunları kanala nasıl yansıtırız :)

Feragat

29 Mart 2015 18:35

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Ody Nickli Üyeden Alıntı (Mesaj 1041639492)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam bunları kanala nasıl yansıtırız :)

Bir önceki sayfada mevcut.

Slalayl0m

30 Mart 2015 22:05

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] işime yaradı :) Eline sağlık

No1	08 Nisan 2015 00:04

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Emegine Saglık

ZamaN

08 Nisan 2015 09:37

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Bu adam gerçekten KİNG ya.. Bu işin piri

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 09:37 -->-> Daha önceki mesaj 09:36 --

Bu adam bu alanda KİNG bence başarılar kardeşim

Beatle

16 Eylül 2015 02:00

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kendi kullandıgım mirc a koyunca çalısıyor , mirc bota koyunca tepki vermiyor bu sorunu nasıl çözerim.

Z-Lined

16 Eylül 2015 07:13

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Peki hocam bunları hem kanala, hem giren kişinin özeline , hemde @Şehir < olarak bir pencerede <Nick> ülke şehir ip vs şeklinde nasıl yapabiliriz?

SuLh	16 Eylül 2015 15:05

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Z-Lined Nickli Üyeden Alıntı (Mesaj 1041683817)

Peki hocam bunları hem kanala, hem giren kişinin özeline , hemde @Şehir < olarak bir pencerede <Nick> ülke şehir ip vs şeklinde nasıl yapabiliriz?

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (ISP Provider: isin %:pro) { 

    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    $iif(!$window(@Giriş),window -e @Giriş)
 msg %:n Girişiniz: - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

msg #kanal Nick: 4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .echo @Şehir Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -sw %:n

    sockclose $sockname

  }

}

Dizqinshell

19 Ağustos 2016 02:03

Cevap: Girişte Ülke/Şehir/İSP Gösterme

* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)

Socket Bota Entegre ederken sorun yaşıyorum

BydeLi1

20 Eylül 2016 22:57

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Emeğine SAygılar güzel calısma olmus

Nick:4 konyamoney - IP:4 46.197.166.219 - Ulke:4 Turkey - Sehir:4 Konya - ISP:4 Turksat Uydu-Net Internet
Sevgin (/WHO) listesinin sonu
Nick:4 Sevgin - IP:4 78.50.184.16 - Ulke:4 Germany - Sehir:4 Stuttgart - ISP:4 Telefonica Germany
Nick:4 wayber - IP:4 62.158.127.184 - Ulke:4 Germany - Sehir:4 Greifswald - ISP:4 Deutsche Telekom AG
Nick:4 wayber - IP:4 62.158.127.184 - Ulke:4 Germany - Sehir:4 Greifswald - ISP:4 Deutsche Telekom AG

M-Sohbet

22 Eylül 2018 03:21

Cevap: Girişte Ülke/Şehir/İSP Gösterme

toprak üsdatım bu kodun bilgileri çektiği site çalışmıyor sanırsam eğer mümkünse sana zahmet kodu güncelleyebilirmisin tabi varsa bilgileri çekebileceği bir site yine sizde bir bakarsınız zahmet olmazsa eğer :(

on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1 ,191)) HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
$iif(!$window(@Giriş),window -e @Giriş)
.echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}

Che	22 Eylül 2018 12:01

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (ISP Provider: isin %:pro) { 

    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    $iif(!$window(@Ülke/Şehir/İSP),window -e @Ülke/Şehir/İSP)

    .echo @Ülke/Şehir/İSP •[Nick:2 %:n 1] - •[IP:2 %ip 1] - •[Ulke:2 %ülke 1] - •[Sehir:2 %sehir 1] - •[ISP:2 %:isp ] - •[Saat :2 $time ] - •[Tarih :2 $date ]

    .hfree -sw %:n

    sockclose $sockname

  }

}

Alper

22 Eylül 2018 16:39

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Dün sitede sorun vardı bugün çalışıyor site aynı kodu kullanabilirsin.

Zanay

18 Ekim 2018 15:27

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Merhaba ;
The DFS Socket Botunda Bu Bölüm Var Ama Sunucuya Bağlananların IP Bilgisi Yansımıyor. Benim İstediğim #Opers Kanalına Sunucuya Bağlananların Bilgisi Yansıması. Normal Mirc`e Script Kodu Olarak Eklendiğinde Kanala Yansıyor Ama Socket Bot Olarak Olmuyor.

Kod:

alias nerden { 

  var %:r $+(10,99999)

  sockopen $+(yerbul,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark $+(yerbul,%:r) $+($1,¿,$2)

}

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) 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 Connection: keep-alive

  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -n $sockname $crlf 

}

on *:sockread:yerbul*: {  

  if ($sockerr) { sockclose $sockname | returnex } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }

}

thelord

20 Ekim 2018 19:35

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Şu an vermiyor site güncelleyecek varmı

No_FeaR

20 Ekim 2018 19:50

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Deneyecek sunucum yok, Telefondan yaptım, Umarım doğrudur.. (;

Kod:

alias nerden { 

  var %:r $+(10,99999)

  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80

  sockmark $+(yerbul,%:r) $+($1,¿,$2)

}

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1

  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -n $sockname $crlf 

}

on *:sockread:yerbul*: {  

  if ($sockerr) { sockclose $sockname | returnex } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }

}

thelord

20 Ekim 2018 19:53

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041992569)

Telefondan yaptım, Umarım doğrudur.. (;

Kod:

alias nerden { 

  var %:r $+(10,99999)

  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80

  sockmark $+(yerbul,%:r) $+($1,¿,$2)

}

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1

  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -n $sockname $crlf 

}

on *:sockread:yerbul*: {  

  if ($sockerr) { sockclose $sockname | returnex } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }

}

Kardeşim bunu mesela x kanalına yansıtmasını istiyoruz varmıdır böyle birşey

Emrehan

20 Ekim 2018 19:56

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

b1gLord Nickli Üyeden Alıntı (Mesaj 1041992570)

Kardeşim bunu mesela x kanalına yansıtmasını istiyoruz varmıdır böyle birşey

Kod içerisinde swbot privmsg $_opers olarak geçen yerleri;

Kendiniz mIRC'iniz veya mIRC Bot'unuzsa;
msg #x

Socket Bot'sa
swbot privmsg #x

olarak değişiniz.

No_FeaR

20 Ekim 2018 20:01

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

b1gLord Nickli Üyeden Alıntı (Mesaj 1041992570)

Kardeşim bunu mesela x kanalına yansıtmasını istiyoruz varmıdır böyle birşey

1. Sayfada var.. (;

Alper

20 Ekim 2018 23:59

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041992569)

Deneyecek sunucum yok, Telefondan yaptım, Umarım doğrudur.. (;

Kod:

alias nerden { 

  var %:r $+(10,99999)

  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80

  sockmark $+(yerbul,%:r) $+($1,¿,$2)

}

on *:sockopen:yerbul*:{  

  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1

  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -n $sockname $crlf 

}

on *:sockread:yerbul*: {  

  if ($sockerr) { sockclose $sockname | returnex } 

  var %yerbul

  sockread %yerbul

  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }

  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }

  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }

  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }

  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }

}

Kod bu şekilde çalıştı mı? Alias olarak verilmiş bu kod yani !nerden komutu için kullanılan bir kod.

Kodu denemek için şöyle yapabilirsiniz.

/nerden ip nick

Ilk verilen site çalışıyor zaten sıkıntı yok.

Mirc icin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dediği yerleri değiştirmeniz gerek.

No_FeaR

21 Ekim 2018 01:15

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

pCkOpAt Nickli Üyeden Alıntı (Mesaj 1041992641)

Arkadaş linklerin güncellemesi istemişti, Ben sadece mevcut olan kodun linkleri güncelledim ki; Telefondan girdiğimi de belirtmiştim. Extra olarakta Telefondan girip yapmıştım onu. Malum o halde ne deneme şansım var ne de bakma..
Dediğim gibi mevcut olan kodun sadece linklerini güncelledim ben. (;

Alper

21 Ekim 2018 01:32

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041992652)

Arkadaş linklerin güncellemesi istemişti, Ben sadece mevcut olan kodun linkleri güncelledim ki; Telefondan girdiğimi de belirtmiştin. Extra olaraktaTelefondan girip yapmıştım onu. Malum o halde ne deneme şansım var ne de bakma..
Dediğim gibi mevcut olan kodun sadece linklerini güncelledim ben. (;

Farkındayım bende mobildim kodu gördüğümde o yüzden sordum deneyen var mı çalışıyor mu diye. Bendeki kodu paylaşayım diyecem de 1. posttaki ile aynı zaten.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bu kodu sockette kullanmak için raw 352 kısmını botta

Kod:

if ($2 == 352) {

Bu kısımda kullanmanız gerekmekte.

  }

Ek olarak mircte $4 olan ip kısmı sockette $6 dır.

Tam olarak yardımcı olabilmek için socket botun kodları lazım.

Örnek:

Kod:

if ($2 == 352) {

var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($6,¿,$8)

}

Kod:

if ($2 == NOTICE) {

swbot who +I $12
 

}

Burdaki swbot aliastır socket botun eğer böyle bir alias yoksa sockwrite -n botismi şeklinde kullanabilirsin.

HOROZ

25 Ekim 2018 21:49

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Eline sağlık

cenderme12

29 Haziran 2019 21:23

Cevap: Girişte Ülke/Şehir/İSP Gösterme

bunları opers kanalına nasıl yansıtırız

Mylife

30 Haziran 2019 15:22

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Aytac Nickli Üyeden Alıntı (Mesaj 1041618219)

Kod:

#giriste on

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{  

  if ($sockerr) { .sockclose $sockname | return }

  var %:pro | sockread -f %:pro

  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }

  if (ISP Provider: isin %:pro) { 

    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp 

    .hfree -sw %:n

    sockclose $sockname

  }

}

#giriste end

menu menubar {

  +> IP GIRIS

  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }

  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }

  ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:22 -->-> Daha önceki mesaj 15:20 --

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1041992572)

Kod içerisinde swbot privmsg $_opers olarak geçen yerleri;

Kendiniz mIRC'iniz veya mIRC Bot'unuzsa;
msg #x

Socket Bot'sa
swbot privmsg #x

olarak değişiniz.

Konuyu 1. sayfadan okursanız aradığınızı bulacaksınız.

Kod:

sockwrite $sockname privmsg #kanal

Fani	12 Ekim 2019 23:36

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Arkadaşlar Merhaba. Ben Bu Komutta Ufal Bi Değişiklik Yapmak İstiyorum Ülke Şehir ISP Bilgilerinin Yanında Hangi Porttan Bağlandığını da Yansıtmak İstiyorum Nasil Yapabiliriz ?
Emekleri Geçenlere de Teşekkürler

HOROZ

30 Haziran 2020 18:44

Cevap: Girişte Ülke/Şehir/İSP Gösterme

on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1 ,191)) HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
$iif(!$window(@Giriş),window -e @Giriş)
.echo -tm @Giriş Nick:10 %:n 4 IP: %ip - Ulke: %ülke - Sehir: %sehir - ISP: %:isp
.hfree -sw %:n
sockclose $sockname
}
}

Merhaba

bu kodu kendime özel @Giriş penceresinde kullanmak üzere

!isp ekle/sil/list
!ulke ekle/sil/list
!sehir ekle/sil/list
!ip ekle/sil/list

Eklenilenler yakalandığında gline ile sonuç alacak.

Yardımcı olacak varsa şimdiden teşekkürler.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:04.

Sayfa 1 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster