#include #include #define ctoi(c) ( (c) <= '9' ? (c)-'0' : (c) - 'a' + 10) /* * htd() * { * perl -pe 's/\%([A-Fa-f0-9]{2})/pack("C", hex($1))/seg;' * } */ int main(int argc, char **argv) { unsigned char c,d; for( c=getchar(); (!feof(stdin)); c=getchar()) { if ( c=='%' ) { d=getchar(); if ( isxdigit(d) ) { d=tolower(d); c=(unsigned char)(16*ctoi(d)); d=tolower(getchar()); c+=(unsigned char)(ctoi(d)); } else c=d; } putchar(c); } return(0); }