Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
şehirgösteraddon şehirkodu ircforum isp girişte şehir kodları şehiraddonu şehirgöster mircaddonları ülke scriptaddonları gösterme şehiraddon irckodları lamerlercom ircforumları ircaddonları

GİRİŞTE ÜLKE/ŞEHİR/İSP GÖSTERME kodları
Admin
#1
Heart 
Sunucuya giriş yapan kullanıcının ülke/şehir/isp adresini @Giriş penceresine yansıtır.
En az oper yetkiniz olması gerek ve sunucuya giriş/çıkış(snotice)'leri görmeniz gerekmektedir.

NOT : ALT BOLÜMDE KANALDA YANSITMA HEM ÖZELDE YANSITMA İÇİN KODLARIDA BULUNMAKTADIR.

Kod:
on *:snotice:*on*port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias nerd {
  :tekrar
  var %:x $rand(0,9999999)
  if $sock($+(xxnerden,%:x)) { goto tekrar }
  sockopen $+(xxnerden,%:x) www.ipsorgu.com 80
  sockmark $+(xxnerden,%:x) $1
  hadd -m nerden $1 $2
}
on *:sockopen:xxnerden*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
  %komut Host: www.ipsorgu.com
  %komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %komut DNT: 1
  %komut Connection: keep-alive
  %komut Upgrade-Insecure-Requests: 1
  %komut Cache-Control: max-age=0
  %komut $crlf
}

on *:sockread:xxnerden*: {
  var %x, %nick  | sockread %x
  if $regex(%x,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
    var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)
    msg #Opers  45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz)  2Sehir: $iif(%sehir,$v1,Belirsiz)
    msg operserv raw swhois %nick : %ulke , %sehir
    hdel -m nerden %ip
    sockclose $sockname
  }
}


Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 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: www.ipaddresslocation.org
  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
  }
}


ÜLKE ŞEHİR GÖSTERİMİ KANALDA YANSITMAK İÇİN
Kod:
#giriste on
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 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: www.ipaddresslocation.org
  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) >:.
}

ÜLKE ŞEHİR GÖSTERİMİ HEM ÖZELDE HEM KANALDA
Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 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: www.ipaddresslocation.org
  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
  }
}


Kod:
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
  if $nick == $me { return }
  if o isin $usermode {
    if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef }
    else {
      hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
      if !$sock($+(nrdbul,$nick)) { who +I $nick }
      haltdef
    }
  }
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
  sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80
  sockmark $+(nrdbul,$1) $+($1,*,$2)
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:nrdbul*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1
  sockwrite -nt $sockname Host: www.ipaddresslocation.org
  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:nrdbul*:{   
  var %x | sockread %x
  if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }   
  if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
    hadd -mu5 $sockname webisp $regml(1)
    hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
    hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
    hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
    hdel -m chan $hget($sockname,webnick)
    hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
    hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
    tokenize 32 $hget($sockname,webchan)
    echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))
  }
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }


Girişte Şehrine Göre Haber/Hava Durumu
Kendi botumda olan kodu sizlerle paylaşmak istedim Sinan arkadaşım Adamca' için bota eklemiş ti ve hoşuma gitti bende yapmıştım bari paylaşayım beğenenler kullansın dedim.
Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand)  www.ipaddresslocation.org 80 | .sockmark $+(city,%:rand) $+($4,¿,$6) }
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Åž,ş,ÄŸ,ğ,Ãœ,ü,Äž,ğ,$chr(39),-)
on *:sockopen:city*:{ 
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host: www.ipaddresslocation.org
  sockwrite -n $sockname $crlf 
}
on *:sockread:city*: { 
  if ($sockerr) { .sockclose $sockname | return }
  var %city | sockread %city
  if (IP Country: isin %city) &&  (*Turkey* !iswm $token($htmlfree(%city),2,58) ) {
    msg #Opers [ Yurt Dışı ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Ülke: $token($htmlfree(%city),2,58) ]
    sockclose $sockname
    return
  }
  if (IP City: isin %city) {
    if !$token($htmlfree(%city),2,58) { return }
    msg #Opers [ ŞEHİR ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Şehir: $token($htmlfree(%city),2,58) ]
    var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava) www.mynet.com 80 | .sockmark $+(hava,%:hava) $+($bbüyük($token($htmlfree(%city),2,58)),¿,$token($sock($sockname).mark,2,191))
    sockclose $sockname
  }
}
on *:sockopen:hava*:{ var %:hava sockwrite -n $sockname | %:hava GET  /havadurumu/asya/turkiye/ $+ $token($sock($sockname).mark,1,191)  HTTP/1.1 | %:hava Host: www.mynet.com | %:hava $crlf }
on *:sockread:hava*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %hava | sockread %hava
  if (*span class="hvDay">*</span* iswm %hava) {
    msg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191))
    msg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time
  }
  if (*span class="hvMood">*</span* iswm %hava) { msg  $token($sock($sockname).mark,2,191) :5Durum:  $trchra($regsubex($trchra($htmlfree(%hava)),/(.)/i,$iif(2 \\  \n,$upper(\1),$lower(\1)))) }
  if (*span class="hvDeg1">*/span* iswm %hava) { .hadd -ms Hava  $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) }
  if (*span class="hvDeg2">*</span* iswm %hava) {
    msg $token($sock($sockname).mark,2,191) :5EnYuksek:  $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 5EnDusuk:  $trchra($htmlfree(%hava))
    msg $token($sock($sockname).mark,2,191) :
    msg $token($sock($sockname).mark,2,191) :  $+(",$trchra($token($sock($sockname).mark,1,191)),") İl'inden sondakika  haberleri..
    msg $token($sock($sockname).mark,2,191) :
    .hdel -ms Hava $token($sock($sockname).mark,2,191)
    var %:haber $rand(100,999999) | .sockopen $+(haber,%:haber)  rss.haberler.com 80 | .sockmark $+(haber,%:haber)  $+($trchra($token($sock($sockname).mark,1,191)),¿,$token($sock($sockname).mark,2,191))
    sockclose $sockname
    return
  }
}
on *:sockopen:haber*:{
  var %:haber sockwrite -n $sockname
  %:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  %:haber Host: rss.haberler.com
  %:haber $crlf
  if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
  if ($sockerr) { .sockclose $sockname | return }
  var %haber | sockread %haber | .tokenize 32 %haber
  if (<title> isin %haber) {
    if $htmlfree(%haber) == Haberler.Com { return }
    msg $token($sock($sockname).mark,2,191) :5Baslik: $trchra($htmlfree(%haber))
  }
  if (*<description>* iswm %haber) {
    if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return }
    msg $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haber))
  }
  if (*<pubDate>*</pubDate>* iswm %haber) {
    msg $token($sock($sockname).mark,2,191) :5Zaman: $trchra($htmlfree(%haber))
    msg $token($sock($sockname).mark,2,191) :
    .hinc Haber $token($sock($sockname).mark,2,191) 1
    if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 {
      msg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larımız: #Sohbet
      msg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ımız: #Radyo
      msg $token($sock($sockname).mark,2,191) :5User Yardım Kanal'ımız: #Help
      msg $token($sock($sockname).mark,2,191) :5Oper Yardım Kanal'ımız: #OperHelp
      msg $token($sock($sockname).mark,2,191) :
      msg $token($sock($sockname).mark,2,191) :1Sunucu kuralları için5 /kurallar 1komutunu kullanınız.
      msg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanınız.
      msg $token($sock($sockname).mark,2,191) :1Online helper listesi için5 /helpers 1komutunu kullanınız.
      .hdel Haber $token($sock($sockname).mark,2,191)
      .sockclose $sockname
      return
    }
  }
}

Cevapla


Bu Konudaki Yorumlar
GİRİŞTE ÜLKE/ŞEHİR/İSP GÖSTERME kodları - Yazar: Admin - 02-21-2020, 06:15 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb Girişte Host Değil de İP adresini görmek isterseniz. Admin 0 498 08-20-2020, 06:02 PM
Son Yorum: Admin
Heart Mirc Tüm Raw Kodlari Admin 0 574 06-01-2020, 10:24 PM
Son Yorum: Admin
Heart Büyük Harf Koruması Kodları Admin 0 705 06-01-2020, 10:13 PM
Son Yorum: Admin
Heart Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN Admin 0 748 05-26-2020, 07:40 PM
Son Yorum: Admin
Bug Yeni Badnick Koruması Kodları Admin 0 665 05-24-2020, 09:52 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi