[BACK]Return to untaint.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/untaint.C between versions 1.118.2.6 and 1.124

version 1.118.2.6, 2003/09/24 14:32:06 version 1.124, 2003/11/20 17:15:12
Line 5 Line 5
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
 static const char* IDENT_UNTAINT_C="$Date$";  static const char * const IDENT_UNTAINT_C="$Date$";
   
   
 #include "pa_string.h"  #include "pa_string.h"
Line 98  inline bool need_http_header_encode(unsi Line 98  inline bool need_http_header_encode(unsi
         return need_uri_encode(c);          return need_uri_encode(c);
 }  }
   
 //  
   
 static const char*  String_Untaint_lang_name[]={  
         "U", ///< zero value handy for hash lookup @see untaint_lang_name2enum  
         "C", ///< clean  
         "T",  ///< tainted, untaint language as assigned later   
         // untaint languages. assigned by ^untaint[lang]{...}  
         "P",  
                 /**<  
                         leave language built into string being appended.  
                         just a flag, that value not stored  
                 */  
         "A",     ///< leave all characters intact  
         "F", ///< file specification  
         "H",    ///< ext in HTTP response header  
         "M",    ///< text in mail header  
         "URI",       ///< text in uri  
         "T",     ///< ^table:set body  
         "SQL",       ///< ^table:sql body  
         "JS",        ///< JavaScript code  
         "XML",          ///< ^dom:set xml  
         "HTML"      ///< HTML code (for editing)  
 };  
   
   
 // String  // String
   
 /*  /*
   
 HTTP-header    = field-name ":" [ field-value ] CRLF  HTTP-header    = field-name ":" [ field-value ] CRLF
   
        field-name     = token         field-name     = token
Line 170  inline bool need_quote_http_header(const Line 144  inline bool need_quote_http_header(const
 #ifndef DOXYGEN  #ifndef DOXYGEN
 struct Append_fragment_info {  struct Append_fragment_info {
         String::Language lang;          String::Language lang;
         const String::Body dest_body;  
         String::Languages* dest_languages;          String::Languages* dest_languages;
         size_t dest_body_plan_length;          size_t dest_body_plan_length;
 };  };
Line 182  int append_fragment_optimizing(char alan Line 155  int append_fragment_optimizing(char alan
         // clean piece would be marked OPTIMIZED manually          // clean piece would be marked OPTIMIZED manually
         // pieces with determined languages [not tainted|clean] would retain theirs langs          // pieces with determined languages [not tainted|clean] would retain theirs langs
         info->dest_languages->append(info->dest_body_plan_length,           info->dest_languages->append(info->dest_body_plan_length, 
                 lang==String::Language::L_TAINTED?                  lang==String::L_TAINTED?
                         info->lang                          info->lang
                         :lang==String::Language::L_CLEAN?                          :lang==String::L_CLEAN?
                                 (String::Language)(String::Language::L_CLEAN|String::Language::L_OPTIMIZE_BIT) // ORing with OPTIMIZED flag                                  (String::Language)(String::L_CLEAN|String::L_OPTIMIZE_BIT) // ORing with OPTIMIZED flag
                                 :lang,                                  :lang,
                 asize);                  asize);
         info->dest_body_plan_length+=asize;          info->dest_body_plan_length+=asize;
Line 196  int append_fragment_nonoptimizing(char a Line 169  int append_fragment_nonoptimizing(char a
         const String::Language lang=(String::Language)(unsigned char)alang;          const String::Language lang=(String::Language)(unsigned char)alang;
         // The core idea: tainted pieces got marked with context's lang          // The core idea: tainted pieces got marked with context's lang
         info->dest_languages->append(info->dest_body_plan_length,           info->dest_languages->append(info->dest_body_plan_length, 
                 lang==String::Language::L_TAINTED?                  lang==String::L_TAINTED?
                         info->lang                          info->lang
                         :lang,                          :lang,
                 asize);                  asize);
Line 222  String& String::append_to(String& dest, Line 195  String& String::append_to(String& dest,
         else if(forced) //forcing passed lang?          else if(forced) //forcing passed lang?
                 dest.langs.append(dest.body, lang, length());                  dest.langs.append(dest.body, lang, length());
         else {           else { 
                 Append_fragment_info info={lang, dest.body, &dest.langs, dest.body.length()};                  Append_fragment_info info={lang, &dest.langs, dest.body.length()};
             langs.for_each(body, lang&L_OPTIMIZE_BIT?              langs.for_each(body, lang&L_OPTIMIZE_BIT?
                         append_fragment_optimizing                          append_fragment_optimizing
                         :append_fragment_nonoptimizing, &info);                          :append_fragment_nonoptimizing, &info);
Line 269  inline bool mail_header_char_valid_withi Line 242  inline bool mail_header_char_valid_withi
                 || strchr("!*+-/", c);                  || strchr("!*+-/", c);
 }  }
 inline bool addr_spec_soon(const char *src) {  inline bool addr_spec_soon(const char *src) {
         for(char c; c=*src; src++)          for(char c; (c=*src); src++)
                 if(c=='<')                  if(c=='<')
                         return true;                          return true;
                 else if(!(c==' ' || c=='\t'))                  else if(!(c==' ' || c=='\t'))
Line 332  int cstr_to_string_body_block(char alang Line 305  int cstr_to_string_body_block(char alang
         //fprintf(stderr, "%d, %d\n", fragment.lang, fragment.length);          //fprintf(stderr, "%d, %d\n", fragment.lang, fragment.length);
   
                   
         String::Language to_lang=info->lang==String::Language::L_UNSPECIFIED?fragment_lang:info->lang;          String::Language to_lang=info->lang==String::L_UNSPECIFIED?fragment_lang:info->lang;
         bool optimize=(to_lang & String::Language::L_OPTIMIZE_BIT)!=0;          bool optimize=(to_lang & String::L_OPTIMIZE_BIT)!=0;
         if(!optimize)          if(!optimize)
                 whitespace=false;                  whitespace=false;
                                   
         switch(to_lang & ~String::Language::L_OPTIMIZE_BIT) {          switch(to_lang & ~String::L_OPTIMIZE_BIT) {
         case String::Language::L_CLEAN:          case String::L_CLEAN:
         case String::Language::L_TAINTED:          case String::L_TAINTED:
         case String::Language::L_AS_IS:          case String::L_AS_IS:
                 // clean piece                  // clean piece
   
                 // tainted piece, but undefined untaint language                  // tainted piece, but undefined untaint language
Line 350  int cstr_to_string_body_block(char alang Line 323  int cstr_to_string_body_block(char alang
                 // tainted, untaint language: as-is                  // tainted, untaint language: as-is
                 ec_append(info->result, optimize, whitespace, info->pos, fragment_length);                  ec_append(info->result, optimize, whitespace, info->pos, fragment_length);
                 break;                  break;
         case String::Language::L_FILE_SPEC:          case String::L_FILE_SPEC:
                 // tainted, untaint language: file [name]                  // tainted, untaint language: file [name]
                 escape(                  escape(
                         // Macintosh has problems with small Russian letter 'r'                          // Macintosh has problems with small Russian letter 'r'
Line 361  int cstr_to_string_body_block(char alang Line 334  int cstr_to_string_body_block(char alang
                                 encode(need_file_encode, '_', c);                                   encode(need_file_encode, '_', c); 
                 );                  );
                 break;                  break;
         case String::Language::L_URI:          case String::L_URI:
                 // tainted, untaint language: uri                  // tainted, untaint language: uri
                 {                  {
                         const char *fragment_str=info->body->mid(info->fragment_begin, fragment_length).cstr();                          const char *fragment_str=info->body->mid(info->fragment_begin, fragment_length).cstr();
Line 374  int cstr_to_string_body_block(char alang Line 347  int cstr_to_string_body_block(char alang
                                         info->charsets->client());                                          info->charsets->client());
   
                         char c;                          char c;
                         for(const char* src=output.str; c=*src++; )                           for(const char* src=output.str; (c=*src++); ) 
                                 encode(need_uri_encode, '%', c);                                  encode(need_uri_encode, '%', c);
                 }                  }
                 break;                  break;
         case String::Language::L_HTTP_HEADER:          case String::L_HTTP_HEADER:
                 // tainted, untaint language: http-field-content-text                  // tainted, untaint language: http-field-content-text
                 escape(                  escape(
                         encode(need_uri_encode, '%', c);                          encode(need_uri_encode, '%', c);
                 );                  );
                 break;                  break;
         case String::Language::L_MAIL_HEADER:          case String::L_MAIL_HEADER:
                 // tainted, untaint language: mail-header                  // tainted, untaint language: mail-header
                 // http://www.ietf.org/rfc/rfc2047.txt                  // http://www.ietf.org/rfc/rfc2047.txt
                 if(info->charsets) {                  if(info->charsets) {
Line 401  int cstr_to_string_body_block(char alang Line 374  int cstr_to_string_body_block(char alang
   
                         bool email=false;                          bool email=false;
                         uchar c;                          uchar c;
                         for(const char* src=mail_ptr; c=(uchar)*src++; ) {                          for(const char* src=mail_ptr; (c=(uchar)*src++); ) {
                                 //RFC   + An 'encoded-word' MUST NOT appear in any portion of an 'addr-spec'.                                  //RFC   + An 'encoded-word' MUST NOT appear in any portion of an 'addr-spec'.
                                 if(to_quoted_printable && (c==',' || addr_spec_soon(src) || c == '"')) {                                  if(to_quoted_printable && (c==',' || addr_spec_soon(src) || c == '"')) {
                                         email=c=='<';                                          email=c=='<';
Line 430  int cstr_to_string_body_block(char alang Line 403  int cstr_to_string_body_block(char alang
                 } else                  } else
                         ec_append(info->result, optimize, whitespace, info->pos, fragment_length);                          ec_append(info->result, optimize, whitespace, info->pos, fragment_length);
                 break;                  break;
         case String::Language::L_TABLE:           case String::L_TABLE: 
                 // tainted, untaint language: table                  // tainted, untaint language: table
                 escape(switch(c) {                  escape(switch(c) {
                         case '\t': to_char(' ');  break;                          case '\t': to_char(' ');  break;
Line 439  int cstr_to_string_body_block(char alang Line 412  int cstr_to_string_body_block(char alang
                 });                  });
                 break;                  break;
 #ifdef PA_SQL  #ifdef PA_SQL
         case String::Language::L_SQL:          case String::L_SQL:
                 // tainted, untaint language: sql                  // tainted, untaint language: sql
                 if(info->connection) {                  if(info->connection) {
                         const char *fragment_str=info->body->mid(info->fragment_begin, fragment_length).cstr();                          const char *fragment_str=info->body->mid(info->fragment_begin, fragment_length).cstr();
Line 453  int cstr_to_string_body_block(char alang Line 426  int cstr_to_string_body_block(char alang
                                 "untaint in SQL language failed - no connection specified");                                  "untaint in SQL language failed - no connection specified");
                 break;                  break;
 #endif  #endif
         case String::Language::L_JS:          case String::L_JS:
                 escape(switch(c) {                  escape(switch(c) {
                         case '"': to_string("\\\"");  break;                          case '"': to_string("\\\"");  break;
                         case '\'': to_string("\\'");  break;                          case '\'': to_string("\\'");  break;
Line 463  int cstr_to_string_body_block(char alang Line 436  int cstr_to_string_body_block(char alang
                         _default;                          _default;
                 });                  });
                 break;                  break;
         case String::Language::L_XML:          case String::L_XML:
                 escape(switch(c) {                  escape(switch(c) {
                         case '&': to_string("&amp;");  break;                          case '&': to_string("&amp;");  break;
                         case '>': to_string("&gt;");  break;                          case '>': to_string("&gt;");  break;
Line 473  int cstr_to_string_body_block(char alang Line 446  int cstr_to_string_body_block(char alang
                         _default;                          _default;
                 });                  });
                 break;                  break;
         case String::Language::L_HTML:          case String::L_HTML:
                 escape(switch(c) {                  escape(switch(c) {
                         case '&': to_string("&amp;");  break;                          case '&': to_string("&amp;");  break;
                         case '>': to_string("&gt;");  break;                          case '>': to_string("&gt;");  break;
Removed from v.1.118.2.6  
changed lines
  Added in v.1.124

E-mail: