alias rsforum {
  ; Open a new window, where we will output the data
  window @rsforum
  linesep @rsforum

  ; Set first parameter, which defaults to GET
  var %method = POST

  ; Set second parameter, which defautls to /
  var %page = /ucp.php?mode=login


  var %sock = rsforum.1. $+ $ticks
  var %info = username=SocketTesting&password=TestingSockets&autologin=on&login=login&redirect=index.php&sid=

  ; Open socket and send data to it
  sockopen %sock rappescript.phpbb3.nl 80
  sockmark %sock %method %page %info
}

on *:SOCKOPEN:rsforum.1.*:{
  sockwrite -nt $sockname GET /index.php HTTP/1.1
  sockwrite -nt $sockname Host: rappescript.phpbb3.nl $+ $str($crlf,2)
}
on *:SOCKREAD:rsforum.1.*:{
  var %tmp
  sockread %tmp
  if ($regex(%tmp,/^Set-Cookie: (.+?)=(.+?);/i)) {
    aline @rsforum Recieved Cookie: $regml(1)
    ; We found a cookie, let's store it
    if ($read(rsforum_cookie.txt, w, $regml(1) $+ =*)) {
      aline @rsforum Cookie already exists, overwriting...
      ; Cookie already exists, overwriting...
      write -l $+ $readn rsforum_cookie.txt $+($regml(1),=,$regml(2))
    }
    ; else we will just add it to the end
    else write rsforum_cookie.txt $+($regml(1),=,$regml(2))


    ; Set socket name
    var %sock = rsforum.2. $+ $ticks

    ; Open socket and send data to it
    sockopen %sock rappescript.phpbb3.nl 80
    sockmark %sock $sock($sockname).mark
    sockclose $sockname
  }
}


on *:SOCKOPEN:rsforum.2.*:{
  var %postdata = username=SocketTesting&password=TestingSockets&redirect=index.php&sid= $+ $gettok($read(rsforum_cookie.txt, w, phpbb3_jzuhp_sid=*), 2, 61) $+ &login=Login
  sockwrite -nt $sockname POST /ucp.php?mode=login HTTP/1.1
  sockwrite -nt $sockname Host: rappescript.phpbb3.nl

  sockwrite -nt $sockname Cookie: style_cookie=printonly; phpbb3_jzuhp_u=1; phpbb3_jzuhp_k=; phpbb3_jzuhp_sid= $+ $gettok($read(rsforum_cookie.txt, w, phpbb3_jzuhp_sid=*), 2, 61)


  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -nt $sockname Content-Length: $len(%postdata)
  sockwrite -nt $sockname $crlf %postdata
}
on *:SOCKREAD:rsforum.2.*:{
  var %tmp
  sockread %tmp
  if ($regex(%tmp,/^Set-Cookie: (.+?)=(.+?);/i)) {
    aline @rsforum Recieved Cookie: $regml(1)
    ; We found a cookie, let's store it
    if ($read(rsforum_cookie.txt, w, $regml(1) $+ =*)) {
      aline @rsforum Cookie already exists, overwriting...
      ; Cookie already exists, overwriting...
      write -l $+ $readn rsforum_cookie.txt $+($regml(1),=,$regml(2))
    }
    ; else we will just add it to the end
    else write rsforum_cookie.txt $+($regml(1),=,$regml(2))
  }
  write $sockname $+ .html %tmp
}

on *:SOCKCLOSE:rsforum.2.*:{
  var %sock3 = rsforum.3. $+ $ticks
  sockopen %sock3 rappescript.phpbb3.nl 80
}
on *:SOCKOPEN:rsforum.3.*:{
  sockwrite -nt $sockname GET /posting.php?mode=edit&f=6&p=23 HTTP/1.1
  sockwrite -nt $sockname Host: rappescript.phpbb3.nl
  sockwrite -nt $sockname Cookie: style_cookie=printonly; phpbb3_jzuhp_u=58; phpbb3_jzuhp_k=; phpbb3_jzuhp_sid= $+ $gettok($read(rsforum_cookie.txt, w, phpbb3_jzuhp_sid=*), 2, 61)
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rsforum.3.*:{
  var %tmp
  sockread %tmp
  write $sockname $+ .html %tmp

  if ($regex(%tmp,/^Set-Cookie: (.+?)=(.+?);/i)) {
    aline @rsforum Recieved Cookie: $regml(1)
    ; We found a cookie, let's store it
    if ($read(rsforum_cookie.txt, w, $regml(1) $+ =*)) {
      aline @rsforum Cookie already exists, overwriting...
      ; Cookie already exists, overwriting...
      write -l $+ $readn rsforum_cookie.txt $+($regml(1),=,$regml(2))
    }
    ; else we will just add it to the end
    else write rsforum_cookie.txt $+($regml(1),=,$regml(2))
  }

  if ($regex(%tmp, /<input type="hidden" name="[^"]+" value="([^"]+)"/i)) {
    sockmark $sockname $+($sock($sockname).mark,~,$regml(1))

    if ($numtok($sock($sockname).mark, 126) == 3) {
      var %sock4 = rsforum.4. $+ $ticks
      sockopen %sock4 rappescript.phpbb3.nl 80
      sockmark %sock4 $sock($sockname).mark
      sockclose $sockname
    }
  }
}

on *:SOCKOPEN:rsforum.4.*:{

  var %boundary = ---------------------------3227017632668

  var %postdata = $+(%boundary,$crlf,Content-Disposition: form-data; name="subject",$crlf,$crlf,Re: OS/OK blacklist,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="addbbcode20",$crlf,$crlf,100,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="message",$crlf,$crlf,Posting so I can edit :o test,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="lastclick",$crlf,$crlf,$gettok($sock($sockname).mark, 1, 126),$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="post",$crlf,$crlf,Submit,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="attach_sig",$crlf,$crlf,on,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="creation_time",$crlf,$crlf,$gettok($sock($sockname).mark, 2, 126),$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="form_token",$crlf,$crlf,$gettok($sock($sockname).mark, 3, 126),$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="fileupload"; filename="",$crlf,Content-Type: application/octet-stream,$crlf,$crlf,$crlf)
  var %postdata = $+(%postdata,%boundary,$crlf,Content-Disposition: form-data; name="filecomment",$crlf,$crlf,$crlf)
  var %postdata = $+(%postdata,%boundary,--,$crlf)


  sockwrite -nt $sockname POST /posting.php?mode=edit&f=6&sid= $+ $gettok($read(rsforum_cookie.txt, w, phpbb3_jzuhp_sid=*), 2, 61) $+ &t=10&p=23 HTTP/1.1
  sockwrite -nt $sockname Host: rappescript.phpbb3.nl $+ $str($crlf,2)
  sockwrite -nt $sockname Cookie: style_cookie=printonly; phpbb3_jzuhp_u=58; phpbb3_jzuhp_k=; phpbb3_jzuhp_sid= $+ $gettok($read(rsforum_cookie.txt, w, phpbb3_jzuhp_sid=*), 2, 61)

  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary= $+ %boundary
  sockwrite -nt $sockname Concent-Length: $len(%postdata)
  sockwrite -nt $sockname $crlf %postdata
}


on *:SOCKREAD:rsforum.4.*:{
  var %temp
  sockread %temp
  write $sockname $+ .html %temp
}

alias getmark {
  ; $getmark(socketname,N)
  ; This alias returns the Nth word from the socketmark from socket socketname
  return $gettok($sock($1).mark,$$2,32)
}

alias urlencode_string {
  ; Encodes a whole string of data in the format name1=data1&name2=data2
  ; Example: $urlencode_string(name1=test&name2=test2)
  ; Returns: name1=%74%65%73%74&name2=%74%65%73%74%32
  var %a = 1, %string = $1, %output
  while ($gettok(%string,%a,38)) {
    tokenize 61 $v1
    if (%a != 1) %output = %output $+ &
    %output = $+(%output,$1,=,$urlencode($2))
    inc %a
  }
  return %output
}

alias urlencode {
  var %a = $regsubex($$1,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2)))
  return $replace(%a,$chr(32),$chr(43))
}