tests/armas.in

   1 #! @BINAWK@ -f
   2
   3 BEGIN {
   4     for (i = 0; i < 16; i++) {
   5         t[sprintf("%x", i)] = i
   6     }
   7 }
   8
   9 {
  10     for (o = 7; o >= 1; o -= 2) {
  11         h = substr($2, o, 1)
  12         l = substr($2, o + 1, 1)
  13         printf "%c", t[h] * 16 + t[l];
  14     }
  15 }