vbs木马_vb语言编写木马程序

vb旋转木马代码

Const pi = 3.14159265

Dim n As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim i As Integer, j As Integer, k As Integer

i = 1000 * Cos(n * pi / 180) + 2000

j = 1000 * Sin(n * pi / 180) + 1500

Shape4.Top = j

Shape4.Left = i - Shape4.Width \ 2

Line1.X2 = i

Line1.Y2 = j

i = 1000 * Cos((n - 90) * pi / 180) + 2000

j = 1000 * Sin((n - 90) * pi / 180) + 1500

Shape2.Top = j

Shape2.Left = i - Shape2.Width \ 2

Line2.X1 = i

Line2.Y1 = j

i = 1000 * Cos((n + 90) * pi / 180) + 2000

j = 1000 * Sin((n + 90) * pi / 180) + 1500

Shape3.Top = j

Shape3.Left = i - Shape3.Width \ 2

Line2.X2 = i

Line2.Y2 = j

i = 1000 * Cos((n + 180) * pi / 180) + 2000

j = 1000 * Sin((n + 180) * pi / 180) + 1500

Shape1.Top = j

Shape1.Left = i - Shape1.Width \ 2

Line1.X1 = i

Line1.Y1 = j

n = n + 10

If n = 360 Then n = 0

End Sub

Shape：400X400。

我想看看木马是如何编写的（用vb）

Private Sub Form_Load()

'显示木马消息框

Msgbox ("你中木马啦!",,"哈哈..")

End sub

Clone好幽默...

毒啊...依稀记得format是格式化的命令///还格C盘啊...

教育教育就行了,,不用折磨了...

不过其实LZ知道Format命令....因为他答过题 - -

编写木马需要学哪些知识？

1.良好的编程知识(C++,JAVA,delphi,VB也凑合,实在不行用易语言) 至少会一样吧\x0d\x0a2.确定木马的功能.木马有很多种,示功能而定,比如盗号木马,远程控制木马(这类木马一般功能比较完美),网页木马(拿来黑网站用的),还有一些比如实现某一特殊功能的,.如DDOS攻击木马,控制类木马则还要编写主控端\x0d\x0a3确定木马的连接方式,主动式和被动式(就是网上说的主动连接和反向连接)主动连接基本已经被淘汰了,\x0d\x0a4,木马的隐藏,这是最大的问题也是最难的问题,如果你的木马不能隐藏那么也没就没有生存的余地.不仅仅是隐藏木马文件,进程,(这一般通过加载为系统服务或者通过DLL隐藏进程还有一些木马用驱动隐藏)还要隐藏木马的通信方式,不被防火墙阻止(如HTTP隧道)这里面的学问很多\x0d\x0a5加壳,就是加密木马,还可以减少木马体积.\x0d\x0a这里主要说下木马主体的编写方式\x0d\x0a以最简单的盗QQ木马(阿拉QQ大盗)为例.\x0d\x0a1.中马之后,先替换掉TXPlatform.exe(QQ密码保护文件)后台监视系统.如发现QQ.exe,则监视QQ两个文本框的text值,并将输入的信息保存,生成邮件.后台发送到种马人.这个很简单,难的再于如何替换TXPlatform.exe并且不被QQ.exe发现.还有就是如何才能取得QQ文本框中的两个值.

VB写木马!!!

网上的源代码多的是,你自己看看吧,黑客是玩技术,不是搞破坏,你要明确这一点,谁说vb编不出来?

vb如何实现生成出配置 如各种木马生成器

服务端代码：

Const FILE_SIZE = 20480

Private Sub Form_Load()

Dim bAppend As Byte, lNum As Long

Dim i As Long, sInfo As String

Open App.Path  "\"  App.EXEName  "" For Binary Access Read As #1

Seek #1, FILE_SIZE + 1       '将读取指针定位到文件末

'读出超出模板大小的字节部分并显示

For lNum = 1 To FileLen(App.Path  "\"  App.EXEName  ".exe") - FILE_SIZE

Get #1, , bAppend

sInfo = sInfo + Chr(bAppend)

Next lNum

Close #1

Text1.Text = sInfo

End Sub

客户端代码：

Const FILE_SIZE = 20480 '这是101号资源中的服务端文件1.exe的大小

Dim bInfo As Byte

Dim bFile() As Byte

Dim iInfoLen As Integer

Dim i As Integer, lFile As Long, filesave As String

Private Sub Command1_Click()

iInfoLen = Len(Text1.Text) '这个我就不讲了,函数调用

filesave = Text2.Text       '打开文本中数据然后保存

If Text1.Text = "" Then

MsgBox "下载地址url", , ""

Exit Sub

End If

On Error GoTo myErr:

bFile = LoadResData(101, "CUSTOM") '读出101号资源

Open filesave For Binary Access Write As #1

For lFile = 0 To FILE_SIZE - 1 '判断资源大小

Put #1, , bFile(lFile) '输出

Next lFile

For i = 1 To iInfoLen '读出配置信息并追加

bInfo = Asc(Mid(Text1.Text, i, 1)) '转换成ASC格式

Put #1, , bInfo

Next i

Close #1

MsgBox "请测试完后卸载服务端", 64, ""

Exit Sub

myErr:

Reset '如果有文件未关闭,则关闭之

MsgBox Err.Description  " 配置信息请用半角字符.", vbCritical, "lovexia downloader"

End Sub

配置客户端的时候则需点击VB 资源管理器选择服务端生成一个RES文件

具体调VB资源管理的方法：

点击外接程序 - 外接程序管理器 -  VB 资源管理器 点击加载 启动  工具栏中就会出现这个图标