Client et serveur perso socket (non terminés)

Commenter

Contenu du snippet

Donc voila j'avais un projet : faire un client et un serveur sans le dcc, tout perso en socket. je ne metrise pas totalement les socket. j'ai essayer de le faire c'est deja pas mal! jusqu'au transfert de fichier qui ma serieusement butter donc j'ai abandonner ~:[
Le code =>
serveur : on choisit le port que l'on veut ouvrir, on ne peut pas ouvrir un port deja ouvert! (logik) c'est prévu d'ailleur.. ensuite peut soit mettre anonyme qui revient a une authentification comme si vous mettez un login et pass "anonymous" et on peut mettre qu'un pass bref.. on le run "hop" :D

le client : donc dans le client pour se connecter au serveur on met l'auth qu'il faut.. une fois connecter il recherche les disk present sur le serveur, et les affiche bon apres c'est pas compliker a utiliser.

Les problemes : je me suis arreter au transfert de fichier, j'ai reussi a down des fichiers en fait je pens pas que ce soit compliquer a quelqu'un qui connait bien les socket de "finir" "ameliorer" (oh oui) ,..
ça serait bien qu'une personne s'y penche (ça peut etre interessant) et il n'y a pas que du socket dedans :)

Source / Exemple : 


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

Conclusion :


C'etait un bon casse tête! Si ça peut vous être utile en quoi que ce soit :) (ou si kelkun voudrait le terminer ou l'ameliorer :/)
jme permet de le mettre en Niveau2 jvois pas trop un debutant scasser le Q dessus :')

A voir également

S'inscrire maintenant

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.

Du même auteur (skotmarud)