AutoHotkey Community

; BitRotate functions
; by Drugwash April 2009
; v1.3

count := "{zyxwvut"
Gui, Add, Edit, x5 y5 w20 h20 gchar vch Limit1
Gui, Add, Text, x+3 yp+3 w20 h20 vdn, %dec%
Gui, Add, Text, x+3 yp w30 h20 vhn, %hex%
Gui, Font, s36
Gui, Add, Text, x+10 yp w80 h40 vsb,
Gui, Font, s12, Webdings
Gui, Add, Button, x5 y30 w20 h20 glshift, % Chr(51)
Gui, Add, Button, x+3 yp w20 h20 gnoshift, % Chr(60)
Gui, Add, Button, x+3 yp w20 h20 grshift, % Chr(52)
Gui, Font, s14, Wingdings 2
Gui, Add, Text, x5 y+5 w140 h20 vbytes, %byte%
Gui, Add, Text, xp y+1 w140 h20, %count%
Gui, Font
Gui, Show
return

char:
Gui, Submit, NoHide
dec := Asc(ch)
num := dec
GuiControl,, dn, %dec%
format:
SetFormat, Integer, Hex
hex := num
hex += 0
GuiControl,, hn, %hex%
sb := dec
sb += 0
GuiControl,, sb, %sb%
SetFormat, Integer, Dec
byte=
   Loop, 8
      {
      bit := (dec & 2**(8-A_Index)) ? Chr(152) : Chr(153)
         byte := byte . bit
      }
GuiControl,, bytes, %byte%
return

lshift:
BitRotateL(dec)
goto format
return

rshift:
BitRotateR(dec)
goto format
return

noshift:
dec := num
goto format
return

GuiClose:
ExitApp

BitRotateL(ByRef nmb, t="1", type="UChar")
{
r := BRCheck(t, type)
if !r
   return 0
Loop, %t%
   {
   msb := (nmb & 2**(r-1)) ? 1 : 0         ; 2^(r-1) should be the leftmost bit
   nmb := (nmb << 1 & (2**r -1)) + msb   ; 2^r-1 should be number's bytes less extra byte
   }
return 1
}

BitRotateR(ByRef nmb, t="1", type="UChar")
{
r := BRCheck(t, type)
if !r
   return 0
Loop, %t%
   {
   lsb := (nmb & 0x1) ? 2**(r - 1) : 0   ; 2^(r-1) should become the leftmost bit
   nmb := (nmb >> 1) + lsb
   }
return 1
}

BRCheck(a, b)
{
if (a < 1 || a > 63 || b not in UChar,UShort,UInt,UInt64)
   return 0
str = UChar|UShort|UInt|UInt64
Loop, Parse, str, |
   {
   ; find number length in bits
   if (A_LoopField == b)
      {
      mT := 4*(2**A_Index)
      break
      }
   }
return mT
}

rotate(a,b) { ; 32-bit rotate a to left by b bits, bit32..63 garbage
   Return a << b | (a & 0xFFFFFFFF) >> (32-b)
}

rotate(a,b,n=8) { ; rotate a to left by ±b bits, n bit precision
   b := (b<0)*n+mod(b,n), m := (1<<n)-1
   Return (a << b) & m | a >> (n-b)
}

MCode(ROL32,"5589E58B45088B4D0C5DD3C0C3") ; Rotate Left  32 bits (unsigned)
MCode(ROR32,"5589E58B45088B4D0C5DD3C8C3") ; Rotate Right 32 bits (unsigned)

SetFormat IntegerFast, Hex
MsgBox % dllcall(&ROL32, "uint", 0x12345678, "UInt",4, "cdecl uint") ; 0x23456781
MsgBox % dllcall(&ROR32, "uint", 0x12345678, "UInt",4, "cdecl uint") ; 0x81234567

MCode(ByRef code, hex) { ; allocate memory and write Machine Code there
   VarSetCapacity(code,StrLen(hex)//2)
   Loop % StrLen(hex)//2
      NumPut("0x" . SubStr(hex,2*A_Index-1,2), code, A_Index-1, "Char")
}

Loop {
   MsgBox % dllcall(&ROL32, UInt,0x12345678, UInt,A_Index-1)
   MsgBox % dllcall(&ROR32, UInt,0x12345678, UInt,A_Index-1)
}

; 8bit rotation
MOV AL, buffer
MOV CL, times
ROL AL, CL
MOV BYTE PTR [buffer], AL
RET

; 16bit rotation
MOV AX, buffer
MOV CL, times
ROL AX, CL
MOV WORD PTR [buffer], AX
RET

; 32bit rotation
MOV EAX, buffer
MOV CL, times
ROL EAX, CL
MOV DWORD PTR [buffer], EAX
RET

buffer=999 ; the number to operate on
times=7 ; rotations count