|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Cтроки (желательно не консольные приложения)
1. Дана строка, состоящая из слов, разделенных одним пробелом. Вывести строку, состоящую из этих же слов, записанных в обратном порядке. Например, "Я изучаю программирование" => "программирование изучаю Я".
2. Дан текст (массив строк) в котором каждая строка содержит до 255 цифр. Составить программу, которая вычисляет сумму цифр в каждой строке. |
#2
|
||||
|
||||
для второй программы я еще название не придумал
Код:
var LStrings: TStrings; S: String; begin LStrings:=TStringList.Create; try LStrings.Delimiter:=' '; LStrings.DelimitedText:=Edit1.Text; S:=''; while LStrings.Count>0 do begin S:=S+' '+LStrings[LStrings.Count-1]; LStrings.Delete(LStrings.Count-1); end; Edit2.Text:=Trim(S); finally LStrings.Free; end; end; Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Код:
var sl: TStrings; i, j, b: integer; begin sl:= TStringList.Create; sl.Assign(Memo1.Lines); for i := 0 to sl.Count-1 do begin b:= 0; for j := 1 to Length(sl[i]) do Inc(b, StrToInt(sl[i][j])); sl[i]:= sl[i] + ' = ' + IntToStr(b); end; Memo1.Lines.Assign(sl); sl.Free; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#4
|
|||
|
|||
C трояном первая задача
|
#5
|
||||
|
||||
Цитата:
|
#6
|
|||
|
|||
Бывает.
Варианты: 1. Вставить несколько ненужных комманд. 2. понизить уровень эвристики 3. Убрать рабочую папку из путей проверки. Я сделал 3е у себя. |
#7
|
||||
|
||||
4. Индюк.
Скопировал этот код и скомпилировал в D7, на VT только 3 вердикта: Antiy-AVL, Cyren и F-Prot. Причем два из них - по всей видимости, вендоры с общим движком. Может у меня делфа не такая, не знаю. Кастомная сборка какая-то завалялась. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 29.12.2015 в 20:15. |
#8
|
|||
|
|||
Мож и кастомная сборка, может просто версия другая, а может уже антивирь обученный попался...
Опять же, на VT ты же не знаешь, какой уровень эвристики установлен... А индюк, вроде, уже свое отходил... навряд ли он опять всплывет... |
#9
|
||||
|
||||
хотелось бы уточнить. вирус в моем exe из архива или после компиляции вновь созданного проекта с этим исходным кодом в exe тоже вирус?
Пишу программы за еду. __________________ |
#10
|
|||
|
|||
про индюка почитай в инете. Его наличие довольно легко проверяется руками и вычищается он тоже достаточно легко. Другие вирусы... ну я о таких, которые заражают только компиляторы и уже после этого заражают собранные таким компилятором программы, не слышал после индюка. Да и тот не совсем честно это делал. Я бы сказал, что 99% это false positive антивиря. Было дело, что антивирь нервно реагировал на пустую форму с 1ой кнопкой, а после добавления простейшего ShowMessage переставал ругаться...
|
#11
|
||||
|
||||
Так индюк у всех получается нагадил
Пишу программы за еду. __________________ |
#12
|
||||
|
||||
У меня почему-то только с этим проектом проблемы, остальные все по Касперскому тише воды ниже травы )
|
#13
|
|||
|
|||
Посмотрел отчет:
Trojan[:HEUR]/Win32.AGeneric Это явный результат срабатывания эвристики. Т.е., как и говорилось раньше, false positive. попроьуй строку "S:='';" переместить в другое место и перекомпилять. Иногда помогает. Ну и имя проекта поменять. Тоже были ситуации, когда этого было достаточно, что бы антивирь прекращал ругаться. |
#14
|
||||
|
||||
Касперский - зло!!!
вообщем на работе установили Касперского Конецточка Сецюриту 10. действительно, если проект компилировать на Delphi 7, то он находит в нем трояна. но если в uses добавить к примеру
Код:
ActiveX, ComObj, компиляция на Delphi 2010 троян не обнаруживает. зато троян был обнаружен в другой программе откомпилированной на Delphi 2010 и написанной на WinAPI. добавление модуля SysUtils решило проблему с трояном, но увеличило размер программы в 4 раза Пишу программы за еду. __________________ |