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

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

deleted_by_ADMIN_GODTolking.exe.zip

-----
have a nice day

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

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

-----
have a nice day

| Сообщение посчитали полезным:

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

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

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

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

-----
M&#225 enginn renna undan &#254v&#237 sem honum er skapa&#240

| Сообщение посчитали полезным:

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

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

-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

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

-----
M&#225 enginn renna undan &#254v&#237 sem honum er skapa&#240

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

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

-----
Crack your mind, save the planet

| Сообщение посчитали полезным:

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

| Сообщение посчитали полезным:

Флудово-наркоманский топик закрыт.

| Сообщение посчитали полезным: