ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Приветствую

Вопрос такой:
Есть программа Нужно узнать её версию и загрузить в переменную

Нашол один способ:
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;

Но вот неужели нет более простого способа получить эти заветные циферки?

Неужели программа нигде не хранит свою версию кроме как в ресурсах?

Пытаюсь увеличить размер бинарника дописать в конец файла нули...
Написал процедуру, но никак, вылетает ошибка...
Скажите что не так?
Увеличиваю стороннюю прогу из своей...

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;

Попробуй так

Как можно перевести не типизированный файл в "строку"?

bons
внутри одного сокета - потому каждый раз при соединении с сервером фаервол запрашивает на это разрешение, а добавлять в *доверенные* пользователь моё приложение, вероятно, не станет.
Потому как по идее это приложение вообще не должно стучаться в сеть... не то что каждую минуту.
Обхода нормальных фаеров, кроме стандартного, я пока еще не сделал.
ps. никакого connection close в ответах нет.

=Zeus=
хз, потестю bind. У меня есть код с биндом, и он создает разные сокеты. Но быть может с помошью него можно работать и через один. По-разбираюсь.
2 send подряд не катит ни при каком раскладе, в т.ч. и с sleep.
Опять таки возможно, что для работы через 1 сокет требуется поддержка этой ф-ции не только программой, но и сервером.

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

если пользователь не станет добавлять приложение в доверенные то оно вообще никому не достучится ни в первый раз ни во второй. А перед тем как задумываться об обходе фаера неплохо бы изучить хотя бы основы работы с сокетами и TCP соединениями.
Также еще неплохо бы тебе решить, будет ли приложение поддерживать постоянное соединение или же устанавливать каждый раз новое.
просто ты не совсем понимаешь вообще что ты хочешь написать и как оно будет работать. А обходить фаеры в юзермоде причем такими "способами" плохая идея

заблуждение.
первый раз пользователь дает доступ приложению в сеть в 90% случаев. статистика с нескольких тысяч загрузок.


странные слова.
По-твоему я уже сравнительно-длительное время пишу на сокетах не зная, как ты выразился, основ работы с ними?

у меня написано, что с установлением новых соединений код уже и так неплохо работает. Нужно именно постоянное соединение, для того, чтобы пусть и временно, но повысить пробив.
Да и вообще так цивильнее.

у меня уже давно сделан и продан за 2 сотни грина полностью рабочий код с пробивом 20% (встроен обход стандартного брандмауэра)
По твоему я не знаю, что хочу написать?!

у 95% пользоветелей ститема запущена под админом. Статистика с нескольких тысяч загрузок. Задача по обходу фаера в юзермоде передо мной не стоит.

Ну и резюме.
Не строй из себя ботана. Знаешь конкретное решение - плюс. Не знаешь - не строй из себя умного. Раздражает.
Ничего личного.

как рамдомно выбрать строку из листбокса?

в каком языке?
общий алгоритм таков: генерируем рандомное число, затем выбираем елемент с этим номером.