Whois Çeken kişinin yerel Bilgilerini gösteren Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
on *: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 alımında Hata oluştu. | halt } else { var %difi sockread %difi if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$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) <span style="color: #4169e1">if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... } else { window -a @Whois } aline @Whois 11,1Nick1...11:8 %difyyerelnick 1.................................................... aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1..................................................... aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................ aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1....................................... aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1...................................... aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1................................................. aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------</span> unset %dif* } } } } alias bağlantı { sockclose whoiz sockopen whoiz www.iplocation.net 80 } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 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 bağlantı echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor... } } |