mIRC Text von Internetseite

on *:text:!evil:#clocxhd:{
  evil
}

alias evil {
  sockopen evilsock http://blurredpixl.com/namiswelt/evil.php 80
}

on *:sockread:evilsock:{
  var %spruch
  sockread %spruch

  echo %spruch
  .msg #clocxhd %spruch
  
  sockclose $sockname
}

on *:text:!evil:#clocxhd:{
  evil
}

alias evil {
  sockopen evilsock http://blurredpixl.com/namiswelt/evil.php 80
}

on *:sockopen:evilsock:{ 
  sockwrite -n evilsock GET /namiswelt/evil.php HTTP/1.1 
  sockwrite -n evilsock Host: blurredpixl.com
  sockwrite -n evilsock
}

on *:sockread:evilsock:{
  if ($sockerr) {
    echo -a Error
  }
  else {
    var %spruch
    sockread %spruch

    echo %spruch
    .msg #clocxhd %spruch
    
    sockclose $sockname
  }
}

* /sockwrite: 'evilsock' not connected (line 24, remote.ini)

on *:text:!evil:#clocxhd:{
  evil
}

alias evil {
  var %sockname evilsock

  // Hashtable anlegen
  hfree -w %sockname | hmake %sockname

  // Request-Daten festlegen
  hadd %sockname host blurredpixl.com
  hadd %sockname request /namiswelt/evil.php
  hadd %sockname port 80

  sockclose %sockname
  sockopen %sockname $hget(%sockname,host) $hget(%sockname,port)
}

on *:sockopen:evilsock:{
  sockwrite -n $sockname GET $hget($sockname,request) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname $crlf
}

on *:sockread:evilsock:{
  var %header, %content

  // HTTP-Headers lesen
  if (!$hget($sockname,header.complete)) {
    sockread %header
    while (%header != $null) {
      sockread %header
    }
    // HTTP-Headers abgearbeitet
    if ($sockbr) hadd $sockname header.complete $true
  }

  // Content lesen und ausgeben
  if ($hget($sockname,header.complete)) {
    while ($sockbr) {
      sockread -f %content
      if (%content != $null) {
        echo -ag %content
        /msg #clocxhd %content
      }
    }
  }
}