关于文件注入程序本身的问题

austere · 发表于 2014-8-28 00:50:41

http://www.autoitx.com/forum.php ... p;highlight=binfile
原作者帖子的地址，但是用现在的3.3.11.3测试失败，大神们肯定有解决方法，求解决~
三克油！~~

header · 发表于 2014-8-28 08:16:34

个人感觉文件注入用fileinstall就好

austere · 发表于 2014-8-28 12:08:39

回复 2# header

fileinstall 这也就是一个解压缩，不够强大~ 我如果要单文件呢？我要修改编译后的文件呢？

tubaba · 发表于 2014-9-2 12:03:01

本帖最后由 tubaba 于 2014-9-2 12:08 编辑

学习了一下,那个UDF的核心思想是在au3程序后面附加一段数据,在结尾写入0xFFFF0008标志,在这个标志的前四个字节再标明附加段的起始地址,然后再经过一系列反向处理,就得到之前写入的数据了

可以用他的_HexWrite()和_HexRead()自己写一个的,不过我觉得用处不大,修改自身一般是杀软的重点砍除对象,

tubaba · 发表于 2014-9-2 12:05:49

他那个的自身复制也不太好用,很容易失败
我觉得这样比较好些
Func _Selfcopy($iDelay = 0)
Local $szDrive, $szDir, $szFName, $szExt
Local $atempPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
Local $sCmdFile
Local $file = FileOpen(@TempDir & "\scratch.bat", 2 + 8)
$sCmdFile = ':loop1' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'del /q "' & @ScriptFullPath & '"' & @CRLF _
   & 'set /a num+=1' & @CRLF _
   & 'if %num% gtr 10 (goto loop2)' & @CRLF _
   & 'if exist "' & @ScriptFullPath & '" goto loop1' & @CRLF _
   & 'goto loop3' & @CRLF _
   & ':loop2' & @CRLF _
   & 'set num=0' & @CRLF _
   & 'taskkill /f /im "' & $atempPath[3] & $atempPath[4] & '"' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if exist "' & @ScriptFullPath & '" goto loop1' & @CRLF _
   & ':loop3' & @CRLF _
   & 'copy /y "' & $BackupFilePath & '" "' & @ScriptFullPath & '"' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if not exist "' & @ScriptFullPath & '" goto loop3' & @CRLF _
   & 'del /q "' & $BackupFilePath & '"' & @CRLF _
   & 'start "" "' & @ScriptFullPath & '"' & @CRLF _
   & ':loop4' & @CRLF _
   & 'del /q %0' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if exist "' & @TempDir & '\scratch.bat" goto loop4' & @CRLF _
   & 'exit'
FileWrite($file, $sCmdFile)
FileClose($file)
ShellExecute(@TempDir & "\scratch.bat", '', @SystemDir, 'open', @SW_HIDE)
Exit
EndFunc ;==>_Selfcopy

lin6051 · 发表于 2014-9-2 18:06:50

修改文件本身?

kingfirekkk · 发表于 2014-9-3 00:53:49

回复 6# tubaba

批处理用得很赞。。。

austere · 发表于 2014-9-6 11:04:52

回复 6# tubaba

高手啊，你能出个完整版吗？服务大众啊~~ 三克油~

tubaba · 发表于 2014-9-8 10:58:21

本帖最后由 tubaba 于 2014-9-9 09:54 编辑

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include-once
#include<array.au3>
#include <WinAPI.au3>
#include <File.au3>
Global $aArrayDirList[1][1], $aArrayint[1][1], $BackupFilePath, $ChangeFlag = False
_Initialization()
Global $endoffset = _ReadFileInfo($BackupFilePath)
;~ _Tablecreate($aArrayDirList,$Dir)
;~ _ArrayDisplay($aArrayDirList)
;~ _WriteTable($aArrayDirList)

;~ Local $res = _ReadIncludeini(_ReadHexData('\Config.ini'), 'Data', 'ExePath', '无')
;~ SourceFileRestore()

Func _Initialization()
Local $szDrive, $szDir, $szFName, $szExt
Local $atempPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)

$BackupFilePath = @TempDir & "\" & $atempPath[3] & $atempPath[4] & "-binbackup"
OnAutoItExitRegister("_OnAutoItExit")
If @Compiled Then
FileDelete($BackupFilePath)
FileCopy(@ScriptFullPath, $BackupFilePath, 1 + 8)
Else
MsgBox(0, "", "请编译后再运行")
EndIf
EndFunc ;==>_Initialization

Func _ReadFileInfo($BackupFilePath)
Local $val
Local $CurrentFileSize = FileGetSize($BackupFilePath)
$end = _HexRead($BackupFilePath, $CurrentFileSize - 4, 4)
If $end == "0xFFFF0008" Then
$tableOffset = Dec(Hex(_HexRead($BackupFilePath, $CurrentFileSize - 8, 4))) - 4
If _HexRead($BackupFilePath, $tableOffset + 4, 4) <> '0xFFFF0008' Then
$val = FileGetSize($BackupFilePath)
Return SetError(0, 1, $val)
Else
$val = $tableOffset
Return SetError(0, 2, $val)
EndIf
Else
$val = FileGetSize($BackupFilePath)
Return SetError(0, 1, $val)
EndIf
EndFunc ;==>_ReadFileInfo

Func _FileListToArrayEX(ByRef $aArray, $searchdir = @ScriptDir, $sFilter = '.*?', $iFlag = 0, $b_subdir = True, $s_ex = '')
Local $Dir = $searchdir
___FileList($aArray, $searchdir, $sFilter, $iFlag, $b_subdir, $s_ex, $Dir)
ReDim $aArray[$aArray[0][0] + 1][UBound($aArray, 2) + 1]
EndFunc ;==>_FileListToArrayEX

Func ___FileList(ByRef $aArray, $searchdir, $sFilter, $iFlag, $b_subdir, $s_ex, $Dir)
Local $iStep = 40000
If $aArray[0][0] = '' Then $aArray[0][0] = 0
Local $file
$search = FileFindFirstFile($searchdir & "\*.*")
If $search = -1 Then Return -1
While 1
$file = FileFindNextFile($search)
If @error Then
FileClose($search)
Return
ElseIf $file = "." Or $file = ".." Then
ContinueLoop
ElseIf StringInStr(FileGetAttrib($searchdir & "\" & $file), "D") Then
If ($iFlag = 2 Or $iFlag = 0) And StringRegExp($file, $sFilter, 0) = 1 Then
If $s_ex <> '' And StringRegExp($file, $s_ex, 0) Then ContinueLoop
If UBound($aArray, 1) <= $aArray[0][0] + 1 Then ReDim $aArray[UBound($aArray, 1) + $iStep][4]
$aArray[$aArray[0][0] + 1][0] = StringReplace($searchdir & "\" & $file, $Dir, '')
$aArray[$aArray[0][0] + 1][1] = $searchdir & "\" & $file
$aArray[$aArray[0][0] + 1][2] = 'D'
$aArray[0][0] += 1
EndIf
If $b_subdir Then ___FileList($aArray, $searchdir & "\" & $file, $sFilter, $iFlag, $b_subdir, $s_ex, $Dir)
ContinueLoop
EndIf
If StringRegExp($file, $sFilter, 0) = 1 And $iFlag <> 2 Then;正则匹配
If $s_ex <> '' And StringRegExp($file, $s_ex, 0) Then ContinueLoop
If UBound($aArray, 1) <= $aArray[0][0] + 1 Then ReDim $aArray[UBound($aArray, 1) + $iStep][4]
$aArray[$aArray[0][0] + 1][0] = StringReplace($searchdir & "\" & $file, $Dir, '')
$aArray[$aArray[0][0] + 1][1] = $searchdir & "\" & $file
$aArray[$aArray[0][0] + 1][2] = 'F'
$aArray[$aArray[0][0] + 1][3] = FileGetSize($searchdir & "\" & $file)
$aArray[0][0] += 1
EndIf
WEnd
EndFunc ;==>___FileList

Func _Tablecreate(ByRef $aArray, $Dir)
_FileListToArrayEX($aArray, $Dir)
Local $val = 4
For $i = 1 To UBound($aArray) - 1
If $aArray[$i][2] == 'F' Then
$val += $aArray[$i][3]
$aArray[$i][4] = $val
EndIf
Next
For $i = UBound($aArray) - 1 To 1 Step -1
If $aArray[$i][4] <> '' Then
$n = $i
Do
$n -= 1
If $n = 0 Then ExitLoop
Until $aArray[$n][4] <> ''
$aArray[$i][4] = $aArray[$n][4]
EndIf
Next
EndFunc ;==>_Tablecreate

Func _UnpackFile()
Local $tablestartoffset = $endoffset
Local $tablelen = Dec(Hex(_HexRead($BackupFilePath, $tablestartoffset + 8, 4)))
$tableendoffset = Dec(Hex(_HexRead($BackupFilePath, $tablestartoffset + 12, 4)))
Local $HexDataStartOffset = $tableendoffset + 4 + 1
Local $sBinString = _HexRead($BackupFilePath, $tablestartoffset + 16, $tablelen)
Local $sString = BinaryToString($sBinString)
Local $filetable = StringSplit($sString, '|')
Local $fileinfo, $filepath, $filetype, $filesize, $fileoffset
Local $exeunpackpath = @TempDir & '\exeunpack'
For $i = 1 To UBound($filetable) - 1
$fileinfo = StringSplit($filetable[$i], ':')
;~ $filepath = StringRegExpReplace($fileinfo[1], '(.*)\\', '')
$filepath = $exeunpackpath & $fileinfo[1]
$filetype = $fileinfo[2]
$filesize = $fileinfo[3]
$fileoffset = Number($fileinfo[4])
If $filetype == 'F' Then
Local $HexData = _HexRead($BackupFilePath, $HexDataStartOffset + $fileoffset, $filesize)
Local $hdle = FileOpen($filepath, 2 + 8 + 16)
FileWrite($hdle, $HexData)
FileClose($hdle)
;~ FileWrite('log.log', $filepath & ' ' & Hex(Dec($HexDataStartOffset) + $fileoffset) & @CRLF)
Else

EndIf
Next
EndFunc ;==>_UnpackFile

Func _ReadHexData($BackupFilePath, $path) ;~以/开头的相对路径
Local $HexData
Local $tablestartoffset = $endoffset
Local $tablelen = Dec(Hex(_HexRead($BackupFilePath, $tablestartoffset + 8, 4)))
$tableendoffset = Dec(Hex(_HexRead($BackupFilePath, $tablestartoffset + 12, 4)))
Local $HexDataStartOffset = $tableendoffset + 4 + 1
Local $sBinString = _HexRead($BackupFilePath, $tablestartoffset + 16, $tablelen)
Local $sString = BinaryToString($sBinString)
Local $filetable = StringSplit($sString, '|')
Local $fileinfo, $filepath, $filetype, $filesize, $fileoffset
For $i = 1 To UBound($filetable) - 1
$fileinfo = StringSplit($filetable[$i], ':')
$filepath = $fileinfo[1]
If $filepath <> $path Then ContinueLoop
$filetype = $fileinfo[2]
$filesize = $fileinfo[3]
$fileoffset = Number($fileinfo[4])

If $filetype == 'F' Then
$HexData = _HexRead($BackupFilePath, $HexDataStartOffset + $fileoffset, $filesize)
EndIf
Next
Return SetError(0, 0, $HexData)
EndFunc ;==>_ReadHexData

Func _ReadIncludeini($HexData, $section, $Key, $Default)
Local $str = BinaryToString($HexData)
Local $s_Sec = _IncludeIniReadSection_str($str, $Section, 0)
If @error = 1 Then Return SetError(1, 0, $default)
If @error = 2 Then Return SetError(3, 0, $default)
Local $_key = StringRegExpReplace($key, '^\h*|\h*$', '')
Local $aVal = StringRegExp(@LF & $s_Sec & @LF, '(?i)\n\h*\Q' & $_key & '\E\h*\=\h*(\V*?)\h*\v', 1)
If @error Then Return SetError(2, 0, $default)
Return $aVal[0]
EndFunc ;==>_ReadIncludeini

Func _WriteTable($aArray)
Local $sString, $sStringBinLen
For $i = 1 To UBound($aArray) - 1
$sString &= $aArray[$i][0] & ':' & $aArray[$i][2] & ':' & $aArray[$i][3] & ':' & $aArray[$i][4] & '|'
Next
$sString = StringTrimRight($sString, 1) ;第一个文件相对路径:文件(文件夹):文件大小|第二个文件相对路径:文件(文件夹):文件大小......
$sStringBinLen = BinaryLen(StringToBinary($sString))
Local $tablestartoffset = $endoffset
_HexWrite($BackupFilePath, $tablestartoffset, 0)
_HexWrite($BackupFilePath, $tablestartoffset + 4, 0x0800FFFF)
_HexWrite($BackupFilePath, $tablestartoffset + 8, "0x" & Hex(Number($sStringBinLen), 8))
_HexWrite($BackupFilePath, $tablestartoffset + 12, "0x" & Hex(Number($tablestartoffset + 16 + $sStringBinLen - 1), 8))
_HexWrite($BackupFilePath, $tablestartoffset + 16, StringToBinary($sString))
Local $HexDataStartOffset = $tablestartoffset + 16 + $sStringBinLen
_HexWrite($BackupFilePath, $HexDataStartOffset, 0)
$HexDataOffset = $HexDataStartOffset + 4
For $i = 1 To UBound($aArray) - 1
If $aArray[$i][2] == 'F' Then
_HexWrite($BackupFilePath, $HexDataOffset + $aArray[$i][4], "0x" & Hex(_HexRead($aArray[$i][1], 0, $aArray[$i][3])))
EndIf
Next
_HexWrite($BackupFilePath, FileGetSize($BackupFilePath), 0)
_HexWrite($BackupFilePath, FileGetSize($BackupFilePath), '0x' & Hex($tablestartoffset + 4, 8))
_HexWrite($BackupFilePath, FileGetSize($BackupFilePath), 0x0800FFFF)
$ChangeFlag = True
EndFunc ;==>_WriteTable

Func _HexWrite($tagBinFilePath, $Offset, $BinaryValue)
Local $Buffer, $ptr, $bLen, $fLen, $hFile, $Result, $Written
$bLen = BinaryLen($BinaryValue)
$Buffer = DllStructCreate("byte[" & $bLen & "]")
DllStructSetData($Buffer, 1, $BinaryValue)
If @error Then Return SetError(5, @error, 0)
$ptr = DllStructGetPtr($Buffer)
$hFile = _WinAPI_CreateFile($tagBinFilePath, 3, 4, 0)
If $hFile = 0 Then Return SetError(6, @error, 0)
$Result = _WinAPI_SetFilePointer($hFile, $Offset)
$err = @error
If $Result = 0xFFFFFFFF Then
_WinAPI_CloseHandle($hFile)
Return SetError(7, $err, 0)
EndIf
$Result = _WinAPI_WriteFile($hFile, $ptr, $bLen, $Written)
$err = @error
_WinAPI_CloseHandle($hFile)
If Not $Result Then Return SetError(8, $err, 0)
Return SetError(0, 0, $Result)
EndFunc ;==>_HexWrite

Func _HexRead($tagBinFilePath, $Offset, $Length)
Local $Buffer, $ptr, $fLen, $hFile, $Result, $Read, $err, $Pos

If Not FileExists($tagBinFilePath) Then Return SetError(1, @error, 0)
$fLen = FileGetSize($tagBinFilePath)
If $Offset > $fLen Then Return SetError(2, @error, 0)
If $fLen < $Offset + $Length Then Return SetError(3, @error, 0)
$Buffer = DllStructCreate("byte[" & $Length & "]")
$ptr = DllStructGetPtr($Buffer)
$hFile = _WinAPI_CreateFile($tagBinFilePath, 2, 2, 0)
If $hFile = 0 Then Return SetError(5, @error, 0)
$Pos = $Offset
$Result = _WinAPI_SetFilePointer($hFile, $Pos)
$err = @error
If $Result = 0xFFFFFFFF Then
_WinAPI_CloseHandle($hFile)
Return SetError(6, $err, 0)
EndIf
$Read = 0
$Result = _WinAPI_ReadFile($hFile, $ptr, $Length, $Read)
$err = @error
If Not $Result Then
_WinAPI_CloseHandle($hFile)
Return SetError(7, $err, 0)
EndIf
_WinAPI_CloseHandle($hFile)
If Not $Result Then Return SetError(8, @error, 0)
$Result = DllStructGetData($Buffer, 1)
Return SetError(0, 0, $Result)
EndFunc ;==>_HexRead

Func SourceFileRestore($BackupFilePath)
$CurrentFileSize = FileGetSize($BackupFilePath)
$end = _HexRead($BackupFilePath, FileGetSize($BackupFilePath) - 4, 4)
If $end <> "0xFFFF0008" Then Return SetError(1, 0, 1)
$tableOffset = Dec(Hex(_HexRead($BackupFilePath, FileGetSize($BackupFilePath) - 8, 4))) - 4
If _HexRead($BackupFilePath, $tableOffset + 4, 4) <> '0xFFFF0008' Then Return SetError(2, 0, 2)
$HexData = _HexRead($BackupFilePath, 0, $tableOffset)
Local $hdle = FileOpen($BackupFilePath, 2 + 8 + 16)
FileWrite($hdle, $HexData)
FileClose($hdle)
Return SetError(0,0,0)
EndFunc ;==>SourceFileRestore

Func _IncludeIniReadSection_str($Data, $Section, $mode = 0, $nFlag = 0)
Local $_Section = StringRegExpReplace($Section, '^\h*|\h*$', '')
Local $s_Sec = StringRegExp($Data, '(?si)(?:^|\n)\h*\[\h*\Q' & $_Section & '\E\h*\](.+?)(?=\r?\n\h*\[|$)', 3)
If @error Then Return SetError(1, 0, 0)
$line_all = $s_Sec[0]
If $nFlag Then
For $i = 1 To UBound($s_Sec) - 1
$line_all &= $s_Sec[$i]
Next
EndIf
If Not StringRegExp($line_all, '\V') Then Return SetError(2, 0, 0)
Return $line_all
EndFunc ;==>_IncludeIniReadSection_str

Func _OnAutoItExit()
If @Compiled And $ChangeFlag Then
_Selfcopy(2)
Else
FileDelete($BackupFilePath)
EndIf
If IsDeclared('Unpack') Then DirRemove(Eval('Unpack'), 1)
If IsDeclared('fShe') Then FileDelete(Eval('fShe'))
Exit
EndFunc ;==>_OnAutoItExit

;~ Func _Selfcopy($iDelay = 0)
;~ Local $sCmdFile
;~ $sCmdFile = 'ping -n ' & $iDelay & ' 127.0.0.1 > nul &' & _
;~ 'copy /y "' & $BackupFilePath & '" "' & @ScriptFullPath & '" > nul&' & _
;~ 'del "' & $BackupFilePath & '" > nul&call "' & @ScriptFullPath & '"'
;~ Run(@ComSpec & ' /c ' & $sCmdFile, @ScriptDir, @SW_HIDE)
;~ EndFunc ;==>_Selfcopy

Func _Selfcopy($iDelay = 0)
Local $szDrive, $szDir, $szFName, $szExt
Local $atempPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
Local $sCmdFile
Local $file = FileOpen(@TempDir & "\scratch.bat", 2 + 8)
$sCmdFile = ':loop1' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'del /q "' & @ScriptFullPath & '"' & @CRLF _
   & 'set /a num+=1' & @CRLF _
   & 'if %num% gtr 10 (goto loop2)' & @CRLF _
   & 'if exist "' & @ScriptFullPath & '" goto loop1' & @CRLF _
   & 'goto loop3' & @CRLF _
   & ':loop2' & @CRLF _
   & 'set num=0' & @CRLF _
   & 'taskkill /f /im "' & $atempPath[3] & $atempPath[4] & '"' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if exist "' & @ScriptFullPath & '" goto loop1' & @CRLF _
   & ':loop3' & @CRLF _
   & 'copy /y "' & $BackupFilePath & '" "' & @ScriptFullPath & '"' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if not exist "' & @ScriptFullPath & '" goto loop3' & @CRLF _
   & 'del /q "' & $BackupFilePath & '"' & @CRLF _
   & 'start "" "' & @ScriptFullPath & '"' & @CRLF _
   & ':loop4' & @CRLF _
   & 'del /q %0' & @CRLF _
   & 'ping -n ' & $iDelay & ' 127.0.0.1 > nul' & @CRLF _
   & 'if exist "' & @TempDir & '\scratch.bat" goto loop4' & @CRLF _
   & 'exit'
FileWrite($file, $sCmdFile)
FileClose($file)
ShellExecute(@TempDir & "\scratch.bat", '', @SystemDir, 'open', @SW_HIDE)
Exit
EndFunc ;==>_Selfcopy

austere · 发表于 2014-9-8 14:20:59

回复 10# tubaba
不行啊，运行报错~

>运行 AU3Check (3.3.11.3)  开始目录:D:\autoit3
"D:\Desk\Desktop\INI注入自身的例子.au3"(174,61) : error: 表达式错误 (非法字符)
        Local $_key = StringRegExpReplace($key, '^\h*|\h*, ''
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"D:\Desk\Desktop\INI注入自身的例子.au3"(174,62) : error: StringRegExpReplace() [内置] 调用参数的数量错误.
        Local $_key = StringRegExpReplace($key, '^\h*|\h*, '')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"D:\Desk\Desktop\INI注入自身的例子.au3"(274,69) : error: 表达式错误 (非法字符)
        Local $_Section = StringRegExpReplace($Section, '^\h*|\h*, ''
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"D:\Desk\Desktop\INI注入自身的例子.au3"(274,70) : error: StringRegExpReplace() [内置] 调用参数的数量错误.
        Local $_Section = StringRegExpReplace($Section, '^\h*|\h*, '')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Desk\Desktop\INI注入自身的例子.au3 - 4 错误, 0 警告
rtoffset + 16, StringToBinary($sStr!>14:22:08 AU3Check 完成:[CODE]:2

fybhwsx · 发表于 2014-9-8 20:30:33

关注中，希望看到简单实用，好学习的代码。。。

tubaba · 发表于 2014-9-9 09:55:24

本帖最后由 tubaba 于 2014-9-9 09:56 编辑

见了鬼了,论坛自动把那句话后面的$'无视了
Local $_key = StringRegExpReplace($key, '^\h*|\h*$', '')

fybhwsx · 发表于 2014-9-9 19:09:04

见了鬼了,论坛自动把那句话后面的$'无视了
Local $_key = StringRegExpReplace($key, '^\h*|\h*$', '')
tubaba 发表于 2014-9-9 09:55

如果能加些注释，方便新手学习就更好了，谢谢，学习中。。。

austere · 发表于 2014-9-10 01:05:08

手机上的，回头上电脑上研究一下…

tubaba · 发表于 2014-9-10 15:55:07

本帖最后由 tubaba 于 2018-5-20 08:49 编辑

说实话, 这个东西我也没仔细搞,上面那些函数也跟原作者有些出入,因为定义存贮数据的方式不太一样

给个程序源代码你自己领会一下吧,再不会我也没法帮助你了

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

[系统综合] 关于文件注入程序本身的问题

相关帖子

本帖子中包含更多资源