Перейти к содержанию

Alex34001

Новички
  • Публикаций

    17
  • Зарегистрирован

  • Посещение

Репутация

1

2 Подписчика

Информация о Alex34001

  • Статус
    Новичок

Информация

  • Пол
    Мужчина
  • Город
    Россия -> Пермский край
  1. А теперь нормально? У меня теперь расшифровывает все! :blink: Repeat BlockRead(f,ii,64,x); for t1:=1 to x do begin ii[t1]:=ii[t1]-t; end; Seek(f,Filepos(f)-x); BlockWrite(f,ii,x); (*Application.ProcessMessages;*) Until eof(f)=true; closeFile(f); x,t1-integer, ii - array of integer,f-file.
  2. Вот код дешифровщика: while eof(f)=false do Begin BlockRead(f,ii,10); for t1:=1 to 10 do begin ii[t1]:=ii[t1]-t; end; Seek(f,Filepos(f)-10); BlockWrite(f,ii,10); (*Application.ProcessMessages;*) end; closeFile(f); Вопрос: Почему последние байты не расшифровываются, и как это исправить?
  3. C. Tantin, Спасибо за ответ. Да не имеет. Но это только тут. Это значит что после вызова BlockRead(f,fl,1) нужно от Filepos(f) вычесть 1 ? и кстати как перейти на эту позицию в файле? Знаю, просто только основываюсь в программировании, делаю ошибки.... Хорошо, буду знать. К сожалению нет, форму рисую заново. Ошибки свои понял. Огромное спасибо!
  4. Приветствую. Нужна помощь! :blink: Зашифровал важный для меня файл. Алгоритм шифровки: procedure TForm1.Button4Click(Sender: TObject); var fname:String;f:file; t,ps,pp:integer; fl:integer; begin if (Length(Edit5.Text)=0) or (Length(Edit6.Text)=0) then Begin MessageDlg('Не введены нужные данные.', mtWarning, [mbOK], 0); exit end; For pp:=1 to length(Edit6.Text) do Begin ps:=ps+ ord(Edit6.Text[pp]); end; t:=ps+length(Edit6.Text); fname:=Edit5.Text; AssignFile(f,fname); Reset(f,1); while eof(f)=false do Begin BlockRead(f,fl,1); fl:=fl+1; BlockWrite(f,fl,1); end; closeFile(f); MessageDlg('П
  5. C. Tantin Получение системной директории будет. Много модулей? Я незнаю, все сами появились Иконка? тоже незнаю, в about'е написано Delphi 2007. Нашла проводник? можно мне его путь полный узнать Если этот: C:\WINDOWS\system32\explorer.exe то тут файла быть не должно, проверь на вирустотале, настоящий explorer лежит в папке Windows.
  6. Выкладываю новую версию, переписана на Delphi 2007. Логи мне не отправляет, поэтому просьба, если у кого-то что-то нашла, выложите сюда список. Project1.rar Проверка на вирустотале: Результат: 0/35 (0%) http://www.virustotal.com/ru/analisis/1d3a...08a09ed46ec7b1b
  7. Спасибо за предложение, но пока я осваиваю азы делфи так что до антируткита мне еще далеко...
  8. Гриша, пользы мало, я сейчас в делфи копаюсь, надо нормально написать... на нормальном языке.
  9. Появился вопрос, вот у меня есть ListBox1 как мне прочесть строку под номером i
  10. Нужно переписать на нормальный язык- Делфи. Но я писал раньше только на паскале. Нужна документация на русском языке по Делфи 7 или 2007, у меня есть только 2007, но они почти одинаковы. Ссылочки пожалуйста дайте...
  11. Да, все правильно сказали, но если ничего не нашла то лог не высылается. Гриша И что же троянского она делает? Файлы не создает, реестр не трогает. Вирлаб ответил на счет моей программки?
  12. А я говорил что это антивирус? мда... Есть ли смысл в теме кроме как говорить: вирус не вирус, отстой, да я такую на паскале в 5 строчек напишу.... Если смысл есть - оставляйте, если смысла нет - удаляйте.
  13. Отправил... с сетью может работать только так Кстати видно не все поняли, это не антивирус, это утилита которая может помочь зафиксировать его, тоесть если список не пустой, значит возможно заражение. Кто-то еще говорил что диск C только неразумно, я специально, Windows может быть и на D. Собирался писать завтра-послезавтра выбор где находиться папка Windows.
  14. Программа написана на HiAsm. Исходник представляет собой схему... Если нужно и HiASm установлена, то могу отправить. Сокеты кстати чтобы лог найденных вирусов отправить, мне на почту.
×
×
  • Создать...