for(j=0,p=T;j<KEYLEN;j++)<br> {<br> *DK++=*p;<br> *p++=0;<br> } <br>//------------<br> p := T;<br> for i := 0 to KEYLEN -1 do<br> begin<br> Inc(DK);<br> DK^ := P^;<br> Inc(P);<br> p^ := 0;<br> end;