开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 加密解密 > CA认证 > 查看源码
sslstrength.c
资源名称：nss-3.1.1.tar.gz　[点击查看]
上传用户：lyxiangda
上传日期：2007-01-12
资源大小：3042k
文件大小：17k
源码类别：

CA认证

开发平台：

WINDOWS

sslstrength.c：源码内容
  1. /*
  2.  * The contents of this file are subject to the Mozilla Public
  3.  * License Version 1.1 (the "License"); you may not use this file
  4.  * except in compliance with the License. You may obtain a copy of
  5.  * the License at http://www.mozilla.org/MPL/
  6.  * 
  7.  * Software distributed under the License is distributed on an "AS
  8.  * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  9.  * implied. See the License for the specific language governing
  10.  * rights and limitations under the License.
  11.  * 
  12.  * The Original Code is the Netscape security libraries.
  13.  * 
  14.  * The Initial Developer of the Original Code is Netscape
  15.  * Communications Corporation.  Portions created by Netscape are 
  16.  * Copyright (C) 1994-2000 Netscape Communications Corporation.  All
  17.  * Rights Reserved.
  18.  * 
  19.  * Contributor(s):
  20.  * 
  21.  * Alternatively, the contents of this file may be used under the
  22.  * terms of the GNU General Public License Version 2 or later (the
  23.  * "GPL"), in which case the provisions of the GPL are applicable 
  24.  * instead of those above.  If you wish to allow use of your 
  25.  * version of this file only under the terms of the GPL and not to
  26.  * allow others to use your version of this file under the MPL,
  27.  * indicate your decision by deleting the provisions above and
  28.  * replace them with the notice and other provisions required by
  29.  * the GPL.  If you do not delete the provisions above, a recipient
  30.  * may use your version of this file under either the MPL or the
  31.  * GPL.
  32.  */
  34. #ifdef SSLTELNET
  35. #include <termios.h>
  36. #endif
  38. /* Portable layer header files */
  39. #include "prinit.h"
  40. #include "prprf.h"
  41. #include "prsystem.h"
  42. #include "prmem.h"
  43. #include "plstr.h"
  44. #include "prnetdb.h"
  45. #include "prinrval.h"
  47. #include "secutil.h"
  49. /* Security library files */
  50. #include "cert.h"
  51. #include "cdbhdl.h"
  52. #include "ssl.h"
  53. #include "sslproto.h"
  55. /* define this if you want telnet capability! */
  57. /* #define SSLTELNET 1 */
  59. PRInt32 debug;
  61. #ifdef DEBUG_stevep
  62. #define dbmsg(x) if (verbose) PR_fprintf(PR_STDOUT,x);
  63. #else
  64. #define dbmsg(x) ;
  65. #endif
  68. /* Set SSL Policy to Domestic (strong=1) or Export (strong=0) */
  70. #define ALLOW(x) SSL_SetPolicy(x,SSL_ALLOWED); SSL_EnableCipher(x,1);
  71. #define DISALLOW(x) SSL_SetPolicy(x,SSL_NOT_ALLOWED); SSL_EnableCipher(x,0);
  72. #define MAYBEALLOW(x) SSL_SetPolicy(x,SSL_RESTRICTED); SSL_EnableCipher(x,1);
  74. struct CipherPolicy {
  75.   char number;
  76.   long id;
  77.   char *name;
  78.   PRInt32 pref;
  79.   PRInt32 domestic;
  80.   PRInt32 export;
  81. };
  83. struct CipherPolicy ciphers[] = {
  84.   { 'a',SSL_EN_RC4_128_WITH_MD5,              "SSL_EN_RC4_128_WITH_MD5              (ssl2)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  85.   { 'b',SSL_EN_RC2_128_CBC_WITH_MD5,          "SSL_EN_RC2_128_CBC_WITH_MD5          (ssl2)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },  
  86.   { 'c',SSL_EN_DES_192_EDE3_CBC_WITH_MD5,     "SSL_EN_DES_192_EDE3_CBC_WITH_MD5     (ssl2)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  87.   { 'd',SSL_EN_DES_64_CBC_WITH_MD5,           "SSL_EN_DES_64_CBC_WITH_MD5           (ssl2)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  88.   { 'e',SSL_EN_RC4_128_EXPORT40_WITH_MD5,     "SSL_EN_RC4_128_EXPORT40_WITH_MD5     (ssl2)",1, SSL_ALLOWED,SSL_ALLOWED },
  89.   { 'f',SSL_EN_RC2_128_CBC_EXPORT40_WITH_MD5, "SSL_EN_RC2_128_CBC_EXPORT40_WITH_MD5 (ssl2)",1, SSL_ALLOWED,SSL_ALLOWED },
  90. #ifdef FORTEZZA
  91.   { 'g',SSL_FORTEZZA_DMS_WITH_FORTEZZA_CBC_SHA, "SSL_FORTEZZA_DMS_WITH_FORTEZZA_CBC_SHA",1,SSL_ALLOWED,SSL_NOT_ALLOWED },
  92.   { 'h',SSL_FORTEZZA_DMS_WITH_RC4_128_SHA, "SSL_FORTEZZA_DMS_WITH_RC4_128_SHA",1,          SSL_ALLOWED,SSL_NOT_ALLOWED },
  93. #endif
  94.   { 'i',SSL_RSA_WITH_RC4_128_MD5,             "SSL_RSA_WITH_RC4_128_MD5             (ssl3)",1, SSL_ALLOWED,SSL_RESTRICTED },
  95.   { 'j',SSL_RSA_WITH_3DES_EDE_CBC_SHA,        "SSL_RSA_WITH_3DES_EDE_CBC_SHA        (ssl3)",1, SSL_ALLOWED,SSL_RESTRICTED },
  96.   { 'k',SSL_RSA_WITH_DES_CBC_SHA,             "SSL_RSA_WITH_DES_CBC_SHA             (ssl3)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  97.   { 'l',SSL_RSA_EXPORT_WITH_RC4_40_MD5,       "SSL_RSA_EXPORT_WITH_RC4_40_MD5       (ssl3)",1, SSL_ALLOWED,SSL_ALLOWED },
  98.   { 'm',SSL_RSA_EXPORT_WITH_RC2_CBC_40_MD5,   "SSL_RSA_EXPORT_WITH_RC2_CBC_40_MD5   (ssl3)",1, SSL_ALLOWED,SSL_ALLOWED },
  99. #ifdef FORTEZZA
  100.   { 'n',SSL_FORTEZZA_DMS_WITH_NULL_SHA, "SSL_FORTEZZA_DMS_WITH_NULL_SHA",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  101. #endif
  102.   { 'o',SSL_RSA_WITH_NULL_MD5,                "SSL_RSA_WITH_NULL_MD5                (ssl3)",1, SSL_ALLOWED,SSL_ALLOWED },
  103.   { 'p',SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA,   "SSL_RSA_FIPS_WITH_3DES_EDE_CBC_SHA   (ssl3)",1, SSL_ALLOWED,SSL_NOT_ALLOWED },
  104.   { 'q',SSL_RSA_FIPS_WITH_DES_CBC_SHA,        "SSL_RSA_FIPS_WITH_DES_CBC_SHA        (ssl3)",1, SSL_ALLOWED,SSL_NOT_ALLOWED }
  106. };
  108. void PrintErrString(char *progName,char *msg) {
  109.   
  110.   PRErrorCode e = PORT_GetError();
  111.   char *s=NULL;
  114.   if ((e >= PR_NSPR_ERROR_BASE) && (e < PR_MAX_ERROR)) {
  115.     
  116.     if (e == PR_DIRECTORY_LOOKUP_ERROR) 
  117.       s = PL_strdup("Hostname Lookup Failed");
  118.     else if (e == PR_NETWORK_UNREACHABLE_ERROR)
  119.       s = PL_strdup("Network Unreachable");
  120.     else if (e == PR_CONNECT_TIMEOUT_ERROR)
  121.       s = PL_strdup("Connection Timed Out");
  122.     else s = PR_smprintf("%d",e);
  124.     if (!s) return;
  125.   }
  126.   else {
  127.     s = PL_strdup(SECU_ErrorString(e));
  128.   }
  129.     
  130.   PR_fprintf(PR_STDOUT,"%s: ",progName);
  131.   if (s) {
  132.     if (strlen(s) > 0) 
  133.       PR_fprintf(PR_STDOUT, "%sn", s);
  134.     else
  135.       PR_fprintf(PR_STDOUT, "n");
  136.     
  137.     PR_Free(s);
  138.   }
  139.   
  140. }
  142. void PrintCiphers(int onlyenabled) {
  143.   int ciphercount,i;
  144.   
  145.   if (onlyenabled) {
  146.     PR_fprintf(PR_STDOUT,"Your Cipher preference:n");
  147.   }
  149.   ciphercount = sizeof(ciphers)/sizeof(struct CipherPolicy);
  150.     PR_fprintf(PR_STDOUT,
  151.        " %s    %-45s  %-12s %-12sn","id","CipherName","Domestic","Export");
  153.   for (i=0;i<ciphercount;i++) {
  154.     if ( (onlyenabled ==0) || ((onlyenabled==1)&&(ciphers[i].pref))) {
  155.       PR_fprintf(PR_STDOUT,
  156.  " %c     %-45s  %-12s %-12sn",ciphers[i].number,ciphers[i].name,
  157.  (ciphers[i].domestic==SSL_ALLOWED)?"Yes":
  158.  ( (ciphers[i].domestic==SSL_NOT_ALLOWED)?"No":"Step-up only"),
  159.  (ciphers[i].export==SSL_ALLOWED)?"Yes":
  160.  ( (ciphers[i].export==SSL_NOT_ALLOWED)?"No":"Step-up only"));
  161. }
  162.   }
  163. }
  166. void SetPolicy(char *c,int policy) {  /* policy==1 : domestic,   policy==0, export */
  167.   int i,j,cpolicy;
  168.   /* first, enable all relevant ciphers according to policy */
  169.   for (j=0;j<(sizeof(ciphers)/sizeof(struct CipherPolicy));j++) {
  170.     SSL_SetPolicy(ciphers[j].id,policy?ciphers[j].domestic:ciphers[j].export);
  171.     SSL_EnableCipher(ciphers[j].id,0);
  172.     ciphers[j].pref =0;
  173.   }
  174.   
  176.   for (i=0;i<PL_strlen(c);i++) {
  177.     for (j=0;j<(sizeof(ciphers)/sizeof(struct CipherPolicy));j++) {
  178.       if (ciphers[j].number == c[i]) {
  179. cpolicy = policy?ciphers[j].domestic:ciphers[j].export;
  180. if (cpolicy == SSL_NOT_ALLOWED) {
  181.   PR_fprintf(PR_STDOUT, "You're trying to enable a cipher (%c:%s) outside of your policy. ignoredn",
  182.      c[i],ciphers[j].name);
  183. }
  184. else {
  185.   ciphers[j].pref=1;
  186.   SSL_EnableCipher(ciphers[j].id,1);
  187. }
  188.       }
  189.     }
  190.   }
  191. }
  194. int MyAuthCertificateHook(void *arg, PRFileDesc *fd, PRBool checksig, PRBool isserver) {
  195.   return SECSuccess;
  196. }
  199. void Usage() {
  200. #ifdef SSLTELNET
  201.     PR_fprintf(PR_STDOUT,"SSLTelnet ");
  202. #else
  203.     PR_fprintf(PR_STDOUT,"SSLStrength (No telnet functionality) ");
  204. #endif
  205.     PR_fprintf(PR_STDOUT,"Version 1.5n");
  206.  
  207.     PR_fprintf(PR_STDOUT,"Usage:n   sslstrength hostname[:port] [ciphers=xyz] [certdir=x] [debug] [verbose] "
  208. #ifdef SSLTELNET
  209. "[telnet]|[servertype]|[querystring=<string>] "
  210. #endif
  211. "[policy=export|domestic]n   sslstrength ciphersn");
  212. }
  215. PRInt32 debug = 0;
  216. PRInt32 verbose = 0;
  218. PRInt32 main(PRInt32 argc,char **argv, char **envp)
  219. {
  221.   
  222.   /* defaults for command line arguments */
  223.   char *hostnamearg=NULL;
  224.   char *portnumarg=NULL;
  225.   char *sslversionarg=NULL;
  226.   char *keylenarg=NULL;
  227.   char *certdir=NULL;
  228.   char *hostname;
  229.   char *nickname=NULL;
  230.   char *progname=NULL;
  231.   /*  struct sockaddr_in addr; */
  232.   PRNetAddr addr;
  234.   int ss_on;
  235.   char *ss_cipher;
  236.   int ss_keysize;
  237.   int ss_secretsize;
  238.   char *ss_issuer;
  239.   char *ss_subject;
  240.   int policy=1;
  241.   char *set_ssl_policy=NULL;
  242.   int print_ciphers=0;
  243.   
  244.   char buf[10];
  245.   char netdbbuf[PR_NETDB_BUF_SIZE];
  246.   PRHostEnt hp;
  247.   PRStatus r;
  248.   PRNetAddr na;
  249.   SECStatus rv;
  250.   int portnum=443;   /* default https: port */
  251.   PRFileDesc *s,*fd;
  252.   
  253.   CERTCertDBHandle *handle;
  254.   CERTCertificate *c;
  255.   PRInt32 i;
  256. #ifdef SSLTELNET
  257.   struct termios tmp_tc;
  258.   char cb;
  259.   int prev_lflag,prev_oflag,prev_iflag;
  260.   int t_fin,t_fout;
  261.   int servertype=0, telnet=0;
  262.   char *querystring=NULL;
  263. #endif
  265.   debug = 0;
  267.   progname = (char *)PL_strrchr(argv[0], '/');
  268.   progname = progname ? progname+1 : argv[0];
  270.   /* Read in command line args */
  271.   if (argc == 1) {
  272.     Usage();
  273.     return(0);
  274.   }
  275.   
  276.   if (! PL_strcmp("ciphers",argv[1])) {
  277.     PrintCiphers(0);
  278.     exit(0);
  279.   }
  281.   hostname = argv[1];
  283.   if (!PL_strcmp(hostname , "usage") || !PL_strcmp(hostname, "-help") ) {
  284.     Usage();
  285.     exit(0);
  286.     }
  288.   if ((portnumarg = PL_strchr(hostname,':'))) {
  289.     *portnumarg = 0;
  290.     portnumarg = &portnumarg[1];
  291.   }
  292.   
  293.   if (portnumarg) {
  294.     if (PL_strlen(portnumarg) == 0) {
  295.       PR_fprintf(PR_STDOUT,"malformed port number suppliedn");
  296.       return(1);
  297.     }
  298.     portnum = atoi(portnumarg);
  299.   }
  300.   
  301.   for (i = 2  ; i < argc; i++)
  302.     {
  303.       if (!PL_strncmp(argv[i] , "sslversion=",11) )
  304. sslversionarg=&(argv[i][11]);
  305.       else if (!PL_strncmp(argv[i], "certdir=",8) )
  306. certdir = &(argv[i][8]);
  307.       else if (!PL_strncmp(argv[i], "ciphers=",8) )
  308. {
  309.   set_ssl_policy=&(argv[i][8]);
  310. }
  311.       else if (!PL_strncmp(argv[i], "policy=",7) ) {
  312. if (!PL_strcmp(&(argv[i][7]),"domestic")) policy=1;
  313. else if (!PL_strcmp(&(argv[i][7]),"export")) policy=0;
  314. else {
  315.   PR_fprintf(PR_STDOUT,"sslstrength: invalid argument. policy must be one of (domestic,export)n");
  316. }
  317.       }
  318.       else if (!PL_strcmp(argv[i] , "debug") )
  319. debug = 1;
  320. #ifdef SSLTELNET
  321.       else if (!PL_strcmp(argv[i] , "telnet") )
  322. telnet = 1;
  323.       else if (!PL_strcmp(argv[i] , "servertype") )
  324. servertype = 1;
  325.       else if (!PL_strncmp(argv[i] , "querystring=",11) )
  326. querystring = &argv[i][12];
  327. #endif
  328.       else if (!PL_strcmp(argv[i] , "verbose") )
  329. verbose = 1;
  330.     }
  331.   
  332. #ifdef SSLTELNET
  333.   if (telnet && (servertype || querystring)) {
  334.     PR_fprintf(PR_STDOUT,"You can't use telnet and (server or querystring) options at the same timen");
  335.     exit(1);
  336.   }
  337. #endif
  339.   PR_fprintf(PR_STDOUT,"Using %s policyn",policy?"domestic":"export");
  340.   
  341.   /* use current directory for certificate database if not set */
  342.   
  343.   if (! certdir) {   
  344.     certdir = PR_smprintf(".");
  345.   }
  346.   
  347.   SECU_ConfigDirectory(certdir);
  348.   
  349.   
  350.   /* allow you to set env var SSLDIR to set the cert directory */
  351.   if (! certdir) certdir = SECU_DefaultSSLDir();  
  352.   if (certdir) SECU_ConfigDirectory(certdir);
  353.   
  354.   /* PR_Init(progname, 1, 1, 0); */
  355.   SECU_PKCS11Init(PR_FALSE /*readOnly==PR_FALSE*/);
  356.   
  357.   /* Lookup host */
  358.   r = PR_GetHostByName(hostname,netdbbuf,PR_NETDB_BUF_SIZE,&hp);
  359.   
  360.   if (r) {
  361.     PrintErrString(progname,"Host Name lookup failed");
  362.     return(1);
  363.   }
  364.   
  365.   /* should the third field really be 0? */
  367.   PR_EnumerateHostEnt(0,&hp,0,&na);
  368.   PR_InitializeNetAddr(PR_IpAddrNull,portnum,&na);
  370.   PR_fprintf(PR_STDOUT,"Connecting to %s:%dn",hostname, portnum);
  371.   
  372.   /* Create socket */
  374.   fd = PR_NewTCPSocket();
  375.   if (fd == NULL) {
  376.     PrintErrString(progname, "error creating socket");
  377.     return -1;
  378.   }
  380.   s = SSL_ImportFD(NULL,fd);
  381.   if (s == NULL) {
  382.     PrintErrString(progname, "error creating socket");
  383.     return -1;
  384.   }
  385.   
  386.   /* Initialize all the libsec goodies */
  387.   SEC_Init();
  388.   
  389.   dbmsg("10: About to enable securityn");
  390.   
  391.   rv = SSL_Enable(s, SSL_SECURITY, 1);
  392.   if (rv < 0) {
  393.     PrintErrString(progname, "error enabling socket");
  394.     return -1;
  395.   }
  396.   
  397.   if (set_ssl_policy) {
  398.     SetPolicy(set_ssl_policy,policy);
  399.   }
  400.   else {
  401.     PR_fprintf(PR_STDOUT,"Using all ciphersuites usually found in clientn");
  402.     if (policy) {
  403.       SetPolicy("abcdefghijklmnopqrst",policy);
  404.     }
  405.     else {
  406.       SetPolicy("efghijlmo",policy);
  407.     }
  408.   }
  410.   PrintCiphers(1);
  412.   rv = SSL_Enable(s, SSL_HANDSHAKE_AS_CLIENT, 1);
  413.   if (rv < 0) {
  414.     PrintErrString(progname, "error enabling client handshake");
  415.     return -1;
  416.   }
  417.   
  418.   handle = (CERTCertDBHandle *)PORT_ZAlloc(sizeof(CERTCertDBHandle));
  419.   if (!handle) {
  420.     PrintErrString(progname, "could not allocate database handle");
  421.     return -1;
  422.   }
  423.   
  424.   dbmsg("20: About to open certificate databasen");
  425.   
  426.   
  427.   /* Open up the certificate database */
  428.   rv = CERT_OpenCertDBFilename(handle, "cert7.db", PR_TRUE);
  429.   if ( rv ) {
  430.     PrintErrString(progname, "unable to open cert database");
  431.     rv = CERT_OpenVolatileCertDB(handle);
  432.   }
  433.   
  434.      CERT_SetDefaultCertDB(handle);
  435.   
  436.   dbmsg("30: About to set AuthCertificateHookn");
  437.   
  438.   
  439.   SSL_AuthCertificateHook(s, MyAuthCertificateHook, (void *)handle);
  440.   /* SSL_AuthCertificateHook(s, SSL_AuthCertificate, (void *)handle); */
  441.   /* SSL_GetClientAuthDataHook(s, GetClientAuthDataHook, (void *)nickname);*/
  442.   
  443.   
  444.   dbmsg("40: About to SSLConnectn");
  445.   
  446.   /* Try to connect to the server */
  447.   /* now SSL_Connect takes new arguments. */
  448.   
  449.   
  450.   r = PR_Connect(s, &na, PR_TicksPerSecond()*5);
  451.   if (r < 0) {
  452.     PrintErrString(progname, "unable to connect");
  453.     return -1;
  454.   }
  455.   
  456.   rv = SSL_ForceHandshake(s);
  457.   
  458.   if (rv) {
  459.     PrintErrString(progname,"SSL Handshake failed. ");
  460.     exit(1);
  461.   }
  463.   rv = SSL_SecurityStatus(s, &ss_on, &ss_cipher,
  464.   &ss_keysize, &ss_secretsize,
  465.   &ss_issuer, &ss_subject);
  467.   
  468.   dbmsg("60:  done with security status, about to printn");
  469.   
  470.   c = SSL_PeerCertificate(s);
  471.   if (!c) PR_fprintf(PR_STDOUT,"Couldn't retrieve peers Certificaten");
  472.   PR_fprintf(PR_STDOUT,"SSL Connection Statusn",rv);
  473.   
  474.   PR_fprintf(PR_STDOUT,"   Cipher:          %sn",ss_cipher);
  475.   PR_fprintf(PR_STDOUT,"   Key Size:        %dn",ss_keysize);
  476.   PR_fprintf(PR_STDOUT,"   Secret Key Size: %dn",ss_secretsize);
  477.   PR_fprintf(PR_STDOUT,"   Issuer:          %sn",ss_issuer);
  478.   PR_fprintf(PR_STDOUT,"   Subject:         %sn",ss_subject);
  480.   PR_fprintf(PR_STDOUT,"   Valid:           from %s to %sn",
  481.      c==NULL?"???":DER_UTCDayToAscii(&c->validity.notBefore),
  482.      c==NULL?"???":DER_UTCDayToAscii(&c->validity.notAfter));
  484. #ifdef SSLTELNET
  486.  
  489.   if (servertype || querystring) {
  490.     char buffer[1024];
  491.     char ch;
  492.     char qs[] = "HEAD / HTTP/1.0";
  497.     if (!querystring) querystring = qs;
  498.     PR_fprintf(PR_STDOUT,"nServer query moden>>Sending:n%sn",querystring);
  500.     PR_fprintf(PR_STDOUT,"n*** Server said:n");
  501.     ch = querystring[PL_strlen(querystring)-1];
  502.     if (ch == '"' || ch == ''') {
  503.       PR_fprintf(PR_STDOUT,"Warning: I'm not smart enough to cope with quotes mid-string like thatn");
  504.     }
  505.     
  506.     rv = PR_Write(s,querystring,PL_strlen(querystring));
  507.     if ((rv < 1) ) {
  508.       PR_fprintf(PR_STDOUT,"Oh dear - couldn't send servertype queryn");
  509.       goto closedown;
  510.     }
  512.     rv = PR_Write(s,"rnrn",4);
  513.     rv = PR_Read(s,buffer,1024);
  514.     if ((rv < 1) ) {
  515.       PR_fprintf(PR_STDOUT,"Oh dear - couldn't read server repsonsen");
  516.       goto closedown;
  517.     }
  518.       PR_Write(PR_STDOUT,buffer,rv);
  519.   }
  521.     
  522.   if (telnet) {
  524.     PR_fprintf(PR_STDOUT,"---------------------------n"
  525.        "telnet mode. CTRL-C to exitn"
  526.        "---------------------------n");
  527.     
  530.     /* fudge terminal attributes */
  531.     t_fin = PR_FileDesc2NativeHandle(PR_STDIN);
  532.     t_fout = PR_FileDesc2NativeHandle(PR_STDOUT);
  533.     
  534.     tcgetattr(t_fin,&tmp_tc);
  535.     prev_lflag = tmp_tc.c_lflag;
  536.     prev_oflag = tmp_tc.c_oflag;
  537.     prev_iflag = tmp_tc.c_iflag;
  538.     tmp_tc.c_lflag &= ~ECHO;
  539.     /*    tmp_tc.c_oflag &= ~ONLCR; */
  540.     tmp_tc.c_lflag &= ~ICANON;
  541.     tmp_tc.c_iflag &= ~ICRNL;
  542.     tmp_tc.c_cflag |= CS8;
  543.     tmp_tc.c_cc[VMIN] = 1;
  544.     tmp_tc.c_cc[VTIME] = 0;
  545.     
  546.     tcsetattr(t_fin, TCSANOW, &tmp_tc);
  547.     /*   ioctl(tin, FIONBIO, (char *)&onoff); 
  548.  ioctl(tout, FIONBIO, (char *)&onoff);*/
  549.     
  550.     
  551.     {
  552.       PRPollDesc pds[2];
  553.       char buffer[1024];
  554.       int amt,amtwritten;
  555.       char *x;
  556.       
  557.       /* STDIN */
  558.       pds[0].fd = PR_STDIN;
  559.       pds[0].in_flags = PR_POLL_READ;
  560.       pds[1].fd = s;
  561.       pds[1].in_flags = PR_POLL_READ | PR_POLL_EXCEPT;
  562.       
  563.       while (1) {
  564. int nfds;
  566. nfds = PR_Poll(pds,2,PR_SecondsToInterval(2));
  567. if (nfds == 0) continue;
  569. /** read input from keyboard*/
  570. /*  note: this is very inefficient if reading from a file */
  572. if (pds[0].out_flags & PR_POLL_READ) {
  573.   amt = PR_Read(PR_STDIN,&buffer,1);
  574.   /* PR_fprintf(PR_STDOUT,"fd[0]:%d=%drn",amt,buffer[0]); */
  575.   if (amt == 0) {
  576.     PR_fprintf(PR_STDOUT,"n");
  577.     goto loser;
  578.   }
  579.   
  580.   if (buffer[0] == 'r') {
  581.     buffer[0] = 'r';
  582.     buffer[1] = 'n';
  583.     amt = 2;
  584.   }
  585.   rv = PR_Write(PR_STDOUT,buffer,amt);
  586.   
  587.   
  588.   rv = PR_Write(s,buffer,amt);
  589.   if (rv == -1) {
  590.     PR_fprintf(PR_STDOUT,"Error writing to socket: %dn",PR_GetError());
  591.   }
  592. }
  594. /***/
  597. /***/
  598. if (pds[1].out_flags & PR_POLL_EXCEPT) {
  599.   PR_fprintf(PR_STDOUT,"rnServer closed connectionrn");
  600.   goto loser;
  601. }
  602. if (pds[1].out_flags & PR_POLL_READ) {
  603.   amt = PR_Read(s,&buffer,1024);
  604.   
  605.   if (amt == 0) {
  606.     PR_fprintf(PR_STDOUT,"rnServer closed connectionrn");
  607.     goto loser;
  608.   }
  609.   rv = PR_Write(PR_STDOUT,buffer,amt);
  610. }
  611. /***/
  613.       }
  614.     }
  615.   loser:
  616.     
  617.     /* set terminal back to normal */
  618.     tcgetattr(t_fin,&tmp_tc);
  619.     
  620.     tmp_tc.c_lflag = prev_lflag;
  621.     tmp_tc.c_oflag = prev_oflag;
  622.     tmp_tc.c_iflag = prev_iflag;
  623.     tcsetattr(t_fin, TCSANOW, &tmp_tc);
  624.     
  625.     /*   ioctl(tin, FIONBIO, (char *)&onoff);
  626.  ioctl(tout, FIONBIO, (char *)&onoff); */
  627.   }
  629. #endif
  630.   /* SSLTELNET */
  632.  closedown:
  634.   PR_Close(s);
  636.   return(0);
  638. } /* main */
  640. /*EOF*/