eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: vitek9603 (+4 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

 eXeL@B —› Софт, инструменты —› Программа для общения с Богом
Посл.ответ Сообщение


Ранг: 218.9 (наставник)
Статус: Участник
dotnet

Создано: 18 января 2006 21:56 · Поправил: Модератор New!
Цитата · Личное сообщение · #1

Первые ответы которые я получил с помощью этой программы вдохновили меня на то чтоб я выложил ее сюда

Господь эта программа принесет добра людям? - Да
Господь эта программа не принесет добра людям? - Нет

{ Атач доступен только для участников форума }


Ранг: 221.8 (наставник)
Статус: Участник

Создано: 18 января 2006 22:11 · Поправил: Red Bar0n New!
Цитата · Личное сообщение · #2

Господь эта прога зло? - Да
Господь стоит ее качать? - Нет
Господь правда что на бейсик нет нельзя писать проги для общения с тобой? - Да


Ранг: 218.9 (наставник)
Статус: Участник
dotnet

Создано: 18 января 2006 22:13 New!
Цитата · Личное сообщение · #3

А с чего ты взял что прога написанна на бейсике?


Ранг: 630.2 (!)
Статус: Участник
Автор VB Decompiler

Создано: 18 января 2006 22:14 New!
Цитата · Личное сообщение · #4

Вот что делает прога:

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim text1 As String
Dim buffer2 As Byte() = New Byte(1 - 1) {}
Dim buffer1 As Byte() = buffer2
Me.rnd.GetNonZeroBytes(buffer1)
If (buffer1(0) < 128) Then
text1 = ChrW(1044) & ChrW(1072)
Else
text1 = ChrW(1053) & ChrW(1077) & ChrW(1090)
End If
Dim text2 As String = Me.textBox2.Text
Dim textArray1 As String() = New String() { text2, Me.textBox1.Text, " - ", text1, ChrW(13) & ChrW(10) }
Me.textBox2.Text = String.Concat(textArray1)
Me.textBox1.Text = ""
End Sub


Ранг: 230.5 (наставник)
Статус: Участник
Norg

Создано: 18 января 2006 22:17 New!
Цитата · Личное сообщение · #5

Ниче не понял? GPcH обьясни подробнее не могу вкурить бейсик.Че она делает то?


Ранг: 630.2 (!)
Статус: Участник
Автор VB Decompiler

Создано: 18 января 2006 22:31 New!
Цитата · Личное сообщение · #6

di-2 пишет:
Ниче не понял? GPcH обьясни подробнее не могу вкурить бейсик.Че она делает то?

Расшифровываю:
Me.rnd.GetNonZeroBytes(buffer1) - узнать размер винта
If (buffer1(0) < 128) Then - если он больше 128 байт
text1 = ChrW(1044) & ChrW(1072) - заносит в text1 результат форматирования 1044 и 1072 кластера, в которых расположена прошивка винта.

Короч пизда винту того кто это запустил ))))


Ранг: 122.3 (ветеран)
Статус: Участник

Создано: 18 января 2006 22:33 New!
Цитата · Личное сообщение · #7

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


Ранг: 230.5 (наставник)
Статус: Участник
Norg

Создано: 18 января 2006 22:38 New!
Цитата · Личное сообщение · #8

GPcH Тыне шутишь??? Бля!!!Че я наделал я ее тока что пацанам разослал знакомым-она че правда форматнет винт?Нахера такие темы тут публиковать тогда.Один пацан уже запустил и написал в аську да. "я ж сказал - хрень. через CRC нада писать"


Ранг: 122.3 (ветеран)
Статус: Участник

Создано: 18 января 2006 22:41 New!
Цитата · Личное сообщение · #9

блин. да необязательно винт форматировать. там просто затирается загрузочный сектор.
могу посоветовать EasyRecovery Professional.
очень кульная тулза

Ранг: 101.1 (ветеран)
Статус: Участник

Создано: 18 января 2006 22:45 New!
Цитата · Личное сообщение · #10

GPcH
thnx, что предупредил (: мдя, а я уже скачал... всегда топики надо дочитывать до конца!

Ранг: 53.8 (постоянный)
Статус: Участник

Создано: 18 января 2006 22:52 New!
Цитата · Личное сообщение · #11

гыгы вы б хоть на код посмотрели.. там и не зная бэйсика все понятно


Ранг: 1288.1 (!!!!)
Статус: Модератор

Создано: 18 января 2006 22:53 New!
Цитата · Личное сообщение · #12

Флудово-наркоманский топик закрыт.
 eXeL@B —› Софт, инструменты —› Программа для общения с Богом
Эта тема закрыта. Ответы больше не принимаются.

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS