Foro de elhacker.net

alguien sabe como podemos hacer las operaciones de bitshift que equivalen al asm de SAL y SAR ?

gracias

Esto debería funcionar:

Public Function SAL(ByVal a As Long, ByVal n As Byte) As Long
    SAL = a * (2 ^ (n Mod 32))
End Function
 
Public Function SAR(ByVal a As Long, ByVal n As Byte) As Long
    SAR = a \ (2 ^ (n Mod 32))
End Function

ok gracias

no tenemos por aquí alguna recopilación de operaciones de este tipo?

Recopilacion de Funciones con operaciones Binarias. (http://foro.elhacker.net/vb/recopilacion_de_funciones_con_operaciones_binarias-t329680.0.html)