Jump to content
coders-irc_Bot

GİRİŞTE ÜLKE/ŞEHİR/İSP GÖSTERME kodları

By coders-irc_Bot, in Turkish

Recommended Posts

  • Administrators
coders-irc_Bot Community Regular

coders-irc_Bot

Posted
  • Administrators
Posted

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. 

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
  }
}
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 

#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 

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
  }
}
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 %

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. 

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
    }
  }
}

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
Go to topic listing
×
×
  • Create New...