mIRC api_user_key script

alias pastelogin {
  sockclose Pastebin~
  set %PasteLogin api_dev_key= $+ $$1 $+ &api_user_name= $+ $$2 $+ &api_user_password= $+ $$3
  sockopen Pastebin~ pastebin.com 80
}

on *:SOCKOPEN:Pastebin~: {
  sockwrite -n Pastebin~ POST /api/api_login.php HTTP/1.1
  sockwrite -n Pastebin~ Host: pastebin.com
  sockwrite -n Pastebin~ Content-Type: application/x-www-form-urlencoded
  sockwrite -n Pastebin~ Content-length: $len(%PasteLogin)
  sockwrite Pastebin~ $crlf
  sockwrite Pastebin~ %PasteLogin
}

on *:SOCKREAD:Pastebin~: {
  var %P
  sockread %P
  while ($sockbr) {
    echo -ag %P
    if ($regex(%P,/^[a-z\d]{20,40}$/) > 0) {
      echo -ag %P
      unset %PasteLogin
      sockclose Pastebin~
      return
    }
    sockread %P
  }
}