下载此文档

VB 在EXE后附加信息(木马生.doc

文档分类：法律/法学 | 页数：约9页举报非法文档有奖

1/9

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/9 下载此文档

文档列表 文档介绍

VB在EXE后附加信息(木马生成器原理)OptionExplicitPrivateConstExeInfoLen=400'exe文件后附加信息总长度PublicFunctionWriteEXE(resFile()AsByte,FileNameAsString,infoAsString,infolenAsLong)oToErrDimTempByteAsByteDimUserData()AsByteDimFileNumAsIntegerDimIAsLongReDimUserData(infolen)FileNum=essWriteAs#FileNumPut#FileNum,,resFileForI=1ToLen(info)UserData(I)=Asc(Mid(info,I,1))NextIIfLen(info)<infolenThenForI=Len(info)+1ToinfolenUserData(I)=Asc("")NextIEndIfPut#FileNum,,UserDataClose#FileNumWriteEXE=TrueExitFunctionErr:WriteEXE=FalseClose#FileNumEndFunctionPublicFunctionGetInfo(FileNameAsString,infolenAsLong)oToErrDimFileNumAsIntegerDimRecordAsLongDimtempstrAsByteDimIAsLongFileNum=essReadAs#FileNumForI=0Toinfolen-1Record=LOF(FileNum)-infolen+IGet#FileNum,Record,tempstrIftempstr>0ThenGetInfo=GetInfo&Chr(tempstr)EndIfNextIErr:GetInfo=Replace(GetInfo,Chr(0),"")GetInfo=Trim(GetInfo)Close#mand(strCmdLineAsString,VarNameAsString)AsStringOnErrorResumeNext'取变量值返回变量的值'strCmdLine服务器返回的数据'varname变量名IfstrCmdLine=""ThenExitFunction'参数必须存在DimstrCmd()AsString,I%strCmd=Split(strCmdLine,"&")ForI=0ToUBound(strCmd)IfLen(strCmd(I))>Len(VarName)ThenIfLCase(Left(strCmd(I),Len(VarName)))=LCase(VarName)mand=Mid(strCmd(I),InStr(strCmd(I),"=")+1)EndIfEndIfNextEndFunctionPublicFunctionEncdec(inputstrinGAsString)AsStringDimpAsString,oAsString,kAsString,sAsString,tempstrAsString,IAsInteger,gAsIntegerIfLen(inputstrinG)=0ThenExitFunctiong=1ForI

VB 在EXE后附加信息(木马生来自淘豆网www.taodocs.com转载请标明出处.