* A one-rotor machine designed along the lines of Enigma
* but considerably trivialized.
int ic
, i
, k
, temp
, pf
[2];
execl("/usr/lib/makekey", "-", 0);
execl("/lib/makekey", "-", 0);
if (read(pf
[0], buf
, 13) != 13) {
fprintf(stderr
, "crypt: cannot generate key\n");
seed
= 5*seed
+ buf
[i
%13];
ic
= (random
&MASK
)%(k
+1);
while(t3
[ic
]!=0) ic
= (ic
+1) % k
;
setup(getpass("Enter key:"));
while((i
=getchar()) >=0) {
i
= t2
[(t3
[(t1
[(i
+n1
)&MASK
]+n2
)&MASK
]-n2
)&MASK
]-n1
;