Untitled

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias nerden { 
  var %:r $rand(10,99999)
  sockopen $+(yerbul,%:r) www.qbilisim.net 80
  sockmark $+(yerbul,%:r) $+($1,¿,$2)
}
on *:sockopen:yerbul*:{  
  var %komut sockwrite -nt $sockname
  %komut GET $+(/seker-nerden/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.0
  %komut Host: $sock($sockname).addr
  %komut Connection: keep-alive
  %komut $crlf
}
on *:sockread:yerbul*: {  
  if ($sockerr) { sockclose $sockname | returnex } 
  var %x, %chan $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191) | sockread -f %x
  echo -s %x
  if $regex(%x,id="bir">(.*?)</b>) { hadd -m $sockname hostname $regml(1) }
  if $regex(%x,id="iki">(.*?)</b>) { hadd -m $sockname ulke $regml(1) }
  if $regex(%x,id="uc">(.*?)</b>) { hadd -m $sockname ulkecode $regml(1) }
  if $regex(%x,id="bes">(.*?)</b>) { hadd -m $sockname sehir $regml(1) }
  if $regex(%x,id="dokuz">(.*?)</b>) {  var %regml $regml(1)
    abot privmsg %chan  -
    abot privmsg %chan 4IP: $iif(%ip,$v1,Belirsiz)
    abot privmsg %chan 4Hostname: $htmlfree($iif($hget($sockname,hostname),$v1,Belirsiz))
    abot privmsg %chan 4Ulke: $htmlfree($iif($hget($sockname,ulke),$v1,Belirsiz))
    abot privmsg %chan 4Ulke Code: $htmlfree($iif($hget($sockname,ulkecode),$v1,Belirsiz))
    abot privmsg %chan 4Sehir: $iif($hget($sockname,sehir),$tr($v1),Belirsiz)
    abot privmsg %chan 4ISP: $iif(%regml,$v1,Belirsiz)
    abot privmsg %chan -
    .hfree -sw $sockname
    sockclose $sockname
  }
}