Для доступа к контенту сайта, пожалуйста отключите Аd-Blосk. При включенном блокираторе сайт может работать не корректно.

Реклама
Новые комментарии
  • Mason
    Написал(а): Mason
    В новости: KilerRat v7.5.4
  • Hayk25
    Написал(а): Hayk25
  • adidas2x2
    Написал(а): adidas2x2
    В новости: KilerRat v7.5.4
  • dubdubom
    Написал(а): dubdubom
  • MargareQ
    Написал(а): MargareQ
  • antygrav
    Написал(а): antygrav
Доска почёта
Посетители
Счётчики



Анализ сайта
Чат

Чтобы оставлять сообщения - зарегистрируйтесь
  • lllddd
    18:19
    Кто знает где достать Trojan.MEMZ?
    • tortik3
      13:20
      НЕ КТО НЕ ДАСТ
      • anonimka1337
        21 июн 2017, 22:38
        Бьйляяя
        Ну кто нить даст скриптик?
        • jorjanoo
          21 июн 2017, 16:12
          HawkEye Keylogger, тут кнопки нету
          :D
          • jorjanoo
            21 июн 2017, 16:07
            @anonimka1337, хотел скачать билдеры стиллеров, но там не обнаружил кнопки скачать....
            • anonimka1337
              21 июн 2017, 16:00
              @jorjanoo, Если не слепой,увидишь.
              • anonimka1337
                21 июн 2017, 15:59
                @jorjanoo, Внизу есть кнопочка "скачать"
                • jorjanoo
                  21 июн 2017, 15:59
                  уже понял, на старых файлах нету кнопки скачать..
                  • jorjanoo
                    21 июн 2017, 15:45
                    Хай, конечно самый наитупейший вопрос который я мог задать, и который можно даже удалить потом, но как что-то скачать?
                    • anonimka1337
                      21 июн 2017, 11:31
                      Так есть скрипт у кого нить ?
                      • anonimka1337
                        21 июн 2017, 11:29
                        Прост хочеться вспомнить старые времена...Когда топовые проги писал на PHP
                        • Shimikami
                          21 июн 2017, 11:00
                          =))
                          • admin
                            21 июн 2017, 06:07
                            @anonimka1337, щас бы вирусы на php писать..
                            • anonimka1337
                              20 июн 2017, 22:34
                              @admin, Мне бы только скрипт на кнопку например "Блокировать дистпечер задач" короче с выводом на многострочное поле как у up0
                              • anonimka1337
                                20 июн 2017, 22:30
                                @admin, Поможешь?
                                • anonimka1337
                                  20 июн 2017, 22:29
                                  Прост так.Для саморазвития!
                                  • admin
                                    20 июн 2017, 22:29
                                    Цитата: anonimka1337
                                    Хочу сделать что-то на подобии генератора как у up0

                                    Зачем?
                                    • anonimka1337
                                      20 июн 2017, 22:10
                                      Народ нужна помощь.Как создать генератор вирусов на PHP.
                                      Просто кому не жалко дайте скрипты.Хочу сделать что-то на подобии генератора как у up0
                                      • kfs3
                                        20 июн 2017, 14:46
                                        джозер вас всех на очко по ходу полжил,правильно братва бойтесь людей которые в цифре лучшие ибо я даже не знаю кто ну люди с властью нас тянут в мир цифры ,эти крипто валюты все ,это перевод какой денег в мир цифры и контроль над вами ушлепками Юи конечно надо мной
                                        • kfs3
                                          20 июн 2017, 14:34
                                          шакалы позорные,но я никогда вред не приченял ,да могу базар -вокзал развести ,но честь есть честь
                                          • kfs3
                                            20 июн 2017, 14:33
                                            горки ,ну админ там вроде человек как человек ,а остальные где он их дебиллов набрал ,тени бляяяяяяяяяяя своей боятся
                                            • kfs3
                                              20 июн 2017, 14:32
                                              вайс прикинь с этого типы ну кенты твои джостера обосрались ,да это правда лн лучший из вас gerki.pw
                                              • kfs3
                                                20 июн 2017, 14:27
                                                плойт ты знаешь кто такие статисты в отделе К
                                                • kfs3
                                                  20 июн 2017, 14:02
                                                  из вас мусарков ,если % 50 нормальных людей есть и то хорошо ,а остальное это дебилы ,нах вам детская порнуха идиоты я не могу понять ,падонки и пидаристы
                                                  • kfs3
                                                    20 июн 2017, 14:00
                                                    вайс ,а если быть честным ты в такой шкалоте ходил это пипец просто ,но хватило как то ума замутить что свое,а вайс
                                                    • kfs3
                                                      20 июн 2017, 13:43
                                                      плойтяра мент позорный вылазь с нору потрещим )))))))))
                                                      • kfs3
                                                        20 июн 2017, 13:42
                                                        нке заедайся вайс ,а то я могу иправить приоритет ) ну это я так к слову
                                                        • kfs3
                                                          20 июн 2017, 13:41
                                                          вайс ,5 лет захожу на твой канал ну сайт этот )))))))))))))) ты бля когда коньяк поставишь 3 звезды офицеру
                                                          • NormanD
                                                            19 июн 2017, 16:38
                                                            О_о
                                                            • flixxxman
                                                              19 июн 2017, 10:37
                                                              hh - поехал в задницу уже, закинули...
                                                              Опрос на сайте
                                                              Как Вы нашли нас?
                                                              Поисковые системы
                                                              Порекомендовали
                                                              По ссылке с других сайтов
                                                              По ссылке с соц. сетей
                                                              Давно тут, по закладке
                                                              Ярлык в архиве с софтом
                                                              Случайно

                                                              Подписки

                                                                Получать новости на email:


                                                                Мы в соц. сетях:

                                                              Реклама

                                                              Последние сообщения с форума

                                                              Название темы Автор Статистика Последнее сообщение
                                                              Взлом Whatsapp.Viber.Instagram. facebook.Узнаем взломаем !!!

                                                              Тема в разделе: Работа/Услуги

                                                              Gubira

                                                              Просмотров: 12

                                                              Ответов: 0

                                                              Автор: Gubira

                                                              Сегодня, 19:16

                                                              RevenueLAB - уникальная партнерская программа в нише онлайн казино!

                                                              Тема в разделе: Рефоводство

                                                              Luke Ross

                                                              Просмотров: 516

                                                              Ответов: 6

                                                              Автор: Luke Ross

                                                              Сегодня, 17:25

                                                              EzAllParser [EAP] by Mysterious | crack by #fragma#

                                                              Тема в разделе: Парсеры

                                                              sslivup

                                                              Просмотров: 60

                                                              Ответов: 0

                                                              Автор: sslivup

                                                              Сегодня, 13:56

                                                              Лаунчер обновлений для своей программы(Updater)
                                                              Автор: Mavgic | Дата: 25-04-2013, 11:50 | Комментариев: 12 | Просмотров: 7482
                                                              Лаунчер обновлений для своей программы(Updater)


                                                              Всем привет!Сегодня я научу делать вас UPADTER на Delphi .


                                                              Итак :
                                                              1)Создаем новый проект.(File->New->Application).
                                                              2)Кидаем на форму progressbar из вкладки win32
                                                              3)Memo из вкладки standart.
                                                              4)Кнопку из вкладки standart.
                                                              Должно получиться примерно так:

                                                              Лаунчер обновлений для своей программы(Updater)


                                                              5)Теперь начнем кодить.
                                                              Для загрузки файла из интернета есть замечательная процедурка=)
                                                              Вот ее код:

                                                              procedure GetIntetFile(URL, SavetoFile: string);
                                                              var
                                                               TM: TMemoryStream;
                                                              begin
                                                               try
                                                                TM:= TMemoryStream.Create;
                                                                Form1.idhttp1.Get(URL,TM);
                                                                finally
                                                                TM.SavetoFile(SavetoFile);
                                                                end;
                                                                TM.Free;
                                                              end;


                                                              Вставляете ее после строки
                                                              {$R *.dfm}


                                                              6)Теперь два раза нажмем на кнопку и у нас появится процедура нажатия на button.
                                                              Давайте сделаем так , чтобы по нажатию на кнопку наш файл закачался в c:\ под именем Wh.dll(можно любой файл - для exe - 1.exe и тд).
                                                              Должно получиться примерно так :

                                                              procedure TForm1.Button1Click(Sender: TObject);
                                                              begin
                                                              GetIntetFile('http://ваш_сайт/wh.dll','c:\wh.dll');
                                                              end;


                                                              7)Чтобы все это заработало нужно кинуть на форму компонент idhhtp из вкладки indyclients.
                                                              Можно тестить!загрузка работает.
                                                              8)Теперь давайте добавим визульно закачку файла;
                                                              В нашу процедуру getinetfile добавим:

                                                              form1.Memo1.Lines.Add('Файл загружается');
                                                               form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
                                                                sleep(300);
                                                                form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
                                                              form1.ProgressBar1.Position:=form1.ProgressBar1.Position+50;
                                                                form1.ProgressBar1.Position:=0;
                                                              form1.Memo1.Lines.Add('Загрузка завершена, ищите файл в c:\wh.dll');


                                                              В итоге должно получиться примерно так:

                                                              procedure GetIntetFile(URL, SavetoFile: string);
                                                              var
                                                               TM: TMemoryStream;
                                                              begin
                                                               try
                                                                TM:= TMemoryStream.Create;
                                                                Form1.idhttp1.Get(URL,TM);
                                                                form1.Memo1.Lines.Add('Файл загружается');
                                                                form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
                                                                sleep(300);
                                                                form1.ProgressBar1.Position:=form1.ProgressBar1.Position+25;
                                                                finally
                                                                TM.SavetoFile(SavetoFile);
                                                                form1.ProgressBar1.Position:=form1.ProgressBar1.Position+50;
                                                                form1.ProgressBar1.Position:=0;
                                                                  form1.Memo1.Lines.Add('Загрузка завершена, ищите файл в c:\wh.dll');
                                                                end;
                                                                TM.Free;
                                                              end;


                                                              Теперь остановимся на вопросе :Как сделать так , чтобы updater сначала проверял , есть ли у него обновления?
                                                              Если у вас нет своего сайта/ftp/хостинга , то лугче всего зарегистрировать себе сайт на http://narod.yandex.ru/?ncrnd=630
                                                              Эту процедуру сможет пройти любой homo sapiens=)
                                                              НУ вот , за 5 минут вы создали сайт и уже сидите в админке.
                                                              Заходим в управление файлами и загружаем туда , например wh.dll(то,что будет качать ваш упдатер),updater.exe(новая версия updater'a и versionupdater.txt.
                                                              Опишу алгоритм работы updater'a:
                                                              1)Программа идет на ваш сайт и качает versionupdater.txt.Если версия будет другой(в программе) ,
                                                              то она выводит в memo 'Есть обновление , для закачки нажмите кнопку обновить updater'.
                                                              Если нету , то выводит 'Обновлений updater'a не обнаружено'.
                                                              2)Тоже самое с wh , только файл версий будет - versionwh.txt
                                                              Алгоритм мы написали , теперь будем кодить)
                                                              Чтобы при запуске программы она проверила свою версию , нужно
                                                              1)Поместить на форму второй memo и сделать его visible:=false(невидимым),поместить вторую кнопку(по ней будет обновляться updater.
                                                              2)Заходим в events формы и на событие onshow(программа показалась) прописываем следующий код:

                                                              var
                                                              version:string;
                                                              begin
                                                              version:='1.0';//наша версия
                                                              memo1.Lines.Add('Ваша версия updater = '+version);
                                                              GetIntetFile2('http://ваш_сайт/versionupdater.txt','c:\windows\upd.txt');
                                                              memo2.Lines.LoadFromFile('c:\windows\upd.txt');
                                                              if memo2.Textversion then    //Если версия другая то
                                                              begin
                                                              memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
                                                              memo1.Lines.Add('Для закачки нажмите на кнопку обновить updater');
                                                              end   //Если версия такая же
                                                              else memo1.Lines.Add('обновлений не обнаружено');
                                                              end;

                                                              Так же добавьте следующую процедуру для Загрузки обновления.
                                                              procedure GetIntetFile2(URL, SavetoFile: string);
                                                              var
                                                               TM: TMemoryStream;
                                                              begin
                                                               try
                                                                TM:= TMemoryStream.Create;
                                                                Form1.idhttp1.Get(URL,TM);
                                                                finally
                                                                TM.SavetoFile(SavetoFile);
                                                              form1.Memo1.Lines.Add('Успешно');
                                                                end;
                                                                TM.Free;
                                                              end;

                                                              Чтобы это работало , нужно залить на сайт versionupdater.txt (в нем строчка , например 1.0).
                                                              Версия программы меняется в исходе .
                                                              Теперь по нажатию на кнопку пихаем этот код:
                                                              var
                                                              version:string;
                                                              begin
                                                              version:='1.0';//наша версия
                                                              memo1.Lines.Add('Ваша версия updater = '+version);
                                                              GetIntetFile2('http://ваш_сайт/versionupdater.txt','c:\windows\upd.txt');
                                                              memo2.Lines.LoadFromFile('c:\windows\upd.txt');
                                                              if memo2.Textversion then    //Если версия другая то
                                                              begin
                                                              memo1.Lines.Add('обнаружена новая версия updater  = '+memo2.Text);
                                                              memo1.Lines.Add('Закачка производится в c:\updaternew.exe');
                                                              GetIntetFile2('http://ваш_сайт/updater.exe','c:\updaternew.exe');
                                                              end   //Если версия такая же
                                                              else memo1.Lines.Add('обновлений не обнаружено');
                                                              end;

                                                              Пароль на все архивы "happy-hack.ru" либо "hh"





                                                              Поделись:
                                                              Здесь присутствуют:
                                                              На данный момент новость никто не просматривает.
                                                              Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
                                                              Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.

                                                              Репутация: ( -3 )
                                                            • Offline Пользователь offline

                                                              • Написал: juteex
                                                              • Дата: 25 апреля 2013 11:51
                                                              • Новостей: 2
                                                              • Комментариев: 85
                                                              Ого! Давно искал! Спасибо... + ct

                                                              --------------------

                                                              Репутация: ( 1 )
                                                            • Offline Пользователь offline

                                                              • Написал: alaksion
                                                              • Дата: 25 апреля 2013 12:15
                                                              • Новостей: 1
                                                              • Комментариев: 36
                                                              Цитата: Mavgic
                                                              {$R *.dfm}
                                                              DFM trollface

                                                              --------------------

                                                              Репутация: ( 0 )
                                                            • Offline Пользователь offline

                                                              • Написал: admirativ
                                                              • Дата: 25 апреля 2013 14:33
                                                              • Новостей: 0
                                                              • Комментариев: 2
                                                              лучше бы написал как сделать update при использовании xml, когда нужно обновить больше 20 файлов например
                                                              tem41k нравится это.
                                                              Copyright ©

                                                              Репутация: ( -1 )
                                                            • Offline Пользователь offline

                                                              • Написал: Эдис001
                                                              • Дата: 25 апреля 2013 14:56
                                                              • Новостей: 0
                                                              • Комментариев: 128
                                                              Ого! Давно искал! Спасибо... +

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

                                                              --------------------

                                                              Репутация: ( 6 )
                                                            • Offline Пользователь offline

                                                              • Написал: dimanBMW
                                                              • Дата: 25 апреля 2013 18:17
                                                              • Новостей: 14
                                                              • Комментариев: 91
                                                              У меня другой способ лучше, кому интересно:

                                                              Скачать Яндекс Диск

                                                              --------------------

                                                              Репутация: ( )

                                                              • Написал: Mr.Makkk
                                                              • Дата: 25 апреля 2013 18:44
                                                              • Новостей: 0
                                                              • Комментариев: 0
                                                              Можно загрузить файл на сервер, где писать версию продукта.
                                                              Например, вы сделали версию 1.0, следовательно вписываем код провкерки текста с файла на сервере, и если текст равен 1.0 - запускам по стандарту. А если нет - выводим текст из другого файла на сервере.

                                                              Репутация: ( 2 )
                                                            • Offline Пользователь offline

                                                              • Написал: Unique
                                                              • Дата: 25 апреля 2013 20:58
                                                              • Новостей: 0
                                                              • Комментариев: 16
                                                              Спасибо помог

                                                              Репутация: ( -3 )
                                                            • Offline Пользователь offline

                                                              • Написал: Hypnotica
                                                              • Дата: 3 мая 2013 02:52
                                                              • Новостей: 0
                                                              • Комментариев: 23
                                                              idhhtp из вкладки indyclients (как? я не я не могу найти indyclients)

                                                              Репутация: ( 0 )
                                                            • Offline Пользователь offline

                                                              • Написал: Sam_Hilton
                                                              • Дата: 6 мая 2013 21:14
                                                              • Новостей: 0
                                                              • Комментариев: 14
                                                              А исходник нельзя было в архиве кинуть? cap

                                                              Репутация: ( -11 )
                                                            • Offline Пользователь offline

                                                              • Написал: Voron.ua
                                                              • Дата: 6 мая 2013 21:17
                                                              • Новостей: 19
                                                              • Комментариев: 223
                                                              Цитата: Sam_Hilton
                                                              А исходник нельзя было в архиве кинуть? cap

                                                              пожевали, в рот положили.. наверное глотать трудно?? ponimaete

                                                              --------------------

                                                              Репутация: ( 1 )
                                                            • Offline Пользователь offline

                                                              • Написал: ha4ik
                                                              • Дата: 6 мая 2013 22:53
                                                              • Новостей: 5
                                                              • Комментариев: 59
                                                              у меня способ без сохранения на комп файла с версией

                                                              через get получаем файл с сервера с версией и сверяем, профит

                                                              на форму IdHTTP
                                                              в кнопку или в OnCreate на форме, вообщем куда хотите

                                                              var
                                                              ServerVersion: string;
                                                              begin
                                                              ServerVersion := IdHTTP1.Get('ссылка на файл с версией');
                                                              if ServerVersion <> 'версия проги' then
                                                              begin
                                                              // что делать при обновлении
                                                              end;
                                                              end;

                                                              PS, писал по памяти

                                                              --------------------

                                                              Репутация: ( 0 )
                                                            • Offline Пользователь offline

                                                              • Написал: Not3KZ
                                                              • Дата: 5 ноября 2013 14:18
                                                              • Новостей: 1
                                                              • Комментариев: 12
                                                              dj Спасибо.

                                                              --------------------
                                                              Добавление комментария
                                                              Вопрос:
                                                              Я видел дебилов диких, я слышал кретинов стоны, и если один скажет: "ихний", миллионы ответят: *****
                                                              Ответ:*
                                                              Имя:*
                                                              E-Mail:
                                                              Полужирный Наклонный текст Подчеркнутый текст Зачеркнутый текст | Выравнивание по левому краю По центру Выравнивание по правому краю | Вставка смайликов Картинка
                                                              Выбор цвета | Скрытый текст Вставка цитаты Преобразовать выбранный текст из транслитерации в кириллицу Вставка спойлера
                                                              Введите код: *