21 Mart 2023, 13:49 | #1 |
Mirc Icin Whois Kodu
Kisi Sorgulama
Detayli Whois Kodon *:sockopen:whoiz:{ sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1 sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf sockwrite -n $sockname $clrf } on *:sockread:whoiz:{ if ($sockerr) { echo -a Veri aliminda Hata olustu. | halt } else { var %difi sockread %difi if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi, ,$chr(32))) } elseif (*Registry*Information* iswm %difi) { sockclose whoiz if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) { set %difuzyon $regml(1) if !$window( @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -adk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 700 80 290 132 Verdana 12 | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yerel bilgiler… } else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Nick1…11:8 %difyyerelnick 1……………………………………………. aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1IP no1.11:8 $token(%difuzyon,1,32) 1…………………………………………….. aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Ülke1……………11:9 $token(%difuzyon,2,32) 1…………………………………….. aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Bölge1………….11:9 $token(%difuzyon,3,32) 1………………………………… aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Sehir1…………..11:9 $token(%difuzyon,4,32) 1……………………………….. aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1…………………………………………. aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,1—————-Bilgi Sonu———————————————————— unset %dif* } } } } alias baglanti { sockclose whoiz sockopen whoiz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } on *:snotice:*whois*on*you*: { if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) set -e %difyipno $remove($token($3,2,64),$chr(41)) set -e %difyyerelnick $2 baglanti echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri aliniyor… } }
________________
Sanalı bıraktım..
|
|
|
21 Mart 2023, 13:50 | #2 |
Kodu eklediginiz metin belgesini whois olarak adlandirip mirc sari klasoruna ekledikden sonra /load -rs whois.txt komutunu uygulayarak aktif edebilirsiniz..
________________
Sanalı bıraktım..
|
|
|
Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi) | |
|
|