自己补丁一下，应该不难

这个东西好像到处都没有看到好的办法能完美的破解，也就是能直接看到编译后程序的源代码，老大们有没有好的方法啊。用上面介绍的工具能行吗，可不可以详细一点，不好意思，刚学。

关于autoit的事情，因为我看不到邮件地址，请piaoxue184与我联系，QQ：124478942 E-mail：icesea79@21cn.com

把这帖子顶上去，希望有人能帮助分析。
总看到好多高人写的.au3脚本编译后的程序功能和创意都很好，总是想着要是能把他们的代码拿过来研究研究肯定收益非浅。

强人哦.

完全记录很容易。：）
这个东西致命的地方是先将命令全部提取然后再解释。
所以完整记录所有的语句十分容易。

粗略写了个3.X的反编译器。

这个东西好像到处都没有看到好的办法能完美的破解

最初由 tomtom 发布
这个东西好像到处都没有看到好的办法能完美的破解

你发个EXE我，我发你完整代码。
反编译工具正在调试，弄好了发上来。

lift to top
关注...

为了测试多个版本的兼容性，还是多提供几个不同版本的程序吧，

不知道哪位朋友可以 反编译AutoIt v3 程序的原代码，

附上下载地址

Aming的东西？

学习中，回家努力学习呀，太深奥了

Aming 怎么不见人了

晕，不知道在哪上传附件了。
包含的模块列表：
E:\friendfox2.0固定\修复错误但未分发.au3
D:\爸爸\friendfox超音速固定\main.au3
D:\爸爸\friendfox超音速固定\functionlib.au3
C:\Program Files\AutoIt3\Include\string.au3
C:\Program Files\AutoIt3\Include\Array.au3
发不了附件了，贴段注册的代码：
;Main programe begin
Func getuseregtype()
$var = IniReadSection($inipath, "支持作者")
If @error Then
Return 1  ;默认为固定IP方式
EndIf
$hasIP = 0
$hasLanIKE = 0
For $i = 1 To $var[0][0]
If StringInStr($var[$i][0], '外网IP') Then $hasIP = 1
If StringInStr($var[$i][0], 'Lanike') Then $hasLanIKE = 1
Next
If $hasIP + $hasLanIKE = 0 Then  ;均未设置
Return 1
EndIf
If $hasIP * $hasLanIKE = 1 Then
Return 1
EndIf
If $hasIP = 1 Then
Return 1
Else
Return 0
EndIf
EndFunc   ;==>getuseregtype
Func getike()
;11111111111111111111111111
$basepath = IniRead($inipath, "基本配置", "服务器路径基", "")
$ike = DriveGetSerial($basepath)
If $ike < 100 Then
Return '11111111111111111'
EndIf
$eme = Round(Random(100, 999))
$eme = $ike * $eme * 93 & $eme
Return $eme
EndFunc   ;==>getike
;;;;;;;;;;;;;;;;;;;;;;
;本机是否注册
;;;;;;;;;;;;;;;;;;;;;;;
Func IKEcheckreg($ts)
Local $regline
Local $my
Local $i = 1
Local $res = 0
$my = StringLower(@ComputerName)
If $ts <> '' Then $my = $ts
$my = StringLower($my)
$comp = IKEemestr($my)
;myerr($comp)
For $i = 1 To 100
$regline = IniRead($inipath, "支持作者", "key" & $i, "")
If $regline = '' Then ExitLoop
If StringInStr($regline, $comp) > 0 Then
$res = 1
EndIf
If $res = 1 Then ExitLoop
Next
If $comp = 0 Then $res = 0
$basepath = IniRead($inipath, "基本配置", "服务器路径基", "")
$res3 = IniRead($inipath, "支持作者", "lanike", "")
$R3 = StringMid($res3, StringLen($res3) - 2, 3)
$res3 = StringMid($res3, 1, StringLen($res3) - 3)
$ikereal = $res3 / 93 / $R3
;98客户机上如果取不下共享盘序列号，则直接返回机器名验证结果
If StringUpper(@OSTYPE) = 'WIN32_WINDOWS' Then
Return $res
EndIf
If $ikereal = DriveGetSerial($basepath) And $res = 1 Then
Return 1
Else
Return 0
EndIf
EndFunc   ;==>IKEcheckreg
Func IKEemestr($ss)
Local $s3 = ''
Local $s = ''
Local $sum = 1
$ss = StringLower($ss)
For $i = 1 To StringLen($ss)
$sum = $sum + $sum * Asc(StringMid($ss, $i, 1)) * $i * 3
Next
$sum = Mod($sum * 7229562, 6181568)
$sum = Mod($sum * IKEgateway(), 91681765)
Return $sum
EndFunc   ;==>IKEemestr
Func IKEgateway()
$s = IniRead($inipath, "支持作者", "lanike", "11111111111111111")
While StringInStr($s, '.')
$s = StringReplace($s, '.', '')
WEnd
$sum = 0
For $i = 1 To StringLen($s)
$sum = $sum + Mod(StringMid($s, $i, 1) * 765678, 11237003)
Next
;myerr('1111111111111' & $sum)
$s = IniRead($inipath, "支持作者", "lanike", "")
While StringInStr($s, '.')
$s = StringReplace($s, '.', '')
WEnd
For $i = 1 To StringLen($s)
$sum = $sum + Mod(StringMid($s, $i, 1) * 765678, 11237003)
Next
Return $sum
EndFunc   ;==>IKEgateway
Func _StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)
If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
Return ''
SetError(1)
ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
Return ''
SetError(1)
Else
If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then Local $i_EncryptLevel = 1
Local $v_EncryptModified
Local $i_EncryptCountH
Local $i_EncryptCountG
Local $v_EncryptSwap
Local $av_EncryptBox[256][2]
Local $i_EncryptCountA
Local $i_EncryptCountB
Local $i_EncryptCountC
Local $i_EncryptCountD
Local $i_EncryptCountE
Local $i_EncryptCountF
Local $v_EncryptCipher
Local $v_EncryptCipherBy
If $i_Encrypt = 1 Then
Local $i_EncryptCountC = 0
For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
$i_EncryptCountG = ''
$i_EncryptCountH = ''
$v_EncryptModified = ''
For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
$i_EncryptCountH = 1
Else
$i_EncryptCountH = $i_EncryptCountH + 1
EndIf
$v_EncryptModified = $v_EncryptModified & Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
Next
$s_EncryptText = $v_EncryptModified
$i_EncryptCountA = ''
$i_EncryptCountB = 0
$i_EncryptCountC = ''
$i_EncryptCountD = ''
$i_EncryptCountE = ''
$v_EncryptCipherBy = ''
$v_EncryptCipher = ''
$v_EncryptSwap = ''
$av_EncryptBox = ''
Local $av_EncryptBox[256][2]
For $i_EncryptCountA = 0 To 255
$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
Next
For $i_EncryptCountA = 0 To 255
$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
Next
For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256) ][0]
$v_EncryptCipherBy = BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
$v_EncryptCipher = $v_EncryptCipher & Hex($v_EncryptCipherBy, 2)
Next
$s_EncryptText = $v_EncryptCipher
Next
Else
For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
$i_EncryptCountB = 0
$i_EncryptCountC = ''
$i_EncryptCountD = ''
$i_EncryptCountE = ''
$v_EncryptCipherBy = ''
$v_EncryptCipher = ''
$v_EncryptSwap = ''
$av_EncryptBox = ''
Local $av_EncryptBox[256][2]
For $i_EncryptCountA = 0 To 255
$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
Next
For $i_EncryptCountA = 0 To 255
$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
Next
For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2
$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256) ][0]
$v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)
$v_EncryptCipher = $v_EncryptCipher & Chr($v_EncryptCipherBy)
Next
$s_EncryptText = $v_EncryptCipher
$i_EncryptCountG = ''
$i_EncryptCountH = ''
$v_EncryptModified = ''
For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
$i_EncryptCountH = 1
Else
$i_EncryptCountH = $i_EncryptCountH + 1
EndIf
$v_EncryptModified = $v_EncryptModified & Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
Next
$s_EncryptText = $v_EncryptModified
Next
EndIf
Return $s_EncryptText
EndIf
EndFunc   ;==>_StringEncrypt
Func GetREGEDITstatus()
$status = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
If $status = 1 Then
Return 1
Else
Return 0
EndIf
EndFunc   ;==>GetREGEDITstatus
Func ModiREGEDIT($status)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", $status)
EndFunc   ;==>ModiREGEDIT
Func doloop()
While 1
;myerr('doloop')
WEnd
Return
EndFunc   ;==>doloop
Func isro($ts)
Local $regline
Local $my
Local $i = 1
Local $res = 0
$my = StringLower(@ComputerName)
;if dispinfo()>0 then ToolTip("FriendFOX-伙狐V2.0F.超音实时版  等待系统稳定... " , 0, 0)
If $ts <> '' Then $my = $ts
$my = StringLower($my)
$comp = emestr($my)
For $i = 1 To 100
$regline = IniRead($inipath, "支持作者", "key" & $i, "")
If $regline = '' Then ExitLoop
If StringInStr($regline, $comp) > 0 Then
$res = 1
EndIf
If $res = 1 Then ExitLoop
Next
Return $res
$res2 = 0
$gateway = IniRead($inipath, "支持作者", "外网网关", "")
$ip = IniRead($inipath, "支持作者", "外网IP", "")
;0309多网关，多IP支持
;$varGW = Ping($gateway,1000)
;$varIP = Ping($IP,1000)
$varGw = 0
$varIP = 0
For $i = 1 To 255
$aGW = Getsub($gateway, $i)
If $aGW = '' Then
ExitLoop
EndIf
$varGw = Ping($aGW, 255)
If $varGw > 0 Then
ExitLoop
EndIf
Next
For $i = 1 To 255
$aIP = Getsub($ip, $i)
If $aIP = '' Then
ExitLoop
EndIf
$varIP = Ping($aIP, 255)
If $varIP > 0 Then
ExitLoop
EndIf
Next
;MsgBox(4096,'',$vargw & '   ' & $varIP)
$res2 = $varGw * $varIP
SplashOff()
Return $res2 * $res
EndFunc   ;==>isro
Func Iisro($ts)
Local $regline
Local $my
Local $i = 1
Local $res = 0
$my = StringLower(@ComputerName)
If $ts <> '' Then $my = $ts
$my = StringLower($my)
$comp = IKEemestr($my)
;myerr($comp)
For $i = 1 To 100
$regline = IniRead($inipath, "支持作者", "key" & $i, "")
If $regline = '' Then ExitLoop
If StringInStr($regline, $comp) > 0 Then
$res = 1
EndIf
If $res = 1 Then ExitLoop
Next
If $comp = 0 Then $res = 0
$basepath = IniRead($inipath, "基本配置", "服务器路径基", "")
$res3 = IniRead($inipath, "支持作者", "lanike", "")
$R3 = StringMid($res3, StringLen($res3) - 2, 3)
$res3 = StringMid($res3, 1, StringLen($res3) - 3)
$ikereal = $res3 / 93 / $R3
;98客户机上如果取不下共享盘序列号，则直接返回机器名验证结果
If StringUpper(@OSTYPE) = 'WIN32_WINDOWS' Then
Return $res
EndIf
If $ikereal = DriveGetSerial($basepath) And $res = 1 Then
Return 1
Else
Return 0
EndIf
EndFunc   ;==>Iisro

本要学习用的au3代码，结果变注册的咚咚了，不过还是要谢谢老大的精神，如果大大的工具提供下会更好。

如果不愿意发工具，就再提供一次原码吧，先行谢过。

下载地址

没地方发就发我邮箱吧

newfengye@126.com

Aming兄，很感谢你对auit3所做的努力。
我一直不能反译出中文来。用你发的那个工具根本就不能工作~
我的qq是55699400，请指教~