Serveur ftp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 365 fois - Téléchargée 15 fois

Contenu du snippet

ceci est un serveur FTP en mirc script
tout se passe avec une seulle et unique commande: /wbs.ftpserver

notation: je notre entre () les parametres optionels et entre [] les obligatoires
partager un répertoire: /wbs.ftpserver add [login] [pass] (folder)
si (folder) n'est pas spécifié alors une fenetre de selection de répertoire ($sdir) s'ouvrira.

demarer le serveur: /wbs.ftpserver start
stoper le serveur: /wbs.ftpserver stop
status du serveur: /wbs.ftpserver status
lister les partages: /Wbs.ftpserver list
avoir uen aide sommaire: /wbs.ftpserver (help)

Source / Exemple :


;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)

Conclusion :


il es encore en phase de developement mais il es deja fonctionel

pour le moment les listing de répertoires DOIVENT se faire en mode ascii (TYPE A) et les transfers en binaire (TYPE I)
j'effectue mes tests avec FlashFxp et tout marche bien, pour le moment je ne sais pas encore comment faire mon listing en binaire

A voir également

Ajouter un commentaire

Commentaires

Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1
"(fichier de config comun :p)"
tres mauvaise idée a mon avis chaque addon doit etre unique, une fois desinstallé tout les fichiers de sa création doivent etre supprimer sauf si c'etait un scipt complet
c'est mon propre avis en tout cas :)
Messages postés
266
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2009

"mon mirc me repond: Commande inconnue: /WBS.FTPSERVER :(" <== tu a mal du loader le fichier: //load -rs $qt($sfile($mircdir))
si le probleme persiste: ca vient de ton mirc craqué > suit ce que wims a dit.

"ca pourrait marcher sur un autre client ,(eg:kvirc)" > non, kvirc ne supporte pas le mirc script et je doute qu'il ne le supporte un jour.

WorldDMT > j'ai mis un remove $wcfg dans ma moddif, en fait a la base je passai pas un remini du a mon systeme de packages, je ne supprimais que la partie du script du fichier ini de config de tout mes scripts :p (fichier de config comun :p)

il a besoin de mirc 6.35 pour tourner ^^
Messages postés
882
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1
Salut

j'ai pas tout lus je vais repasser apres

pour le ON UNLOAD a mon propre avis mieu d'utiliser /remove au lieu de /remini

on *:unload:{
if ($sock($sname)) sockclose $+($v1,*)
remove $wcfg
}

@+
Messages postés
5
Date d'inscription
vendredi 16 janvier 2009
Statut
Membre
Dernière intervention
11 novembre 2010

Re bonjour ou plutot bonsoir
Comme tu ma dis Wims j'ai dl un 6.35 tout neuf tout beau ,loader le fichier wbs.ftpserver.mrc comme je load d'habitude c'est a dire par l'editeur de script et meme motif meme punition Commande inconnue en anglais cette fois
Pour info le mirc que j'utilise n'est pas cracké j'en ai meme profite pour changer l'exe par celui de la 6.35 c'est un script je bidouille a partir de plusieurs script et addon divers
Merci pour l'aide
Cordialement
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
mon mirc me repond: Commande inconnue: /WBS.FTPSERVER :(

Le fait que mirc te réponde en français signifie que la version de mirc que tu utilises a été crackée.Je doute qu'on veuille bien t'aider alors qu'il se pourrait très bien que ça vienne de ça.Télécharge un mirc vierge 6.35 ici : http://www.mirc.com/get.html et rééssaye.Sinon, l'erreur signifirai qu'il ne trouve pas l'alias, donc que tu ne l'est pas, tu est sur d'avoir charger le code ?
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.