CLIENT ET SERVEUR PERSO SOCKET (NON TERMINÉS)

;----Par-SkotMarud----

;-------------------------------------------
;----Server-sok----

dialog server {
  title "server"
  size -1 -1 70 72
  option dbu
  text "Creation d'un serveur sok", 1, 4 2 67 8
  edit "", 2, 24 12 40 10
  text "Port :", 3, 8 13 15 8
  box "", 4, 2 8 66 62
  text "Pass :", 5, 8 33 15 8, disable
  text "User :", 6, 8 23 15 8, disable
  edit "", 7, 24 22 40 10, disable
  edit "", 8, 24 32 40 10, disable pass
  radio "User et Pass", 9, 24 44 40 8
  radio "Pass", 10, 24 52 22 8
  radio "Anonyme", 11, 24 60 34 8
  button "Ok", 12, 4 44 19 12, default
  button "No", 13, 4 56 19 12, cancel
  button "off", 14, 57 2 11 8
}
on 1:dialog:server:*:*:{
  if ($devent = init) {
    if (!$sock(server)) { did -b server 14 }
    if $sock(server) { did -ma server 2 $sock(server).port | did -e server 14 | did -b server 9,10,11,12,13 }
    did -c server 11
  }
  if ($devent = sclick) {
    if ($did = 9) { did -e server 5,6,7,8 }
    if ($did = 10) { did -e server 5,8 | did -b server 6,7 }
    if ($did = 11) { did -b server 5,6,7,8 }
    if ($did = 12) { 
      if ($portfree($did(server,2)) = $false) { $input(Port déja utilisé $+ $str($chr(32),15) ,io,info) | did -r server 2 } 
      if ($did(server,2) > $calc(2^16)) { $input(Port invalide $+ $str($chr(32),15) ,wo,info) | did -r server 2 }
      if ($portfree($did(server,2)) = $true) && ($did(server,2) < $calc(2^16)) && ($did(9).state = 1) { set %port.server $did(server,2) | set %user $did(server,7) $+ $chr(46) $+ $did(server,8) | soko | dialog -x server }
      if ($portfree($did(server,2)) = $true) && ($did(server,2) < $calc(2^16)) && ($did(10).state = 1) { set %port.server $did(server,2) | set %user $did(server,8) | soko | dialog -x server }
      if ($portfree($did(server,2)) = $true) && ($did(server,2) < $calc(2^16)) && ($did(11).state = 1) { set %port.server $did(server,2) | set %user anonymous $+ $chr(46) $+ anonymous | soko | dialog -x server }
    }
    if ($did = 14) { sockclose server | if $sock(server1) { sockclose server1 } | did -b server 14 | did -nr server 2 | did -e server 9,10,11,12,13 }
  }
}
;--------------essai du serv-------------
alias help {
  sockwrite -n server1 $str($chr(45),29) $crlf $+ HELP $chr(124) $+ Menu des commandes. $crlf $+ BYE $chr(124) $+ Deconnection. $crlf $+ DISK $chr(124) $+ Retourne les informations au sujet du disque dur specifie. $crlf $+ DIR $chr(124) $+ Affiche une liste de fichiers et de sous-repertoires dans un repertoire. $crlf $+ SDISK $chr(124) $+ Affiche disk/partition(s). $crlf $+ FILE $chr(124) $+ Affiche la taille du fichier. $crlf $+ $str($chr(45),29)
}
alias soko {
  socklisten server %port.server
}
on 1:socklisten:server:{
  set %regist 0
  sockaccept server1 %port.server | .timer 1 10 sockclose server1
  sockwrite -n server1 3-identification User and Pass $crlf
}
on 1:sockread:server1:{
  sockread %a
  if (%a = %user) && ($gettok(%regist,2,46) = 1) { sockwrite -n server1 2-user deja enregistre $crlf }
  if (%a = %user) && (%regist = 0) { sockwrite -n server1 1-login ok $crlf | set %regist $addtok(%regist,1,46) | .timer1 off }
  if (%a = bye) && ($gettok(%regist,2,46) = 1) { sockclose server1 }
  if (%a = help) && ($gettok(%regist,2,46) = 1) { help }
  if ($gettok(%a,1,46) = disk) && ($gettok(%regist,2,46) = 1) { sockwrite -n server1 $str($chr(45),29) | sockwrite -n server1 5-disk Path $disk($gettok(%a,2,46)).path $chr(124) Type $disk($gettok(%a,2,46)).type $chr(124) Name $disk($gettok(%a,2,46)).label $chr(124) Memory $round($calc($disk($gettok(%a,2,46)).free /1000000000),2) $+ $chr(47) $+ $round($calc($disk($gettok(%a,2,46)).size /1000000000),2) Go | sockwrite -n server1 $str($chr(45),29) }
  if ($gettok(%a,1,46) = dir) && ($gettok(%regist,2,46) = 1) { 
    var %i 0
    while ($finddir($gettok(%a,2,46),*.*,0,1) >= %i) {
      if (%i = 0) { sockwrite -n server1 $str($chr(45),29) | sockwrite -n server1 $finddir($gettok(%a,2,46),*.*,%i,1) Dossier(s) }
      if ($calc($finddir($gettok(%a,2,46),*.*,0,1)-1) >= %i) { sockwrite -n server1 6-dir $finddir($gettok(%a,2,46),*.*,$calc( %i +1),1) }
      inc %i 
      if ($finddir($gettok(%a,2,46),*.*,0,1) = %i) { sockwrite -n server1 $str($chr(45),29) }
    }
    var %o 0 
    while ($findfile($gettok(%a,2,46),*.*,0,1) >= %o) {
      if (%o = 0) { sockwrite -n server1 $str($chr(45),29) | sockwrite -n server1 $findfile($gettok(%a,2,46),*.*,%o,1) Fichier(s) }
      if ($calc($findfile($gettok(%a,2,46),*.*,0,1)-1) >= %o) { sockwrite -n server1 6-dir $findfile($gettok(%a,2,46),*.*,$calc( %o +1),1) }
      inc %o 
      if ($findfile($gettok(%a,2,46),*.*,0,1) = %o) { sockwrite -n server1 $str($chr(45),29) }
    } 
  }
  if ($gettok(%a,1,46) = sdisk) && ($gettok(%regist,2,46) = 1) { 
    set %alphabet a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
    var %u 0
    while ($numtok(%alphabet,44) >= %u) {
      if ($disk($gettok(%alphabet,%u,44))) { sockwrite -n server1 4-sdisk $disk($gettok(%alphabet,%u,44)).path }
      if ($numtok(%alphabet,44) = %u) { unset %alphabet }
      inc %u
    }
  }
  if ($gettok(%a,1,46) = file) && ($gettok(%regist,2,46) = 1) { 
    if ($round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^10)),3) <= 500) { sockwrite -n server1 7-file $round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^10)),3) Ko  ( $file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size octets ) }
    if ($round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^10)),3) > 500) && ($round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^20)),3) <= 500) { sockwrite -n server1 7-file $round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^20)),3) Mo  ( $round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^10)),2) Ko ) }
    if ($round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^20)),3) > 500) { sockwrite -n server1 7-file $round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^30)),3) Go  ( $round($calc($file($remove($nofile(%a),$gettok(%a,1,46),$chr(46)) $+ $nopath(%a)).size /(2^20)),2) Mo ) }
  }

  ;-----dtransfert-essai-----

  if ($gettok(%a,1,124) = down) && ($gettok(%regist,2,46) = 1) { 
    set %adrfile $gettok(%a,2,124) | socklisten dstransfert $calc( %port.server +1) | sockwrite -n server1 8-DTransfert-init1
  }
  if ($gettok(%a,1,45) = dctransfert) && ($gettok(%regist,2,46) = 1) { 
    sockwrite -n server1 10-send $file(%adrfile).size
    .fopen file %adrfile
    if ($fread(file,$file(%adrfile).size,&bin)) {
      sockwrite dstransfert2 &bin
    }  
  }
  if ($gettok(%a,1,124) = downok) && ($gettok(%regist,2,46) = 1) { 
    sockwrite -n server1 11-Send termine | sockclose dstransfert2 | if ($fopen(file) = file) { .fclose file }
  }
}
on 1:socklisten:dstransfert:{
  sockaccept dstransfert2 $calc( %port.server +1) | sockclose dstransfert
  sockwrite -n server1 9-DTransfert-ok
}


;-----------------------------------------
;&#151;&#151;&#151;&#151;&#151;client&#151;essai&#151;&#151;&#151;&#151;&#151;&#151;


dialog client {
  title "Client"
  size -1 -1 140 182
  option dbu
  text "Dossier(s)/Fichier(s)", 1, 3 96 49 8
  list 2, 2 114 136 42, size, hsbar vsbar
  text "Telecharger :", 4, 3 160 33 8
  edit "", 5, 36 158 76 10, autohs read
  button "ok", 6, 113 158 24 10
  list 7, 2 58 51 29, size vsbar
  text "Disk", 8, 3 48 11 8
  edit "", 9, 14 46 26 10
  button "ok", 10, 41 46 11 10
  list 12, 54 46 84 41, disable size
  edit "", 13, 22 2 46 10, autohs
  text "ip :", 14, 4 4 9 8
  text "Port :", 15, 72 4 15 8
  edit "", 16, 88 2 48 10, autohs
  text "Login :", 17, 4 14 17 8, disable
  edit "", 18, 22 12 46 10, autohs disable
  text "Pass :", 19, 72 14 15 8, disable
  edit "", 20, 88 12 48 10, pass autohs disable
  button "On", 21, 104 22 16 12
  edit "", 23, 0 172 140 10, disable read
  text "&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;", 3, 2 37 137 8, disable
  text "&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;&#151;", 11, 2 88 137 8, disable
  button "Off", 22, 120 22 16 12, disable
  edit "", 24, 28 104 92 10, autohs
  text "Adresse :", 25, 4 106 24 8
  button "ok", 26, 127 104 11 10
  button "<", 27, 120 104 7 10
  radio "User et Pass", 28, 6 24 40 8
  radio "Pass", 29, 46 24 22 8
  radio "Anonyme", 30, 68 24 34 8
  box "", 31, 2 -2 136 38
}
on 1:sockopen:client:{
  did -ra client 23 Tentative de connection au serveur. | .timer 2 10 did -ra client 23 Serveur non trouvé.
}
on 1:sockclose:client:{
  did -ra client 23 Perte de la connection. | .timer2 off | did -e client 13,14,15,16,21,28,29,30 | did -r client 2,5,7,9,12,24 | did -c client 30 | if ($did(client,28).state = 1) || ($did(client,29).state = 1 ) { did -u client 28,29 }
}
on 1:sockread:client:{
  sockread %a
  if ($gettok(%a,1,45) = 3) { if ($did(client,28).state = 1) { sockwrite -n client $did(client,18) $+ $chr(46) $+ $did(client,20) } | if ($did(client,29).state = 1) { sockwrite -n client $did(client,20) } | if ($did(client,30).state = 1) { sockwrite -n client anonymous $+ $chr(46) $+ anonymous } }
  if ($gettok(%a,1,45) = 1) { did -ra client 23 Connecté au serveur. | .timer2 off | sockwrite -n client sdisk }
  if ($gettok(%a,1,45) = 4) { did -a client 7 $right($gettok(%a,2,45),3) }
  if ($gettok(%a,1,45) = 5) { did -ra client 12 disk $right($gettok(%a,1,124),4) | did -a client 12 $gettok(%a,2,124) | did -a client 12 $gettok(%a,3,124) | did -a client 12 $gettok(%a,4,124) }
  if ($gettok(%a,1,45) = 6) { did -a client 2 $remove($gettok(%a,$calc($numtok(%a,45)-($numtok(%a,45)*2)+1)- $calc($numtok(%a,45)-($numtok(%a,45)*2)+1),45),$left($gettok(%a,$calc($numtok(%a,45)-($numtok(%a,45)*2)+1)- $calc($numtok(%a,45)-($numtok(%a,45)*2)+1),45),3)) | did -ra client 24 $deltok($remove($gettok(%a,2,45),$left($gettok(%a,2,45),3)),-1,92) }
  if ($gettok(%a,1,45) = 7) { did -a client 12 File : $nopath($did(client,2).seltext) | did -a client 12 size : $remove($gettok(%a,2,45),$left($gettok(%a,2,45),4)) }
  if ($gettok(%a,1,45) = 8) { did -ra client 23 server init | sockopen dctransfert $did(client,13) $calc($did(client,16) +1) }
  if ($gettok(%a,1,45) = 9) { did -ra client 23 server ok | sockwrite -n client dctransfert-ok }
  if ($gettok(%a,1,45) = 10) { set %sizefile $remove($gettok(%a,2,45),$left($gettok(%a,2,45),4)) | did -ra client 23 server send data file }
  if ($gettok(%a,1,45) = 11) { unset %sizefile | unset %sizefile2 | did -ra client 23 Transfert terminé | .timer 4 3 did -ra client 23 Connecté au serveur. }
}
on 1:dialog:client:*:*:{ did -z client 2
  if ($devent = init) {
    did -z client 2
    did -c client 30
  }
  if ($devent = sclick) {
    if ($did = 28) { did -e client 17,18,19,20 }
    if ($did = 29) { did -e client 19,20 | did -b client 17,18 }
    if ($did = 30) { did -b client 17,18,19,20 }
    if ($did = 21) { did -e client 22 | did -b client 13,14,15,16,17,18,19,20,21,28,29,30 | sockopen client $did(13) $did(16) }
    if ($did = 22) { did -e client 13,14,15,16,21,28,29,30 | did -r client 2,5,7,9,12,23,24 | sockclose client | sockclose dctransfert | did -a client 23 Déconnecté. | did -c client 30 | if ($did(client,28).state = 1) || ($did(client,29).state = 1 ) { did -u client 28,29 } }
    if ($did = 7) { did -ra client 9 $did(client,7).seltext | sockwrite -n client disk. $+ $did(client,7).seltext }
    if ($did = 10) { did -r client 2 | sockwrite -n client dir. $+ $gettok($did(client,9),1,92) }
    if ($did = 2) { 
      if ($fd-v($did(client,2).seltext) = F) { did -r client 12 | did -ra client 5 $nopath($did(client,2).seltext) | did -ra client 24 $nofile($did(client,2).seltext) | sockwrite -n client file. $+ $did(client,2).seltext }
      if ($fd-v($did(client,2).seltext) = D) { did -r client 5,12 | did -ra client 24 $nofile($did(client,2).seltext) }
    }
    if ($did = 26) { sockwrite -n client dir. $+ $did(client,24) | did -r client 2 }
    if ($did = 27) && ($numtok($did(client,24),92) >= 2 ) { var %adresse $did(client,24).text | sockwrite -n client dir. $+ $deltok($did(client,24),$numtok($did(client,24),92),92) | did -r client 2 | did -ra client 24 $deltok($did(client,24),-1,92) }
    if ($did = 6) { sockwrite -n client down| $+ $did(client,2).seltext | set %file2 $mircdirdownload\ $+ $did(client,5) }
  }
  if ($devent = dclick) {
    if ($did = 2) && ($fd-v($did(client,2).seltext) = D) { sockwrite -n client dir. $+ $did(client,2).seltext | did -r client 2 }
  }
}
alias fd-v {
  $iif($gettok($1,$numtok($1,46),46) isin $gettok($1,-1,92),return F,return D)
}

;-----DcTransfert-----
on 1:sockread:dctransfert:{ 
  if ($file(%file2).size = %sizefile) { sockwrite -n client downok }
  sockread &d
  bwrite $mircdirdownload\ $+ $did(client,5) -1 -1 &d
}