18 Haziran 2022, 10:27
|
#1
|
|
Whois Çeken Nereden?
Kod kısaca size whois çekenleri txt dosyasına kaydediyor. Kişiye notice ile bilgi veriyor ve whois çeken kişinin ip adresini sorgulayarak @Whois penceresinde sonuçları gösteriyor. Proxy/Vpn ve Tür bilgisini api key olmadığı için çekmiyor sanırım. Başka bir sorun varsa da konuyu gören üstadlar sorunu düzeltme konusunda yol gösterebilirler. Kod amatörce benim tarafımdan yapılmıştır.
Keyifli Forumlar.
NOT: Admin/IRCop Flagı olmalıır.
Kod:
on *^:snotice:*: {
if (*whois*on*you* iswm $1-) {
echo -a 14 @Whois -> 4,1 Whois cekildi. Nick: $2 İp adresi : $3
Notice $2 4,1 Selam whois çektiniz nasıl yardımcı olabilirim ?
write whois.txt Whois Çeken Nick : $2 $ID-IP : $3
if ($sock(kimkio)) sockclose kimkio
kimo $2
}
}
on *:sockopen:kimkio:{
sockwrite -tn $sockname GET $+(/v2/,%sip,?vpn=1&asn=1) HTTP/1.1
sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -tn $sockname Connection: keep-alive
sockwrite -tn $sockname Host: proxycheck.io
sockwrite -tn $sockname $crlf
}
on *:sockread:kimkio:{ var %d_kimkio | sockread %d_kimkio | tokenize 32 %d_kimkio
if *"status":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Durum:4 $gettok(%d_kimkio,2-,58) }
if *"asn":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Asn:4 $gettok(%d_kimkio,2-,58) }
if *"provider":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Sağlayıcı:4 $gettok(%d_kimkio,2-,58) }
if *"continent":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Kıta:4 $gettok(%d_kimkio,2-,58) }
if *"country":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Ülke:4 $gettok(%d_kimkio,2-,58) }
if *"isocode":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Ülke Kodu:4 $gettok(%d_kimkio,2-,58) }
if *"region":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Bölge:4 $gettok(%d_kimkio,2-,58) }
if *"regioncode":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Bölge Kodu:4 $gettok(%d_kimkio,2-,58) }
if *"city":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Şehir:4 $gettok(%d_kimkio,2-,58) }
if *"latitude":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Enlem:4 $gettok(%d_kimkio,2-,58) }
if *"longitude":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Boylam:4 $gettok(%d_kimkio,2-,58) }
if *"proxy":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Proxy-Vpn:4 $gettok(%d_kimkio,2-,58) }
if *"type":* iswm %d_kimkio { if (!$window @Whois)) { window -en @Whois } | echo -t @Whois 2Tür:4 $gettok(%d_kimkio,2-,58) }
if (!$window @Whois)) { window -en @Whois | echo -t @Whois --------------- 4Whoisci Sorgusu Bitişi --------------- | sockclose kimkio } }
alias kimo { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {
sockclose kimkio | %sip = $replace($1,-,.) | sockopen kimkio proxycheck.io 80 }
set -e %d_nick $1 | enable #kimkio | userip $1 }
#kimkio off
raw 340:*:{
if (!$window @Whois)) { window -en @Whois }
if $2 { %sip = $gettok($2,2,64) | sockopen kimkio proxycheck.io 80 | disable #kimkio }
elseif (!$2) { echo -t @Whois %d_nick nickinin ip adresine ulasılamadı. | disable #kimkio } }
#kimkio end
Çoğumuz Aslen Deli ve Dünya Deliler Hastanesi..

|
|
|