mIRC Giriş Uyarı

;----------- "mIRC Giriş Uyarı Bilgilendirme" -----------
 ;-
;-
;- Kod'un görevi Sunucuya giren kişilerin nick-ip-ülke-şehir-tarih-saat bilgilerini belirlemiş olduğunuz kanal'a yansıtır.
;-
;- Add-on u ekledikten sonra sağ tıklayıp log kanalını ayarlandıktan sonra aktif ediniz.
;-
;-
;-
;----------- "mIRC Giriş Uyarı Bilgilendirme Sonu" ------
#NERDEN on
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:che $r(1000,99999) | che $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %che, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$****,%che), %che = $remove(%che, ,$chr(9)) | return %che } }
alias che {
  :tekrar
  var %:che $rand(0,9999999)
  if $sock($+(chenerden,%:che)) { goto tekrar }
  sockopen $+(chenerden,%:che) www.ipsorgu.com 80
  sockmark $+(chenerden,%:che) $1
  hadd -m nerden $1 $2
}
on *:sockopen:chenerden*: {
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
  sockwrite -nt $sockname Host: www.ipsorgu.com
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  sockwrite -nt $sockname DNT: 1
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname Cache-Control: max-age=0
  sockwrite -nt $sockname $crlf
}
on *:sockread:chenerden*: {
  var %che, %nick  | sockread %che
  if $regex(%che,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
    var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)
    /msg %nerdenlogkanali 45[4Giriş5] [4NİCK: %nick ] [4IP: %ip ] [4ÜLKE: $iif(%ulke,$v1,Belirsiz)  ] [4ŞEHİR: $iif(%sehir,$v1,Belirsiz) ]  4[ 10Tarih: $date  - 10Saat: $time 4]
    $iif(!$window(@Girişler),window -e @Girişler)
    .echo @Girişler [4NİCK: %nick ] - [4IP: %ip ] - [4ÜLKE: $iif(%ulke,$v1,Belirsiz) ] - [4ŞEHİR: $iif(%sehir,$v1,Belirsiz) ] - 4[ 10Tarih: $date  - 10Saat: $time 4]
    hdel -m nerden %ip
    sockclose $sockname
  }
}
#NERDEN end
menu channel,status,query {
  -
  NERDEN
  .AC:.enable #nerden | .echo -ta 4NERDEN 2GİRİŞ AKTİF.
  .KAPAT:.disable #nerden | .echo -ta 4NERDEN 2GİRİŞ DEAKTİF.
  .-
  .Log Kanalı:.set %nerdenlogkanali $$?="Örnek #Che1,#Che2"
}
on 1:load: {
  window -e @nerden
  .echo @nerden
  .echo @nerden $timestamp *** mIRC Giriş Uyarı addon'u basariyla yuklenmiştir..
  .echo @nerden $timestamp *** Status veya Kanal ekraninda sag tiklayarak nerden giriş uyarisini acip kapatabilirsiniz.
  .echo @nerden $timestamp *** Yardim & iletisim mevlut-tut@miT.tc
  .echo @nerden
  .echo @nerden 00,00@@01,01@@00,00@@@01,01@@00,00@01,01@@@@@@00,00@@01,01@@@@@00,00@@@01,01@@@@00,00@@@@01,01@@@@@@00,00@@01,01@@00,00@@@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@@@01,01@@00,00@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@01,01@@00,00@@@01,01@@00,00@@@@@@01,01@@00,00@@@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@@00,00@@01,01@@00,00@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@@@@@01,01@@@00,00@@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@@@00,00@01,01@@00,00@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@@@@@01,01@@@@00,00@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@01,01@@@@00,00@01,01@@@@@00,00@@@01,01@@@@@00,00@@@01,01@@00,00@@01,01@@00,00@@01,01@@@@@00,00@@@01,01@@00,00@01,01@@@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@@01,01@@@00,00@01,01@@00,00@@@@@@01,01@@00,00@01,01@@00,00@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@@@01,01@@00,00@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@@@@@@01,01@@00,00@@@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@@@01,01@@00,00@01,01@@00,00@@@@@@01,01@@00,00@@01,01@@00,00@@01,01@@00,00@01,01@@00,00@@@01,01@@00,00@@@@@@01,01@@00,00@@@01,01@@00,00@@00,00@
  .echo @nerden 00,00@@01,01@@00,00@@@01,01@@00,00@01,01@@@@@@00,00@@01,01@@00,00@@01,01@@00,00@@01,01@@@@00,00@@@@01,01@@@@@@00,00@@01,01@@00,00@@@01,01@@00,00@@00,00@
  .echo @nerden
}