SERVEUR FTP

;Socknames:
;listen: wbs.ftpserver
;com: wbs.ftpserver.[client-ip]
;data: wbs.ftpserver@[client-ip]

on *:load:{
  if ($version < 6.35) {
    wecho $sname error: Woops ! your version of mirc is $version but 6.35 or newer is needed !!! sorry but i cant work
    aptitude remove $sname
  }
  else {
    writeini $wcfg $sname enable 0
    writeini $wcfg $sname maxco 2
    writeini $wcfg $sname port 21
    writeini $wcfg $sname nopasv 0
    writeini $wcfg $sname quiet 1
    writeini $wcfg $sname pasv-range 1000 1010
    wecho $sname info: to specify manualy the ip of the server you can type:
    wecho $sname info: //writeini $wcfg $sname serverip [your IP]
    wecho $sname info: dont forget to redirect/open ports on you're router/firewall
  }
}

on *:unload:{
  if ($sock($sname)) wbs.ftpserver stop
remove $wcfg
}

alias -l sname return wbs.ftpserver

on *:start:{
  if ($readini($wcfg,$sname,enable)) socklisten $sname $iif($readini($wcfg,$sname,port),$v1,21)
}

alias wbs.ftpserver {
  wecho $sname $iif($1-,$v1,help)
  if ($1 == start) {
    if ($sock($sname)) wecho $sname error: server is already started
    else {
      writeini $wcfg $sname enable 1
      socklisten $sname $iif($readini($wcfg,$sname,port),$v1,21)
      wecho $sname server started
    }
  }
  elseif ($1 == stop) {
    if (!$sock($sname)) wecho $sname error: server is not started
    else {
      writeini $wcfg $sname enable 0
      sockclose $+($sname,*)
      wecho $sname server stoped
    }
  }
  elseif ($1 == status) wecho $sname Server is curently $iif($sock($sname),started,stoped)
  elseif ($1 == close) {
    if (!$2) wecho $sname error: this function need the ip as argument.
    elseif ($sock($+($sname,.,$2))) sockclose $v1
    else wecho $sname error: stop $qt($2) : invalid ip
  }
  elseif ($1 == add) {
    if ((!$4) && ($3)) tokenize 32 $1- $$sfile($mircdir)
    if (!$4) wecho $sname error: syntax: /wbs.ftpserver add [login] [pass] [folder]
    elseif (!$exists($4-)) wecho $sname error: directory dosent exists
    else {
      writeini $wcfg wbs.ftpserver.shares $+($2,@,$3) 0 0 $noqt($4-)
      wecho $sname Successfuly added with permision: read only, to edit: /wbs.ftpserver chmod $+($2,@,$3) rw.
    }
  }
  elseif ($1 == chmod) wecho $sname info: todo
  elseif ($1 == list) {
    var %n = $sock($sname $+ .*,0)
    if (!%n) wecho $sname No open socket.
    else {
      wecho $sname open connection(s): %n
      while (%n) {
        wecho $sname ip: $sock($sname $+ .*,%n).ip $+ : $+ $sock($sname $+ .*,%n).port
        dec %n
      }
    }
  }
  elseif ((!$1) || ($1 == help)) {
    wecho $sname help for $sname
    wecho $sname availables commands are:
    wecho $sname start - start the ftp server
    wecho $sname stop - stop the ftp server
    wecho $sname add [login] [pass] (folder) - add the folder in sharinf for user [login]
    wecho $sname list - list all open connection for the ftp server
    wecho $sname close [ip] - close the specified [IP]
  }
  else wecho $sname error: unknow command : $qt($1)
}

on *:socklisten:wbs.ftpserver:{
  var %ip = $iif($sock($sockname).ip,$v1,127.0.0.1) , %sockname = $+(wbs.ftpserver.,%ip)
  if ($sock(%sockname)) {
    sockwrite -n %sockname 500 You are trying to reconnect on the server but just one connection is allowed per ip : closing this one: now !
    sockclose %sockname
  }
  sockaccept %sockname
  if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,new connection from $sock($sockname).ip on port $sock($sockname).port)
  sockwrite -n %sockname 220 $sname FTP server ready
}

on *:sockopen:wbs.ftpserver.*:{
  if ($hget($sockname)) hfree $sockname
}
on *:sockread:wbs.ftpserver.*:{
  var %buffer
  sockread -f %buffer
  wbs.ftpserver.events %buffer
}

on *:sockclose:wbs.ftpserver.*:{
  if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,connection closed for $sock($sockname).ip)
  if ($hget($sockname)) hfree $sockname
}

alias wbs.ftpserver.events {
  if (!$1) return
  elseif ($1 == USER) {
    hadd -m $sockname login $2
    sw 331 Password required for $sname
  }
  elseif ($1 == PASS) {
    var %data = $readini($wcfg,wbs.ftpserver.shares,$+($hget($sockname,login),@,$2))
    if (!%data) { 
      noop $tip($sname,$sname,Bad login form $sock($sockname).ip : $2) 
      sockloose
    }
    else {
      hadd -m $sockname auth 1
      hadd $sockname root $noqt($gettok(%data,3-,32))
      hadd $sockname pwd /
      hadd $sockname serverip $iif($sock($sockname).ip == $ip,127.0.0.1,$sock($sockname).ip)
      hadd $sockname writeperm $gettok(%data,2,32)
      if ($readini($wcfg,$sname,serverip)) hadd $sockname serverip $v1
      writeini $wcfg wbs.ftpserver.shares $+($hget($sockname,login),@,$2) $calc($gettok(%data,1,32) +1) $gettok(%data,2-,32)
      sw 230 Ok
    }
  }
  elseif ($1 == QUIT) {
    if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,$sock($sockname).ip has quit.)
    sockloose
  }
  elseif ($1 == FEAT) sw 211 SIZE REST
  else {
    if (!$hget($sockname,auth)) sockloose
    elseif (.. isin $hget($sockname,pwd)) sockloose
    elseif ($1 == NOOP) sw 200 NOOP command successful
    elseif ($1 == SYST) sw 215 UNIX Type: L8
    elseif ($1 == PWD) sw 257 $+(",$hget($sockname,pwd),") is current directory.
    elseif ($1 == CDUP) {
      var %pwd = $hget($sockname,pwd)
      if (%pwd == /) sw 500 You are already at the root.
      elseif ($2) sw 500 Too many argument.
      else {
        hadd $sockname pwd $deltok(%pwd,-1,47)
        sw 250 CWD command successful.
      }
    }
    elseif ($1 == DELE) {
      var %file = $qt($+($hget($sockname,root),$hget($sockname,pwd),$2-))
      echo -a %file
      if (!$hget($sockname,writeperm)) sw 500 You dont have the permission to do that !
      elseif (!$2) sw 500 This function need a argument (the filename).
      elseif (!$exists(%file)) sw 500 The target dosent exists.
      elseif ((/../ isin $2-) || (\..\ isin $2-)) sw 500 Hacking attemp detected: abord
      else {
        .remove %file
        sw 250 Ok
      }
    }
    elseif ($1 == REST) {
      if (!$2) sw 500 Missing argument
      elseif ($2 !isnum) sw 500 Invalid argument: must be a int
      else {
        hadd $sockname filepos $2
        sw 226 ready to resume transfer at position $2
      }
    }
    elseif ($1 == TYPE) {
      if (!$istok(A;I,$2,59)) sw 500 Invalid type: must be A or I
      else {
        hadd $sockname type $2
        sw 200 Type set to $2
      }
    }
    elseif ($1 == CWD) {
      var %target = $strip($2-) , %cdir = $hget($sockname,pwd) , %path = $+($hget($sockname,root),%cdir,$iif($right(%cdir,1) != /,/),%target))
      if ($left(%target,1) == /) var %path = $+($hget($sockname,root),%target)
      if (%target == /) {
        hadd $sockname pwd /
        sw 250 command successful.
        return
      }
      if (!%target) sw 500 Missing argument
      elseif (!$exists(%path)) sw 500 Invalid argument: directory dosent exists.
      elseif ((/../ isin %target) || (\..\ isin %target)) sw 500 Hacking attemp detected: abord
      else {
        if ($left($2,1) != /) hadd $sockname pwd $replace(/ $+ %cdir $+ $nopath($2-) $+ /,//,/)
        else hadd $sockname pwd $2-
        sw 250 CWD command successful.
      }
    }
    elseif ($1 == PASV) {
      if ($readini($wcfg,$sname,nopasv)) sw 550 Command disabled in server config file.
      else {
        var %sockname = $+($sname,@,$sock($sockname).ip) , %secure = 100
        if ($readini($wcfg,$sname,pasv-range)) {
          tokenize 32 $v1
          if (!$2) %port = $1
          else {
            var %port = $r($1,$2)
            while ((!$portfree(%port)) && (%secure)) {
              var %port = $r($1,$2)
              dec %secure
            }
            if (!%secure) {
              wecho $sname error: unable to get a port in range $1- : set a larger plage of port in portrange.
              sw 500 Internal server error: cannot found a port free on the server side.
              return
            }
          }
          var %p1 = $int($calc(%port / 256)) , %p2 = %port % 256
          if ($sock(%sockname)) sockclose %sockname
          hadd -m $sockname pasv %sockname $sock($sockname).ip %port
          socklisten wbs.ftpserver-data %port
          sw 227 Entering Passive Mode $+($chr(40),$replace($hget($sockname,serverip),.,$chr(44)),$chr(44),%p1,$chr(44),%p2,$chr(41)) .
        }
        else sw 500 Bad configuration.
      }
    }
    elseif ($1 == PORT) {
      var %port = $calc($gettok($2,5,44) * 256 + $calc($gettok($2,6,44))) , %sockname = $+($sname,@,$sock($sockname).ip)
      if (!%port) sockclose $sockname
      else {
        if ($sock(%sockname)) sockclose %sockname
        hadd -m $sockname pasv %sockname $sock($sockname).ip %port
        sockopen %sockname $replace($gettok($2,1-4,44),$chr(44),.) %port
      }
    }
    elseif ($1 == MKD) {
      var %target = $replace($+($hget($sockname,root),$hget($sockname,pwd),/,$2-),//,/)
      if (!$2) sw 500 Missing argument.
      elseif ($istok(.;..;/;../;\;~;#; $+ $chr(35),$2-,59)) sw 500 Invalid argument.
      elseif ($regex($2,/(\/|\\)\.\.\1/)) sw 500 Invalid argument
      elseif ($exists(%target)) sw 500 Unable to create: already exists
      else {
        mkdir $qt(%target)
        sw 257 $qt($nopath($2-)) Directory created.
      }
    }
    elseif ($1 == ABOR) {
      var %sockdata = $gettok($hget($sockname,pasv),1,32)
      if ($sock(%sockdata)) sockclose %sockdata
      sw 200 Abord: ok
    }
    elseif ($1 == RETR) {
      var %sockdata = $gettok($hget($sockname,pasv),1,32) , %file = $qt($+($hget($sockname,root),$hget($sockname,pwd),$2-))
      if (!$sock(%sockdata)) sw 500 Unable to transfer: data socket not opened
      ;elseif ($hget($sockname,type) != I) sw 500 Unable to transfer: invalid type $qt($v1) > I is needed for trasnfers
      elseif (!$2) sw 500 Missing argument
      elseif (.. isin $2-) sw 500 Unallowed charaters in file name
      elseif (!$exists(%file)) sw 500 Unable to find $qt($2-)
      else {
        if ($fopen(%sockdata)) .fclose %sockdata
        if ($hget(%sockdata)) hfree %sockdata
        if ($hget($sockname,filepos)) {
          var %pos = $v1
          if ($file(%file).size < %pos) sw 500 Error: you requested to resume at %pos but the file size is $v1
          else hadd -m %sockdata filepos %pos
          hdel $sockname filepos
        }
        else hadd -m %sockdata filepos 0
        hadd %sockdata parent $sockname
        hadd %sockdata file %file
        sockmark %sockdata $1
        if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,Transfering $nopath(%file) to $sock($sockname).ip on %sockdata)
        sw 150 Opening Binary mode data connection for file list
        .fopen %sockdata %file
        .fseek %sockdata $hget(%sockdata,filepos)
        noop $fread(%sockdata,4000,&data)
        if ($hget($sockname,type) == A) sockwrite -n %sockdata $bvar(&data,1,4000).text
        else sockwrite %sockdata &data
      }
    }
    elseif ($1 == STOR) {
      var %sockdata = $gettok($hget($sockname,pasv),1,32) , %filepos = $iif($hget(%sockdata,filepos),$v1,0) , %file = $qt($+($hget($sockname,root),$hget($sockname,pwd),$2-))
      if (!$hget($sockname,writeperm)) sw 500 You dont have the permission to do that !
      elseif (!$sock(%sockdata)) sw 500 Unable to transfer: data socket not opened
      elseif (!$2) sw 500 Missing argument.
      elseif (.. isin $2-) sw 500 Unallowed charaters in file name
      else {
        if ($hget(%sockdata)) hfree %sockdata
        hadd -m %sockdata parent $sockname
        hadd %sockdata file %file
        sockmark %sockdata $1
        if ($fopen(%sockdata)) .fclose %sockdata
        .fopen -o %sockdata %file
        sw 150 Opening Binary mode data connection for file list
      }
    }
    elseif ($1 == LIST) {
      var %sockdata = $gettok($hget($sockname,pasv),1,32)
      if (!$sock(%sockdata)) sw 500 No data socket opened
      elseif ($hget($sockname,type) != A) sw 500 Unsuported TYPE mode for listing: please use TYPE A
      else {
        var %dir = $+($hget($sockname,root),$hget($sockname,pwd))
        sockwrite -n %sockdata DIR drwxr-sr-t  14 web      site         4096 Feb 13 23:39 .
        if ($hget($sockname,pwd) != /) sockwrite -n %sockdata DIR drwxr-sr-t  14 web      site         4096 $asctime($ctime,mmm dd) ..
        noop $finddir(%dir,*.*,0,0,sockwrite -n %sockdata DIR drwxr-sr-t  14 web      site         4096 Feb 13 23:39  $nopath($1-))
        noop $findfile(%dir,*.*,0,0,sockwrite -n %sockdata -rw-r--r--   1 web      site           $file($1-).size $asctime($file($1-).ctime,mmm dd) $time $nopath($1-))
        sockclose %sockdata
        sw 226 Transfer complete.
      }
    }
    else sw 500 Unknow command
  }
  ;wecho $sname < $1-
}
on *:socklisten:wbs.ftpserver-data*:{
  var %table = $+($sname,.,$sock($sockname).ip) , %data = $hget(%table,pasv) , %sock = $$gettok(%data,1,32)
  if (%data) sockaccept %sock
  sockmark %sock $hget(%table,type)
  sockclose $sockname
}
on *:sockopen:wbs.ftpserver@*:{
  if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,opened active connection for $sock($sockname).ip)
}
on *:sockwrite:wbs.ftpserver@*:{
  if ((!$hget($sockname)) && (!$fopen($sockname)) && (!$sock($sockname).mark) && ($sock($sockname).sq > 4000)) { sockloose | return }
  hinc $sockname filepos 4000
  noop $fread($sockname,4000,&data)
  if ($hget($hget($sockname,parent),type) == A) sockwrite -n $sockname $bvar(&data,1,4000).text
  sockwrite $sockname &data
  if (!$bvar(&data,0)) {
    if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,File $nopath($hget($sockname,file)) was successfully transfered to $sock($sockname).ip on port $sock($sockname).port in $duration($sock($sockname).to))
    sockwrite -n $hget($sockname,parent) 226 Transfer complete.
    sockloose
  }
}
alias -l sockloose {
  if ($hget($sockname)) hfree $sockname
  if ($fopen($sockname)) .fclose $sockname
  sockclose $sockname
}
on *:sockclose:wbs.ftpserver@*:{
  if (!$readini($wcfg,$sname,quiet)) noop $tip($sname,$sname,Client $sock($sockname).ip closed the data socket)
  sockwrite -n $hget($sockname,parent) 226 Transfer complete.
  if ($hget($sockname)) hfree $sockname
  if ($fopen($sockname)) .fclose $sockname
}
on *:sockread:wbs.ftpserver@*:{
  sockread &buffer
  if (!$hget($sockname)) sockloose
  else {
    ;bwrite $hget($sockname,file) -1 -1 &buffer
    .fwrite -b $sockname &buffer
  }
}
alias -l sw {
  ;wecho $sname > $1-
  sockwrite -n $sockname $1-
}


alias -l wecho echo -a $+($chr(91),$sname,$chr(93)) $$1-
alias wcfg return $qt($mircdirFtpServer-Config.ini)