for i:=0 to 3 do
    begin
      for j:=0 to 3 do
        begin
          swa1:=bk[j]*ak[i];
          swa2:=swa1 and $ffffffff;
          swa3:=swa1 shr $20;
          ck[i+j]:=ck[i+j]+swa2;
          swa3:=swa3 shl 1;
          dk[i+j+1]:=dk[i+j+1]+ck[i+j] shr $1f;
          ck[i+j]:=ck[i+j] and  $7fffffff;
          ck[i+j+1]:=ck[i+j+1]+swa3;
        end;
    end;bk为固定值
如何从ck得到ak
这是根据一段汇编程序改写的,是什么加密算法啊