kompresja (tzw. kompresja motyla, czyli jedna z głównych słabości algorytmu COMP128) for j=0 to 4{ for k=0 to (2^j)-1{ for l=0 to 2(^4-j)-1{ m=1+k2^(5-j) n=m+2^(4-j) y=(x[m]+2x[n])mod 2^(9-j); z=(2x[m]+x[n])mod 2^(9-j); x[m]=T[j][y]; x[n]=T[j][z];
"Form bits From bytes" czyli przestawienie bitów w buforze for j=0 to 31{ for k=0 to 3{ bit[4j+k]=(x[j]>>(3-k))&1
permutacja z pominięciem ostatniej pętli if i<8{ for j=0 to 15{ for k=0 to 7{ następny_bit=17(8j+k)mod 128 k-ty bit x[j+16]=bit[następny_bit]
kompresja 16 bajtów wynikowych do 12 bajtów oraz zapisanie ich w SIMoutput[] (x[0...3]-SRES; x[4...11]-Kc); wyzerowanie ostatnich 10 bitów klucza Kc for i=0 to 3 SIMoutput[i]=(x[2i]<<4)|x[2i+1] for i=0 to 5 SIMoutput[4+i]=(x[2i+18]<<6|(x[2i+18+1]<<2)|(x[2i+18+2]>>2) SIMoutput[4+6]=(x[26+18]<<6)|(x[26+18+1]<<2) SIMoutput[4+7]=0