找回密码  加入

AUTOIT CN

搜索
楼主: tubaba

[原创] ,Au3Encode-代码整合迷惑- 20190507

[复制链接]
 楼主| 发表于 2016-9-28 15:37:16 | 显示全部楼层
回复 30# menfan1


    RX36Q-F34FM-JYKG2-XGDXT-RFP72
发表于 2016-9-29 09:11:53 | 显示全部楼层
能不能做个自动升级的呢?每次都需要下载不方便哈:)
 楼主| 发表于 2016-10-1 18:57:36 | 显示全部楼层
回复 32# menfan1


    自动升级暂时不考虑了,还要联网什么的,再说用的人也不多
发表于 2016-10-3 10:52:20 | 显示全部楼层
字符串加密处理的密钥是多少位的呢?能自定义不?
 楼主| 发表于 2016-10-3 20:45:59 | 显示全部楼层
没有设计成可以自定义,密钥长度随机,存放位置随机
发表于 2016-11-13 11:07:27 | 显示全部楼层
没钱下载啊,能否给个外链啊?
发表于 2017-2-13 12:31:28 | 显示全部楼层
下载看看,多谢迷惑
 楼主| 发表于 2017-2-24 11:39:44 | 显示全部楼层
Au3Encode加密前后的部分源代码(完整的贴不下)
  1. _ScriptPretreatment($sPath, $Flag = 0, $EncodeMode = 512) ;脚本预处理
  2.         If $StopFlag = True Then Return SetError(1, 0, False)
  3.         If $Flag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 1, '正在执行', 2)
  4.         If $LogFlag Then _Log('正在进行脚本预处理...')
  5.         Local $hFile = FileOpen($sPath)
  6.         Local $sSource = FileRead($hFile)
  7.         FileClose($hFile)
  8.         Local $TempLineStr = $sSource
  9.         Local $Pattern3 = '(?<!\r)\n' ;处理换行
  10.         Local $Pattern1 = '(' & "'|" & '")(.*?)(\1)' ;成对引号
  11.         Local $Pattern2 = '([\x1c|\x1d]+)(\x02\x22|\x02\x27)'
  12.         Local $Pattern4 = '(\[[^\[\],]*)(,)' ;中括号内的逗号替换为chr(1)
  13.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern3, @CRLF)
  14.         $TempLineStr = StringReplace(StringReplace($TempLineStr, Chr(39) & Chr(39), Chr(29)), Chr(34) & Chr(34), Chr(28)) ;相邻双引号或单引号替换其它符号,为下步做准备
  15.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern1, Chr(2) & '${1}${2}${3}' & Chr(3)) ;加入字符串起止标志
  16.         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern2, '${2}${1}') ;将起始标志前的成对相邻双引号或成对相邻单引号移动到起始标志后
  17.         Local $n = 0
  18.         Do
  19.                 $n += 1
  20.                 If $StopFlag = True Then Return SetError(1, 0, False)
  21.                 $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern4, '${1}' & Chr(1)) ;中括号内的逗号替换为chr(1)
  22.         Until @error = 0 And @extended = 0
  23.         Local $hFile = FileOpen($sPath, 2 + $EncodeMode)
  24.         FileWrite($hFile, $TempLineStr)
  25.         FileClose($hFile)
  26.         If $Flag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 1, '已完成', 2)
  27. EndFunc   ;==>_ScriptPretreatment

  28. Func _RemoveFromScript($sOutPath, $Flag = 0, $EncodeMode = 512)
  29.         If $StopFlag = True Then Return SetError(1, 0, False)
  30.         _FilePretreatment($sOutPath, $Flag, $EncodeMode, 0) ;去除注释
  31.         If $StopFlag = True Then Return SetError(1, 0, False)
  32.         _FilePretreatment($sOutPath, $Flag, $EncodeMode, 1) ;去除空行
  33.         If $StopFlag = True Then Return SetError(1, 0, False)
  34. EndFunc   ;==>_RemoveFromScript

  35. Func _FilePretreatment($sInPutFilePath, $MFlag, $EncodeMode, $Flag)
  36.         If $StopFlag = True Then Return SetError(1, 0, False)
  37.         Local $hFile = FileOpen($sInPutFilePath)
  38.         Local $sStr = FileRead($hFile)
  39.         FileClose($hFile)
  40.         Switch $Flag
  41.                 Case 0 ;去除注释
  42.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '正在执行', 2)
  43.                         If $LogFlag Then _Log('正在清除区域注释...')
  44.                         GUICtrlSetData($Label1, '正在清除区域注释...')
  45.                         Local $Pattern1 = '(?m)(?<=^)\h*;.*(\r\n)|(?<=^)\h*;.*' ;开头是";"的行去除
  46.                         $sStr = StringRegExpReplace($sStr, $Pattern1, '')
  47.                         Local $aRead = StringSplit($sStr, @CRLF, 1 + 2)
  48.                         Local $Pattern2 = '(.*?)(\h*;.*)'
  49.                         Local $Pattern3 = '\x02[^\x02\x03]+?\x03'
  50.                         Local $Pattern4 = '(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)'
  51.                         Local $Pattern5 = '(?s)(?i)(?:\r?\n\h*#cs|\r?\n\h*#comments-start).+?(?:(?:\r?\n\h*#cs|\r?\n\h*#comments-start).+?(?:\r?\n\h*#ce|\r?\n\h*#comments-end))*(?:\s*(?:\r?\n\h*#ce|\r?\n\h*#comments-end))+[^\r\n]*\r?\n' ;区域注释
  52.                         Local $CountLine = UBound($aRead)
  53.                         For $i = 0 To UBound($aRead) - 1
  54.                                 If $StopFlag = True Then Return SetError(1, 0, False)
  55.                                 Local $TempLineStr = $aRead[$i], $TempStr, $SerchStr = ''
  56.                                 If StringRegExp($TempLineStr, $Pattern3) Then
  57.                                         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern4, '\\${1}') ;转义特殊字符
  58.                                         $TempLineStr = StringRegExpReplace($TempLineStr, $Pattern3, '\\x02.+?\\x03') ;替换为表达式
  59.                                         $SerchStr = StringRegExpReplace($TempLineStr, $Pattern2, '${2}')
  60.                                         If @extended Then $aRead[$i] = StringRegExpReplace($aRead[$i], $SerchStr, '')
  61.                                 Else
  62.                                         $SerchStr = StringRegExpReplace($aRead[$i], $Pattern2, '${2}')
  63.                                         If @extended Then $aRead[$i] = StringReplace($aRead[$i], $SerchStr, '', -1, 1)
  64.                                 EndIf
  65.                                 If $MFlag And Mod($i, 50) = 0 Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '已完成' & Chr(32) & $i & '/' & $CountLine, 2)
  66.                         Next
  67.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  68.                         FileWriteLine($hFile, $sHead)
  69.                         For $i = 0 To UBound($aRead) - 1
  70.                                 FileWriteLine($hFile, $aRead[$i])
  71.                         Next
  72.                         FileClose($hFile)
  73.                         _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '正在清除区域注释...', 2)
  74.                         Local $hFile = FileOpen($sInPutFilePath)
  75.                         Local $sStr = FileRead($hFile)
  76.                         FileClose($hFile)
  77.                         $sStr = StringRegExpReplace(@CRLF & $sStr, $Pattern5, @CRLF)
  78.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  79.                         FileWrite($hFile, $sStr)
  80.                         FileClose($hFile)
  81.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 2, '已完成', 2)
  82.                         GUICtrlSetData($Label1, '清除完成...')
  83.                 Case 1 ;去除空行
  84.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 3, '正在执行', 2)
  85.                         If $LogFlag Then _Log('正在清除空行及行首行未空白字符...')
  86.                         GUICtrlSetData($Label1, '正在清除空行及行首行未空白字符...')
  87.                         Local $Pattern1 = '(?m)(?<=^)\h*(.+)'
  88.                         Local $Pattern2 = '(?<!\r)\n' ;处理换行
  89.                         Local $Pattern3 = '\r\n(?=\r\n)|\r\n$'
  90.                         Local $Pattern4 = '^\r\n'
  91.                         $sStr = StringRegExpReplace($sStr, $Pattern1, '${1}') ;删除行首空白符
  92.                         $sStr = StringRegExpReplace($sStr, $Pattern2, @CRLF)
  93.                         $sStr = StringRegExpReplace(@CRLF & $sStr, $Pattern3, '') ;删除空行
  94.                         $sStr = StringRegExpReplace($sStr, $Pattern4, '') ;删除空行
  95.                         $hFile = FileOpen($sInPutFilePath, 2 + $EncodeMode)
  96.                         FileWrite($hFile, $sStr)
  97.                         FileClose($hFile)
  98.                         If $MFlag Then _GUICtrlListView_SetItemText($hTab3_ListView1, 3, '已完成', 2)
  99.                         GUICtrlSetData($Label1, '清除完成...')
  100.         EndSwitch
  101. EndFunc   ;==>_FilePretreatment
复制代码


  1. Func Q7CEL390V4Q7($LU5ALT1X896P, $C16T39UZ4E28 = $Z748J708YCQ9, $N9040N00EWSR = $GHF59PQ7I82I)
  2. If $D0O373W558MQ = True Then Return SetError($N5P5YST7S73K, $KGL4N810697Z, False)
  3. If $C16T39UZ4E28 Then G0LLUZKLCJ38($LJ8JURHU0VR2, $U8QQ84835QG5, JTJ889124807($LH5QOQO9U9ID, $T79H44QCE75S), $ZP8DGM021IL1)
  4. If $OVX4P22S42D1 Then KD7S7W4V2EG8(JTJ889124807($QB31P1F3H704, $WZ396KO8L556))
  5. Local $C5ARS6TFOJH4 = FileOpen($LU5ALT1X896P)
  6. Local $AYA87RW80S9P = FileRead($C5ARS6TFOJH4)
  7. FileClose($C5ARS6TFOJH4)
  8. Local $VU0C0CHG3PV8 = $AYA87RW80S9P
  9. Local $AZ1376T49Q7G = $O62NS1T65217
  10. Local $UM5A72U7ZZ58 = $C804TXU547U4 & $RL9BAH0K3520 & $M1284C9RCT26
  11. Local $U9E547DIG8SG = $GP1MWN44J42F
  12. Local $C98PC6015685 = $GQFL0N9Z4V78
  13. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $AZ1376T49Q7G, @CRLF)
  14. $VU0C0CHG3PV8 = StringReplace(StringReplace($VU0C0CHG3PV8, Chr($M2E08793UL8G) & Chr($CMWA8NN1SGYN), Chr($JN4AN41GMC43)), Chr($D53CEVCLK7N6) & Chr($SPJ4MO9508S1), Chr($MV0D5BCN2US7))
  15. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $UM5A72U7ZZ58, Chr($SV39HCW3K636) & $T96KP7J3OE4A & Chr($JJ34F1IS70RA))
  16. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $U9E547DIG8SG, $XAGY21PZ5414)
  17. Local $ST8H68U9265I = $MR9LIQ30BVKC
  18. Do
  19. $ST8H68U9265I += $HJE56PXDUU87
  20. If $D0O373W558MQ = True Then Return SetError($I02YRW7TJ5WO, $YCN0TH9K5YWT, False)
  21. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $C98PC6015685, $I0VA5P45F545 & Chr($HOL46HNK272N))
  22. Until @error = $ZD7REJ21BOJ6 And @extended = $PY3C0MISONX2
  23. Local $C5ARS6TFOJH4 = FileOpen($LU5ALT1X896P, $G9NKW354VW92 + $N9040N00EWSR)
  24. FileWrite($C5ARS6TFOJH4, $VU0C0CHG3PV8)
  25. FileClose($C5ARS6TFOJH4)
  26. If $C16T39UZ4E28 Then G0LLUZKLCJ38($LJ8JURHU0VR2, $F582YY4LQMU7, JTJ889124807($K8R063W7V312, $B3QL174G6MG7), $YFQH62FTX9C3)
  27. EndFunc
  28. Func W2X4K03Z0JW1($HF7R0P06IMJ9, $C16T39UZ4E28 = $F34KLHJ77472, $N9040N00EWSR = $S0985PG11Y87)
  29. If $D0O373W558MQ = True Then Return SetError($RJ537ETL606K, $D57P8VCN24KC, False)
  30. HX7MVMU9I3H6($HF7R0P06IMJ9, $C16T39UZ4E28, $N9040N00EWSR, $GITX67UD9418)
  31. If $D0O373W558MQ = True Then Return SetError($CTT6MH479DZ1, $D34H4844H96S, False)
  32. HX7MVMU9I3H6($HF7R0P06IMJ9, $C16T39UZ4E28, $N9040N00EWSR, $WV1DK7268422)
  33. If $D0O373W558MQ = True Then Return SetError($A1B8Z2B03652, $NH71EJD0BRHM, False)
  34. EndFunc
  35. Func HX7MVMU9I3H6($JSMP5Q0NE59D, $AKED27MRMQJW, $N9040N00EWSR, $C16T39UZ4E28)
  36. If $D0O373W558MQ = True Then Return SetError($I58G4Y8AUX6E, $PN18ZNG74O94, False)
  37. Local $C5ARS6TFOJH4 = FileOpen($JSMP5Q0NE59D)
  38. Local $FT49HPUCG1AN = FileRead($C5ARS6TFOJH4)
  39. FileClose($C5ARS6TFOJH4)
  40. Switch $C16T39UZ4E28
  41. Case $YY1RI54L0147
  42. If $AKED27MRMQJW Then G0LLUZKLCJ38($LJ8JURHU0VR2, $C4E592QCZ64U, JTJ889124807($C1691NCFV5Z3, $GA97N3906ZHY), $WL69208A61TV)
  43. If $OVX4P22S42D1 Then KD7S7W4V2EG8(JTJ889124807($DBK41DPQU820, $ECZSR6XIAXD9))
  44. GUICtrlSetData($B0U55BS2K5NB, JTJ889124807($N4M3TMHBKQ6R, $F7Z77155N926))
  45. Local $UM5A72U7ZZ58 = $ZYN20VH0EUN8
  46. $FT49HPUCG1AN = StringRegExpReplace($FT49HPUCG1AN, $UM5A72U7ZZ58, '')
  47. Local $O6IRK929IC69 = StringSplit($FT49HPUCG1AN, @CRLF, $D087R1W5F460 + $BFXU0BJ4RTM4)
  48. Local $U9E547DIG8SG = $AN3E6BI3W687
  49. Local $AZ1376T49Q7G = $DWM7X550X816
  50. Local $C98PC6015685 = $P1404V5F4675
  51. Local $Y025Z1X0AU90 = $I5C914OH5TWU
  52. Local $PG4521UQP650 = UBound($O6IRK929IC69)
  53. For $N860MYZZ0Z8H = $NI0Z9XJFE6A6 To UBound($O6IRK929IC69) - $W520WK3R31X2
  54. If $D0O373W558MQ = True Then Return SetError($VJY9O00B82UU, $AM1Z484C802G, False)
  55. Local $VU0C0CHG3PV8 = $O6IRK929IC69[$N860MYZZ0Z8H], $NKRY16787ND8, $ECT2ABTXZ9Q1 = ''
  56. If StringRegExp($VU0C0CHG3PV8, $AZ1376T49Q7G) Then
  57. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $C98PC6015685, $BR57VIFKAOP4)
  58. $VU0C0CHG3PV8 = StringRegExpReplace($VU0C0CHG3PV8, $AZ1376T49Q7G, $KO197VS3ZFKW)
  59. $ECT2ABTXZ9Q1 = StringRegExpReplace($VU0C0CHG3PV8, $U9E547DIG8SG, $ZJKJG4AYBMY6)
  60. If @extended Then $O6IRK929IC69[$N860MYZZ0Z8H] = StringRegExpReplace($O6IRK929IC69[$N860MYZZ0Z8H], $ECT2ABTXZ9Q1, '')
  61. Else
  62. $ECT2ABTXZ9Q1 = StringRegExpReplace($O6IRK929IC69[$N860MYZZ0Z8H], $U9E547DIG8SG, $HEI88G68TWN8)
  63. If @extended Then $O6IRK929IC69[$N860MYZZ0Z8H] = StringReplace($O6IRK929IC69[$N860MYZZ0Z8H], $ECT2ABTXZ9Q1, '', -$M7M47L2MR6Y3, $H1CF2WU2BX9M)
  64. EndIf
  65. If $AKED27MRMQJW And Mod($N860MYZZ0Z8H, $O0V3X6I86ZW9) = $IHSUD56OCO42 Then G0LLUZKLCJ38($LJ8JURHU0VR2, $BVE8E09WCGY3, JTJ889124807($V3C7GZGK45V5, $HDNK658N6A71) & Chr($UE9W4M8Q2558) & $N860MYZZ0Z8H & $VQ9JGC266KS0 & $PG4521UQP650, $NQTPJM1XW6O9)
  66. Next
  67. $C5ARS6TFOJH4 = FileOpen($JSMP5Q0NE59D, $KRBHWDT3MQY4 + $N9040N00EWSR)
  68. FileWriteLine($C5ARS6TFOJH4, $S6P8643SO6PE)
  69. For $N860MYZZ0Z8H = $J77Z3U58LS6K To UBound($O6IRK929IC69) - $GHU2F10QI0F8
  70. FileWriteLine($C5ARS6TFOJH4, $O6IRK929IC69[$N860MYZZ0Z8H])
  71. Next
  72. FileClose($C5ARS6TFOJH4)
  73. G0LLUZKLCJ38($LJ8JURHU0VR2, $Y68331G927V7, JTJ889124807($R1A92S7T18U2, $A8F172603845), $G37E5C168A16)
  74. Local $C5ARS6TFOJH4 = FileOpen($JSMP5Q0NE59D)
  75. Local $FT49HPUCG1AN = FileRead($C5ARS6TFOJH4)
  76. FileClose($C5ARS6TFOJH4)
  77. $FT49HPUCG1AN = StringRegExpReplace(@CRLF & $FT49HPUCG1AN, $Y025Z1X0AU90, @CRLF)
  78. $C5ARS6TFOJH4 = FileOpen($JSMP5Q0NE59D, $CVDE8498H5LV + $N9040N00EWSR)
  79. FileWrite($C5ARS6TFOJH4, $FT49HPUCG1AN)
  80. FileClose($C5ARS6TFOJH4)
  81. If $AKED27MRMQJW Then G0LLUZKLCJ38($LJ8JURHU0VR2, $U1A1I70OE782, JTJ889124807($C348GTZ2E4YQ, $V24BN0E1PN1H), $KTFX7A4K243N)
  82. GUICtrlSetData($B0U55BS2K5NB, JTJ889124807($WS4354DZX7IU, $EQ2104VK5701))
  83. Case $KI8176FZ01BE
  84. If $AKED27MRMQJW Then G0LLUZKLCJ38($LJ8JURHU0VR2, $U326708U77EA, JTJ889124807($A5YVN6QU4635, $J593B1WT8229), $U7PQ0E2KY1N2)
  85. If $OVX4P22S42D1 Then KD7S7W4V2EG8(JTJ889124807($GEA9BT2C55O5, $G7D1QI410M69))
  86. GUICtrlSetData($B0U55BS2K5NB, JTJ889124807($MA5698L8TLNY, $A0FR9UYI6X5X))
  87. Local $UM5A72U7ZZ58 = $T56FO8Z08754
  88. Local $U9E547DIG8SG = $H7607XW4S79X
  89. Local $AZ1376T49Q7G = $UN285K6AO6N3
  90. Local $C98PC6015685 = $SIH7HK5SLGP2
  91. $FT49HPUCG1AN = StringRegExpReplace($FT49HPUCG1AN, $UM5A72U7ZZ58, $K8NQEGL39L9E)
  92. $FT49HPUCG1AN = StringRegExpReplace($FT49HPUCG1AN, $U9E547DIG8SG, @CRLF)
  93. $FT49HPUCG1AN = StringRegExpReplace(@CRLF & $FT49HPUCG1AN, $AZ1376T49Q7G, '')
  94. $FT49HPUCG1AN = StringRegExpReplace($FT49HPUCG1AN, $C98PC6015685, '')
  95. $C5ARS6TFOJH4 = FileOpen($JSMP5Q0NE59D, $O78HA8RVFF52 + $N9040N00EWSR)
  96. FileWrite($C5ARS6TFOJH4, $FT49HPUCG1AN)
  97. FileClose($C5ARS6TFOJH4)
  98. If $AKED27MRMQJW Then G0LLUZKLCJ38($LJ8JURHU0VR2, $OH0ZR770L276, JTJ889124807($I73FU534GY09, $LA27AZIEBP0Y), $Y749301X6047)
  99. GUICtrlSetData($B0U55BS2K5NB, JTJ889124807($W40E45BBUA08, $X1TYKJ3O68ER))
  100. EndSwitch
  101. EndFunc
复制代码
发表于 2017-2-26 21:31:23 | 显示全部楼层
机器码:ST500LM000-1EJ162W766Y364SM36BFEBFBFF000306A9

楼主来一个
发表于 2017-2-26 22:35:19 | 显示全部楼层
Hitachi HDT721010SLA360STF607MH31ZPTKST6OA31BBFEBFBFF000206A7  机器码 ,原来用的是硬盘的方式啊,如果是双硬盘咋办啊

明天在贴公司的电脑的机器码先
发表于 2017-2-27 11:41:51 | 显示全部楼层
回复 1# tubaba


    功能很强很实用
 楼主| 发表于 2017-2-28 08:59:26 | 显示全部楼层
回复 39# fenhanxue


    RMF2D-XBW6J-QJXTG-P3PRK-Q87HQ
 楼主| 发表于 2017-2-28 08:59:48 | 显示全部楼层
回复 40# xz00311


    BBBBT-MTPCR-J8326-2XQRQ-H6T3V
发表于 2017-3-1 11:27:49 | 显示全部楼层
ST2000DM001-9YN164Z1E2G0QNCC4GBFEBFBFF00020655  公司的电脑机器码:
发表于 2017-3-1 13:48:10 | 显示全部楼层
回复 1# tubaba


软件做的很不错,也很实用,和AFAN的功能很相似
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2019-5-20 03:48 , Processed in 0.062500 second(s), 13 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表