Крякер Интернета

Xakep, номер #016, стр. 016-050-2

Итак, кое-что уже сделали. Теперь делаем самое главное, кернел всей проги - процесс эмуляции взлома Инета. :-)))) Как я уже говорил, в моем примере я вставил компонент TМemo, в котором и будет идти крякание. :) После нажатия на батон Start Cracking и проверки введенных данных я запускаю лохотрон:

btStart.Enabled:=False;//вырубаем кнопку Start Cracking

Screen.Cursor:=crHourGlass;//меняем мышку

mmCom.Lines.Add('Trying to connect '+edUrl.Text+' ...... ');

for i:=1 to 200000000 do;//имитация паузы

ggProcess.Progress:=ggProcess.Progress+13;

mmCom.Lines.Add('OK');

Небольшой комментарий. Сначала мы вырубаем кнопель Start Cracking и меняем мышака на песочные часы. Могу поспорить, все, не знающие прикола, подумают, что прога начала обрабатывать кучу данных, производить ХЗ (Хакер Знает) какой степени сложности вычисления. :) Ну ладно, типа пусть так и думают. В 3-й строке я добавляю в лохотрон (mmCom) первую порцию лапши на обвислые уши ламака. Пусть он думает, что крякер пытается законнектиться с серваком прова. Для создания тормозов служит строка for i:=1 to {ого-го} do;. Чем больше ого-го, тем дольше будет тормозная пауза. Но чем быстрее камень, тем она будет меньше, учитывай и это. Потом я ставлю ~13% в полосе "осталось до халявного Инета". Дальше поступаешь аналогично. Все зависит от твоей фантазии, а от нее зависит, поверит ли тебе юзверь или нет. При хорошем раскладе и продуманных сообщениях лохотона ламак может пару раз прогнать взломщик на своем компе, и если Инет ломануть не получится (хе-хе), то запустит прогу на машине своего другана-ламака (типа может это мой маздай глючит, а у другана все заработает).

Конец (не то, о чем ты подумал) у моей проги такой:

mmCom.Lines.Add('#########################');

mmCom.Lines.Add('Internet is Cracked !!! Congratulations!');

mmCom.Lines.Add('=========================');

btStart.Enabled:=True;//включаем кнопку Start Cracking

ttTimer.Enabled:=True;//включаем таймер

....

{OnTimer:}

ttTimer.Enabled:=False;

fmCracker.Visible:=False;

ShowMessage('Sorry, but in kernell32.dll was an error (code: E024365). Program now will be terminated.');

Close;

Как видишь, в конце прога возвращает Start Cracking в исходное состояние и включает таймер. Вся штука в том, что после срабатывания таймера окно проги исчезает и выводится сообщение об ошибке в kernell32.dll. Перед включением таймера можешь вставить код, выводящий какую-нибудь туфту, типа крякнутых пассвордов, и т.п. Ясен пень, что эти пассворды берутся чисто научным способом "от балды", хотя ты можешь каждый раз генерить разные пароли. Сам прикол в том, что посмотреть, запомнить и записать на бамажку пароли ламак не сможет, т.к. интервал таймера маловат (1-3 сек. Кстати, вводятся они в милисеках, т.е. надо вводить 1000-3000). А после его срабатывания прога выводит сообщение о глюке в кернел32.длл. Вот и опаньки ламаку. :)) Даю тебе 100 пудовую гарантию, что ламак пару раз прогонит прогу, надеясь, что ошибки не произойдет, и все-таки можно будет поиметь халявный Инет (типа, как же так? Все прошло хорошо, даже появились пароли. Может еще раз попробовать? Или запустить у моего друга Васи Пупкина).