Delphi Support

спасибо большое, сразу нашел что и как.

 

Подскажите код на button чтобы при нажатии открылся exe файл

 

Как установить synapse?И где его скачать?

 

Как установить есть в ютубе. А где скачать набери в гугле. Неужели так сложно слово забить в поиск?

 

помогите пожалуйста, мучался создавать 46 формы и делать их(( и тут я сохранил проект со всеми ими. потом открываю проект но увы. там только один проект. нажал на "проверить программу" зеленый ромбик, все работает.. попробывал открыть нужную мне форму и поставить туда любой компонент и проверить.. прога запустилась но компонента который я туда сунул нету.

Help.

 

поподробнее, пожалуйста

Для начала необходимо скачать архив trunk.tar.gz (http://synapse.ararat.cz) и распаковать его. Распаковывать для начала его можно в любую папку.
Откроем место установки Delphi 2010, а если быть точнее, то нам нужна папка Embarcadero\RAD Studio\7.0\lib
Создадим папку «Synapse» и в нее переместим файлы, распакованные нами до этого.
Затем откроем Delphi. Выберем пункт меню Tools — Options
Найдем пункт Library — Win32
И пропишем в начале поля Library payh следующее: $(BDS)\Lib\Synapse;
Нажимаем OK, сохраняемся.
После этого можно использовать библиотеки Synapse.
Главное не забывать прописывать в uses необходимые компоненты, например httpsend или synacode.

 

Может конечно и глупый вопрос. Но вот стало мне интересна защита софта.
Кто сможет объяснить принцип работы, и на сколько надежная данная защита.
Вот пример:
procedure TForm7.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
http1:=thttpsend.Create;
hosts:=tstringlist.Create;
if http1.httpmethod('GET', 'http://nikon-soft.ru/') then begin
hosts.LoadFromFile(GetWindowsDir+'\System32\Drivers\etc\hosts');
if pos('nikon-soft.ru', trim(hosts.Text))=0 then begin
form7.Show;
userkey:=md5(Base64Cryptor(md5(md5(md5(GetCPUID+GetCPUSerialNumber+GetCPUVendor)+md5(GetCPUID+GetCPUSerialNumber+IDEHDDVolumeSerial('C'))))));
sedit2.Text:=userkey;
edit:=tstringlist.Create;
if fileexists(ExtractFilePath(Application.ExeName)+'Authorization.dll') then begin
edit.LoadFromFile(ExtractFilePath(Application.ExeName)+'Authorization.dll');
sEdit1.Text:=trim(edit.Text);
end;
end else begin
Application.Terminate;
end;
end else begin
Application.Terminate;
end;
end;

procedure TForm7.sButton1Click(Sender: TObject);
begin
html:=tstringlist.Create;
http1.Headers.Clear;
http1.Document.Clear;
http1.Protocol:='1.1';
http1.UserAgent:='Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.57 Safari/537.36';
http1.HTTPMethod('GET', 'http://nikon-soft.ru/api.php?id='+userkey);
html.LoadFromStream(http1.Document);
if pos(md5(md5(userkey)), html.Text)<>0 then begin
form1.Show;
form7.Hide;
end else begin
showmessage('нет');
end;
end;

 

Ребят, у меня вопрос.

Как сделать так, что бы во время запуска - к примеру- брута, в каталоге с приложением создавалась папка с датой начала брута и в ней создавались новые текстовые документы.

P.S. Большей проблемой является создание папки и запись в нее файлов. Пробовал, получается херово

 

Dr.Nefario, ну вот как то так.
Createdir(ExtractFilePath(Application.ExeName)+'Имя папки');
Assignfile(Good, ExtractFilePath(Application.ExeName)+'\Имя папки\'+'Good_Rezult.txt');
Rewrite(Good);

 

Ребят, как разбить содержимое memo на файлы по 1000 строк?

 

Сначала присваеваешь какой-нибудь переменной название папки и дату.
s:string;

Formatsettings.TimeSeparator:='.';
TimeToStr(Time);

s:='ROJECT_'+DateToStr(Date)+'_'+TimeToStr(Time);

Createdir(ExtractFilePath(Application.ExeName)+s);

Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'\'+s+'\'+'good'.txt')

вроде так

 

Как определить гуд, если идет редирект после пост запроса?

Спойлер

http.IOHandler:=ssl;
data:=tstringlist.Create;
data.Add('s=');
data.Add('do=login');
data.Add('vb_login_md5password='+MD5(FPas));
data.Add('vb_login_md5password_utf='+MD5(FPas));
data.Add('vb_login_username='+Facc);
data.Add('vb_login_password='+Fpas);
http.IOHandler:=ssl;
try
HTTP.Post('http://pw.mail.ru/login.php?do=login', data);
Rez:=-1
except
if (http.Response.ResponseText='HTTP/1.1 302 Moved Temporarily') then
http.Get(http.Response.Location);
end;
begin
if POS('Выйти', http.Response.RawHeaders.Text)<>0 then
begin
Rez:=1;
end
else
Rez:=0;
end;

 

If HTTP.ResponseCode<>302 then ...