ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
27.08.2009, 20:38
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
wolmer, не оффтопь. А если по делу: убрал все лишнее, не заметил единственную эту функцию. А если еще конкретнее: даже полный имбицил поймет, что такое "undefined function Err"
|
|
|
27.08.2009, 20:56
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от ex3me
wolmer, не оффтопь. А если по делу: убрал все лишнее, не заметил единственную эту функцию. А если еще конкретнее: даже полный имбицил поймет, что такое "undefined function Err"
ex3me, умничайте в другом месте
infected и другим кто не знает как работать с winsock (а то многие ищут как работать с winsock (да бы избежать массового добавления меня в icq)),
сорц работы с winsock:http://dump.ru/file/3267835
Password:"Winsock" (без ковычек)
Откомментил как смог
Последний раз редактировалось wolmer; 27.08.2009 в 21:14..
|
|
|
|
28.08.2009, 09:26
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от Jes
эхх , как то так 
Код:
Info:= FindResource(0, 'ИмяРесурса', rt_RCData);
MyFile:= CreateFile(PChar('нехорошие_вещи.exe'), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(MyFile, LockResource(LoadResource(0, Info))^, SizeOfResource(0, Info), BytesWritten , nil);
CloseHandle(MyFile);
// ps: MyFile , Info , BytesWritten  WORD;И всё-же вернёмся к вопросу распаковки файла из ресурса.
Вот код программы на API которая должна это делать:
Код:
program LOL;
uses windows;
{$R MyRes.RES}
var MyFile , Info , BytesWritten :DWORD;
BEGIN
Info:= FindResource(0, 'ass', rt_RCData);
MyFile:= CreateFile(PChar('virus.exe'), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(MyFile, LockResource(LoadResource(0, Info))^, SizeOfResource(0, Info), BytesWritten , nil);
CloseHandle(MyFile);
END.
В файле MyRes.RES содержится информация:
lol ass 'virus.exe'
В итоге при запуске программы создаётся пустой файл virus.exe, подскажите где ошибка в коде.
|
|
|
|
28.08.2009, 11:03
|
|
Banned
Регистрация: 01.07.2009
Сообщений: 21
Провел на форуме:
38138
Репутация:
-5
|
|
Всеммммм
служба поддержки VDS manager
591-493-245
|
|
|
|
28.08.2009, 18:46
|
|
Участник форума
Регистрация: 03.09.2008
Сообщений: 155
Провел на форуме:
1201665
Репутация:
236
|
|
Сообщение от wolmer
ex3me, умничайте в другом месте
infected и другим кто не знает как работать с winsock (а то многие ищут как работать с winsock (да бы избежать массового добавления меня в icq)),
сорц работы с winsock:http://dump.ru/file/3267835
Password:"Winsock" (без ковычек)
Откомментил как смог
"О чем не пишут в книгах по Delphi" про winsock в лучшем виде посвящен целый раздел...
|
|
|
|
28.08.2009, 19:16
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
"О чем не пишут в книгах по Delphi" про winsock в лучшем виде посвящен целый раздел...
Отличная книга, Антон Григорьев - хороший специалист.
У меня есть целый диск, который идет вместе с этой книгой, там отличные сорцы по Winsock. Вот:
Скачать файл CD.rar
Последний раз редактировалось =Zeus=; 28.08.2009 в 19:29..
|
|
|
|
28.08.2009, 20:29
|
|
Познающий
Регистрация: 08.12.2007
Сообщений: 92
Провел на форуме:
1216941
Репутация:
35
|
|
как в Delphi в WebBrowser , определить что сайт делает редирект?)
мб ктото знает как определить вооше данную страничку что в веб браузере? тогда б можно было сравнить ети значения с исходными, и понять был редирект или нет
|
|
|
|
28.08.2009, 21:22
|
|
Познающий
Регистрация: 30.01.2009
Сообщений: 30
Провел на форуме:
75077
Репутация:
14
|
|
Сообщение от DiSi
как в Delphi в WebBrowser , определить что сайт делает редирект?)
мб ктото знает как определить вооше данную страничку что в веб браузере? тогда б можно было сравнить ети значения с исходными, и понять был редирект или нет
C WebBrowser не сталкивался, но если именно редирект, то имеет смысл сравнить запрашиваемый урл перед и после загрузки страницы. Если сайт именно перепосылает, то они должны отличатся.
|
|
|
|
28.08.2009, 21:41
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от DiSi
как в Delphi в WebBrowser , определить что сайт делает редирект?)
мб ктото знает как определить вооше данную страничку что в веб браузере? тогда б можно было сравнить ети значения с исходными, и понять был редирект или нет
Чтоб перейти на нужную страницу используй
Код:
WebBrowser1.Navigate('http:\\www.google.com');
Чтоб узнать что сейчас в адресной строке юзай
Код:
Caption:=WebBrowser1.LocationURL;
Не используй функции одна за одной, браузер попросту не успеет зайти на страницу и скажет что LocationURL пустая.
|
|
|
|
28.08.2009, 23:03
|
|
Познающий
Регистрация: 08.12.2007
Сообщений: 92
Провел на форуме:
1216941
Репутация:
35
|
|
Сообщение от =Zeus=
Чтоб перейти на нужную страницу используй
Код:
WebBrowser1.Navigate('http:\\www.google.com');
Чтоб узнать что сейчас в адресной строке юзай
Код:
Caption:=WebBrowser1.LocationURL;
Не используй функции одна за одной, браузер попросту не успеет зайти на страницу и скажет что LocationURL пустая. мм) а DocumentComplitle зачем?)
лан помог)) WebBrowser1.LocationURL етого не знал
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
