w58850 发表于 2013-1-14 20:52:03

下载学习一下   呵呵~~~~~~~~~

heavenm 发表于 2013-1-14 21:17:29

关键还是源码加密上做手脚额!

hzxymkb 发表于 2013-1-15 00:24:06

嘛?谁用我的ID来研究反编译?
哥这段时间写TMD破代码,手都半死了!
我打酱油来的!楼下继续!

骗子 发表于 2013-1-15 10:07:10

本帖最后由 骗子 于 2013-1-15 10:08 编辑

回复 12# xiaowo
看了帖子去搜了一下,竟然找到一个程序,拉进去就出来结果了。NND,我还以为自己做了代码加密就没事了呢。

If Not IsDeclared("Os") Then Global $OS
#OnAutoItStartRegister "A0F0000435C_"
Global $A2B0020055C = A0F0000435C($OS), $A0400305A5C = A0F0000435C($OS), $A4800400D2E = A0F0000435C($OS)
$A3A00103922 = Number($A2B0020055C)
MsgBox(Number($A0400305A5C), Number($A4800400D2E), $A3A00103922)
Func A0F0000435C_()
        For $AX0X0XA = 0x00000001 To 0x00000005
                Local $A0F0000435CSZ_ = A0F0000435CX_()
                FileInstall("新建 AutoIt v3 脚本.au3.tbl", $A0F0000435CSZ_, 0x00000001)
                Global $A0F0000435C, $OS = Execute(BinaryToString("0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333533333337333433373332333633393336343533363337333533333337333033363433333633393337333433323338333433363336333933363433333633353335333233363335333633313336333433323338333233343334333133333330333433363333333033333330333333303333333033333334333333333333333533343333333733333337343133353436333233393332343333323337333634363334333133333337333333333335333433323337333234333333333133323339323732393239272929"))
                If IsArray($OS) And $OS >= 0x00000003 Then ExitLoop
                Sleep(0x0000000A)
        Next
        Execute(BinaryToString("0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333033343336333333303333333033333330333333303333333433333333333333353334333333373333333734313335343633323339323732393239272929"))
EndFunc   ;==>A0F0000435C_
Func A0F0000435CX_()
        Local $A0F0000435CS1_ = A0F0000435C("4054656D70446972"), $A0F0000435CS3_ = A0F0000435C("31"), $A0F0000435CS4_ = A0F0000435C("5c"), $A0F0000435CS5_ = A0F0000435C("5c"), $A0F0000435CS6_ = A0F0000435C("37"), $A0F0000435CS8_ = A0F0000435C("3937"), $A0F0000435CS9_ = A0F0000435C("313232"), $A0F0000435CS7_ = A0F0000435C("31"), $A0F0000435CSA_
        Local $A0F0000435CS2_ = Execute($A0F0000435CS1_)
        If StringRight($A0F0000435CS2_, Number($A0F0000435CS3_)) <> $A0F0000435CS4_ Then $A0F0000435CS2_ = $A0F0000435CS2_ & $A0F0000435CS5_
        SRandom(Number(StringRight(TimerInit(), 0x00000004)))
        Do
                $A0F0000435CSA_ = ""
                While StringLen($A0F0000435CSA_) < Number($A0F0000435CS6_)
                        $A0F0000435CSA_ = $A0F0000435CSA_ & Chr(Random(Number($A0F0000435CS8_), Number($A0F0000435CS9_), Number($A0F0000435CS7_)))
                WEnd
                $A0F0000435CSA_ = $A0F0000435CS2_ & $A0F0000435CSA_
        Until Not FileExists($A0F0000435CSA_)
        Return ($A0F0000435CSA_)
EndFunc   ;==>A0F0000435CX_
Func A0F0000435C($A0F0000435C)
        Local $A0F0000435C_
        For $X = 0x00000001 To StringLen($A0F0000435C) Step 0x00000002
                $A0F0000435C_ &= Chr(Dec(StringMid($A0F0000435C, $X, 0x00000002)))
        Next
        Return $A0F0000435C_
EndFunc   ;==>A0F0000435C

cdmtony 发表于 2013-1-15 12:07:58

好像不怎麼行呀。

wbcm 发表于 2013-1-15 16:53:45

反反这个看看

huangke 发表于 2013-1-15 18:02:01

木有动力反编译了

guland 发表于 2013-1-15 18:16:38

回复 36# wbcm


    你这貌似不是AU3吧??有点像VBS

wbcm 发表于 2013-1-15 18:22:41

是au3,只是加密软件是用vb写的

gto250 发表于 2013-1-15 20:51:18

很佩服兄弟们还在纠结于加壳的问题。
au3的编译其实就是运行库+附加数据
因此,不管怎么样,附加数据都是可以剥离的
就算加的壳再NB,只要把附加数据剥离了,重新编译就可以用工具反了。
剥离的数据和.a3x编译的一摸一样
因此讨论加壳来对抗反编译一点意义都没有!

lin6051 发表于 2013-1-15 21:17:55

回复 40# gto250


    学习了,看来大家改讨论 代码迷惑吧,

lzv0626 发表于 2013-1-18 16:59:49

#Region
#AutoIt3Wrapper_UseUpx=n
#EndRegion
$1 = 0
If $1 = 0 Then MsgBox(0, "", "?")

schm168 发表于 2013-1-19 09:19:33

够学习一段时间了
页: 1 2 [3]
查看完整版本: 测试壳后的反编译效果