Untitled

menu menubar,status,channel {
  . NETWORK GIRIS SYSTEM
  ..Open:.enable #network | echo -a $timestamp 4NETWORK12 System4 aktif12 edildi. 
  ..Close:.disable #network | echo -a $timestamp 4NETWORK12 System4 devredışı12 bırakıldı.
}
#network on
on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) && $server == irc.soyle.net {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(portlar,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(ident ident1 ident2,%_ident,32) { return }
    ;- Muaf IP ekleme
    elseif $istok(ipler,%_ip,32 ) { return }
    who +I  $regml(3)
  }
}
raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) cesuryurek.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6) | .set -u7 %gident $3 
on *:sockopen:giris_bildiri*:{  
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf  
  } 
}
on *:sockread:giris_bildiri*:{  
  var %tr | sockread %tr | tokenize 32 %tr
  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }
  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $__t($regml(1)) }
  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }
  elseif $regex($1-,/<span>Hostname:</span> <span>(.+)</span>/i) { .hadd -msu7 Hostname $sockname $regml(1) }
  elseif $regex($1-,/<span>As:</span> <span>(.+)</span>/i) { .hadd -msu7 ASN $sockname $regml(1) }
  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,4Evet,7Hayır) }
  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { 
    $iif(!$window(@GirişBilgi),window -e @GirişBilgi)
    $iif(!$isdir(Giris),.mkdir Giris)
    .echo @GirişBilgi -  0,1 4< $server $asctime >  - - 4Nick: $token($sock($sockname).mark,2,191) 4İdent :  %gident  4IP: $token($sock($sockname).mark,1,191) 4Hostname: $iif($hget(Hostname,$sockname),$v1,Belirsiz) 4Ülke: $iif($hget(Ulke,$sockname),$v1,Belirsiz)) 4Şehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz)) 4ASN: $iif($hget(ASN,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 2Mobil IP Giriş: $hget(Mobile,$sockname)  -- 2VPN: $iif($regml(1) == true,4Evet,1Hayır)
    .echo @GirişBilgi - 
    sockclose $sockname
  }
}
on $^*:hotlink:/\d+\.\d+\.\d+\.\d+/S:@GirişBilgi: return $true 
on *:hotlink:*:@GirişBilgi: gzline $+(*@,$1) :4Kurallara Aykırı Davranış.Lamer-Tor-Vpn-Proy
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,)
alias __t { return $replace($1-,&#252;,ü,&#xC3;&#xB6;,ö,&#xC3;&#xBC;,ü,_,$chr(32),&#xFD;,ı,&#xFC;,ü,&#xF0;,ğ,&#xFE;,ş,&#xF6;,Ö,&#xDD;,İ,&#xE7;,ç,&#xDC;,Ü,&#xD6;,Ö,&#xC7;,Ç,&#xDE;,Ş,ÿ,$chr(160),&#xE9;,é,-,$chr(32),&#xFF;,-,&#x26;quot;,-,ü,ü,ç,ç,ı,ı,ÅŸ,ş,ı,ı,ÄŸ,ğ) }