ftpクライアントソフトの作成

[suga@server]# telnet XXX.YYY.ZZZ.RRR smtp
Trying XXX.YYY.ZZZ.RRR...
Connected to XXX.YYY.ZZZ.RRR.
Escape character is '^]'.
220 kkkkk.xxxxx.co.jp ESMTP Postfix
HELO qqqqq.xxxxx.co.jp
250 kkkkk.xxxxx.co.jp
MAIL FROM:aaaaa@xxxxx.co.jp 
250 Ok
RCPT TO:suga@xxxxx.co.jp
250 Ok
DATA
354 End data with <CR><LF>.<CR><LF>
I write mail using "telnet"   
.
250 Ok: queued as A3E17FA84
QUIT   
221 Bye
Connection closed by foreign host.

青い部分は、メールコマンド。
HELO （クライアントのホスト or ドメイン名）の挨拶を行う。
MAIL FROM：（送信元のメールアドレス）を伝える。
RCPT TO：（送信先のメールアドレス）を伝える。
そして、内容を送るという合図でDATAコマンドを送る。

さて、赤い部分はメールの内容だ。この内容を書き込んで、
最後にピリオドをつける。

送信作業が終了すれば、QUITコマンドで終了させる。

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;

  memset(mesg,'\0',1024);
  size = recv(des,mesg,1024,0);
  printf("%s\n",mesg);
}

関数 GetRes(int des)の処理内容に関してです。
バッファとして1024バイト確保されていますね。
char mesg[1024] ;
これは、mesg[0]〜mesg[1023]が確保されます。
この場合、仕様として、データ長は1023バイト
までとしたほうがいいでしょう。
したがってrecvは以下になります。
size = recv(des,mesg,1023,0);
でないと、もしsizeが1024になると、mesg[1024]
にNullを書いてしまいますよ。
次のエリアが壊れてしまいます。

私が作った関数の場合だと、サーバーからのデータを受信する際、
1024バイトを受信するようになっている。
問題は受信データーを格納する配列も、1024バイトしか確保されていない。
そのため1024バイトを受信していまうと、NULL文字を入れる場所が
配列の外にはみだしてしまう。つまり領域違反を起こしてしまうのだ。
そのため以下の図のようにする必要がある。

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;

  memset(mesg,'\0',1024);
  size = recv(des,mesg,1023,0);
  printf("%s\n",mesg);
}

上図のように、配列を宣言しただけですと、
配列の中身はゴミだらけです。
そのため、strcpy()関数で文字列を代入しても、
残りの要素の部分には、ゴミが残ったままになります。

その上、困った事に、文字列の終端の印はヌル文字「￥０」です。
これがないと、配列の要素を越えたエリアまでもが
文字列の範囲と認識してしまいます。


なぜ、配列を宣言した時に、配列の中に、ゴミがあるかと書きます。
宣言した配列のメモリ領域は、カーネルから割り当てられますが、
このメモリ領域は、他のプログラムが一度使って、
その後、手放したメモリ領域の場合が多々あります。

もちろん、プログラムがメモリを使い終えた時に掃除はしませんし、
カーネルがプログラムにメモリ領域を割り当てる際も、
そのメモリ領域の掃除はしません。
つまり、他のプログラムのデータの残骸が置いたまま
放置されているためです。

strcpy(name,"mayumi")のところです。
説明では、nameが　mayumi+ゴミ2バイトとなっていますが、
実際は、mayumi+\0+ゴミ1バイトになります。
定数"mayumi"は、6バイトではなく、mayumi+\0の７バイトが
確保されます。
又、strcpyは最後のNullも含めてコピーされます。
したがってその下の説明 strcpy(name,"mayumi\0") とnameは
同じ結果になります。
（ちなみに定数"mayumi\0"は、mayumi+\0+\0の8バイト）

#include <stdio.h>
#include <string.h>

int main(void)
{
char    name[8] ;

 strcpy(name,"mayumi\n");

 printf("%s",name);

 return(0);
}

suga@jitaku[~]% ./aki1 
mayumi
suga@jitaku[~]% 

代入する文字列「mayumi」の後ろにヌル文字「￥０」を追加します。
このヌル文字は、文字列の終端を知らせる印の役目を果たします。
実際にprintf("%s",name); を使って表示させても
「￥０」までの文字列しか表示されません。
そのため後ろの残ったゴミを気にする必要はありません。

memset()関数を使って、配列の中身を綺麗に掃除します。
つまり全てヌル文字で埋めつくします。

そうすれば、後から文字列を代入しても、必要な文字列だけを
表示する事ができます。

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;

  memset(mesg,'\0',1024);
  size = recv(des,mesg,1023,0);
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("メールサーバーのIP");
  address.sin_port = htons(25) ;
  len = sizeof(address);

   result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to mail server!! \n");
    exit(1);
  }

  /*  接続した時のサーバーからの合図を受信 */

  GetRes(sockfd);

  /* HELO を送る */
  
  strcpy(mesg,"HELO xxx.xxxxx.co.jp\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* MAIL FROM:aaaaa@xxxxx.co.jp を送る */

  strcpy(mesg,"MAIL FROM:suga@xxx.xxxxx.co.jp\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* RCPT TO:suga@xxxxx.co.jp を送る */

  strcpy(mesg,"RCPT TO:suga@xxxxx.co.jp\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* DATA を送る */

  strcpy(mesg,"DATA\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* 内容を送る */

  strcpy(mesg,"test message\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);

  /* 内容の終了を意味するピリオドを送る */

  strcpy(mesg,".\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* quit を送る */
  strcpy(mesg,"QUIT\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx net]# ./smtp
220 mail.xxxxx.co.jp ESMTP Postfix

HELO xxx.xxxxx.co.jp

250 mail.xxxxx.co.jp

MAIL FROM:suga@xxx.xxxxx.co.jp

250 Ok

RCPT TO:suga@xxxxx.co.jp

250 Ok

DATA

354 End data with <CR><LF>.<CR><LF>

test message

.

250 Ok: queued as CCA832B4197

QUIT

221 Bye

[suga@xxx net]# 

[suga@yyy suga]$ mail -f suga
Mail version 8.1 6/6/93.  Type ? for help.
"suga": 1 messages 1 new
 N  1 suga@xxx.xxxxx.co.jp  Wed May  3 18:51  21/944  
& 1
Message 1:
From suga@xxx.xxxxx.co.jp  Wed May  3 18:51:21 2006
X-Original-To: suga@xxxxx.co.jp
Delivered-To: suga@xxxxx.co.jp
X-Virus-Status: clean(xxx.xxxxx.co.jp)
Date: Wed,  3 May 2006 18:51:21 +0900 (JST)
From: suga@xxx.xxxxx.co.jp
To: undisclosed-recipients:;

test message

&

[suga@xxx suga]# telnet 192.168.X.Y ftp
Trying 192.168.X.Y...
Connected to 192.168.X.Y.
Escape character is '^]'.
220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]
USER suga
331 Password required for suga.
PASS *****
230 User suga logged in.
PASV
227 Entering Passive Mode (192,168,X,Y,95,177)

青い部分はユーザーIDを入力。
赤い部分はパスワードの入力。

ピンクの部分は、PASVコマンドの入力。
すると、サーバーから返答が返ってくる。緑の部分だ。
サーバー側のIPと、ポート番号だ。

ここのポート番号の計算もPortモードの時と同様に
「ポート番号 = a × 256 + b」の方程式になる。
そのため上の場合だと、95×256+177=24497となる。

サーバーへ接続した時、サーバーから「接続ができた」の合図を受け取ります。
その次に、ユーザー名を送り、「OK」が出れば、パスワードを送ります。
そしてサーバーから「OK」が出れば、認証が完了です。

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }

  /* 接続ができたというサーバーからの応答を受け取る  */

  GetRes(sockfd);

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

   /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* 接続を終了させるための処理として quit を送る */

  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

緑色の部分は、たった1行の何気ない部分ですが重要です。
なぜ、重要なのかは後述しています。

ピンクはユーザーID。赤い部分はパスワード。
実際には「mayumi」を使うと、小野真弓にラブラブの私なので、
即バレのパスワードなので使えませんが、ここでは例題なので、
「mayumi」にしています (^^;;

青い部分は改行文字とヌル文字です。
データを送る際は、telnetでの実演と同様に、改行を行わないと
サーバー側は、まだまだ文字列が続くと認識します。
そこで、改行文字を付け足して送ります。

最後に、改行文字の次にヌル文字を入れます。
このプログラムでは、文字列を入れる配列の中身を掃除していないため
配列の中はゴミだらけのため、文字列の終端がどこなのか判断できません。
そこで改行文字の後ろに文字列の終端を示すヌル文字を入れています。

慣れている人にとっては、なんともない処理ですが、
慣れていない私にとっては「面倒な処理だなぁ」と思ったりします (^^)

[suga@xxx ftp]$ ./ftp1
220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

USER suga

331 Password required for suga.

PASS mayumi

230 User suga logged in.

quit

221 Goodbye.

[suga@xxx ftp]$

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }

  /* 接続ができたというサーバーからの応答を受け取る  */

  /*
  GetRes(sockfd);
  */

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

   /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* 接続を終了させるための処理として quit を送る */

  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx ftp]$ ./ftp1-1
USER suga

220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

PASS mayumi

331 Password required for suga.

quit

230 User suga logged in.

[suga@xxx ftp]$ 

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

/*  サーバーからのデータを受信する関数 */

void RecvData(char *filename , int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len ;
  char buf[1] ;
  struct sockaddr_in r_address ;

  FILE *fp ;
  fp = fopen(filename,"w");

  r_sockfd = socket(AF_INET,SOCK_STREAM,0);

  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);
  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

  listen(g_sockfd , 5);

  g_sockfd = accept(r_sockfd ,
                    (struct sockaddr *)&r_address , &g_len);

  while ( read(g_sockfd , buf , 1 ) > 0 )
    {
      fwrite(buf,1,1,fp);
    }


  close(r_sockfd);
  close(g_sockfd);
}

void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }
 
  GetRes(sockfd);

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* PORTモードを送る */

  strcpy(mesg,"PORT 192,168,X,Z,200,200\n\0") ;
  cport = 200 * 256 + 200 ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* データ転送の部分  親子のプロセスで分ける */

  if ( fork() > 0 )
     {
       /* 親プロセス */
       
       /* データ転送の命令を送る */

       strcpy(mesg,"RETR server.dat\n\0") ;
       i = strlen(mesg);
       SendData(sockfd , i , mesg);
       GetRes(sockfd);  
     }
   else
     {
     /* 子プロセス */

     /* データ転送の待ち受けと
        送られたデータをファイル(server.dat)に記録する */

     strcpy(mesg,"server.dat") ;
     i = strlen(mesg);
     RecvData(mesg,cport);
     exit(0);
     }

  /* quit を送る */
  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx ftp]# ./ftp1-3  
220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

USER suga

331 Password required for suga.

PASS mayumi

230 User suga logged in.

PORT 192,168,X,Z,200,200

200 PORT command successful

RETR server.dat

425 Unable to build data connection: Connection refused

quit

221 Goodbye.

[suga@xxx ftp]$

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

/*  サーバーからのデータを受信する関数 */

void RecvData(char *filename , int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len , result ;
  char buf[1] ;

  FILE *fp ;

  struct sockaddr_in r_address , g_address ;


  r_sockfd = socket(AF_INET,SOCK_STREAM,0);
  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);

  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

   listen(r_sockfd , 5);

   /*  親子にわけて、親プロセスは、この関数から抜け出させる */

  if ( fork() > 0 )
     {
     /* 親プロセス */

     close(r_sockfd) ;
     }
  else 
    {
     /* 子プロセス */

    fp = fopen(filename,"w");

     g_sockfd = accept(r_sockfd ,
                   (struct sockaddr *)&g_address , &g_len);


      while ( read(g_sockfd , buf , 1 ) > 0 )
            {
            fwrite(buf,1,1,fp);
            }
      close(r_sockfd);
      close(g_sockfd);
      fclose(fp);
      }
}


void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}


void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* PORTモードを送る */

  strcpy(mesg,"PORT 192,168,X,Z,200,200\n\0") ;
  cport = 200 * 256 + 200 ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);


  /* サーバーからのデータ送信の準備 */

     strcpy(mesg,"server.dat\0") ;
     i = strlen(mesg);
     RecvData(mesg,cport);


     /* データ転送の命令を送る */

     strcpy(mesg,"RETR server.dat\n\0") ;
     i = strlen(mesg);
     SendData(sockfd , i , mesg);
     GetRes(sockfd);  

  /* quit を送る */
  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx ftp]$ ./ftp3-1
USER suga

220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

PASS mayumi

331 Password required for suga.

PORT 192,168,X,Z,200,200

230 User suga logged in.

RETR server.dat

200 PORT command successful

quit

150 Opening ASCII mode data connection for server.dat (22 bytes)

[suga@xxx ftp]$ RETR server.dat

226 Transfer complete.

quit

221 Goodbye.


[suga@xxx ftp]$

[suga@xxx ftp]$ more server.dat 
From Server to Client
[suga@xxx ftp]$ 

リスト出力のために、子プロセスを生成して、
その後、ファイル転送のため、新たに子プロセスを生成する。

リストの出力が終えるのを待つために、親プロセス側で
2秒ほど間を置くため、sleep(2); を使った。

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

/*  サーバーからファイルのデータを受信する関数 */

void RecvData(char *filename , int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len , result ;
  char buf[1] ;

  FILE *fp ;

  struct sockaddr_in r_address , g_address ;


  r_sockfd = socket(AF_INET,SOCK_STREAM,0);
  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);

  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

  listen(r_sockfd , 5);

  if ( fork() > 0 )
     {
     close(r_sockfd) ;
     }
  else 
    {
    fp = fopen(filename,"w");
 
     g_sockfd = accept(r_sockfd ,
                   (struct sockaddr *)&g_address , &g_len);


      while ( read(g_sockfd , buf , 1 ) > 0 )
          {
            fwrite(buf,1,1,fp);
          }
      close(r_sockfd);
      close(g_sockfd);
      fclose(fp);
      }
}

/*  サーバーからLISTコマンドのデータを受信する関数 */

void RecvData2(int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len , result ;
  char buf[1] ;

  struct sockaddr_in r_address , g_address ;

  r_sockfd = socket(AF_INET,SOCK_STREAM,0);
  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);

  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

  listen(r_sockfd , 5);

  if ( fork() > 0 )
     {
     close(r_sockfd) ;
     }
  else
     {
     g_sockfd = accept(r_sockfd ,
                    (struct sockaddr *)&g_address , &g_len);


     while ( read(g_sockfd , buf , 1 ) > 0 )
           {
           write(1,buf,1);
           }
     close(r_sockfd);
     close(g_sockfd);
     }
}


void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* サーバーにあるファイルのリストを出力させる処理 */

  /* PORTモードを送る */

  strcpy(mesg,"PORT 192,168,X,Z,200,201\n\0") ;
  cport = 200 * 256 + 201 ; /*  51401番を指定 */
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* サーバーから来るリストのデータの待ち受け処理を行う */

  RecvData2(cport);


  /* LISTコマンドを送る */

  strcpy(mesg,"LIST\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* 間を置く2秒ほど */

  sleep(2);


  /* データをクライアントに転送する処理 */

  /* PORTコマンドを送る。 
     ポートの指定はLISTの場合とは別の番号を指示する */

  strcpy(mesg,"PORT 192,168,X,Z,200,200\n\0") ;
  cport = 200 * 256 + 200 ;  /*  51400番を指定 */
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* サーバーからのデータ送信の準備 */

     strcpy(mesg,"server.dat\0") ;
     i = strlen(mesg);
     RecvData(mesg,cport);


     /* データ転送の命令を送る */

     strcpy(mesg,"RETR server.dat\n\0") ;
     i = strlen(mesg);
     SendData(sockfd , i , mesg);
     GetRes(sockfd);  

  /* quit を送る */
  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx ftp]$ ./ftp3-2
USER suga

220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

PASS mayumi

331 Password required for suga.

PORT 192,168,X,Z,200,201

230 User suga logged in.

LIST

200 PORT command successful

-rw-r--r--   1 suga     suga        61440 Feb 10  2005 aaa.tar
drwxr-xr-x   2 suga     suga         4096 Feb 10  2005 back
(途中、省略)
-rw-r--r--   1 suga     suga           24 Apr  8 02:42 test.dat
-rw-rw-r--   1 suga     suga           28 Apr  8 03:42 transfer.dat

LIST

150 Opening ASCII mode data connection for file list

PORT 192,168,X,Z,200,200

226 Transfer complete.
425 Unable to build data connection: Connection refused

RETR server.dat

200 PORT command successful

quit

150 Opening ASCII mode data connection for server.dat (22 bytes)

[suga@xxx ftp]# PORT 192,168,X,Z,200,200

226 Transfer complete.
221 Goodbye.


[suga@xxx ftp]$

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>

/*  サーバーからファイルのデータを受信する関数 */

void RecvData(char *filename , int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len , result ;
  char buf[1] ;

  FILE *fp ;

  struct sockaddr_in r_address , g_address ;


  r_sockfd = socket(AF_INET,SOCK_STREAM,0);
  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);

  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

  listen(r_sockfd , 5);

  fp = fopen(filename,"w");
 
  g_sockfd = accept(r_sockfd ,
                   (struct sockaddr *)&g_address , &g_len);


  while ( read(g_sockfd , buf , 1 ) > 0 )
        {
        fwrite(buf,1,1,fp);
        }

  close(r_sockfd);
  close(g_sockfd);
  fclose(fp);
}

/*  サーバーからLISTコマンドのデータを受信する関数 */

void RecvData2(int cport)
{
  int r_sockfd , g_sockfd ;
  int r_len , g_len , result ;
  char buf[1] ;

  struct sockaddr_in r_address , g_address ;

  r_sockfd = socket(AF_INET,SOCK_STREAM,0);
  r_address.sin_family = AF_INET ;
  r_address.sin_addr.s_addr = INADDR_ANY ;
  r_address.sin_port = htons(cport) ;

  r_len = sizeof(r_address);

  bind(r_sockfd , (struct sockaddr *)&r_address , r_len);

  listen(r_sockfd , 5);

  g_sockfd = accept(r_sockfd ,
                   (struct sockaddr *)&g_address , &g_len);


  while ( read(g_sockfd , buf , 1 ) > 0 )
        {
        write(1,buf,1);
        }

  close(r_sockfd);
  close(g_sockfd);
}


void GetRes(int des)
{
  int size ; 
  char mesg[1024] ;
  
  size = recv(des,mesg,1023,0);
  mesg[size] = '\0' ;
  printf("%s\n",mesg);
}

void SendData(int des , int len , char *mesg)
{
  send(des, mesg , len , 0 );
  printf("%s\n",mesg);
}

int main(void)
{
  int sockfd ;
  int len , i , cport ;
  struct sockaddr_in address ;
  int result ;
  char mesg[100] ;

  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr("ftpサーバーのIP");
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  if ( result == -1 ) {
    perror("Cannot access to ftp server!! \n");
    exit(1);
  }

  /* ID を送る */
  
  strcpy(mesg,"USER suga\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* パスワードを送る */

  strcpy(mesg,"PASS mayumi\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* サーバーにあるファイルのリストを出力させる処理 */

  /* PORTモードを送る */

  strcpy(mesg,"PORT 192,168,X,Z,200,201\n\0") ;
  cport = 200 * 256 + 201 ; /*  51401番を指定 */
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* LISTコマンドを送る */

  strcpy(mesg,"LIST\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* サーバーから来るリストのデータの待ち受け処理を行う */

  RecvData2(cport);

  /* データをクライアントに転送する処理 */

  /* PORTコマンドを送る。 
     ポートの指定はLISTの場合とは別の番号を指示する */

  strcpy(mesg,"PORT 192,168,X,Z,200,200\n\0") ;
  cport = 200 * 256 + 200 ;  /*  51400番を指定 */
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  /* データ転送の命令を送る */

     strcpy(mesg,"RETR server.dat\n\0") ;
     i = strlen(mesg);
     SendData(sockfd , i , mesg);
     GetRes(sockfd); 

  /* サーバーからのデータ送信の準備 */

     strcpy(mesg,"server.dat\0") ;
     i = strlen(mesg);
     RecvData(mesg,cport);


  /* quit を送る */

  strcpy(mesg,"quit\n\0") ;
  i = strlen(mesg);
  SendData(sockfd , i , mesg);
  GetRes(sockfd);

  close(sockfd);

  return(0);
}

[suga@xxx ftp]$ ./ftp3-2
USER suga

220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]

PASS mayumi

331 Password required for suga.

PORT 192,168,X,Z,200,201

230 User suga logged in.

LIST

200 PORT command successful

-rw-r--r--   1 suga     suga        61440 Feb 10  2005 aaa.tar
drwxr-xr-x   2 suga     suga         4096 Feb 10  2005 back
(途中、省略)
-rw-r--r--   1 suga     suga           24 Apr  8 02:42 test.dat
-rw-rw-r--   1 suga     suga           28 Apr  8 03:42 transfer.dat
PORT 192,168,X,Z,200,200

150 Opening ASCII mode data connection for file list

RETR server.dat

226 Transfer complete.

quit

200 PORT command successful
150 Opening ASCII mode data connection for server.dat (22 bytes)

[suga@xxx ftp]$ 

[suga@xxx ftp]$ more server.dat 
From Server to Client
[suga@xxx ftp]$

クライアントのプロセスからサーバー側のソケットに接続するために
目印になるような名前をつけます。
この時、クライアントには何も設定しません。

引数に、ソケットディスクリプタ、アドレス構造体のポインタ、
アドレス構造体の長さがあります。

そして、ソケットに名前をつけるのに成功したら「0」を返します。
失敗の場合は「-1」を返します。

#include <stdio.h>
#include <stdlib.h>

int main(void)
{
    char name[8] ;

    FILE *fp;

    memset(name,'\0',8);
    printf("filename : \n");
    fgets(name,8,stdin);

    fp = fopen(name,"w");

    fprintf(fp,"test\n");

    fclose(fp);

    return(0);
}

[suga@xxx ftp]$ ./test
filename : mayumi
[suga@xxx ftp]$ ls -l
合計 16
-rw-r--r--    1 suga     suga           5  5月 10日  22:16 mayumi?
-rwxr-xr-x    1 suga     suga        4791  5月 10日  22:16 test*
-rw-r--r--    1 suga     suga         231  5月 10日  22:15 test.c
[suga@xxx ftp]$

ファイル名を「mayumi」にしたのだが、lsコマンドで見てみると
「mayumi?」という感じで「?」がついている。
改行文字が、くっついてきた証拠だ。

-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 

#include <stdio.h>
#include <stdlib.h>

int main(void)
{

  char buf[10];

  while( buf[0] != '9' )
       {
         printf("-------------------------\n");
         printf("1 : list\n");
         printf("2 : change directory\n");
         printf("3 : send file\n");
         printf("4 : receive file\n");
         printf("9 : quit\n");
         printf("\n");

         printf("Select number : ");
         fgets(buf,1,stdin);
         printf("\n");
	 }
   return(0);
}

-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 
-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 
-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 
(永遠に止まらない)

-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 1
-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 
-------------------------
1 : list
2 : change directory
3 : send file
4 : receive file
9 : quit

Select number : 

fgets()関数で、文字数の指定の部分がある。
もし、文字数の指定を「n」とした場合、
取得される文字数は「n-1」文字になる。

これは、n文字目(文字列の最後)に、文字列の最後尾の印である
ヌル文字(\n)を入れるためなのだ。

「1」を入力した後、ENTERキーで改行を行わないと、
fgets()関数に入力をした事を知らせる事ができないのだが、
その改行が、改行文字として認識されるのに問題がある。

上図のように「1」を入力して、改行を行うと、
2文字分の入力があったと認識される。

だが、fgets()関数の仕様上、文字数を2文字としているため
ヌル文字が入る部分を考慮すると、1文字しか入らない。
つまり「1」を入力して処理される。
while()文にしているため、次のfgets()の待ち受けの部分で
既に改行文字が入力されていると認識されているため、
fgets()は、待ち受けせずに、改行文字をbufに入れて処理を行う。

通常、fgets()関数で文字を取り込む時は、
最後尾にくっついてくるヌル文字があるため
取り込む文字数より1つ多い文字数を
指定をしなければならない

だが、標準入力でfgets()を使う場合には
最後尾にくっついてくるヌル文字以外にも、
改行文字も1文字として認識されてしまうため、
取り込む文字数より2つ多い文字数を
指定しなければならない

fgets()関数は、文字列の最後尾にヌル文字を入れるため、
通常なら、1文字指定の場合、上図のように、1文字目にヌル文字を
入れると思われる。

だが、bufの中身は全く書き換わらないのだ。

#include <stdio.h>

int main(void)
{
  char buf[10] = "Hello" ;

  fgets(buf,1,stdin);

  printf("buf = %s\n",buf);

  return(0);
}

[suga@xxx ftp]$ ./fgets1
buf = Hello
[suga@xxx ftp]$ 

/* Copyright (C) 1991, 92, 95, 96, 97, 98 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#include <errno.h>
#include <stdio.h>
#include <string.h>

/* Reads characters from STREAM into S, until either a newline character
   is read, N - 1 characters have been read, or EOF is seen.  Returns
   the newline, unlike gets.  Finishes by appending a null character and
   returning S.  If EOF is seen before any characters have been written
   to S, the function returns NULL without appending the null character.
   If there is a file error, always return NULL.  */
char *
fgets (s, n, stream)
     char *s;
     int n;
     FILE *stream;
{
  register char *p = s;

  if (!__validfp (stream) || s == NULL || n <= 0)
    {
      __set_errno (EINVAL);
      return NULL;
    }

  if (ferror (stream))
    return NULL;

  if (stream->__buffer == NULL && stream->__userbuf)
    {
      /* Unbuffered stream.  Not much optimization to do.  */
      register int c = 0;
      while (--n > 0 && (c = getc (stream)) != EOF)
        if ((*p++ = c) == '\n')
          break;
      if (c == EOF && (p == s || ferror (stream)))
        return NULL;
      *p = '\0';
      return s;
    }

  /* Leave space for the null.  */
  --n;

  if (n > 0 &&
      (!stream->__seen || stream->__buffer == NULL || stream->__pushed_back))
    {
      /* Do one with getc to allocate a buffer.  */
      int c = getc (stream);
      if (c == EOF)
        return NULL;
      *p++ = c;
      if (c == '\n')
        {
          *p = '\0';
          return s;
        }
      else
        --n;
    }

  while (n > 0)
    {
      size_t i;
      char *found;

      i = stream->__get_limit - stream->__bufp;
      if (i == 0)
        {
          /* Refill the buffer.  */
          int c = __fillbf (stream);
          if (c == EOF)
            break;
          *p++ = c;
          --n;
          if (c == '\n')
            {
              *p = '\0';
              return s;
             }
          i = stream->__get_limit - stream->__bufp;
        }

      if (i > (size_t) n)
        i = n;

      found = (char *) __memccpy ((void *) p, stream->__bufp, '\n', i);

      if (found != NULL)
        {
          stream->__bufp += found - p;
          p = found;
          break;
        }

      stream->__bufp += i;
      n -= i;
      p += i;
    }

  if (p == s)
    return NULL;

  *p = '\0';
  return ferror (stream) ? NULL : s;
}

weak_alias (fgets, fgets_unlocked)

#include <errno.h>
#include <stdio.h>
#include <string.h>

char *
fgets (s, n, stream)
     char *s;
     int n;
     FILE *stream;
{
  register char *p = s;

  /* Leave space for the null.  */
  --n;

  if (p == s)
    return NULL;
}

weak_alias (fgets, fgets_unlocked)

[suga@xxx suga]# telnet 192.168.X.Y ftp
Trying 192.168.X.Y...
Connected to 192.168.X.Y.
Escape character is '^]'.
220 ProFTPD 1.2.10 Server (ProFTPD Default Installation) [192.168.X.Y]
USER suga
331 Password required for suga.
PASS *****
230 User suga logged in.
PASV
227 Entering Passive Mode (192,168,X,Y,95,177)

最初の1つ目の文字列を抽出する際は、bufのアドレスを送るが、
2つ目以降は、NULLを送る。

なぜかって?  glibcを読んでくださいね。
私は読む気が起こりません (^^;;

#include <stdio.h>
#include <string.h>

int main(void)
{
    char buf[] = "10,20,30,40" ;
    char *a , *b , *c , *d ;

    a = strtok(buf,",");
    b = strtok(NULL,",");
    c = strtok(NULL,",");
    d = strtok(NULL,",");

    printf("%s - %s - %s - %s \n",a,b,c,d);

    return(0);
}

[suga@xxx ftp]$ ./strtok1
10 - 20 - 30 - 40
[suga@xxx ftp]$ 

char res[] = "227 Entering Passive Mode (192,168,1,2,95,177)" ;
char *buf , *ip1 , *ip2 , *ip3 , *ip4 , *port1 , *port2 ;

buf = res ;

/*  最初の3文字は数字なので、3文字分ズラす */

buf = buf + 3 ;

/* この時 buf の中身は " Entering Passive Mode (192,168,1,2,95,177)" */

 while ( isdigit(*buf) == 0 ) 
       {
       buf = buf + 1 ;
       }

/* この時 buf の中身は "192,168,1,2,95,177)" */

 ip1 = strtok(buf,",");
 ip2 = strtok(NULL,",");
 ip3 = strtok(NULL,",");
 ip4 = strtok(NULL,",");
 port1 = strtok(NULL,",");
 port2 = strtok(NULL,",");

/* この時 port2 の中身は "177)" なので
   これから数字だけを抽出する処理が必要 */

 i = 0 ;
 while ( isdigit(port2[i]) != 0 )
    {
    i = i + 1 ;
    }

 /* 数字でなくなった場所にヌル文字を代入*/   
 port2[i] = '\0' ;

#include <ctype.h>
#include <stdio.h>
#include <string.h>

int main(void)
{
    char res[] = "227 Entering Passive Mode (192,168,1,2,95,177)" ;
    char *buf , *ip1 , *ip2 , *ip3 , *ip4 , *port1 , *port2 ;
    int i ;
    int ipa1 , ipa2 , ipa3 , ipa4 , po1, po2 ;

    buf = res ;

 /*  最初の3文字は数字なので、3文字分ズラす */

    buf = buf + 3 ;

    /* 数字の場所までズラす */

    while ( isdigit(*buf) == 0 ) 
	  {
          buf = buf + 1 ;
	  }

    /*  IP と ポート番号の抽出 */

    ip1 = strtok(buf,",");
    ip2 = strtok(NULL,",");
    ip3 = strtok(NULL,",");
    ip4 = strtok(NULL,",");
    port1 = strtok(NULL,",");
    port2 = strtok(NULL,",");

    /*  port2 の後ろについている文字列の消去 */

    i = 0 ;
    while ( isdigit(*(port2 + i)) != 0 )
	  {
	  i = i + 1 ;
	  }
    port2[i] = '\0' ;

    /*  この時点では数字は文字列と認識されているため
        数値に変換する */

    ipa1 = atoi(ip1) ;
    ipa1 = atoi(ip2) ;
    ipa1 = atoi(ip3) ;
    ipa1 = atoi(ip4) ;
    po1 = atoi(port1) ;
    po2 = atoi(port2) ;

    return(0);
}

  struct termios initterm , passwdterm ;

  /*  現在の端末の状態を取り出す */
  tcgetattr(fileno(stdin),&initterm);

  /*  現在の端末の状態を、passwdterm にコピー */
  passwdterm = initterm ;

  /* エコーがでない(入力した文字が表示しない)ようにする */
  passwdterm.c_lflag &= ~ECHO ;

  /* 変更した設定を反映させる */
  tcsetattr(fileno(stdin),TCSAFLUSH,&passwdterm);

  memset(mesg,'\0',100);
  printf("password : ");
  fgets(passwd,20,stdin);

  /* 元の状態に戻す */
  tcsetattr(fileno(stdin),TCSANOW,&initterm);

#include <termios.h>
#include <ctype.h>
#include <netdb.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <stdio.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>


/* メッセージの送信関数 */

void SendData(int fd , char *mesg)
{
  int len ;

  len = strlen(mesg) ;
  send(fd, mesg , len , 0 );
}


/* サーバーからのメッセージの受信 */

void GetRes(int fd)
{
  int size ; 
  char mesg[1024] ;

  memset(mesg,'\0',1024);
  size = recv(fd,mesg,1023,0);
}

void PortReq(char *IPaddr , int *i1 , int *i2 , int *i3 , int *i4 , int *i5 , int *i6)
{
  int j ;
  char *ip ;
  IPaddr = IPaddr + 3 ;

  printf("aaa %s \n",IPaddr);

  while( isdigit(*IPaddr) == 0 ) { IPaddr++ ; }

  ip = strtok(IPaddr,",");
  *i1 = atoi(ip) ;

  ip = strtok(NULL,",");
  *i2 = atoi(ip) ;

  ip = strtok(NULL,",");
  *i3 = atoi(ip) ;

  ip = strtok(NULL,",");
  *i4 = atoi(ip) ;

  ip = strtok(NULL,",");
  *i5 = atoi(ip) ;

  ip = strtok(NULL,",");

  j = 0 ;
  while ( isdigit(*(ip +j)) != 0 ) { j += 1 ; }
  ip[j] = '\0' ;
  *i6 = atoi(ip) ;
}

/* ファイルの送信 */

void SendTrans(int sockfd , char *ip , int sport)
{
  int result , len , trans_sockfd , size ;
  int filelen ;
  char buf[1024] , file[100] , mesg[100] ;
  struct sockaddr_in trans_address ;

  FILE *fp ;

  /* ファイル名を指定 */

  memset(file,'\0',100);
  printf("filename : ");
  fgets(file,100,stdin);
  filelen = strlen(file);
  file[filelen-1] = '\0' ;

  memset(mesg,'\0',100);
  sprintf(mesg,"STOR %s\n",file);
  SendData(sockfd ,mesg);


  fp = fopen(file,"r");

  trans_sockfd = socket(AF_INET,SOCK_STREAM,0);

  trans_address.sin_family = AF_INET ;
  trans_address.sin_addr.s_addr = inet_addr(ip);
  trans_address.sin_port = htons(sport) ;
  len = sizeof(trans_address);

  result = connect(trans_sockfd , (struct sockaddr *)&trans_address , len);
  if ( result == -1 )
     {
     fprintf(stderr,"Failed Connect ftp-server\n");
     exit(1);
     }

  memset(buf,'\0',1024);

  while ( ( size = fread(buf,1,1024,fp) ) > 0 )
        {
        write(trans_sockfd,buf,size);
        }  

  fclose(fp);
  close(trans_sockfd);
}

/* ファイルの受信 */

void ResvTrans(int sockfd , char *ip , int sport)
{
  int result , len , trans_sockfd , size ;
  int filelen ;
  char buf[1024] , file[100] , mesg[100] ;
  struct sockaddr_in trans_address ;

  FILE *fp ;

  /* ファイル名を指定 */

  memset(file,'\0',100);
  printf("filename : ");
  fgets(file,100,stdin);
  filelen = strlen(file);
  file[filelen-1] = '\0' ;

  memset(mesg,'\0',100);
  sprintf(mesg,"RETR %s\n",file);
  SendData(sockfd ,mesg);

  fp = fopen(file,"w");

  trans_sockfd = socket(AF_INET,SOCK_STREAM,0);

  trans_address.sin_family = AF_INET ;
  trans_address.sin_addr.s_addr = inet_addr(ip);
  trans_address.sin_port = htons(sport) ;
  len = sizeof(trans_address);

  result = connect(trans_sockfd , (struct sockaddr *)&trans_address , len);
  if ( result == -1 )
     {
     fprintf(stderr,"Failed Connect ftp-server\n");
     exit(1);
     }

  memset(buf,'\0',1024);
  while ( ( size = read(trans_sockfd,buf,1024) ) > 0 )
        {
        fwrite(buf,1,size,fp);
        }  

  fclose(fp);
  close(trans_sockfd);
}


/* ファイルリストの出力 */

void ListTrans(char *ip , int sport)
{
  int result , len , trans_sockfd , size ;
  char buf[1024] ;
  struct sockaddr_in trans_address ;


  trans_sockfd = socket(AF_INET,SOCK_STREAM,0);

  trans_address.sin_family = AF_INET ;
  trans_address.sin_addr.s_addr = inet_addr(ip);
  trans_address.sin_port = htons(sport) ;
  len = sizeof(trans_address);

  result = connect(trans_sockfd , (struct sockaddr *)&trans_address , len);
  if ( result == -1 )
     {
     fprintf(stderr,"Failed Connect ftp-server\n");
     exit(1);
     }

  memset(buf,'\0',1024);
  while ( ( size = read(trans_sockfd,buf,1024) ) > 0 )
        {
          fwrite(buf,size,1,stdout);
        }  

  close(trans_sockfd);
}

/* 転送ポートの割り当て */

void TransData(int sockfd,int sele)
{
  int size , i1 ,i2 ,i3 ,i4 , i5 , i6 , sport ;
  char mesg[100] , res[1024] , ip[20] ;


  /* PASV コマンドを送る */

  memset(mesg,'\0',100);
  sprintf(mesg,"PASV\n");
  SendData(sockfd , mesg);

  /*  PASVコマンドの返答を得る */

  memset(res,'\0',1024);
  size = recv(sockfd,res,1024,0);

  /*  ポート番号の割り出し */

  PortReq(res,&i1,&i2,&i3,&i4,&i5,&i6);

  memset(ip,'\0',20);
  sprintf(ip,"%d.%d.%d.%d",i1,i2,i3,i4);
  sport = i5 * 256 + i6 ;


  switch (sele)
         {
         case 1 :
         SendData(sockfd , "LIST\n");
         ListTrans(ip,sport);
         break;

         case 3 :
         SendTrans(sockfd , ip,sport);
         break;
         
         case 4 :
         ResvTrans(sockfd , ip,sport);
         break;

         default :
         break;
         }


  /* LIST , RETR , STOR コマンドへの返事 */
  GetRes(sockfd);

  /*  サーバーから、データ転送が終了した事を知らせるメッセージ */
  GetRes(sockfd); 
}

int main(int argc , char *argv[])
{
  int sockfd ;
  int len ;
  struct sockaddr_in address ;
  struct hostent *myaddr ;
  struct termios initterm , passwdterm ;
  int result ;
  char user[20] , passwd[20] , mesg[100] ;
  char chdir[20] , myhost[50] , myip[20] ;
  char menu[10] ;

  /* 引数がIPアドレスかどうかのチェック */

  if ( argc != 2 )  /* 引数が１つ以外にある場合 */
     {
       fprintf(stderr,"Usagi : ftps IP-Address\n");
       exit(1);
     }

  /*  ソケットの作成 */
  sockfd = socket(AF_INET,SOCK_STREAM,0);

  address.sin_family = AF_INET ;
  address.sin_addr.s_addr = inet_addr(*(argv + 1 ));
  address.sin_port = htons(21) ;
  len = sizeof(address);

  result = connect(sockfd , (struct sockaddr *)&address , len);

  /*  ftpサーバーへの接続 */

  if ( result == -1 )
     {
     fprintf(stderr,"Failed Connect ftp-server\n");
     exit(1);
     }
  else  /* 接続成功時のメッセージを受け取る */
     {
     GetRes(sockfd);
     }

  /* ID を送る */

  memset(mesg,'\0',100);
  printf("login name : ");
  fgets(user,20,stdin);
  sprintf(mesg,"USER %s",user);
  SendData(sockfd , mesg);
  GetRes(sockfd);

  /* パスワードを送る  */
  /*  入力文字を隠すため、端末制御を行う */

  tcgetattr(fileno(stdin),&initterm);
  passwdterm = initterm ;
  passwdterm.c_lflag &= ~ECHO ;

  tcsetattr(fileno(stdin),TCSAFLUSH,&passwdterm);

  memset(mesg,'\0',100);
  printf("password : ");
  fgets(passwd,20,stdin);
  sprintf(mesg,"PASS %s",passwd);
  SendData(sockfd , mesg);
  GetRes(sockfd);

  tcsetattr(fileno(stdin),TCSANOW,&initterm);

  printf("\n");

  /* メニュー */

  while( menu[0] != '9' )
       {
         printf("-------------------------\n");
         printf("1 : list\n");
         printf("2 : change directory\n");
         printf("3 : send file\n");
         printf("4 : receive file\n");
         printf("9 : quit\n");
         printf("\n");

         printf("Select number : ");
         fgets(menu,3,stdin);
         printf("\n");

         switch (menu[0]) {

         case '1' : /* ファイルのリストの出力 */
           TransData(sockfd,1);
           break ;

         case '2' :   /* ディレクトリー変更の処理 */
           memset(chdir,'\0',20);
           memset(mesg,'\0',100);
           printf("Directory name : ");
           fgets(chdir,20,stdin);
           sprintf(mesg,"CWD %s",chdir);
           SendData(sockfd , mesg);
           GetRes(sockfd);
           break ;

         case '3' :
           TransData(sockfd,3);
           break ;

         case '4' :
           TransData(sockfd,4);
           break ;

         default :
           break ;
         }
       }         

  /* quit を送る */

  memset(mesg,'\0',100);
  strcpy(mesg,"quit\n") ;
  SendData(sockfd , mesg);
  GetRes(sockfd);


  return(0);
}