ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
01.11.2009, 02:31
|
|
Новичок
Регистрация: 12.10.2009
Сообщений: 5
Провел на форуме:
9509
Репутация:
0
|
|
Я взломал точку, все пароль пишу но мне видает что сеть ограничено или отсутствует что это? раньше все норм было подключался
|
|
|
01.11.2009, 14:27
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
Здравствуйте, пишу автореггер на один сайт и требуется сделать его многопоточным , знаю что нужно делать с помощью TThread , но что то не получается(
Запросы отправляются через IdHttp
|
|
|
|
01.11.2009, 14:29
|
|
Новичок
Регистрация: 17.09.2009
Сообщений: 18
Провел на форуме:
884969
Репутация:
11
|
|
Nizhegorodets, хорошая стать про потоки в idhttp __http://www.delphisources.ru/pages/faq/base/http_protocol.html для начала как раз
|
|
|
|
01.11.2009, 14:32
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от Nizhegorodets
Здравствуйте, пишу автореггер на один сайт и требуется сделать его многопоточным , знаю что нужно делать с помощью TThread , но что то не получается(
Запросы отправляются через IdHttp
Хороший пример: http://forum.antichat.ru/threadnav143556-1-10.html
|
|
|
|
01.11.2009, 16:16
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от ErrorNeo
предыдущую копию этого вопроса (2 дня назад) удалил, по прежнему актуально.
не верю что совершенно никто не знает
за решение с меня +10.
вопрос:
как реализовать периодический отстук приложения внутри одного сокета?
Вон, на Делфикингдоме прочитал:
Сокет, созданный с помощью функции Socket, не привязан ни к какому адресу. Привязка осуществляется с помощью функции Bind, имеющей следующий прототип:
Код:
function Bind(S:TSocket;var Addr:TSockAddr;NameLen:Integer):Integer;
Первый параметр этой функции - дескриптор сокета, который привязывается к адресу. Здесь, как и в остальных подобных случаях, требуется передать значение, которое вернула функция Socket. Второй параметр содержит адрес, к которому требуется привязать сокет, а третий - длину структуры, содержащей адрес. Может в этом проблема, если 2 раза send написать? Ну, думаю не стоит упоминать, что между ними должен быть sleep(). А может действительно проблема в сервере...
Последний раз редактировалось =Zeus=; 01.11.2009 в 16:21..
|
|
|
|
01.11.2009, 16:29
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Приветствую
Вопрос такой:
Есть программа Нужно узнать её версию и загрузить в переменную
Нашол один способ:
function GetMyVersion:string;
type
TVerInfo=packed record
Nevazhno: array[0..47] of byte; // ненужные нам 48 байт
Minor,Major,Build,Release: word; // а тут версия
end;
var
s:TResourceStream;
v:TVerInfo;
begin
result:='';
try
s:=TResourceStream.Create(HInstance,'#1',RT_VERSIO N); // достаём ресурс
if s.Size>0 then begin
s.Read(v,SizeOf(v)); // читаем нужные нам байты
result:=IntToStr(v.Major)+'.'+IntToStr(v.Minor)+'. '+ // вот и версия...
IntToStr(v.Release)+'.'+IntToStr(v.Build);
end;
s.Free;
except; end;
end;
Но вот неужели нет более простого способа получить эти заветные циферки?
Неужели программа нигде не хранит свою версию кроме как в ресурсах?
|
|
|
|
01.11.2009, 17:06
|
|
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104
Репутация:
239
|
|
Пытаюсь увеличить размер бинарника дописать в конец файла нули...
Написал процедуру, но никак, вылетает ошибка...
Скажите что не так?
Увеличиваю стороннюю прогу из своей...
procedure addsize;
var
f:TfileStream;
i,i1:integer;
bin:char;
begin
f:=TFileStream.Create('file.exe', fmOpenRead);
f.Seek(0, soFromEnd);
i1:=Strtoint(Form1.Edit2.Text)*1000;//тут указывается на сколько увеличить...
bin:=#00;
f.WriteBuffer(bin,i1);
f.Free;
end;
|
|
|
|
01.11.2009, 18:02
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от Killerkod
Пытаюсь увеличить размер бинарника дописать в конец файла нули...
Написал процедуру, но никак, вылетает ошибка...
Скажите что не так?
Увеличиваю стороннюю прогу из своей...
Попробуй так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
d: byte;
f, k: TfileStream;
i:integer;
begin
f:=TFileStream.Create('E:\1.exe', fmOpenRead); // тут твой путь, файл 1.ехе должен существовать
k:=TFileStream.Create('E:\2.exe',fmCreate);
for i:=0 to f.Size-1 do
begin
f.Read(d,1);
k.Write(d,1);
end;
d:=0;
for i:=0 to 10000 do // или сколько там надо?
k.Write(d,1);
f.Free;
k.free
end;
Последний раз редактировалось =Zeus=; 01.11.2009 в 18:18..
|
|
|
|
01.11.2009, 18:04
|
|
Познающий
Регистрация: 11.03.2009
Сообщений: 70
Провел на форуме:
251358
Репутация:
6
|
|
Как можно перевести не типизированный файл в "строку"?
|
|
|
|
01.11.2009, 18:32
|
|
Moderator - Level 7
Регистрация: 02.05.2009
Сообщений: 894
Провел на форуме:
4297091
Репутация:
2261
|
|
bons
внутри одного сокета - потому каждый раз при соединении с сервером фаервол запрашивает на это разрешение, а добавлять в *доверенные* пользователь моё приложение, вероятно, не станет.
Потому как по идее это приложение вообще не должно стучаться в сеть... не то что каждую минуту.
Обхода нормальных фаеров, кроме стандартного, я пока еще не сделал.
ps. никакого connection close в ответах нет.
=Zeus=
хз, потестю bind. У меня есть код с биндом, и он создает разные сокеты. Но быть может с помошью него можно работать и через один. По-разбираюсь.
2 send подряд не катит ни при каком раскладе, в т.ч. и с sleep.
Опять таки возможно, что для работы через 1 сокет требуется поддержка этой ф-ции не только программой, но и сервером.
в общем теперь я хотя бы знаю, что никто толком не знает  спс за ответы.
накрайняк не буду париться и доизучу процесс инжектирования в др. процессы.
Последний раз редактировалось ErrorNeo; 01.11.2009 в 18:36..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
