Jump to content

Recommended Posts

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

 

http://rgho.st/8CpxLHl82

В программе есть самообновления + докачка файлов по хешу, я конечно сделал с запросом ( диалог скачать да нет )

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

Спойлер

awdawdwd


procedure cupdate;
  var
  HTTP: TIdHTTP;
  Buffer: Tstringlist;
  bSelected,pe:integer;
  MSTM: TMemoryStream;
  ename:String;
  i:Integer;
  trs:Tsearchrec;
  hash:Tstringlist;
begin


    ename:= ExtractFileName(Application.ExeName) ;

    HTTP:= TIdHTTP.Create;
    Buffer:=Tstringlist.Create;
    try
    buffer.text := http.get ( purl + '1.php');
    except
    exit;
    end;




    created(pa + '\platform\addons\spades');

    if (length(buffer[0]) > 5) then begin

      pe := ansicomparestr( GetMD5(pa + '\platform\addons\spades\spades.dll'), trim(Buffer[0]));


      if  ( pe <> 0 ) then begin

          bSelected := MessageDlg('Обновить защиту?' ,mtCustom, [mbYes,mbCancel], 0);

          if bSelected = mrYes  then begin

              HTTP.Destroy;
              HTTP := TIdHTTP.Create;
              MSTM := TMemoryStream.Create;


           try
               Http.Get ( purl + '1.dll', MSTM);
               if (http.ResponseCode = 200) and (MSTM.Size > 1300) then
                   MSTM.SaveToFile( pa + '\platform\addons\spades\spades.dll');
           finally
              HTTP.Free;
              MSTM.Free;
           end;


         end;
      end;
    end;



    if (length(buffer[1]) > 5) then  begin

        pe := ansicomparestr( GetMD5(ename), trim(Buffer[1]));

       if  ( pe <> 0 ) then begin

           bSelected := MessageDlg('Обновить лаунчер?' ,mtCustom,
                              [mbYes,mbCancel], 0);

          if bSelected = mrYes  then begin


                HTTP := TIdHTTP.Create;
                MSTM := TMemoryStream.Create;


             try
                 Http.Get ( purl + '1.exe', MSTM);
                 if (http.ResponseCode = 200) and (MSTM.Size > 5000) then
                 MSTM.SaveToFile( pa + '\cslauncher1.exe');
             finally
                 HTTP.Free;
                 MSTM.Free;
             end;

             sleep(100);
             ShellExecute(0,'open', PChar('cmd.exe'),  Pchar('/c cd /d "' +pa+ '" && taskkill /IM ' + ename + ' /f && ping 127.0.0.1 -n 4 && move cslauncher1.exe ' + ename),'',SW_HIDE);     // /f && move update.exe csgo_launcher.exe && start csgo_launcher


         end;
       end;
    end;


    hash:=Tstringlist.Create;
    hash.Delimiter:=':';


    for i:=3 to buffer.Count-1 do begin

        hash.delimitedtext:= buffer[i];


         pe:= ansicomparestr( GetMD5(hash.Strings[0]), hash.Strings[1]);        // file, web
          if pe <> 0 then begin
           try
            FileSetAttr( hash.Strings[0], 0);
            downloadall( purl + 'ggg/' + hash.Strings[0], hash.Strings[0]);
           except
           end;
          end;
    end;



end;

 

1

 

icq_photo_03_12_2018_17_10_52.177.jpg

icq_photo_03_12_2018_17_11_11.025.jpg

Share this post


Link to post
25 минут назад, csp сказал:

сейчас у клиентов возникают проблемы

клиент может только создать исключение, чтоб антивирус не реагировал.

пусть ваши клиенты обращаются на форум, другие пользователи антивируса помогут создать такое исключение

добавить что либо в базы они не могут

Share this post


Link to post
1 час назад, csp сказал:

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

Вам сюда:

http://whitelisting.kaspersky.com/whitelist-for-partners-ru

Share this post


Link to post
3 часа назад, csp сказал:

полгода назад писал по поводу своей программы

но с этого акка это ваше первое сообщение. Завели себе клона?

3 часа назад, csp сказал:

добавьте в исключения в базе

сотрудники ЛК сюда заглядывают очень редко. Так что отвечают такие же пользователи как и вы, а как вы сами понимаете в их власти только помочь настроить исключения антивируса.

Так что наилучший вариант для вас это конечно участвовать в партнёрской программе, чтобы ваш софт добавляли в белый список (смотреть ссылку в предыдущем посте), либо как минимум создать запрос в тех. поддержку и попросить их, чтобы они передали просьбу про добавление в исключение. При обновление программы это скорее всего придётся делать повторно.

Share this post


Link to post

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

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We use cookies to make your experience of our websites better. By using and further navigating this website you accept this. Detailed information about the use of cookies on this website is available by clicking on more information.