VB 在EXE后附加信息(木马生【DOC精选】.docVIP

VB 在EXE后附加信息(木马生.txt熬夜，是因为没有勇气结束这一天；赖床，是因为没有勇气开始这一天。朋友，就是将你看透了还能喜欢你的人。VB 在EXE后附加信息(木马生成器原理) Option Explicit Private Const ExeInfoLen = 400 exe文件后附加信息总长度 Public Function WriteEXE(resFile() As Byte, FileName As String, info As String, infolen As Long) As Boolean On Error GoTo Err Dim TempByte As Byte Dim UserData() As Byte Dim FileNum As Integer Dim I As Long ReDim UserData(infolen) FileNum = FreeFile Open FileName For Binary Access Write As #FileNum Put #FileNum, , resFile For I = 1 To Len(info) UserData(I) = Asc(Mid(info, I, 1)) Next I If Len(info) infolen Then For I = Len(info) + 1 To infolen UserData(I) = Asc( ) Next I End If Put #FileNum, , UserData Close #FileNum WriteEXE = True Exit Function Err: WriteEXE = False Close #FileNum End Function Public Function GetInfo(FileName As String, infolen As Long) As String On Error GoTo Err Dim FileNum As Integer Dim Record As Long Dim tempstr As Byte Dim I As Long FileNum = FreeFile Open FileName For Binary Access Read As #FileNum For I = 0 To infolen - 1 Record = LOF(FileNum) - infolen + I Get #FileNum, Record, tempstr If tempstr 0 Then GetInfo = GetInfo Chr(tempstr) End If Next I Err: GetInfo = Replace(GetInfo, Chr(0), ) GetInfo = Trim(GetInfo) Close #FileNum End Function Public Function GetCommand(strCmdLine As String, VarName As String) As String On Error Resume Next 取变量值 返回变量的值 strCmdLine 服务器返回的数据 varname 变量名 If strCmdLine = Then Exit Function 参数必须存在 Dim strCmd() As String, I% strCmd = Split(strCmdLine, ) For I = 0 To UBound(strCmd) If Len(strCmd(I)) Len(VarName) Then If LCase(Left(strCmd(I), Len(VarName))) = LCase(VarName) Then GetCommand = Mid(strCmd(I), InStr(strCmd(I), =) + 1) End If End If Next End Function Public Func