AutoHotkey Community

;ReplaceByte - replace byte in binary Buffer
;      ret: number of replacements, case-sensitive.
ReplaceByte( hayStackAddr, hayStackSize, ByteFrom=0, ByteTo=1, StartOffset=0, NumReps=-1)
{   Static fun
   IfEqual,fun,
   {
      h=
      ( LTrim join
         5589E553515256579C8B4D0C8B451831D229C17E25837D1C00741F8B7D0801C70FB6451
         00FB65D14FCF2AE750D885FFF42FF4D1C740409C975EF9D89D05F5E5A595BC9C21800
      )
      VarSetCapacity(fun,StrLen(h)//2)
      Loop % StrLen(h)//2
         NumPut("0x" . SubStr(h,2*A_Index-1,2), fun, A_Index-1, "Char")
   }
   Return DllCall(&fun
      , "uint",haystackAddr, "uint",hayStackSize, "short",ByteFrom, "short",ByteTo
      , "uint",StartOffset, "int",NumReps)
}

proc ReplaceByte stdcall uses ebx ecx edx esi edi, hayStack, hayStackSize, ByteFrom:WORD, ByteTo:WORD, StartOffset, NumReps
   pushfd

   mov   ecx,[hayStackSize]
   mov   eax,[StartOffset]
   xor   edx,edx
   sub   ecx,eax
   jle   .done
   cmp   [NumReps],0
   jz   .done

   mov   edi,[hayStack]
   add   edi,eax ;edi=&(hayStack[StartOffset])

   movzx   eax,byte [ByteFrom]
   movzx   ebx,byte [ByteTo]
   cld

.rep:
   repne   scasb
   jne   .done

   mov   [edi-1],bl
   inc   edx
   dec   [NumReps]
   jz   .done
   or   ecx,ecx
   jnz   .rep

.done:
   popfd
   mov   eax,edx
   ret
endp