CGI の入力をデコードするための、サンプルなのです。

C デコードプログラム -------------------------------------------------

#include <stdio.h>
#define BUFLEN    256

char *decode();

main(argc, argv)
    int argc;
    char *argv[];
{
  char in[BUFLEN], out[BUFLEN];
  while(gets(in) != 0) {
      printf("%s¥n", decode(in, out, BUFLEN));
  }
}

/*
	decode -  ブラウザから渡された情報をデコードする。
	引数：	str	もとの文字列
		buf	デコードした結果を入れる char 配列
		len	buf の大きさ
	戻値：	*buf
*/

#define isHex(c) ((c) >= '0' && (c) <= '9' || (c) >= 'A' && (c) <= 'F')
#define hexDec(c) ((c) >= '0' && (c) <= '9' ? (c) - '0' : (c) - 'A' + 10)
#define hexChar(hi, lo)    ((hi) * 16 + (lo))

char *decode(str, buf, len)
	char *str, *buf;
	int len;
{
  char *p;
  int i;

  for(i=0, p = str; *p && (i<len-1); i++) {
    if (*p == '%' && *(p+1) && isHex(*(p+1)) && *(p+2) && isHex(*(p+2))) {
        buf[i] = hexChar(hexDec(*(p+1)), hexDec(*(p+2)));
        p += 3;
    } else if (*p == '+') {
        buf[i] = ' ';
	p++;
    } else {
        buf[i] = *p++;
    }
  }
  buf[i] = '¥0';
  return buf;
}

----------------------------------------------------------------------

nawk 用デコードルーチン ----------------------------------------------

# デコードしたい文字列を str に渡す。
func decode(str) {
	gsub("¥¥+", " ", str)
	DEC = ""
	while( length(str) ) {
		if (POS = match(str, /%[0-9A-F][0-9A-F]/)) {
			DEC = DEC substr(str, 1, POS - 1)
			str = substr(str, POS)
			CODE1 = HtoC(substr(str, 1, 3))
			str = substr(str, 4)
			if (match(str, /^%[0-9A-F][0-9A-F]/)) {
				CODE2 = HtoC(substr(str, 1, 3))
				str = substr(str, 4)
				DEC = DEC sprintf("%c%c", CODE1, CODE2)
			} else {
				DEC = DEC sprintf("%c", CODE1)
			}
		} else {
			DEC = DEC str
			break
		}
	}
	return DEC;
}

function HtoC(code) {
	hi = HtoD(substr(code, 2, 1))
	lo = HtoD(substr(code, 3, 1))
	return hi*16+lo
}

function HtoD(h) {
	h = toupper(h)
	return index("0123456789ABCDEF", h) - 1
}
----------------------------------------------------------------------

tcl 用デコードルーチン--------------------------------------------------

# 例えば "set str [decode $str]" のように使って下さい。

proc htod {c} {
  return [string first [eval string toupper $c] "0123456789ABCDEF"]
}

proc pdec {str} {
  set c1 [htod [eval string index $str 1]]
  set c2 [htod [eval string index $str 2]]
  return [format "%c" [eval expr $c1*16+$c2]]
}

proc decode {str} {
  regsub -all "¥¥+" $str " " str
  while {[regexp "%¥[0-9A-Fa-f¥]¥[0-9A-Fa-f¥]" $str code]} {
      set dec [pdec $code]
      regsub $code $str $dec str
  }
  return $str
}

----------------------------------------------------------------------

今後の課題： python と scheme は欲しいなぁ…。

あさだ たくや