140-AHK機器碼生成器

這是我寫的AHK機器碼生成器，不用設定複雜的程式設計環境，

只需一個熱鍵就可以生成機器碼（MCode），十分好用。

;===========================================;   【AHK機器碼生成器】 v2.5  By FeiYue;;   使用方法：;;   1、下載安裝【TDM-GCC】的64位版到D盤的TDM-GCC-64目錄，下載網址為：;      https://sourceforge.net/projects/tdm-gcc/files/latest/download;;   2、下載安裝【TCC】的32位和64位版到AHK的TCC-32和TCC-64目錄，下載網址為：;      https://bellard.org/tcc/;;   3、選擇C程式碼後，按【 Alt+C 】熱鍵生成 GCC 編譯的機器碼，;      或者按【 Ctrl+Alt+C 】熱鍵生成 TCC 編譯的機器碼;;===========================================!c::    ; 選擇C程式碼後用 GCC 編譯^!c::   ; 選擇C程式碼後用 TCC 編譯ClipSaved:=ClipboardAllClipboard=Send {Ctrl Down}c{Ctrl Up}ClipWait, 3s:=Clipboard, Clipboard:=ClipSavedif s={  MsgBox, 4096, Error, The contents of the copy are empty！  Exit}Loop, 2{  hex:=Tcc(s, i:=A_Index-1, A_ThisLabel="!c")  hex:=RegExReplace("xxx" hex, ".{1,50}", "`r`n    . ""$0""")  s%i%:=StrReplace(hex, ". ""xxx", (i ? "x64":"x32") ":=""")}MsgBox, 4096, MCode has been generated! (32 + 64)  , % Clipboard:=s0 . s1  . "`r`n    MCode(MyFunc, A_PtrSize=8 ? x64:x32)"s:=s0:=s1:=""returnTcc(s, win64=0, gcc=0, add=0){  dir:=A_IsCompiled ? A_ScriptDir : RegExReplace(A_AhkPath,"\\[^\\]+$")  if (gcc=1)    exe1:="D:\TDM-GCC-64\bin\gcc.exe"  else    exe1:=dir (win64 ? "\TCC-64":"\TCC-32") "\tcc.exe"  IfNotExist, %exe1%  {    MsgBox, 4096, Tip, Can't Find %exe1% !    return  }  if (add=1)  {    Loop, 4      s%A_Index%:="int _add" A_Index "_() { return 0x11111111; }"    s:=s1 "`n" s2 "`n" s3 "`n" s "`n" s4 "`n"  }  dir:=A_Temp  FileDelete, % cpp:=dir "\~5.c"  FileDelete, % obj:=dir "\~5.obj"  FileDelete, % log:=dir "\~5.log"  FileAppend, % StrReplace(s,"`r"), %cpp%  killcmd(1)  arg:=(win64 ? " -m64 ":" -m32 ")  " -O2 "  RunWait, %ComSpec% /c ""%exe1%" %arg%    -c -o "%obj%" "%cpp%" 2>"%log%"",, Hide  killcmd(0)  hex:=(add=1) ? bin2hex(obj) : obj2hex(obj)  FileRead, s, %log%  FileDelete, %cpp%  FileDelete, %obj%  FileDelete, %log%  if StrLen(hex)<2  {    MsgBox, 4096, Tip, C Compile Error`n`n%s%    return  }  if (add=1)  {    p1:=RegExMatch(hex, "i)B811111111.{0,8}?C3", r)    p2:=InStr(hex,r,0,p1+1), p3:=InStr(hex,r,0,p2+1)    p4:=InStr(hex,r,0,0), len:=p3-p2, i:=0    Loop, % (len-StrLen(r))//2      if !(SubStr(hex,p1-2-i,2)=SubStr(hex,p3-2-i,2)      && SubStr(hex,p1-2-i,2)=SubStr(hex,p4-2-i,2) && (i+=2))        Break    if (p1 && p2 && p3)      hex:=SubStr(hex, p3+len-i, p4-p3-len)  }  return hex}killcmd(f=0){  SplitPath, ComSpec, cmd  Loop  {    Process, Exist, %cmd%    if !(pid:=ErrorLevel)      Break    Process, Close, %pid%    Process, WaitClose, %pid%, 3  }  SetTimer, killcmd, % f ? 5000 : "Off"}bin2hex(obj, addr=0, size=0){  if (addr=0)  {    if !(r:=FileExist(obj)) or InStr(r,"D")      return    FileGetSize, size, %obj%    FileRead, bin, *c %obj%    addr:=&bin  }  ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"  SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"  SetFormat, IntegerFast, % (fmt:=A_FormatInteger)?"H":"H"  VarSetCapacity(hex, (2*size+1)*(1+!!A_IsUnicode))  Loop, %size%    hex.=SubStr(0x100+(*addr++),-1)  SetFormat, IntegerFast, %fmt%  SetBatchLines, %bch%  ListLines, %lls%  return hex}obj2hex(obj){  if !(r:=FileExist(obj)) or InStr(r,"D")    return  FileGetSize, size, %obj%  FileRead, bin, *c %obj%  p:=&bin  if !(NumGet(p+0,"uchar")=0x7f && StrGet(p+1,3,"CP0")="ELF")  {    if (StrGet(p,2,"CP0")="MZ")    && (StrGet(p+NumGet(p+0x3C,"uint"),4,"CP0")="PE")      return    usOptHdrSZ := NumGet(p+0, 16, "ushort")    Loop % usNumSec := NumGet(p+0, 2, "ushort")    {      sh := 20+usOptHdrSZ+(A_Index-1)*40      if (sh>size || A_Index>100)        return      sh_flags := NumGet(p+0, sh+36, "uint")      name:=StrGet(p+sh, 8, "CP0")      if (name=".text") && (sh_flags & 0x20)      {        sh_offset := NumGet(p+0, sh+20, "uint")        sh_size := NumGet(p+0, sh+16, "uint")        return bin2hex("", p+sh_offset, sh_size)      }    }    return  }  x64:=(EI_CLASS := NumGet(p+0, 4, "char"))=2  ptr:=(x64 ? "uint64" : "uint")  e_ehsize:=NumGet(p+0, (x64?52:40), "ushort")  if (e_ehsize!=(x64?64:52))    return  e_shoff := NumGet(p+0, (x64?40:32), ptr)  e_shentsize := NumGet(p+0, (x64?58:46), "ushort")  e_shnum := NumGet(p+0, (x64?60:48), "ushort")  e_shstrndx := NumGet(p+0, (x64?62:50), "ushort")  sh := e_shoff+e_shstrndx*e_shentsize  pstr := NumGet(p+0, sh+(x64?24:16), ptr) + p  Loop % e_shnum  {    sh := e_shoff+(A_Index-1)*e_shentsize    if (sh>size || A_Index>100)      return    sh_flags := NumGet(p+0, sh+8, ptr)    sh_name := NumGet(p+0, sh+0, "uint")    name := StrGet(pstr+sh_name, 8, "CP0")    if (name=".text") && (sh_flags & 0x4)    {      sh_offset := NumGet(p+0, sh+(x64?24:16), ptr)      sh_size := NumGet(p+0, sh+(x64?32:20), ptr)      return bin2hex("", p+sh_offset, sh_size)    }  }}MCode(ByRef code, hex){  ListLines, % (lls:=A_ListLines=0?"Off":"On")?"Off":"Off"  SetBatchLines, % (bch:=A_BatchLines)?"-1":"-1"  VarSetCapacity(code, len:=StrLen(hex)//2)  Loop, % len    NumPut("0x" SubStr(hex,2*A_Index-1,2),code,A_Index-1,"uchar")  DllCall("VirtualProtect","ptr",&code,"ptr",len,"uint",0x40,"ptr*",0)  SetBatchLines, %bch%  ListLines, %lls%}

84-【新聞頭條】看完這部紀錄片，我只想趕緊扔下手機逃跑(5/572)-2020-10-07 23:45

585-簡單語法解析器實現參考-2020-10-07 10:46

82872-一文搞懂AQS及其元件的核心原理-2020-10-07 19:30

776-pytorch和tensorflow的愛恨情仇之定義可訓練的引數-2020-10-07 11:14

98-工作流引擎Activiti與SpringBoot2整合--開源軟體誕生17-2020-10-07 7:37

368-學習從擁有一支好筆開始-2020-10-07 17:36

8979-python單元測試框架pytest-2020-10-07 21:41

2-C# Redis分散式鎖 - 單節點-2020-10-07 17:11

381-【新聞頭條】看完這部紀錄片，我只想趕緊扔下手機逃跑(5/557)-2020-10-07 9:24

387-手把手教你AspNetCore WebApi：增刪改查-2020-10-07 7:21

31-Shiro入門學習---使用自定義Realm完成認證|練氣中期-2020-10-07 11:21

771-Blend學習之Loading載入動畫-2020-10-07 12:50