DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »tcryp«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦720b7e52e⟧ »calprog« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦720b7e52e⟧ »calprog« 
            └─⟦this⟧ 

TextFile

;ali
(
mode list.yes
lookup cryplist
if ok.yes
mode 15.yes
clear tencryp
tencryp=set 9
tencryp=edit tcryp
clear cryp
cryp=set 50
cryp=hcalg
encryp=set 50
encryp=hcalg tencryp
mode list.no 15.no
)
d./)/,d2,
l./forc/,r/char/cval/,
l./ifcryp/,r/+cval/+128-cval/,f
1978-10-05
Anders Lindgård copyright
begin
integer i,c,char,iran,sh,cval;
boolean cryp;
integer array t(0:255);

for i:=0 step 1 until 255 do t(i):=6 shift 12+i;
tableindex:=0;
intable(t);

initfp;
if fpinareas<1 then alarm(nl,1,star,3,<:input:>);
connectinp(1);
if -,readbfp(<:cryp:>,cryp) then cryp:=true;
if -,readifp(<:key:>,iran) then alarm(nl,1,star,3,<:key:>);
connectlso;
char:=0;
for c:=c while char<>25 do
  begin
  random(iran);
  cval:=iran mod 128;
  readchar(in,char);
  if cryp then cval:=(char+cval) mod 128;
  outchar(out,cval);
  end;
unstackcuri;
closeout;
end
▶EOF◀