| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
drakeramore
Connaisseur
Inscrit le: 07 Mar 2001
Messages: 170
Localisation: Limoges
|
 Posté le: 6-Aoû-02 11:47:13 Sujet du message: Partage de connexion entre macs avec un EICON DIVA 2340SE |
 |
|
Dernière édition par drakeramore le 6-Aoû-02 11:56:39; édité 2 fois |
|
| Revenir en haut |
|
 |
Fyve
Administrateur
Inscrit le: 07 Mar 2001
Messages: 9963
Localisation: Taulier de la Bastille
|
| Posté le: 8-Aoû-02 08:28:05 Sujet du message: |
|
|
A transformer en tutorial. Je le fais et l'envoi à Anthony... 
Ce serait possible d'avoir des captures écrans ?
A+
_________________
"Quand on m'en fait trop, je correctionne plus, je dynamite, je disperse, je ventile..." (Audiard)
Acheter sur l'AppleStore |
|
| Revenir en haut |
|
|
drakeramore
Connaisseur
Inscrit le: 07 Mar 2001
Messages: 170
Localisation: Limoges
|
| Posté le: 8-Aoû-02 08:59:24 Sujet du message: |
|
|
Oui, bien sûr.
A qui dois je les envoyer ?
N'ai-je pas fait ce qu'il fallait, je pensais que ce que j'avais fait était un tutoriel... |
|
| Revenir en haut |
|
|
Fyve
Administrateur
Inscrit le: 07 Mar 2001
Messages: 9963
Localisation: Taulier de la Bastille
|
| Posté le: 8-Aoû-02 09:36:25 Sujet du message: |
|
|
Il y a un MP qui t'attend...
A+
_________________
"Quand on m'en fait trop, je correctionne plus, je dynamite, je disperse, je ventile..." (Audiard)
Acheter sur l'AppleStore |
|
| Revenir en haut |
|
|
E.T.
Membre hyperactif
Inscrit le: 07 Mar 2001
Messages: 4708
Localisation: Nice
|
| Posté le: 10-Aoû-02 10:13:12 Sujet du message: 2340 ou 2430? |
|
|
Drakeramore,
Peux-tu confirmer la référence du modem que tu as modifié. Je ne trouve que le 2430 SE chez EICON.  |
|
| Revenir en haut |
|
|
drakeramore
Connaisseur
Inscrit le: 07 Mar 2001
Messages: 170
Localisation: Limoges
|
| Posté le: 10-Aoû-02 11:11:59 Sujet du message: |
|
|
Oui, autant pour moi, il s'agit bien du 2430SE.
Je suis un peu dislexique des doigts...  |
|
| Revenir en haut |
|
|
CoreDumped
Membre hyperactif
Inscrit le: 20 Fév 2002
Messages: 583
Localisation: Rumilly / Lugdunum
|
| Posté le: 10-Aoû-02 17:12:33 Sujet du message: on peut aussi activer tftp en OS X |
|
|
Bonjour,
Tout d'abord merci pour ce dossier!! 
En ce qui concerne le transfert des images par tftp, pour ceux qui disposent d'OS X
on peut activer les services tftp dans inetd.conf
| Code: | | sudo vi /etc/inetd.conf |
décomenter les lignes tftp
relancer inetd par où 007 est le numéro de process de inet donné par .
(on peut aussi rebooter)
donner les droits d'acces à tftp | Code: |
sudo chmod 777 /private
sudo mkdir /private/tftpboot
sudo chmod 777 /private/tftpboot
touch /private/tftpboot/conf.bin
chmod 777 /private/tftpboot/conf.bin |
executer le transfer depuis le modem par | Code: | | put tftp file 192.168.1.2 .config.bin conf.bin |
comme indiqué.
Si vous ne disposer pas de virtual PC, il faut transferer conf.bin vers un PC pour éditer les plages d'adresses. Pour cela il faut autoriser ftp (même punition que ci dessus avec inetd.conf).
le transfert dans l'autre sens (vers le modem) produit bien l'erreur de timeout indiquée.
Core Dumped.
(je pense qu'on doit pouvoir écrire un perl script qui assure le transfert tftp ...) |
|
| Revenir en haut |
|
|
Anthony
Administrateur
Inscrit le: 07 Mar 2001
Messages: 7354
Localisation: Paris Nancy
|
|
| Revenir en haut |
|
|
drakeramore
Connaisseur
Inscrit le: 07 Mar 2001
Messages: 170
Localisation: Limoges
|
| Posté le: 10-Aoû-02 17:28:53 Sujet du message: |
|
|
| Effectivement, c'est plutôt balaise... |
|
| Revenir en haut |
|
|
CoreDumped
Membre hyperactif
Inscrit le: 20 Fév 2002
Messages: 583
Localisation: Rumilly / Lugdunum
|
| Posté le: 11-Aoû-02 17:28:33 Sujet du message: serveur tftp en perl (on recherche testeur) |
|
|
Bonjour,
Voilà c'est fait un serveur tftp en perl!!
(vite fait, mal fait!! mais enfin j'ai compris la fonction pack/unpack !!)
sauver sous un nom quelqconque, lancer
| Code: | | sudo perl monserver.pl server69 |
dans un fenetre.
dans un autre fenetre, faite telnet vers le modem, puis tftp put
éditer config.bin sur un PC.
ramener le fichier dans le répertoire de départ.
retourner sur le modem, faire tftp get
Je n'ai pas testé en 8.6, juste en OS X!
laisser moi vos remarques soit sur ce forum, soit en message privé.
| Code: |
use strict;
use Socket;
sub RRQ () { 01 } # read request
sub WRQ () { 02 } # write request
sub DATA () { 03 } # data packet
sub ACK () { 04 } # acknowledgement
sub ERROR () { 05 } # error code
sub OACK () { 06 } # option acknowledgement
my @NAME = qw(. RRQ WRQ DATA ACK ERR OACK);
my $return = 05 ;
my $sequence_env = 0 ;
my $sequence_recu ;
my $localfile ;
my $block512 ;
my $luaemetre ;
my $emission = 0 ;
# my ENTRANT,SORTANT ;
sub ouvrir_fichier_entrant
{
$localfile = shift ;
printf "open(<%s,binaire) ",$localfile ;
close ENTRANT ; # on sait jamais ...
close SORTANT ;
$! = 0 ;
open ENTRANT,">$localfile" ;
if ( $! != 0 ) {
$return = $! ;
printf " = %d \n",$return ;
}
binmode ENTRANT ;
}
sub ouvrir_fichier_sortant
{
$localfile = shift ;
printf "open(>%s,binaire) ",$localfile ;
close SORTANT ;
close ENTRANT ;
$! = 0 ;
open SORTANT,"<$localfile" ;
if ( $! != 0 ) {
$return = $! ;
printf " = %d \n",$return ;
}
binmode SORTANT ;
$sequence_env = 1 ;
$emission = 1 ;
}
sub ecrire_fichier
{
my $data = shift ;
my $ecrit = syswrite ENTRANT,$data,length($data) ;
printf "syswrite(%s, ... , %d) -> %d (seq #%s)\n",
$localfile,length($data),$ecrit,$sequence_recu ;
}
sub lire_512_octets
{
$! = 0 ;
$luaemetre = sysread SORTANT,$block512,512 ;
printf "sysread(%s, ... , %d) -> %d (seq #%s)\n",
$localfile,512,$luaemetre,$sequence_env ;
}
sub pack_error
{
my $codecomplementaire = shift ;
my $texterreur = shift ;
return pack "SSa*C",05,$codecomplementaire,$texterreur,0 ;
}
sub print_info
{
my $message =shift;
my $port =shift;
my $iaddr=shift;
my $name = gethostbyaddr($iaddr,AF_INET);
my $fname = $name."[".inet_ntoa($iaddr)."]";
# printf "j\'ai <%s> (%d octets),","$message",length($message);
my $opcode = unpack "s",$message ;
if ( $opcode == RRQ || $opcode == WRQ ) {
# demande d'ecriture ou de lecture
my $cmd = substr $message,2 ;
my ($lfile,$mode) = split /\0/,$cmd ;
$return = 05 ;
if ( $opcode == WRQ ) {
printf "demande ecriture ";
$return = 0 ;
ouvrir_fichier_entrant $lfile ;
$sequence_env = 0 ;
}
if ( $opcode == RRQ ) {
$return = RRQ ;
ouvrir_fichier_sortant $lfile ;
}
printf "fichier %s, mode %s, ",$lfile,$mode ;
} elsif ( $opcode == DATA ) {
$return = 0 ;
$sequence_recu = unpack "s",(substr $message,2,2) ;
printf "DATA %s ",$sequence_recu ;
ecrire_fichier (substr($message,4)) ;
} elsif ( ( $opcode == ACK ) && ( $emission == 1 ) ) {
printf "ACK : %d\n",unpack("xxS",$message) ;
$return = RRQ ;
} else {
$return = 05 ;
printf "code %d, ",$opcode ;
}
# printf "\n\tFROM $fname on $port ";
# print " at ", scalar localtime, "\n" ;
print " from $name \n" ;
}
sub UDP_Server
#
# UDP_Server($port,\&func);
# where &func is the sub that process the message
#
# &func must be
# &func($message,$port,$iaddr);
{
my $port = shift;
my $ref_sub = shift;
my $MAXSIZE = 1024;
my $proto = getprotobyname('udp');
socket(Server, AF_INET, SOCK_DGRAM, $proto) or die "socket: $!";
bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
my $paddr;
my $iaddr;
my $message;
while(1)
{
$message = '';
undef $paddr;
$paddr = recv(Server, $message, $MAXSIZE, 0);
if(!defined $paddr) {next;}
($port,$iaddr) = sockaddr_in($paddr) or die "Ciel mes socketes ! $!";
&$ref_sub($message,$port,$iaddr);
if ( $return == 0 ) {
send(Server,pack("SS",4,$sequence_env++),0,$paddr) ;
} elsif ( $return == RRQ ) {
&lire_512_octets ;
if ($luaemetre > 0 ) {
my $data = pack("SS",DATA,$sequence_env) . $block512 ;
printf "send(DATA,%d, [%d] ) %d octects\n",
$sequence_env,length($block512),length($data) ;
send(Server,$data,0,$paddr) ;
$sequence_env ++ ;
}
} else {
send(Server,pack_error(01,"interdit"),0,$paddr) ;
}
}
}
my $port = 2568;
my $remote = `hostname`;chop($remote);
if ($ARGV[0] eq "server")
{
UDP_Server($port,\&print_info);
}
elsif ($ARGV[0] eq "server69")
{
$port=69 ;
UDP_Server($port,\&print_info);
}
else
{
print <<"foobarbaz" ;
Utiliser server pour tester sur le port $port
ou server69 pour faire du *vrai* tftp (sudo ou root)
ce programme lit et ecrit les fichiers depuis le repertoire courant.
Si vous etes pris ou capture, je nierais avoir eu connaissance de vos agissements !!
foobarbaz
}
|
CoreDumped
:-? j'aurais mieux fait de me taire au lieu d'écrire qu'on pouvais faire un tel serveur !!! |
|
| Revenir en haut |
|
|
Anthony
Administrateur
Inscrit le: 07 Mar 2001
Messages: 7354
Localisation: Paris Nancy
|
|
| Revenir en haut |
|
|
drakeramore
Connaisseur
Inscrit le: 07 Mar 2001
Messages: 170
Localisation: Limoges
|
| Posté le: 11-Aoû-02 22:03:43 Sujet du message: |
|
|
| Effectivement, balaise c'est le terme que j'emploirais... |
|
| Revenir en haut |
|
|
CoreDumped
Membre hyperactif
Inscrit le: 20 Fév 2002
Messages: 583
Localisation: Rumilly / Lugdunum
|
| Posté le: 11-Aoû-02 22:07:29 Sujet du message: |
|
|
| Anthony a écrit: | Mais c'est vraiment géant 
T'es balaise toi 
On peut l'inclure dans un petit tutoriel ? Pour la modif du modem ? |
Ben oui, mais c'est en bièreware, vous pouvez l'utiliser, mais il faut boire un bière à ma santé au bistrot du coin 
plus sérieusement Il faudrait déjà le tester avant, pour moi c'est "intuitif", mais peut-être pas pour tous le monde .....
CoreDumped |
|
| Revenir en haut |
|
|
jean-jean
Membre hyperactif
Inscrit le: 07 Mar 2001
Messages: 1108
Localisation: Chaponnay (69)
|
| Posté le: 11-Aoû-02 22:19:35 Sujet du message: |
|
|
| CoreDumped a écrit: | | pour moi c'est "intuitif", mais peut-être pas pour tous le monde ..... |
Pas intuitif pour tout le monde, ça s'est sûr
De toute façon, si Anthony dit balèze, alors je dis hyper balèze !!!
J'ai rien compris au truc, sauf l'objectif final qui est très intéressant
 à Drakeramore et CoreDumped pour la bidouille sur le modem Eicon et vive 
_________________
"Celui qui dans la vie, est parti de zéro pour n'arriver à rien dans l'existence n'a de merci à dire à personne" - Pierre Dac |
|
| Revenir en haut |
|
|
CoreDumped
Membre hyperactif
Inscrit le: 20 Fév 2002
Messages: 583
Localisation: Rumilly / Lugdunum
|
| Posté le: 12-Aoû-02 11:53:33 Sujet du message: pourquoi faire simple quand on peut faire compliqué ? |
|
|
Bonjour,
Il y a vraiment des jours où on peut rester couché .....
dans la manip qui nous préoccupe l'écriture d'un serveur tftp semble inutile.
Pour ceux qui disposent de MacOS  , ouvrir un terminal
| Code: |
[localhost:~/Reseaux] Coredump% telnet 192.168.1.1
Trying 192.168.1.1...
Connected to 192.168.1.1.
Escape character is '^]'.
Welcome to Diva 2430 SE ADSL Modem 1.2.7 LSF
Copyright Eicon Networks Corporation 2001
Important: The Command Line Interface (CLI) is for
Eicon Certified Technicians only. Eicon disclaims
responsibility for any changes you make using the CLI and
does not provide technical support for use of the CLI.
ANY USE OF THE CLI IS AT YOUR OWN RISK.
-->ENABLE TFTP SERVER
-->exitConnection closed by foreign host.
[localhost:~/Reseaux] Coredump% tftp 192.168.1.1
tftp> binary
tftp> get .config.bin config.bin
Received 13217 bytes in 0.1 seconds
tftp> quit
[localhost:~/Reseaux] Coredump% ls -l conf*
-rw-r--r-- 1 root staff 13217 Aug 11 16:52 conf.bin
-rw-r--r-- 1 Coredump staff 13186 Aug 12 12:26 conf2.bin
-rw-r--r-- 1 Coredump staff 0 Aug 12 12:09 config.all
-rw-r--r-- 1 Coredump staff 13217 Aug 12 12:30 config.bin
[localhost:~/Reseaux] Coredump%
|
un fois le fichier modifié, il peut être renvoyé par tftp put depuis OS X
peut-être cette manipulation est plus simple que d'installer le code perl.
(qui est buggé en reception d'ailleurs, comme tout le mode avat remarqué, il faut fermer les fichiers en réception si on a reçu moins de 512 octets ...)
CoreDumped. |
|
| Revenir en haut |
|
|
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
|
|
FAQ
Rechercher
Liste des Membres
Groupes d'utilisateurs
S'enregistrer
Profil
Se connecter pour vérifier ses messages privés
Connexion
