Client et serveur perso socket (non terminés)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 891 fois - Téléchargée 31 fois

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

Ajouter un commentaire

Commentaires

cs_KiNdErMaXi
Messages postés
1055
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
30 novembre 2009
2 -
alias help {
gloups :|
sinon je n'ai reperer aucune erreur qui m'as choqué
skotmarud
Messages postés
119
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008
-
c'est pas une erreur au debut j'avais pas prevu d'interface alors c'etait sous telnet :/
abdoulax
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012
-
Pour envoyer un fichier :

alias Send {
bread fichier.exe %FtpByte 4092 &data
sockwrite Send &data
%Byte = %Byte + 4092
}

on *:sockwrite:Send:{
bread fichier.exe %Byte 4092 &data
sockwrite $sockname &data
%Byte = %Byte + 4092
}

Pour la reception d'un fichier :

on 1:sockread:recv:{
:suite
sockread &data
if ($sockbr == 0) return
bwrite fichier.exe -1 &data
goto suite
}

J'espère que cela va te suffir ?!?
abdoulax
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012
-
Oops je me suis planté dans l'alias Send, faut mettre 0 à la place de la variable %FtpByte.
VestaX
Messages postés
376
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013
-
c koi exactement? un truc genre p2p?

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.