/ScriptServ

[script]
n0=ON *:START:{
n1=  if ($isdir($scriptdirftptmp) == $false) { .mkdir $scriptdirftptmp }
n2=  else { set %taboftp.t.temp.t $findfile($scriptdirftptmp\,*.*,0,.remove $1-) }
n3=  unset %taboftp.*
n4=}
n5=alias ftptabcler if ($$?!="CLEAR RECENT ViSiTs?" == $true) { remini $scriptdirftp.ini r.ftp | flushini $scriptdirftp.ini | taboftp.echoinfo LiST CLEAREd! }
n6=dialog taboftp.ftp {
n7=  size -1 -1 550 420
n8=  title "FTP Client"
n9=
n10=  box "LOCAL",1,10 10 250 280
n11=  box "REMOTE",2,295 10 250 280
n12=
n13=  edit "",9,15 30 180 22,read
n14=  list 10,15 55 180 190,sort extsel
n15=  button "CD",11,200 30 55 24
n16=  button "SiZE",12,200 55 55 24
n17=  button "MD",13,200 80 55 24
n18=  button "REN",14,200 105 55 24
n19=  button "DEL",15,200 130 55 24
n20=  edit "",16,200 155 55 24
n21=  button "REFRESH",17,200 180 55 24
n22=  button "DIR",18,200 205 55 25
n23=  text "",19,20 235 235 15
n24=  text "",20,20 252 235 15
n25=  text "",21,20 267 235 15
n26=
n27=  button "<--",30,265 90 25 30
n28=  button "-->",31,265 125 25 30
n29=
n30=  edit "",49,300 30 180 22,read
n31=  list 50,300 55 180 190,sort extsel
n32=  button "CD",51,485 30 55 24
n33=  button "SiZE",52,485 55 55 24
n34=  button "MD",53,485 80 55 24
n35=  button "REN/MOVE",54,485 105 55 24
n36=  button "DEL",55,485 130 55 24
n37=  edit "",56,485 155 55 24
n38=  button "REFRESH",57,485 180 55 24
n39=  button "DIR",58,485 205 55 25
n40=  text "",59,305 235 235 15
n41=  text "",60,305 252 235 15
n42=  text "",61,305 267 235 15
n43=
n44=  edit "",230,10 295 535 86,multi hsbar vsbar read
n45=  button "QUOTE",240,128 390 66 24
n46=  button "CLEAR",241,204 390 66 24
n47=  button "QUiT",242,280 390 66 24
n48=  button "CLOSE",243,356 390 66 24,cancel
n49=  list 247,1 1 9999 9999,hide sort extsel
n50=  list 248,1 1 9999 9999,hide sort extsel
n51=  list 249,1 1 9999 9999,hide
n52=  list 250,1 1 9999 9999,hide
n53=}
n54=ON *:DIALOG:ftp*:*:*:{
n55=  unset %taboftp.t.dialogftp.*
n56=  if ($devent == init) {
n57=    dialog -t $dname FTP Client
n58=    taboftp.reflocal $dname $iif(%taboftp.c.ftp.dl,%taboftp.c.ftp.dl,$getdir)
n59=    unset %taboftp.c.ftp.dl
n60=  }
n61=  elseif ($devent == sclick) {
n62=    if ($did == 10) {
n63=      if ($did(10,0).sel != 1) || (         <* iswm $did(10,$did(10,1).sel)) || (        /* iswm $did(10,$did(10,1).sel)) { did -b $dname 14 }
n64=      else { did -e $dname 14 }
n65=      if ($did(10,0).sel > 1) {
n66=        did -r $dname 20
n67=        did -r $dname 21
n68=      }
n69=      else { taboftp.acttams $dname 10 247 20 21 }
n70=    }
n71=    elseif ($did == 11) { taboftp.timeremote taboftp.cdlocal $dname $did(9) }
n72=    elseif ($did == 12) { taboftp.acttams $dname 10 247 20 21 }
n73=    elseif ($did == 13) { taboftp.timeremote taboftp.mdlocal $dname $did(9) }
n74=    elseif ($did == 14) {
n75=      if (         <* iswm $did(10,$did(10,1).sel)) || (        /* iswm $did(10,$did(10,1).sel)) { }
n76=      else { taboftp.timeremote taboftp.renlocal $dname $did(9) $+ " $+ $did(10,$did(10,1).sel) }
n77=    }
n78=    elseif ($did == 15) { taboftp.delocal $dname }
n79=    elseif ($did == 17) { taboftp.reflocal $dname $did(9) }
n80=    elseif ($did == 18) {
n81=      set -u %taboftp.t.dialogftp.b $scriptdirftptmp\ $+ $taboftp.arch.rand(bat)
n82=      set -u %taboftp.t.dialogftp.t $scriptdirftptmp\ $+ $taboftp.arch.rand(txt)
n83=      set -u %taboftp.t.dialogftp.t2 $scriptdirftptmp\ $+ $taboftp.arch.rand(txt)
n84=      write -c %taboftp.t.dialogftp.b @echo off
n85=      write %taboftp.t.dialogftp.b dir /oe /v $did(9) $+ $iif($did(16) != $null,$did(16),*.*) > %taboftp.t.dialogftp.t
n86=      write %taboftp.t.dialogftp.b ren %taboftp.t.dialogftp.t $nopath(%taboftp.t.dialogftp.t2)
n87=      run -n command.com /c %taboftp.t.dialogftp.b
n88=      .timer $+ $taboftp.pega(%taboftp.t.dialogftp.t2) -mo 0 100 taboftp.existearchexe %taboftp.t.dialogftp.t2 $ $+ chr(124) .run %taboftp.t.dialogftp.t2 $ $+ chr(124) .remove %taboftp.t.dialogftp.b $ $+ chr(124) .remove %taboftp.t.dialogftp.t $ $+ chr(124) .timer -o 1 10 .remove %taboftp.t.dialogftp.t2
n89=    }
n90=    elseif ($did == 30) { taboftp.timeremote taboftp.get $dname }
n91=    elseif ($did == 31) { taboftp.timeremote taboftp.upl $dname }
n92=    elseif ($did == 50) {
n93=      if ($did(50,0).sel != 1) || ($did(50,$did(50,1).sel) ==         /..) { did -b $dname 54 }
n94=      else { did -e $dname 54 }
n95=      if ($did(50,0).sel > 1) {
n96=        did -r $dname 60
n97=        did -r $dname 61
n98=      }
n99=      else { taboftp.acttams $dname 50 248 60 61 }
n100=    }
n101=    elseif ($did == 51) { taboftp.timeremote taboftp.cdremo $dname $did(49) }
n102=    elseif ($did == 52) { taboftp.acttams $dname 50 248 60 61 }
n103=    elseif ($did == 53) { taboftp.timeremote taboftp.mdremoto $dname $did(49) }
n104=    elseif ($did == 54) {
n105=      if (        /* iswm $did(50,$did(50,1).sel)) {
n106=        if ($did(50,$did(50,1).sel) !=         /..) {
n107=          set %taboftp.t.ftpren.esdir 1
n108=          taboftp.timeremote taboftp.ftpcom $dname ren $mid($did(50,$did(50,1).sel),10,99999999)
n109=        }
n110=      }
n111=      else { taboftp.timeremote taboftp.ftpcom $dname ren $did(50,$did(50,1).sel) }
n112=    }
n113=    elseif ($did == 55) { taboftp.delremo }
n114=    elseif ($did == 57) { taboftp.ftpcom $dname dir }
n115=    elseif ($did == 58) {
n116=      set %taboftp.t.dialogftp.a $scriptdirftptmp\ $+ $dname $+ DIR.txt $1-
n117=      if ($isfile(%taboftp.t.dialogftp.a)) { run -n %taboftp.t.dialogftp.a }
n118=    }
n119=    elseif ($did == 240) {
n120=      if ($sock($dname)) { taboftp.timeremote taboftp.quoteremo $dname }
n121=      else { taboftp.dida $dname 230 THiS FTP SESSiON iS CLOSEd }
n122=    }
n123=    elseif ($did == 241) { did -r $dname 230 }
n124=    elseif ($did == 242) { taboftp.ftpcom $dname quit }
n125=    elseif ($did == 243) {
n126=      if ($sock($dname)) { taboftp.echoinfo CLOSiNG FTP SESSiON $remove($dname,FTP) }
n127=      showmirc -s
n128=      sockclose $dname
n129=      sockclose ? $+ $dname
n130=      .timer $+ $dname off
n131=      dialog -t $dname FTP Client
n132=      taboftp.loop 49,50,59,60,61 did -r $dname 


n133=      did -b $dname 240
n134=    }
n135=  }
n136=  elseif ($devent == dclick) {
n137=    if ($did == 10) {
n138=      if (         <* iswm $did(10,$did(10,1).sel)) { taboftp.reflocal $dname $remove($did(10,$did(10,1).sel), ,<,>) }
n139=      elseif ($did(10,$did(10,1).sel) ==         /..) { taboftp.reflocal $dname $gettok($did(9),1- [ $+ [ $calc($gettok($did(9),0,92) - 1) ] ] ,92) $+ \ }
n140=      elseif (        /* iswm $did(10,$did(10,1).sel)) { taboftp.reflocal $dname $did(9) $+ $mid($did(10,$did(10,1).sel),10,99999999) $+ \ }
n141=      else { taboftp.timeremote taboftp.ftpcom $dname upl $did(9) $+ $did(10,$did(10,1).sel) }
n142=    }
n143=    elseif ($did == 50) {
n144=      if (        /* iswm $did(50,$did(50,1).sel)) { taboftp.ftpcom $dname cd $mid($did(50,$did(50,1).sel),10,99999999) }
n145=      else { taboftp.timeremote taboftp.get $dname }
n146=    }
n147=  }
n148=  unset %taboftp.t.dialogftp.*
n149=}
n150=dialog taboftp.transf {
n151=  size -1 -1 250 190
n152=  text "",1,5 5 240 15,center
n153=  text "",2,5 25 240 15,center
n154=  text "",3,5 60 240 15,center
n155=  text "",4,5 80 240 15,center
n156=  text "",5,5 100 240 15,center
n157=  text "",6,5 120 240 15,center
n158=  text "",10,5 15 240 15,center hide
n159=
n160=  box "",199,-20 40 999 100
n161=  button "Cancel",200,95 150 60 30,cancel
n162=}
n163=ON *:DIALOG:TFTP*:*:*:{
n164=  if ($devent == init) {
n165=    did -h $dname 1
n166=    did -h $dname 2
n167=    did -v $dname 10
n168=    taboftp.actransf $dname
n169=  }
n170=  elseif ($did == 200) {
n171=    did -r $replace($dname,TFTP,FTP) 250
n172=    sockclose $replace($dname,TFTP,LFTP)
n173=    sockclose $replace($dname,TFTP,DFTP)
n174=    sockclose $replace($dname,TFTP,UFTP)
n175=  }
n176=  unset %taboftp.t.ftpget.* %taboftp.t.ftpupl.*
n177=}
n178=ON *:DIALOG:taboftp.conftp:*:*:{
n179=  if ($devent == dclick) && ($did == 2) && ($did($dname,2,1).sel != $null) { taboftp.timeremote taboftp.conecta $did($dname,2,$did($dname,2,1).sel).text }
n180=  elseif ($devent == sclick) {
n181=    set -u %taboftp.t.ftpconf.sclick $did($dname,2,1).sel
n182=    if ($did == 101) { taboftp.timeremote taboftp.preguntacuenta }
n183=    elseif ($did == 102) && (%taboftp.t.ftpconf.sclick != $null) {
n184=      taboftp.lista.borraTOK -cuentasftp 1 176 $gettok($did($dname,2,%taboftp.t.ftpconf.sclick).text,2-,32)
n185=      taboftp.dialog.cargalista $dname 2 1 176 -cuentasftp 1 1
n186=      if ($did(2,%taboftp.t.ftpconf.sclick) != $null) { did -c $dname 2 %taboftp.t.ftpconf.sclick }
n187=    }
n188=    elseif ($did == 103) {
n189=      if (%taboftp.t.ftpconf.sclick != $null) { taboftp.timeremote taboftp.preguntacuenta %taboftp.t.ftpconf.sclick $did($dname,2,%taboftp.t.ftpconf.sclick).text }
n190=    }
n191=    elseif ($did == 104) && (%taboftp.t.ftpconf.sclick != $null) && (%taboftp.t.ftpconf.sclick > 1) {
n192=      taboftp.lista.sube -cuentasftp %taboftp.t.ftpconf.sclick
n193=      taboftp.dialog.cargalista taboftp.conftp 2 1 176 -cuentasftp 1 1
n194=      did -c $dname 2 $calc(%taboftp.t.ftpconf.sclick - 1)
n195=    }
n196=    elseif ($did == 105) && (%taboftp.t.ftpconf.sclick != $null) && (%taboftp.t.ftpconf.sclick < $did($dname,2,1).lines) {
n197=      taboftp.lista.baja -cuentasftp %taboftp.t.ftpconf.sclick
n198=      taboftp.dialog.cargalista taboftp.conftp 2 1 176 -cuentasftp 1 1
n199=      did -c $dname 2 $calc(%taboftp.t.ftpconf.sclick + 1)
n200=    }
n201=    elseif ($did == 106) {
n202=      if (%taboftp.t.ftpconf.sclick != $null) { taboftp.timeremote taboftp.conecta $did($dname,2,%taboftp.t.ftpconf.sclick).text }
n203=    }
n204=    elseif ($did == 201) || ($did == 202) { showmirc -s }
n205=  }
n206=  elseif ($devent == init) {
n207=    taboftp.dialog.cargalista taboftp.conftp 2 1 176 -cuentasftp 1 1
n208=    did -h $dname 201
n209=    did -o $dname 202 1 CLOSE
n210=    dialog -t $dname FTP - ACCOUNTs
n211=    did -h $dname 1
n212=    did -v $dname 2
n213=    did -o $dname 101 1 NEW...
n214=    did -ov $dname 103 1 EDiT...
n215=    did -ov $dname 104 1 UP
n216=    did -ov $dname 105 1 DOWN
n217=    did -ov $dname 106 1 CONNECT
n218=    did -f $dname 201
n219=  }
n220=}
n221=dialog taboftp.cuentaftp {
n222=  size 1 1 500 160
n223=
n224=  text "ACCOUNT NAME:",11,5 10 200 15
n225=  edit "",10,5 25 200 22,autohs
n226=  text "SERVER:",21,5 50 200 15
n227=  edit "",20,5 65 200 22,autohs
n228=  text "LOGiN:",31,5 100 95 15
n229=  edit "",30,5 115 95 22,autohs
n230=  text "PASSWORD:",41,105 100 95 15
n231=  edit "",40,105 115 95 22,pass autohs
n232=  text "LOCAL DiRECTORY:",51,210 10 200 15
n233=  edit "",50,210 25 200 22,autohs
n234=  button "...",52,415 25 20 22
n235=  text "REMOTE DiRECTORY:",61,210 50 200 15
n236=  edit "",60,210 65 200 22,autohs
n237=  text "PORT:",71,450 10 40 15
n238=  edit "",70,450 25 40 22,autohs
n239=  button "CONNECT",150,285 120 60 30
n240=  button "OK",151,355 120 60 30,ok
n241=  button "CANCEL",152,425 120 60 30,cancel
n242=}
n243=ON *:DIALOG:taboftp.cuentaftp:*:*:{
n244=  if ($devent == init) {
n245=    dialog -t $dname FTP - ACCOUNT
n246=    did -b $dname 52
n247=    did -o $dname 70 1 21
n248=    if (%taboftp.t.fpregcuenta.p != $null) {
n249=      :init1
n250=      inc %taboftp.t.fpregcuenta.1
n251=      if ($taboftp.rini(-cuentasftp,%taboftp.t.fpregcuenta.1)) {
n252=        set %taboftp.t.fpregcuenta.c $ifmatch
n253=        if ($gettok(%taboftp.t.fpregcuenta.c,1,176) == %taboftp.t.fpregcuenta.p) {
n254=          did -a $dname 10 %taboftp.t.fpregcuenta.p
n255=          if ($gettok(%taboftp.t.fpregcuenta.c,2,176)) { did -o $dname 20 1 $ifmatch }
n256=          if ($gettok(%taboftp.t.fpregcuenta.c,3,176)) { did -o $dname 30 1 $ifmatch }
n257=          if ($gettok(%taboftp.t.fpregcuenta.c,4,176)) { did -o $dname 40 1 $taboftp.desencripta($ifmatch) }
n258=          if ($gettok(%taboftp.t.fpregcuenta.c,5,176)) { did -o $dname 50 1 $ifmatch }
n259=          if ($gettok(%taboftp.t.fpregcuenta.c,6,176)) { did -o $dname 60 1 $ifmatch }
n260=          if ($gettok(%taboftp.t.fpregcuenta.c,7,176)) { did -o $dname 70 1 $ifmatch }
n261=          did -m $dname 10
n262=          goto yatainit
n263=        }
n264=        goto init1
n265=      }
n266=    }
n267=    :yatainit
n268=    taboftp.revisaedit
n269=  }
n270=  elseif ($devent == sclick) {
n271=    if ($did == 52) { }
n272=    if ($did == 150) {
n273=      unset %taboftp.t.ftpc150.*
n274=      taboftp.graba
n275=      :150
n276=      inc %taboftp.t.ftpc150.1
n277=      if ($taboftp.rini(-cuentasftp,%taboftp.t.ftpc150.1)) {
n278=        set %taboftp.t.ftpc150.c $ifmatch
n279=        if ($gettok(%taboftp.t.ftpc150.c,1,176) == $did(10)) {
n280=          dialog -x $dname
n281=          taboftp.timeremote taboftp.conecta %taboftp.t.ftpc150.1
n282=          return
n283=        }
n284=        goto 150
n285=      }
n286=    }
n287=    elseif ($did == 151) { taboftp.graba }
n288=  }
n289=  elseif ($devent == edit) { taboftp.revisaedit }
n290=}
n291=ON *:SOCKOPEN:FTP*:{
n292=  if ($sockerr > 0) {
n293=    taboftp.dida $sockname 230 FTP SESSiON $taboftp.sokmark(1) $+ : $taboftp.sokerr($sockerr)
n294=    return
n295=  }
n296=  if ($dialog($sockname) == $null) { dialog -m FTP $+ $taboftp.ftpnum taboftp.ftp }
n297=  dialog -t $sockname FTP Client - $iif($taboftp.sokmark(9),anonymous,$taboftp.sokmark(2)) in $taboftp.sokmark(1)
n298=  taboftp.dida $sockname 230 CONNECTiON ESTABiLiSHEd $taboftp.sokmark(1) port $sock($sockname).port
n299=  .timer $+ $sockname -o 0 180 sockwrite -n $sockname NOOP
n300=}
n301=ON *:SOCKREAD:FTP*:{
n302=  if ($sockerr > 0) {
n303=    taboftp.dida $sockname 230 FTP SESSiON $taboftp.sokmark(1) $+ : $taboftp.sokerr($sockerr)
n304=    return
n305=  }
n306=  :ftp
n307=  sockread %taboftp.t.ftp.sr
n308=  if ($sockbr) {
n309=    if (%taboftp.t.ftp.sr != $null) { taboftp.ftpsr %taboftp.t.ftp.sr }
n310=    goto ftp
n311=  }
n312=  unset %taboftp.t.ftp.sr
n313=}
n314=ON *:SOCKCLOSE:FTP*:{
n315=  sockclose ? $+ $sockname
n316=  .timer $+ $sockname off
n317=  dialog -t $sockname FTP Client
n318=  taboftp.loop 49,50,59,60,61 did -r $sockname 


n319=  did -b $sockname 240
n320=}
n321=ON *:SOCKLISTEN:LFTP*:{
n322=  if ($taboftp.sokmark(2) == $null) {
n323=    write -c $scriptdirftptmp\ $+ $taboftp.ftpnums $+ DIR.txt
n324=    did -b $taboftp.ftpnums 54
n325=    did -r $taboftp.ftpnums 50
n326=    did -r $taboftp.ftpnums 60
n327=    did -r $taboftp.ftpnums 61
n328=    did -r $taboftp.ftpnums 248
n329=    did -a $taboftp.ftpnums 50         /..
n330=    did -a $taboftp.ftpnums 248         /..
n331=    did -o $taboftp.ftpnums 249 1 0
n332=    did -o $taboftp.ftpnums 249 2 0
n333=    sockaccept $replace($sockname,LFTP,GFTP)
n334=    sockmark $replace($sockname,LFTP,GFTP) $ticks
n335=  }
n336=  else {
n337=    did -o $taboftp.sokmark(2) 6 1 CONNECTEd! STARTiNG TRANSMiSSiON...
n338=    if ($taboftp.sokmark(7) == DFTP) {
n339=      if ($taboftp.sokmark(5)) && ($isfile($taboftp.sokmark(1))) {
n340=        .remove " $+ $taboftp.sokmark(1) $+ "
n341=        sockmark $sockname $puttok($sock($sockname).mark,0,5,9)
n342=      }
n343=      sockaccept $replace($sockname,LFTP,DFTP)
n344=      sockmark $replace($sockname,LFTP,DFTP) $puttok($sock($sockname).mark,$ticks,3,9)
n345=    }
n346=    elseif ($taboftp.sokmark(7) == UFTP) {
n347=      sockaccept $replace($sockname,LFTP,UFTP)
n348=      sockmark $replace($sockname,LFTP,UFTP) $puttok($sock($sockname).mark,$ticks,3,9)
n349=      taboftp.upl2 $replace($sockname,LFTP,UFTP)
n350=    }
n351=  }
n352=  sockclose $sockname
n353=}
n354=ON *:SOCKREAD:GFTP*:{
n355=  if ($sockerr > 0) {
n356=    taboftp.echoerror FTP DIR CONNECTiON: $taboftp.sokerr($sockerr)
n357=    return
n358=  }
n359=  :gftp
n360=  sockread %taboftp.t.gftp.sr
n361=  if ($sockbr) {
n362=    if (%taboftp.t.gftp.sr != $null) { taboftp.gftpsr %taboftp.t.gftp.sr }
n363=    goto gftp
n364=  }
n365=  unset %taboftp.t.gftp.sr
n366=}
n367=--------------------------------------
n368=alias taboftp.delocal {
n369=  unset %taboftp.t.dftpdell.*
n370=  :dell
n371=  inc %taboftp.t.dftpdell.t
n372=  if ($did(10,%taboftp.t.dftpdell.t).sel) {
n373=    set %taboftp.t.dftpdell.l $did(10,$ifmatch)
n374=    set %taboftp.t.dftpdell.d $did(9) $+ $mid(%taboftp.t.dftpdell.l,10,99999999)
n375=    if (         <* iswm %taboftp.t.dftpdell.l) || (%taboftp.t.dftpdell.l ==         /..) { }
n376=    elseif (        /* iswm %taboftp.t.dftpdell.l) {
n377=      if ($findfile(%taboftp.t.dftpdell.d,*,0) == 0) && ($finddir(%taboftp.t.dftpdell.d,*,0) == 0) {
n378=        inc %taboftp.t.dftpdell.n
n379=        .rmdir " $+ %taboftp.t.dftpdell.d $+ "
n380=      }
n381=    }
n382=    else {
n383=      inc %taboftp.t.dftpdell.n
n384=      .remove " $+ $did(9) $+ %taboftp.t.dftpdell.l $+ "
n385=    }
n386=    goto dell
n387=  }
n388=  if (%taboftp.t.dftpdell.n) { taboftp.reflocal $dname $did(9) }
n389=  unset %taboftp.t.dftpdell.*
n390=}
n391=alias taboftp.mdlocal {
n392=  unset %taboftp.t.dftpmdl.*
n393=  set %taboftp.t.dftpmdl.d $taboftp.parametro($null,1,$null,len<250,$null,REMOTE DIR T CREATE iNSidE<CRLF>,$2-)
n394=  if ($dialog($1) == $null) { goto yata }
n395=  if (%taboftp.t.dftpmdl.d != $null) {
n396=    .mkdir " $+ $2- $+ %taboftp.t.dftpmdl.d $+ "
n397=    taboftp.reflocal $1-
n398=  }
n399=  dialog -n $1
n400=  :yata
n401=  unset %taboftp.t.dftpmdl.*
n402=}
n403=alias taboftp.cdlocal {
n404=  unset %taboftp.t.dftpcdl.*
n405=  set %taboftp.t.dftpcdl.d $sdir="FTP - CHANGE TO LOCAL DIR:" $2-
n406=  if ($dialog($1) == $null) { goto yata }
n407=  elseif (%taboftp.t.dftpcdl.d != $null) && (%taboftp.t.dftpcdl.d != $2-) { taboftp.reflocal $1 %taboftp.t.dftpcdl.d }
n408=  dialog -n $1
n409=  :yata
n410=  unset %taboftp.t.dftpcdl.*
n411=}
n412=alias taboftp.cdremo {
n413=  unset %taboftp.t.dftpcdr.*
n414=  set %taboftp.t.dftpcdr.d $taboftp.parametro($null,1,$null,normal,$null,CHANGE TO REMOTE DIR)
n415=  if ($dialog($1) == $null) { goto yata }
n416=  elseif (%taboftp.t.dftpcdr.d != $null) && (%taboftp.t.dftpcdr.d != $2-) { taboftp.ftpcom $1 cd %taboftp.t.dftpcdr.d }
n417=  dialog -n $1
n418=  :yata
n419=  unset %taboftp.t.dftpcdr.*
n420=}
n421=alias taboftp.quoteremo {
n422=  unset %taboftp.t.dftpquor.*
n423=  set %taboftp.t.dftpquor.d $taboftp.parametro($null,1,$null,normal,$gettok(help syst,$rand(1,2),32),COMMANd TO EXECUTE iN SERVER:)
n424=  if ($dialog($1) == $null) { goto yata }
n425=  elseif (%taboftp.t.dftpquor.d != $null) { taboftp.ftpcom $1 %taboftp.t.dftpquor.d }
n426=  dialog -n $1
n427=  :yata
n428=  unset %taboftp.t.dftpquor.*
n429=}
n430=alias taboftp.mdremoto {
n431=  unset %taboftp.t.dftpmdr.*
n432=  set %taboftp.t.dftpmdr.d $taboftp.parametro($null,1,$null,len<250,$null,REMOTE DIR TO CREATE iNSidE:<CRLF>,$2-)
n433=  if ($dialog($1) == $null) { goto yata }
n434=  if (%taboftp.t.dftpmdr.d != $null) { taboftp.timeremote taboftp.ftpcom $1 md %taboftp.t.dftpmdr.d }
n435=  dialog -n $1
n436=  :yata
n437=  unset %taboftp.t.dftpmdr.*
n438=}
n439=alias taboftp.renlocal {
n440=  unset %taboftp.t.dftprenl.*
n441=  set %taboftp.t.dftprenl.d $taboftp.parametro($null,1,$null,archvalido,$taboftp.ctoktok(32,1,$gettok($2-,2-,34)),NEW NAME:<CRLF>,$gettok($2-,2-,34))
n442=  if ($dialog($1) == $null) { goto yata }
n443=  set %taboftp.t.dftprenl.t $gettok($2-,1,34) $+ %taboftp.t.dftprenl.d
n444=  if (%taboftp.t.dftprenl.d != $null) {
n445=    if ($isfile(%taboftp.t.dftprenl.t) == $false) {
n446=      .rename " $+ $gettok($2-,1,34) $+ $gettok($2-,2-,34) $+ " " $+ $gettok($2-,1,34) $+ %taboftp.t.dftprenl.d $+ "
n447=      taboftp.reflocal $1 $gettok($2-,1,34)
n448=    }
n449=    elseif (%taboftp.t.dftprenl.d == $gettok($2-,2-,34)) { taboftp.dida $1 230 ERROR: CANNOT RENAME LOCAL FiLE " $+ $gettok($2-,2-,34) $+ " - SAME FiLE NAME! }
n450=    else { taboftp.dida $1 230 ERROR: CANNOT RENAME LOCAL FiLE " $+ $gettok($2-,2-,34) $+ " - ALREAdY EXiSTs FiLE " $+ %taboftp.t.dftprenl.d $+ " }
n451=  }
n452=  dialog -n $1
n453=  :yata
n454=  unset %taboftp.t.dftprenl.*
n455=}
n456=alias taboftp.reflocal.acta {
n457=  set -u %taboftp.t.ftprla.tam $file($2-).size
n458=  inc %taboftp.t.dftprl.an
n459=  inc %taboftp.t.dftprl.ab %taboftp.t.ftprla.tam
n460=  did -a %taboftp.t.dftprl.d 10 $nopath($2-)
n461=  did -a $1 247 $2- / / $+ %taboftp.t.ftprla.tam
n462=}
n463=alias taboftp.reflocal.acto {
n464=  did -a $1 10 $2-
n465=  did -a $1 247 $2-
n466=}
n467=alias taboftp.reflocal {
n468=  unset %taboftp.t.dftprl.*
n469=  if ($isdir($2-) == $null) { did -a $1 230 LOCAL DIR " $+ $2-" NOT FOUNd $+ $crlf }
n470=  did -b $1 14
n471=  did -r $1 10
n472=  did -r $1 247
n473=  did -r $1 20
n474=  did -r $1 21
n475=  did -o $1 9 1 $2-
n476=  if (ftp* iswm $dname) && ($did($1,16) != $null) { set %taboftp.t.dftprl.m $did($1,16) }
n477=  else { set %taboftp.t.dftprl.m *.* }
n478=  if ($numtok($did($1,9),92) > 1) { taboftp.reflocal.acto $1         /.. }
n479=  set %taboftp.t.dftprl.d $1
n480=  set %taboftp.t.dftprl.n 66
n481=  :init
n482=  inc %taboftp.t.dftprl.n
n483=  if (%taboftp.t.dftprl.n <= 90) {
n484=    if ($taboftp.esdisco($chr(%taboftp.t.dftprl.n))) { taboftp.reflocal.acto $1          < $+ $chr(%taboftp.t.dftprl.n) $+ :\> }
n485=    goto init
n486=  }
n487=  set -u %taboftp.t.dftprl.t $finddir($2-,*,0,1,taboftp.reflocal.acto %taboftp.t.dftprl.d         / $+ $nopath($1-))
n488=  set -u %taboftp.t.dftprl.t $findfile($2-,%taboftp.t.dftprl.m,0,1,taboftp.reflocal.acta %taboftp.t.dftprl.d $1-)
n489=  if (%taboftp.t.dftprl.an == $null) { set %taboftp.t.dftprl.an 0 }
n490=  if (%taboftp.t.dftprl.ab == $null) { set %taboftp.t.dftprl.ab 0 }
n491=  did -o $1 19 1 %taboftp.t.dftprl.an $taboftp.singoplur(%taboftp.t.dftprl.an,file,s) $taboftp.corch($taboftp.tabosize(%taboftp.t.dftprl.ab))
n492=  unset %taboftp.t.dftprl.*
n493=}
n494=alias taboftp.existearchexe {
n495=  unset %taboftp.t.eaexe.*
n496=  if ($isfile($gettok($1-,1,124))) {
n497=    .timer $+ $taboftp.pega($gettok($1-,1,124)) off
n498=    set %taboftp.t.eaexe.total $numtok($1-,124)
n499=    inc %taboftp.t.eaexe.t
n500=    :eaexe
n501=    inc %taboftp.t.eaexe.t
n502=    if (%taboftp.t.eaexe.t <= %taboftp.t.eaexe.total) {
n503=      taboftp.exe $gettok($1-,%taboftp.t.eaexe.t,124)
n504=      goto eaexe
n505=    }
n506=  }
n507=  unset %taboftp.t.eaexe.*
n508=}
n509=alias taboftp.acttams {
n510=  unset %taboftp.t.dftpactams.*
n511=  if ($did($1,$2,0).sel == 0) {
n512=    did -r $1 $4
n513=    did -r $1 $5
n514=  }
n515=  elseif ($did($1,$2,0).sel == 1) {
n516=    if (         <* !iswm $did($1,$2,$did($1,$2,1).sel)) && (        /* !iswm $did($1,$2,$did($1,$2,1).sel)) {
n517=      did -o $1 $4 1 $did($1,$2,$did($1,$2,1).sel)
n518=      did -o $1 $5 1 $taboftp.tabosize($gettok($did($1,$3,$did($1,$2,1).sel),3,47))
n519=    }
n520=    else {
n521=      did -r $1 $4
n522=      did -r $1 $5
n523=    }
n524=  }
n525=  else {
n526=    set -u %taboftp.t.dftpactams.total $did($1,$2,0).sel
n527=    :dftpactams
n528=    inc -u %taboftp.t.dftpactams.n
n529=    if (%taboftp.t.dftpactams.n <= %taboftp.t.dftpactams.total) {
n530=      if (         <* !iswm $did($1,$2,$did($1,$2,%taboftp.t.dftpactams.n).sel)) && (        /* !iswm $did($1,$2,$did($1,$2,%taboftp.t.dftpactams.n).sel)) {
n531=        inc -u %taboftp.t.dftpactams.a
n532=        inc -u %taboftp.t.dftpactams.b $gettok($did($1,$3,$did($1,$2,%taboftp.t.dftpactams.n).sel),3,47)
n533=      }
n534=      goto dftpactams
n535=    }
n536=    if (%taboftp.t.dftpactams.a) {
n537=      did -o $1 $4 1 %taboftp.t.dftpactams.a $taboftp.singoplur(%taboftp.t.dftpactams.a,file,s)
n538=      did -o $1 $5 1 $taboftp.tabosize(%taboftp.t.dftpactams.b) bytes
n539=    }
n540=    else {
n541=      did -r $1 $4
n542=      did -r $1 $5
n543=    }
n544=  }
n545=}
n546=alias ftpconf {
n547=  if ($dialog(taboftp.conftp)) { did -f taboftp.conftp 201 }
n548=  else { dialog -m taboftp.conftp taboftp.lista.base }
n549=}
n550=alias taboftp.preguntacuenta {
n551=  unset %taboftp.t.fpregcuenta.*
n552=  set %taboftp.t.fpregcuenta.p $gettok($2-,2-,32)
n553=  set %taboftp.t.fpregcuenta.t $dialog(taboftp.cuentaftp,taboftp.cuentaftp,-4)
n554=  unset %taboftp.t.fpregcuenta.*
n555=}
n556=alias taboftp.revisaedit {
n557=  if ($taboftp.texto($did(10)) == $null) || ($chr(176) isin $did(10)) || ($taboftp.esip($did(20)) == $null) { goto no }
n558=  if ($taboftp.texto($did(30)) != $null) && (: isin $did(30)) { goto no }
n559=  if ($taboftp.texto($did(40)) != $null) && (: isin $did(40)) { goto no }
n560=  if ($taboftp.texto($did(40)) != $null) && ($taboftp.texto($did(30)) == $null) { goto no }
n561=  if ($did(70) != $null) && ($did(70) !isnum) { goto no }
n562=  if ($taboftp.texto($did(50)) != $null) && ($isdir($did(50)) == $false) { goto no }
n563=  did -e $dname 150
n564=  did -e $dname 151
n565=  goto yata
n566=  :no
n567=  did -b $dname 150
n568=  did -b $dname 151
n569=  :yata
n570=}
n571=alias taboftp.conecta {
n572=  set -u %taboftp.t.ftpcc.t $taboftp.rini(-cuentasftp,$round($1,0))
n573=  if ($gettok(%taboftp.t.ftpcc.t,5,176)) { set %taboftp.c.ftp.dl $ifmatch }
n574=  if ($gettok(%taboftp.t.ftpcc.t,3,176)) {
n575=    set -u %taboftp.t.ftpcc.lp $ifmatch
n576=    if ($taboftp.desencripta($gettok(%taboftp.t.ftpcc.t,4,176))) { set -u %taboftp.t.ftpcc.lp %taboftp.t.ftpcc.lp $+ : $+ $ifmatch }
n577=    set -u %taboftp.t.ftpcc.lp %taboftp.t.ftpcc.lp $+ @
n578=  }
n579=  ftp %taboftp.t.ftpcc.lp $+ $gettok(%taboftp.t.ftpcc.t,2,176) $+ : $+ $gettok(%taboftp.t.ftpcc.t,7,176) $+ $iif($gettok(%taboftp.t.ftpcc.t,6,176),$gettok(%taboftp.t.ftpcc.t,6,176))
n580=}
n581=alias taboftp.graba {
n582=  unset %taboftp.t.ftpcg.*
n583=  set %taboftp.t.ftpcg.tempo $taboftp.lista.meteTOK.i(-cuentasftp,1,176,$did(10))
n584=  if ($did(60) != $null) {
n585=    if ($left($did(60),1) == /) { set %taboftp.t.ftpcg.dr $did(60) }
n586=    else { set %taboftp.t.ftpcg.dr / $+ $did(60) }
n587=  }
n588=  else { set %taboftp.t.ftpcg.dr 0 }
n589=  writeini $scriptdirftp.ini cuentasftp total $gettok(%taboftp.t.ftpcg.tempo,2,32)
n590=  taboftp.wini -cuentasftp $gettok(%taboftp.t.ftpcg.tempo,1,32) $taboftp.texto($did(10)) $+ ° $+ $iif($did(20),$did(20),0) $+ ° $+ $iif($did(30),$did(30),0) $+ ° $+ $iif($did(40),$taboftp.encripta($did(40)),0) $+ ° $+ $iif($did(50),$did(50),0) $+ ° $+ %taboftp.t.ftpcg.dr $+ ° $+ $iif($did(70),$did(70),0)
n591=  unset %taboftp.t.ftpcg.*
n592=  taboftp.dialog.cargalista taboftp.conftp 2 1 176 -cuentasftp 1 1
n593=}
n594=alias taboftp.encripta { return $taboftp.wascini2($taboftp.encripta2($1-)) }
n595=alias taboftp.desencripta { return $taboftp.desencripta2($taboftp.rascini2($1-)) }
n596=alias taboftp.wascini2 {
n597=  unset %taboftp.t.wascini.*
n598=  :wascini
n599=  inc -u %taboftp.t.wascini.n
n600=  if ($mid($1-,%taboftp.t.wascini.n,1) != $null) {
n601=    set -u %taboftp.t.wascini.f %taboftp.t.wascini.f $asc($mid($1-,%taboftp.t.wascini.n,1))
n602=    goto wascini
n603=  }
n604=  return %taboftp.t.wascini.f
n605=}
n606=alias taboftp.rascini2 {
n607=  unset %taboftp.t.rascini.*
n608=  :rascini
n609=  inc -u %taboftp.t.rascini.n
n610=  if ($gettok($1-,%taboftp.t.rascini.n,32)) {
n611=    if ($gettok($1-,$calc(%taboftp.t.rascini.n - 1),32) == 32) { set -u %taboftp.t.rascini.f %taboftp.t.rascini.f $chr($gettok($1-,%taboftp.t.rascini.n,32)) }
n612=    else { set -u %taboftp.t.rascini.f %taboftp.t.rascini.f $+ $chr($gettok($1-,%taboftp.t.rascini.n,32)) }
n613=    goto rascini
n614=  }
n615=  return %taboftp.t.rascini.f
n616=}
n617=alias taboftp.encripta2 {
n618=  unset %taboftp.t.encripta.*
n619=  :taboftp.encripta1
n620=  unset %taboftp.t.encripta.t %taboftp.t.encripta.e
n621=  inc -u %taboftp.t.encripta.g
n622=  if ($gettok($1-,%taboftp.t.encripta.g,32)) {
n623=    :taboftp.encripta2
n624=    inc -u %taboftp.t.encripta.t
n625=    if ($mid($gettok($1-,%taboftp.t.encripta.g,32),%taboftp.t.encripta.t,1) != $null) {
n626=      set -u %taboftp.t.encripta.e %taboftp.t.encripta.e $+ $chr($calc($asc($mid($gettok($1-,%taboftp.t.encripta.g,32),%taboftp.t.encripta.t,1)) + ((%taboftp.t.encripta.t + 5) ^ 2)))
n627=      goto taboftp.encripta2
n628=    }
n629=    set -u %taboftp.t.encripta.f %taboftp.t.encripta.f %taboftp.t.encripta.e
n630=    goto taboftp.encripta1
n631=  }
n632=  return %taboftp.t.encripta.f
n633=}
n634=alias taboftp.desencripta2 {
n635=  unset %taboftp.t.desencripta.*
n636=  :taboftp.desencripta1
n637=  unset %taboftp.t.desencripta.t %taboftp.t.desencripta.e
n638=  inc -u %taboftp.t.desencripta.g
n639=  if ($gettok($1-,%taboftp.t.desencripta.g,32)) {
n640=    :taboftp.desencripta2
n641=    inc -u %taboftp.t.desencripta.t
n642=    if ($mid($gettok($1-,%taboftp.t.desencripta.g,32),%taboftp.t.desencripta.t,1) != $null) {
n643=      set -u %taboftp.t.desencripta.e %taboftp.t.desencripta.e $+ $chr($calc($asc($mid($gettok($1-,%taboftp.t.desencripta.g,32),%taboftp.t.desencripta.t,1)) - ((%taboftp.t.desencripta.t + 5) ^ 2)))
n644=      goto taboftp.desencripta2
n645=    }
n646=    set -u %taboftp.t.desencripta.f %taboftp.t.desencripta.f %taboftp.t.desencripta.e
n647=    goto taboftp.desencripta1
n648=  }
n649=  return %taboftp.t.desencripta.f
n650=}
n651=alias taboftp.esdisco { return $iif($isdir($1 [ $+ :\ ] ),$1) }
n652=alias taboftp.metele {
n653=  unset %taboftp.t.metele.*
n654=  set %taboftp.t.metele.m $strip($2-)
n655=  :metele1
n656=  inc %taboftp.t.metele.t1
n657=  if (%taboftp.t.metele.t1 > 10) { goto metele2 }
n658=  if (%taboftp.t.metele.m == $taboftp.rini($1,%taboftp.t.metele.t1)) {
n659=    :metelesub
n660=    dec %taboftp.t.metele.t1
n661=    if (%taboftp.t.metele.t1 > 0) {
n662=      taboftp.wini $1 $calc(%taboftp.t.metele.t1 + 1) $taboftp.rini($1,%taboftp.t.metele.t1)
n663=      goto metelesub
n664=    }
n665=    taboftp.wini $1 1 %taboftp.t.metele.m
n666=    goto yata
n667=  }
n668=  goto metele1
n669=  :metele2
n670=  if ($taboftp.rini($1,10)) { remini $scriptdirftp.ini $remove($1,-) 10 }
n671=  set %taboftp.t.metele.n 10
n672=  :metele3
n673=  dec %taboftp.t.metele.n
n674=  if ($taboftp.rini($1,%taboftp.t.metele.n)) { taboftp.wini $1 $calc(%taboftp.t.metele.n + 1) $taboftp.rini($1,%taboftp.t.metele.n) }
n675=  if (%taboftp.t.metele.n > 0) { goto metele3 }
n676=  taboftp.wini $1 1 $2-
n677=  :yata
n678=  unset %taboftp.t.metele.*
n679=}
n680=alias taboftp.mftprec {
n681=  if ($taboftp.rini(-r.ftp,$1)) {
n682=    if ($gettok($taboftp.rini(-r.ftp,$1),2,63) == anonymous) { return & $+ $1 ftp:// $+ $gettok($taboftp.rini(-r.ftp,$1),1,63) }
n683=    if ($gettok($taboftp.rini(-r.ftp,$1),3,63) == 36 110 117 108 108) { return & $+ $1 ftp:// $+ $gettok($taboftp.rini(-r.ftp,$1),2,63) $+ @ $+ $gettok($taboftp.rini(-r.ftp,$1),1,63) }
n684=    return & $+ $1 ftp:// $+ $gettok($taboftp.rini(-r.ftp,$1),2,63) $+ : $+ $str(*,$numtok($gettok($taboftp.rini(-r.ftp,$1),3,63),32)) $+ @ $+ $gettok($taboftp.rini(-r.ftp,$1),1,63)
n685=  }
n686=}
n687=alias taboftp.ftpmn { ftp $gettok($taboftp.rini(-r.ftp,$1),2,63) $+ : $+ $taboftp.desencripta($gettok($taboftp.rini(-r.ftp,$1),3,63)) $+ @ $+ $gettok($taboftp.rini(-r.ftp,$1),1,63) }
n688=-------------------------------------