AHK源代码加密器 v2.2

[feiyue]

在利用AHK解决实际问题时，有时想保护自己的劳动成果，不想直接给其他人看到。
但是当前的Ahk2Exe不能加密，源代码是明文附加在程序末尾的，起不到保护源代码的作用，
所以我制作了一个简单的AHK源代码加密器，可以防止小白，对高手没有什么作用。

Code: [Select all] [Expand] [Download] GeSHi © Codebox Plus

/*
;-------------------------------
  AHK source code Encryptor v2.2  By FeiYue

  1. This tool can encrypt the AHK script into a self decode script.

  2. Then you can use ahk2exe to compile the script into a program,
     combined with mpress.exe or upx.exe packers.
     Note: To compile the script, you must have a AutoHotkey.exe
     in the script directory.

  3. When you want to use the directory relative to the script(eg 001.jpg),
     Don't use A_ScriptDir, but use A_WorkingDir. It is recommended to backup
     the working directory to a variable at the beginning of the script,
     Then change the path to absolute path based on the variable (eg %dir%\001.jpg).

  4. When you want to Reload your own script, the built-in Reload command will fail,
     You can use Reload() function instead (it's added when encrypted).

;-------------------------------
*/

#NoEnv
#SingleInstance force
ListLines, Off
SetBatchLines, -1

fs=
(` %

Exec(str, Ahk="", arg="") {
  static WriteFile, h, ScriptName:=%True%
  s:=RegExReplace(str,"\s"), StrReplace(s,"u","",size)
  VarSetCapacity(str,(size+1)*4,0), s:=SubStr(s,InStr(s,"u")+1)
  Loop, Parse, s, u
    NumPut(A_LoopField, str, (A_Index-1)*4, "uint")
  ;-----------------------------
  Ptr:=A_PtrSize ? "UPtr":"UInt"
  Ahk:=Ahk ? Ahk : A_IsCompiled ? A_ScriptDir "\AutoHotkey.exe":A_AhkPath
  IfNotExist, %Ahk%
  {
    MsgBox, 4096, Error!, `n`nCan't Find: %Ahk% !`n`n
    return, 0
  }
  Random, n, 1, 1000000
  name:="\\.\pipe\AHK" . A_TickCount . n
  Loop, 2
    if (p%A_Index% := DllCall("CreateNamedPipe","str",name,"uint",2
    ,"uint",0,"uint",255,"uint",0,"uint",0,Ptr,0,Ptr,0))=-1
      return, 0
  ScriptName:=ScriptName ? ScriptName : A_ScriptFullPath
  Run, %Ahk% "%name%" "%ScriptName%" %arg%
  DllCall("ConnectNamedPipe", Ptr,p1, Ptr,0)
  DllCall("CloseHandle", Ptr,p1)
  DllCall("ConnectNamedPipe", Ptr,p2, Ptr,0)
  if !WriteFile
  {
    x32:="5589E581ECA8000000C745F0000000008B450883C03C8B1"
    . "08B450801D08945E88B45080FB6003C4D75248B450883C0010"
    . "FB6003C5A75178B45E80FB6003C50750D8B45E883C0010FB60"
    . "03C45740AB8FFFFFFFFE92E0300008B45E883C0648B0085C07"
    . "40C8B45E883C0608B0085C07509C745F488000000EB07C745F"
    . "4780000008B55E88B45F401D08B108B450801D08945E48B45E"
    . "48B40188945E08B45E483C01C8B108B450801D08945DC8B45E"
    . "483C0208B108B450801D08945D88B45E483C0248B108B45080"
    . "1D08945D4C745F400000000EB618B45F48D1485000000008B4"
    . "5D801D08B008945D08B55088B45D001D08B003D47657450753"
    . "88B45D08D50048B450801D08B003D726F634175248B45F48D1"
    . "4008B45D401D00FB7000FB7C08D1485000000008B45DC01D08"
    . "B008945F0EB0C8345F4018B45F43B45E07297837DF000750AB"
    . "8FEFFFFFFE9390200008B55088B45F001D08945CCC745AA577"
    . "26974C745AE6546696C66C745B26500C7459E476C6F62C745A"
    . "2616C416CC745A66C6F6300C74593476C6F62C74597616C467"
    . "266C7459B6565C6459D008D45AA894424048B45088904248B4"
    . "5CCFFD08945C8C7442410000000008B45188944240CC744240"
    . "8000000008D45AA89442404C70424000000008B45C8FFD085C"
    . "0740AB8FDFFFFFFE9A0010000C7442410000000008B4518894"
    . "4240CC7442408000000008D45AA894424048B450C8904248B4"
    . "5C8FFD085C0750AB8FCFFFFFFE9690100008D459E894424048"
    . "B45088904248B45CCFFD08945C48D4593894424048B4508890"
    . "4248B45CCFFD08945C08B451483C001C1E00289442404C7042"
    . "4000000008B45C4FFD08945BC837DBC00750AB8FBFFFFFFE91"
    . "3010000C745800B000000C745840D000000C7458811000000C"
    . "7458C13000000C745EC00000000EB268B45EC83E0038945B88"
    . "B45B88B44858069D0830000008B45EC01C28B45B8895485808"
    . "345EC01837DEC6376D4C745EC00000000EB5A8B45EC83E0038"
    . "945B88B45B88B44858069D0830000008B45EC01C28B45B8895"
    . "485808B45EC8D1485000000008B451001D08B108B45B88B448"
    . "58031D08945B48B45EC8D1485000000008B45BC01D08B55B4C"
    . "1CA0889108345EC018B45EC3B4514729E8B45EC8D148500000"
    . "0008B45BC01D0C700000000008B451483C0018D14850000000"
    . "0C7442410000000008B45188944240C895424088B45BC89442"
    . "4048B450C8904248B45C8FFD08B45BC8904248B45C0FFD0B80"
    . "0000000C9C214009090"
    x64:="554889E54881ECF000000048894D10488955184C8945204"
    . "4894D28C745F800000000488B45104883C03C8B0089C2488B4"
    . "5104801D0488945E8488B45100FB6003C4D7529488B4510488"
    . "3C0010FB6003C5A751A488B45E80FB6003C50750F488B45E84"
    . "883C0010FB6003C45740AB8FFFFFFFFE996030000488B45E84"
    . "883C0648B0085C0740E488B45E84883C0608B0085C07509C74"
    . "5FC88000000EB07C745FC780000008B55FC488B45E84801D08"
    . "B0089C2488B45104801D0488945E0488B45E08B40188945DC4"
    . "88B45E04883C01C8B0089C2488B45104801D0488945D0488B4"
    . "5E04883C0208B0089C2488B45104801D0488945C8488B45E04"
    . "883C0248B0089C2488B45104801D0488945C0C745FC0000000"
    . "0EB6F8B45FC488D148500000000488B45C84801D08B008945B"
    . "C8B55BC488B45104801D08B003D4765745075418B45BC488D5"
    . "004488B45104801D08B003D726F6341752A8B45FC488D14004"
    . "88B45C04801D00FB7000FB7C0488D148500000000488B45D04"
    . "801D08B008945F8EB0C8345FC018B45FC3B45DC7289837DF80"
    . "0750AB8FEFFFFFFE972020000488B55108B45F84801D048894"
    . "5B048B8577269746546696C48898570FFFFFF66C78578FFFFF"
    . "F650048B8476C6F62616C416C48898560FFFFFFC78568FFFFF"
    . "F6C6F630048B8476C6F62616C467248898550FFFFFF66C7855"
    . "8FFFFFF6565C6855AFFFFFF00488D9570FFFFFF488B45B0488"
    . "B4D10FFD0488945A8488B4D30488D9570FFFFFF48C74424200"
    . "0000000488B45A84989C941B800000000B900000000FFD085C"
    . "0740AB8FDFFFFFFE9C30100004C8B4530488D9570FFFFFF488"
    . "B4D1848C744242000000000488B45A84D89C141B800000000F"
    . "FD085C0750AB8FCFFFFFFE98E010000488D9560FFFFFF488B4"
    . "5B0488B4D10FFD0488945A0488D9550FFFFFF488B45B0488B4"
    . "D10FFD0488945988B452883C001C1E00289C04889C2488B45A"
    . "0B900000000FFD04889459048837D9000750AB8FBFFFFFFE93"
    . "6010000C78540FFFFFF0B000000C78544FFFFFF0D000000C78"
    . "548FFFFFF11000000C7854CFFFFFF13000000C745F40000000"
    . "0EB2C8B45F483E00389458C8B458C8B848540FFFFFF69D0830"
    . "000008B45F401C28B458C89948540FFFFFF8345F401837DF46"
    . "376CEC745F400000000EB698B45F483E00389458C8B458C8B8"
    . "48540FFFFFF69D0830000008B45F401C28B458C89948540FFF"
    . "FFF8B45F4488D148500000000488B45204801D08B108B458C8"
    . "B848540FFFFFF31D08945888B45F4488D148500000000488B4"
    . "5904801D08B5588C1CA0889108345F4018B45F43B4528728F8"
    . "B45F4488D148500000000488B45904801D0C700000000008B4"
    . "52883C001448D1485000000004C8B4530488B5590488B4D184"
    . "8C744242000000000488B45A84D89C14589D0FFD0488B55904"
    . "88B45984889D1FFD0B8000000004881C4F00000005DC390"
    hex:=A_PtrSize=8 ? x64:x32
    VarSetCapacity(WriteFile, len:=StrLen(hex)//2)
    Loop, % len
      NumPut("0x" SubStr(hex,2*A_Index-1,2),WriteFile,A_Index-1,"uchar")
    DllCall("VirtualProtect",Ptr,&WriteFile,Ptr,len,"uint",0x40,Ptr "*",0)
    h:=DllCall("GetModuleHandle", "Str","Kernel32", Ptr)
  }
  DllCall(&WriteFile,Ptr,h,Ptr,p2,Ptr,&str,"uint",size,"uint*",0)
  DllCall("CloseHandle", Ptr,p2)
  return, 1
}

)

if 0>0
{
  file:=%True%
  IfExist, %file%
    Gosub, Encrypt
  ExitApp
}
Gui, +AlwaysOnTop +ToolWindow
Gui, Color, DDEEFF
Gui, Font, cRed s28
Gui, Add, Text,, Drag the AHK script here to Encrypt`n`n
Gui, Show,, AHK source code Encryptor v2.2  -  By FeiYue
OnMessage(0x201, "LButton_Down")
return

LButton_Down() {
  ListLines, Off
  if (A_Gui=1 and A_GuiControl="")
    SendMessage, 0xA1, 2
}

GuiClose:
ExitApp

GuiDropFiles:
Gui, +OwnDialogs
Loop, parse, A_GuiEvent, `n
{
  file:=A_LoopField
  MsgBox, 4100, Tip, Do you want to encrypt this file ?`n`n%file%
  IfMsgBox, Yes
    Gosub, Encrypt
  MsgBox, 4096, Tip, Encryption is completed !
}
return

Encrypt:
FileRead, s, %file%
s:= "`n;You can compile and set icons by using Ahk2Exe.exe`n"
  . "`n;If AutoHotkey.exe wants to change its name to abc.exe,"
  . " Please modify Ahk=%A_ScriptDir%\abc.exe`n"
  . "`n #NoEnv"
  . "`n #NoTrayIcon"
  . "`n #SingleInstance off"
  . "`n SetBatchLines, -1"
  . "`n if A_IsCompiled"
  . "`n {"
  . "`n   Ahk=%A_ScriptDir%\AutoHotkey.exe"
  . "`n   FileInstall, AutoHotkey.exe, %Ahk%"
  . "`n }"
  . "`n else Ahk="
  . "`n`ns=`n"
  . RegExReplace(Encode(s),".{1,60}","s.=""$0""`n")
  . "`n Exec(s, Ahk)"
  . "`n ExitApp`n"
  . fs
f:=RegExReplace(file,"\.[^.]+$") . "-encoded.ahk"
FileDelete, %f%
FileAppend, %s%, %f%
return

Encode(s) {
  static MyFunc
  Ptr:=A_PtrSize ? "UPtr":"UInt"
  if !MyFunc
  {
    x32:="5589E583EC20C745E40B000000C745E80D000000C745EC1"
    . "1000000C745F013000000C745FC00000000EB268B45FC83E00"
    . "38945F88B45F88B4485E469D0830000008B45FC01C28B45F88"
    . "95485E48345FC01837DFC6376D4C745FC00000000EB5C8B45F"
    . "C83E0038945F88B45F88B4485E469D0830000008B45FC01C28"
    . "B45F8895485E48B45FC8D1485000000008B450801D08B00894"
    . "5F48B45FC8D1485000000008B450801C28B45F4C1C00889C18"
    . "B45F88B4485E431C889028345FC018B450C3945FC729CB8000"
    . "00000C9C20800909090"
    x64:="554889E54883EC2048894D10895518C745E00B000000C74"
    . "5E40D000000C745E811000000C745EC13000000C745FC00000"
    . "000EB268B45FC83E0038945F88B45F88B4485E069D08300000"
    . "08B45FC01C28B45F8895485E08345FC01837DFC6376D4C745F"
    . "C00000000EB628B45FC83E0038945F88B45F88B4485E069D08"
    . "30000008B45FC01C28B45F8895485E08B45FC488D148500000"
    . "000488B45104801D08B008945F48B45FC488D1485000000004"
    . "88B45104801C28B45F4C1C00889C18B45F88B4485E031C8890"
    . "28345FC018B45183945FC7296B8000000004883C4205DC390"
    hex:=A_PtrSize=8 ? x64:x32
    VarSetCapacity(MyFunc, len:=StrLen(hex)//2)
    Loop, % len
      NumPut("0x" SubStr(hex,2*A_Index-1,2),MyFunc,A_Index-1,"uchar")
    DllCall("VirtualProtect", Ptr,&MyFunc, Ptr,len, "uint",0x40, Ptr "*",0)
  }
  add=
  (%
;-----------------------
ListLines, Off
Ahk_ScriptName:=%True%
Try Menu, Tray, Icon, %Ahk_ScriptName%
Gui, SingleInstance_force:Show, Hide, [%Ahk_ScriptName%]
Gui, SingleInstance_force:+HwndAhk_myid
DetectHiddenWindows, On
WinGet, Ahk_list, List, [%Ahk_ScriptName%] ahk_class AutoHotkeyGUI
Loop, % Ahk_list {
  IfEqual, Ahk_myid, % Ahk_id:=Ahk_list%A_Index%, Continue
  WinGet, Ahk_pid, PID, ahk_id %Ahk_id%
  WinClose, ahk_class AutoHotkey ahk_pid %Ahk_pid%
  WinWaitClose, ahk_id %Ahk_id%
}
DetectHiddenWindows, Off
SetWorkingDir, % RegExReplace(Ahk_ScriptName,"\\[^\\]*$")
;-----------------------
Reload() {
  static Ahk_ScriptName:=%True%
  Try {
    if Ahk_ScriptName=
      return
    else if InStr(Ahk_ScriptName,".exe")
      Run, %Ahk_ScriptName%
    else
      Run, %A_AhkPath% "%Ahk_ScriptName%"
    ExitApp
  }
}
ListLines, On
;-----------------------
  )
  s:=add "`n" s "`nExitApp`n#SingleInstance off`n"
  s:=(A_IsUnicode ? chr(0xfeff) : chr(0xEF) chr(0xBB) chr(0xBF))
    . RegExReplace(s,"\R","`r`n") . "`t`t`t"
  size:=VarSetCapacity(s,-1)//4
  VarSetCapacity(str, size*11*(!!A_IsUnicode+1))
  DllCall(&MyFunc, Ptr,&s, "int",size)
  Loop, % size
    str.="u" . NumGet(s,(A_Index-1)*4,"uint")
  return, str
}

;======== The End ========

;

[oldbrother]

xiexie!!!!

[guest3456]

nice

can you give an explanation in english? maybe you could post this in the "Scripts And Functions" forum

and can you provide the c++ source code for the machine codes?

[garry]

謝謝

[feiyue]

@guest3456, I've changed the script to English, but I don't want to repeat it to the "Scripts And Functions" forum.
If I provide the C source code for the machine code, the Encryptor is cracked.

[SpeedMaster]

Hello,

I tried the compiled exe script but a get this error.

Code: [Select all] [Expand] [Download] GeSHi © Codebox Plus

---------------------------
Error!
---------------------------


Can't Find: C:\Users\ZZ\AutoHotkey.exe ! 


---------------------------
OK   
---------------------------

[feiyue]

@SpeedMaster，
Because it is calling the AHK master program to run dynamically,
There must be a AHK master program in the same directory.

[SpeedMaster]

@SpeedMaster，
There must be a AHK master program in the same directory.

I do not see any AHK master program in the folder

03_07_18 @6_54_57.PNG (9.91 KiB) Viewed 2398 times

[feiyue]

AHK master program is AutoHotkey.exe.
If AutoHotkey.exe is renamed abc.exe, Please modify Ahk=%A_ScriptDir%\abc.exe

[SpeedMaster]

I got it now
Thanks

ahk.png (7.06 KiB) Viewed 2378 times

[guest3456]

can you explain what the new 'add' code does, with the Gui and getting the process Pid, and the Reload() func that is never called?

[feiyue]

Because the decoded code is not saved to the disk, it is sent directly to the AutoHotkey.exe to execute.
No source files lead to:
1. Only one is allowed to run at the same time (#SingleInstance force), is invalid.
Solution: Use a hidden GUI as the unique tag to prevent conflicts.
2, Reload is invalid. Solution: use the Reload() function instead.

[Cuadrix]

Very nice!

[feiyue]

Updated to the V1.7 version, made some improvements to avoid being easily cracked.
Thank you very much for Helgef !

[brutus_skywalker]

ROCKS!

Still Rocks, but script can be recovered by doing a memory dump of autohotkey.exe and using sysinternals 'strings' utility, to extract the code.

Simpler still uses processhacker to view the properties of the process running encoded script and just view strings in the memory tab of the properties.

[feiyue]

@brutus_skywalker, Thank you very much for the two ways to view memory text, and I learned new knowledge.

This method can extract fragmented source code text, but can not extract complete code.

It's really lucky.

[feiyue]

Updated to the V2.0 version, Enhance the difficulty of cracking.

[AHKStudent]

Hi

To share my app users need to download both files? Or can I just compile my main exe and have the autohotkey.exe within it (like through file install?)

What is the right way to do this?

[alware]

i am using gdi+ and gdip imagesearch but it seems encoded script won't recognize the image files that are in the same folder..
any help??

[feiyue]

@AHKStudent, I fixed this problem, and now it can package the AHK main program into a separate program.

@alware, Because script runs through named pipes, A_ScriptDir is useless.
You should use dir:=A_WorkingDir to get the used directory of the compiled program.