[Enan0]

Bueno la funcion anterior que les comente no funciona bien debido a que no completa los 8 bits (es decir no rellena con ceros entonces da un error importante)

cHacKall hice una modificacion a lo que me posteaste

Código Delphi [-]
private static  byte  ROL2(byte Value)
      {
           return (Value<<2) | (Value >> 8) ;
      }

Cambie tel Tipo de dato por Byte. pero de todas maneras sigo teniendo este error

possible loss of precision
found : int
required: byte
return (Value<<2) | (Value >> 8) ;

y tiene una marca en el PIPE o MORE..

sabrias decirme a que se debe?

gracias