| MatheuS | 22 Mart 2016 02:29 |
Cevap: Whois
İkisini Birleştirmedim Fakat Elimde Bulunanlarla Sanırım İstediğin Gibi Birşey Yaptım Umarım İşini Görür. Kod:
on *:snotice:*whois*: {
window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is
echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is $time $1-
var %> = $+(%,op:,$2)
inc -eu60 $(%>,1)
if ($(%>,2) == 1) {
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) {
bulip $2
} else {
.enable #nerdenmis
.who +I $2
}
msg $2 4» 1Whois Çekerken Yakaladım4. ;1) Bilgileriniz Alınıyor. 10,1 %logo
msg $gettok(%>,2,58) 4» 1Buyrun $2 Bana Whois Çektiniz, Size Nasıl Yardimci Olabilirim ? | .inc %whoissayac
echo -a 4»2 $gettok(%>,2,58) , 2Size Whois Ceken 4 %whoissayac .2 Kişi.
halt
}
}
#nerdenmis off
raw 352:*: bulip $4
raw 315:*:.disable #nerdenmis
#nerdenmis end
alias bulip { var %:r $r(1000,99999) | sockopen $+(ipbul,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ipbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:ipbul*:{
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 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:ipbul*:{
window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is
var %:ipbul | sockread -f %:ipbul
if (Hostname: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Hostname. : 4 $iif(!$token($htmlfree(%:ipbul),3,58),Belirsiz,$token($htmlfree(%:ipbul),3,58)) }
if (IP Country: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Ülke..... : 8 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
if (IP Continent: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Kıta..... : 7 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
if (IP City: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 Sehir.... : 9 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) }
if (ISP Provider: isin %:ipbul) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is 0,1 ISP...... : 11 $iif(!$token($htmlfree(%:ipbul),2,58),Belirsiz,$token($htmlfree(%:ipbul),2,58)) | sockclose $sockname }
}
on *:input:#:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { bulip $2 }
else { .enable #nerdenmis | .who +I $2 }
halt
}
}
En Sondaki on *:input kısmı kanal genelinde !nerden nick sorgulamanıda sağlar ve @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]is Penceresine verir kanal genelinde yazdıgın görünmez. Dilersen O kısmı silebilirsinde yada görünsün sorguladıgım dersende en sondaki halt ı silmen yeterli olacaktır. |
