Eggdrop, NeoStats, BNC Sunucu botları, kurulumları ve ayalarına bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
12 Ocak 2021, 12:45 | #1 |
Eggdrop !nerden Remotesi
Kod#################################################################################### # shrbulucu.tcl By LeaT[Emre] # iletişim : destek@cagmanbilisim.com # # Kullanım: # !nerden <nick>/<ip> # !nerden2 <nick>/<ip> # # .. #----------------------------------------------------------------------------------- # ## Admin kanalını bilirtiniz.. # set ip(statchan) "#opers" # ## Buraya ircd.log dosyanızın yerini yazınız # set ip(ircd) "/home/askcenne/Unreal3.2/ircd.log" ##################################################################################### # !!!!!!BURADAN SONRASINA DOKUNMAYINIZ!!!!!! # ##################################################################################### set ip(timeout) "10000" package require http bind pub - !nerden2 ipgeo bind pub - !nerden ipwhat proc ipbul {nick nip type} { global ip if {![onchan $nick $ip(statchan)]} {return} if {$type == "1"} { set ip(sonuc) 0 bind raw - 352 ipbula bind raw - 315 ipwhoson putquick "who +I $nip" } if {$type == "2"} { set ip(sonuc) 0 bind raw - 352 ipbulb bind raw - 315 ipwhoson putquick "who +I $nip" } if {$type == "3"} { set ip(sonuc) 0 utimer 2[list bind raw - 352 ipnicka] utimer 2[list bind raw - 315 ipwhoson] utimer 2[list putquick "who +i $nip"] } } proc ipnicka {from keyword arg} { global ip if {![info exists ip(nickler)]} { set ip(nickler) "" } lappend ip(nickler) [lindex $arg 5] set ip(sonuc) 1 } proc ipwhoson {from keyword arg} { global ip if {![string match "*ipbula*" [binds]] && ![string match "*ipbulb*" [binds]] && ![string match "*ipnicka*" [binds]]} { return } if {[info exists ip(nickler)] && [llength $ip(nickler)] > 0 && $ip(sonuc) == 1 } { putquick "privmsg $ip(statchan) :\00302Bu ip üzerinden şuan bağlı olan nickler:" if {[llength $ip(nickler)] > 1} { set clone clone } else { set clone kişi } putquick "privmsg $ip(statchan) :\00312[join $ip(nickler)] \00302Toplam \00303- [llength $ip(nickler)] -\00302 $clone.." set ip(sonuc) 0 } elseif {$ip(sonuc) != 1 } { putquick "privmsg $ip(statchan) :\00307Sorguladığınız nick şuan sunucuda bulunmuyor." } set ip(nickler) "" if {[string match -nocase *ipbulb* [binds]]} { unbind raw - 352 ipbulb ; putlog "ipbulb son" } if {[string match -nocase *ipbula* [binds]]} { unbind raw - 352 ipbula ; putlog "ipbula son" } if {[string match -nocase *ipnicka* [binds]]} { unbind raw - 352 ipnicka ; putlog "ipnicka son" } if {[string match -nocase *ipwhoson* [binds]]} { unbind raw - 315 ipwhoson ; putlog "ipwhoson son" } set ip(sonuc) 0 } proc ipbula {from keyword arg} { global ip set ip(sonuc) 1 ipgeo [lindex $arg 5] uhost hand $ip(statchan) [lindex $arg 3] } proc ipbulb {from keyword arg} { global ip set ip(sonuc) 1 ipwhat [lindex $arg 5] uhost hand $ip(statchan) [lindex $arg 3] } proc nickhist {nip} { global ip set data "" ; set nickler "" set input [open "$ip(ircd)" r] set input [split [read $input] \n] foreach curline $input { set curline [split $curline] if {$curline != ""} { if {[string match -nocase *$nip* $curline]} { regexp {.+ (.+)!.+ .+} $curline match nick if {[lsearch $nickler $nick] == "-1"} { lappend nickler $nick } } } } catch {close $input} if {[llength $nickler] > 0} { putquick "privmsg $ip(statchan) :\00302Bu ip üzerinden daha önce yapılan girişler:" set i 1 set y [llength $nickler] while {[expr $y / [expr $i * 25]] > 0} { putquick "privmsg $ip(statchan) :\00312[join [lrange [lindex $nickler] [expr [expr $i * 25] - 25] [expr [expr $i * 25]-1]]]" incr i } putquick "privmsg $ip(statchan) :\00312[join [lrange [lindex $nickler] [expr [expr $i * 25] - 25] [expr [expr $i * 25]-1]]] \00302Toplam \00303- [llength $nickler] -\00302 kişi.." } } proc ipwhat {nick uhost hand chan text} { global ip if {![string match -nocase $chan $ip(statchan)]} {return} set text [split [string trim $text]] if {$text == ""} {putquick "PRIVMSG $chan :\SorguLama icin Lütfen Bir Nick veya Bir ip beLirtmeLisiniz/ örnek- !nerden PiSLiCk örnek- 123.456.78.9";return} if {[regexp {.+\..+\..+\..+} $text] == "0"} { set nip [lindex $text 0] ipbul $nick $nip 2 return 0 } ipbul $nick $text 3 utimer 1[list nickhist $text] set ipstatsite "http://whatismyipaddress.com/staticpages/index.php/lookup-results?ip=" set sayfa "" catch {set sayfa [::http::geturl $ipstatsite$text -timeout $ip(timeout)]} error if {[string match -nocase "*couldn't open socket*" $error]} { putquick "PRIVMSG $chan :Hata: WhatisMyipaddress.com'a şuan bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.." ::http::cleanup $sayfa return } if { [::http::status $sayfa] == "timeout" } { putquick "PRIVMSG $chan :Hata: WhatisMyipaddress.Com'a bağlantı zaman aşımına uğradı.." ::http::cleanup $sayfa return } set html [::http::data $sayfa] ::http::cleanup $sayfa regexp -- {><TD>Country:</TD><TD>(.*?)<.+} $html - ulke regexp -- {><TD>City:</TD><TD>(.*?)<} $html - sehir regexp -- {><TD>State/Region:</TD><TD>(.*?)<} $html - bolge regexp -- {.+<TR><TD>Type:</TD><TD>(.*?)</TD></TR>.+} $html - type if {[string match -nocase "*Proxy*" $ulke]} { set ulke \0034PROXY! putquick "PRIVMSG $chan :\00312\[$text\] \00302için sorgulama sonuçları: $ulke" return } putquick "PRIVMSG $chan :\00312\[$text\] \00302için sorgulama sonuçları:" putquick "PRIVMSG $chan :\00304Baglandigi Ülke: \00303$ulke \00304Baglandigi Bölge: \00303$bolge \00304Baglandigi Şehir: \00303$sehir \00304Baglanti Tipi: \00303$type" } proc ipgeo {nick uhost hand chan text} { global ip if {![string match -nocase $chan $ip(statchan)]} {return} set text [split [string trim $text]] if {$text == ""} {putquick "PRIVMSG $chan :Bir ip belirtmelisiniz.";return} if {[regexp {.+\..+\..+\..+} $text] == "0"} { set nip [lindex $text 0] ipbul $nick $nip 1 return 0 } ipbul $nick $text 3 utimer 1[list nickhist $text] set ipstatsite [::http::formatQuery cid "0" c "0" Template "iplocator.htm" ipaddress "$text"] set geoipurl "http://www.geobytes.com/IpLocator.htm?GetLocation" set sayfa "" catch {set sayfa [::http::geturl $geoipurl -query $ipstatsite -timeout $ip(timeout)]} error if {[string match -nocase "*couldn't open socket*" $error]} { putquick "PRIVMSG $chan :Hata: Geobytes.com'a bağlanılamıyor.. Daha sonra tekrar deneyiniz.." ::http::cleanup $sayfa return } if { [::http::status $sayfa] == "timeout" } { putquick "PRIVMSG $chan :Hata: Geobytes.com'a bağlantı zaman aşımına uğradı.." ::http::cleanup $sayfa return } set html [::http::data $sayfa] ::http::cleanup $sayfa set country "";set region "";set city "";set certainty "" if {[regexp {<html><head></head><body>The IP Address that you are currently using: .*? has exceeded} $html]} { putquick "PRIVMSG $chan :Üzgünüm, geobytes sitesine şuan daha fazla sorgulama yapılamıyor kota doldu.. \002!nerden2\002 komutunu kullanınız.." return } if {[regexp {<p>We are unable to locate the address (.*?) at this time.*?<p>} $html]} { putquick "PRIVMSG $chan :\00304Üzgünüm \00312\[[join $text]\] \00304bulunamadı." return } regexp {.*?>Country</td>.*? value="(.*?)" .*?>Region</td>.*? value="(.*?)" .*?>City</td>.*? value="(.*?)" .*?>Certainty</td>.*? value="(.*?)" .*?>Is proxy</td>.*? value="(.*?)" .*?} $html match ulke bolge sehir kesinlik proxy if {$proxy == "true"} { putquick "PRIVMSG $chan :\00312\[$text\]" putquick "PRIVMSG $chan :\00302için sorgulama bilgileri: \00305Şehir: \00304$sehir, \00305Bölge: \00304$bolge, \00305Ülke: \00304$ulke. \00305Kesinlik: \00304\%$kesinlik \00302Proxy kullanıyor!" } if {$proxy == "false"} { putquick "PRIVMSG $chan :\00312\[$text\] \00302için sorgulama bilgileri:" putquick "PRIVMSG $chan :\00305Şehir: \00304$sehir, \00305Bölge: \00304$bolge, \00305Ülke: \00304$ulke. \00305Kesinlik: \00304\%$kesinlik" } return } putlog "shrbulucu.tcl By PiSLiCk Yüklendi.." |
|
|
12 Ocak 2021, 20:37 | #2 |
Emeğine sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
paylaşım için tşkler dostum
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
12 Ocak 2021, 20:39 | #3 |
Emeğinize sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
~ E & B ~ |
|
|
12 Ocak 2021, 20:39 | #4 |
Emeklerinize saglik
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
guzel calisma .
________________
"hakikâte giden yolda, meşakkatsiz bir varış yoktur."
|
|
|
12 Ocak 2021, 20:45 | #5 |
Emeklerine Sağlık , Paylaşım İçin Teşekkürler.
|
|
|
12 Ocak 2021, 20:48 | #6 |
Eline sağlık kanka adamsın
________________
Sayonaraaa.. |
|
|
12 Ocak 2021, 20:49 | #7 |
emeginize saglik
________________
No MoRe DramA
|
|
|
12 Ocak 2021, 20:53 | #8 |
Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
|
|
|
12 Ocak 2021, 21:58 | #9 |
Emeğinize sağlık
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
12 Ocak 2021, 23:17 | #10 |
Emeğine sağlık.
________________
. |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|