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的大小<