将文件写入AU3，规避Fileinstall报毒

caodongchun · 发表于 2010-4-23 00:38:08

本帖最后由 caodongchun 于 2010-4-23 00:39 编辑

FileInstall 经常报毒！
需要安装文件时最好还是二进制现写
SQLite.dll.au3就是一个很好的例子！
那么存在一个问题：如何将二进制写入AU3，这里有一个实例

#include<array.au3>
Func _FileToAu3($sSoure, $sDest)
        $n = 0
        $sfile = FileOpen($sSoure, 16)
        $sbin = String(FileRead($sfile))
        Dim $sarray[1]
        While 1
                If StringLen($sbin) - 4082 * $n < 0 Then ExitLoop
                If $n = 0 Then

                        $sarray[0] = StringMid($sbin, 1, 4082)
                Else
                        _ArrayAdd($sarray, StringMid($sbin, 4082 * $n + 1, 4082))



                EndIf
                $n = $n + 1
        WEnd

        $sDFile = FileOpen($sDest, 2)
        FileWrite($sDFile, 'Func _Au3ToFile()' & @CRLF)
        FileWrite($sDFile, "local $bin" & @CRLF)
        For $x = 0 To UBound($sarray) - 1
                FileWrite($sDFile, "$bin &='" & $sarray[$x] & "'" & @CRLF)
        Next

        FileWrite($sDFile, '        Return Binary($bin)' & @CRLF)
        FileWrite($sDFile, 'EndFunc' & @CRLF)

EndFunc   ;==>_FileToAu3

上面是UDF，下面是应用：

#include"FileToAu3.au3"
_FileToAu3('C:\Program Files\WinRAR\rar.exe','rar.exe.au3')
#include"rar.exe.au3"
$bin = _Au3ToFile()
$file=FileOpen('rar.exe',18)
FileWrite($file,$bin)
FileClose($file)

l4ever · 发表于 2010-4-23 00:46:11

自己觉得没有对不起党就不管他吧.
误报太正常了
小红伞通杀所有au3的程序.

3mile · 发表于 2010-4-23 10:23:36

这个一定要支持一下。非常不错的思路

newuser · 发表于 2010-4-23 11:00:23

回复 1# caodongchun

收下 ,得回避,不然人家以为你是坏人?

menfan1 · 发表于 2010-4-23 12:14:20

看看效果怎么样

515889127 · 发表于 2010-4-23 13:56:45

怎么提示错误呀不明白

seeking · 发表于 2010-4-23 14:50:48

没看懂，先收下慢慢看

baboolc · 发表于 2010-4-28 11:48:04

好东西··学习下··

jikll · 发表于 2010-5-2 07:38:50

楼主你辛苦啊

hjg8102 · 发表于 2010-9-12 08:29:27

确实不错，BS二楼的。

hjg8102 · 发表于 2010-9-12 09:04:01

出错，

komaau3 · 发表于 2010-9-14 13:12:17

鼠标一抖，三分拿走...

6678720 · 发表于 2010-9-15 16:31:30

感谢楼主分享，偶试了下，会报错。。。

tianji028 · 发表于 2010-9-16 15:10:50

杀毒软件是个头疼的问题。。

shenrenba · 发表于 2010-9-16 17:25:59

本帖最后由 shenrenba 于 2010-9-16 17:27 编辑

回复 1# caodongchun

其实不需要这么麻烦

UDF不要

#include <rar.exe.au3>
FileWrite('rar.exe',_Au3ToFile())

		自动登录	找回密码
密码			加入

[原创] 将文件写入AU3，规避Fileinstall报毒

评分