alias massftp {
  var %file = $qt(C:\users\remy\desktop\FTPS.txt)
  var %x = $lines(%file)
  var %y = 1

  while (%y <= %x) {
    var %line = $read(%file, %y)
    tokenize 32 %line
    if (*[+]* iswm $1) {
      var %url = $remove($2, /)
      var %n = 1
      if ($count(%url,@) > 1) { inc %n }
      var %user = $gettok($gettok(%url, 1- $+ %n, 64), 2, 58)
      var %pass = $gettok($gettok(%url, 1- $+ %n, 64), 3, 58)
      inc %n
      var %ip = $gettok($gettok(%url, %n, 64), 1, 58)
      var %port = $gettok($gettok(%url, %n, 64), 2, 58)
      ftpopen %ip %port %user %pass
    }
    inc %y
  }
  echo -a OPERATION COMPLETE WHOOOOOOOOOOOOOO
}


alias -l ftpopen {
  var %x = 0
  while ($sock($+(FTP.,%x))) {
    inc %x
  }
  sockopen FTP. $+ %x $1 $2
  sockmark FTP. $+ %x $+($3, @, $4)
  echo -a FTP. $+ %x $+ : OPEN
}

On *:sockread:FTP.*:{
  var %sockid = $gettok($sockname,2,46)
  var %user = $gettok($sock($sockname).mark, 1, 64)
  var %pass = $gettok($sock($sockname).mark, 2, 64)

  var %read
  sockread %read

  if (220* iswm %read) {
    sockwrite -nt $sockname USER %user
  }

  elseif (331* iswm %read) {
    sockwrite -nt $sockname PASS %pass
  }

  elseif (230* iswm %read) {
    sockwrite -nt $sockname PWD
  }

  elseif (257* iswm %read) {
    sockwrite -nt $sockname TYPE I
  }

  elseif (200* iswm %read) {
    sockwrite -nt $sockname PASV
  }

  elseif (227* iswm %read) {
    tokenize 44 $right($left($gettok(%read, 5, 32), -2), -1)
    var %ip = $replace($1-4, $chr(32), .)
    var %port = $calc($5 * 256 + $6)
    sockopen FTP-Data. $+ %sockid %ip %port
    sockwrite -nt $sockname LIST -a
  }

  elseif (226* iswm %read) {
    echo -a $sockname $+ : CLOSE
    sockclose $sockname
    sockclose FTP-Data. $+ %sockid
  }
}

On *:Sockread:FTP-Data.*:{
  var %read
  sockread %read
  var %ftpcor = $+(FTP., $gettok($sockname,2,46))
  var %logindata = $sock(%ftpcor).ip $sock(%ftpcor).port $gettok($sock(%ftpcor).mark, 1, 64) $gettok($sock(%ftpcor).mark, 2, 64)

  if (*lsbn.it* iswm %read) {
    echo -a %ftpcor $+ : %read WITH %logindata
  }
}