SaNCaK

miRC - Girişte Ip Göster

Dec 7th, 2021
805
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Alias -l giris54on { .enable #giris54 | echo -tca info2 Ip Göster  00,03AÇILDI  | halt }
  2. Alias -l giris54off { .disable #giris54 | echo -tca info2 Ip Göster  00,04KAPATILDI  | halt }
  3.  
  4. menu channel,status,menubar,query {
  5.   -
  6.   $iif(o !isincs $usermode,$style(2)) Oper
  7.   .$iif($group(#giris54) == on,$style(1) Ip Göster (Açık),Ip Göster (Kapalı)): if $group(#giris54) == on giris54off | else giris54on
  8.   .-
  9. }
  10.  
  11. #giris54 on
  12. alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Ş,ş,ÄŸ,ğ,Ãœ,ü,Ğ,ğ,$chr(39),`)
  13. on *:snotice:*Client connecting on port*:who +I $9
  14. raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
  15. on *:sockopen:pro*:{
  16.   sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) HTTP/1.1
  17.   sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  18.   sockwrite -n $sockname Connection: keep-alive
  19.   sockwrite -n $sockname Host: ipinfo.io
  20.   sockwrite -n $sockname  $crlf
  21. }
  22. on *:sockread:pro*:{
  23.   var %:pro | sockread %:pro | tokenize 32 %:pro
  24.   if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }
  25.   if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }
  26.   if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }
  27.   if "org isin %:pro {
  28.     var %:isp $remove($gettok(%:pro,2-,58),$chr(44),")
  29.     var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)  $hget(%:n,City)
  30.     if !$window(@Giris) { window -ez @Giris }
  31.     echo -t @Giris Nick:4 $_tr(%:n) - IP:4 %ip - Ulke:4 $_tr(%ülke) - Sehir:4 $_tr(%sehir) - ISP:4 $_tr(%:isp)
  32.     ;echo $chan Nick:4 $_tr(%:n) - IP:4 %ip - Ulke:4 $_tr(%ülke) - Sehir:4 $_tr(%sehir) - ISP:4 $_tr(%:isp)
  33.     .hfree -w %:n | sockclose $sockname
  34.   }
  35. }
  36. #giris54 end
RAW Paste Data