UI: Qs to get the ball rolling

[Raul Miller]

Raul Miller:
   > When you've a large system, with pieces supplied by several vendors,
   > and part of it isn't working, how do you isolate the problem?

Francois-Rene Rideau:
      If parts can eventually be proven correct, vendors of buggy
   parts will be the shame of computer industry. Then, "bugs" will
   exist only as one thing: people writing programs without
   understanding what these program should actually do.

Um... let me rephrase that:  if several components working together do
not achieve their desired result, how do you decide which are faulty?
Remember that you have to solve this problem before the components are
written if the components are to be written correctly.

   Thanks to active annotations, the system will also be its own
   interactive debugger if needed.

This has some promise...

#!/usr/local/bin/perl -- export-a-crypto-system sig, RSA in 5 lines of PERL:
($s,$k,$n)=@ARGV;$w=length$n;$k="0$k"if length($k)&1;$n="0$n",$w++if$w&1;die
"$0 -d|-e key mod <in >out\n"if$s!~/^-[de]$/||$#ARGV<2;$v=$w;$s=~/d/?$v-=2:
$w-=2;$_=unpack('B*',pack('H*',$k));s/^0*//g;s/0/d*ln%/g;s/1/d*ln%lm*ln%/g;
$c="1${_}p";while(read(STDIN,$m,$w/2)){$m=unpack("H$w",$m);chop($a=
`echo 16o16i\U$m\Esm\U$n\Esn$c|dc`);print pack('H*','0'x($v-length$a).$a);}