Открыть EXE

[Romms]

И так... Надо открыть файл в текстовом режиме... Втом числе нужно открывать и EXE(*.doc, *.txt)
Как это сделать? (как читать txt я знаю...)

[andreibtzt]

ТFileStream

[uberchel]

Сообщение от Romms

И так... Надо открыть файл в текстовом режиме... Втом числе нужно открывать и EXE(*.doc, *.txt)
Как это сделать? (как читать txt я знаю...)

Если просто открыть как текстовый файл, то там будут только каракули!
Вам надо открывать его как 16ричный файл, и вообще чего вы хотите добитcmя открытием exe ?

[Romms]

Жаль но этот с помощю ТFileStream не возможно открывать файлы с расширения exe

[Romms]

Сообщение от uberchel

Если просто открыть как текстовый файл, то там будут только каракули!

То что каракули это понятно, но проблема в том когда я открываю примерно так(только в Делфі):

{(Pascal)}
var a,s,d,f,g,h,j:longint;
     fin,fout:text;
DD:char;
Begin
 assign(fin,'input.exe');
 assign(fout,'output.txt');
  reset(fin);
  rewrite(fout);

 repeat
  read(fin,dd)
 until eoln(fin);

writeln(fout,a);

  close(fin);
  close(fout);

end.

то считывается только начало файла...

Вам надо открывать его как 16ричный файл

как?!

Вам надо открывать его как 16ричный файл, и вообще чего вы хотите добитcmя открытием exe ?

Мне надо его зашифровать...

[Romms]

Сообщение от Romms

Жаль но этот с помощю ТFileStream не возможно открывать файлы с расширения exe

Возможно я не прав... тогда скажите как!...

[uberchel]

Сообщение от Romms

Возможно я не прав... тогда скажите как!...

В следующий раз пользуйтесь поиском по форуму с начало, а потом уж создавайте тему если не нашли что искали, вот например эта тема уже обсуждалась :

procedure OpenHex(FileName, SaveToFile: string; Memo: TMemo);
var
 i:byte;
 S: string;
 f:file of byte;
begin
 with Memo do begin
  Lines.Clear;
  WordWrap:= true;
  AssignFile(f, FileName);
  Reset(f);
  while not eof(f) do begin
   Read(f,i);
   S:= Lines.Text+ Format('%x',[i])+' ';
   Lines.Text:= S;
  end;
  Lines.SaveToFile(SaveToFile);
  CloseFile(f);
 end;
end;

[DeKot]

1.(основное) - Romms Вы заметили, что три сообщения подряд выдали? Дабы избежать это (привыкайте к правильному стилю во всем - и в сообщениях, и в программировании) используйте кнопку "Правка" (В любом Вашем сообщении нажмите эту кнопку и сообщение откроется в режиме редактирования. Можете исправить что либо в Вашем сообщении, добавить еще текста).
2. По сабжу - переменные fin,fout объявляйте как : File;
Тогда файл открывается и обрабатывается в двоичном (машинном) коде
побайтово.А уж что дальше с открытым файлом делать - это уже другая история.Тут поконкретней - что Вам надо от файла.

[Romms]

Сообщение от uberchel

В следующий раз пользуйтесь поиском по форуму с начало, а потом уж создавайте тему если не нашли что искали, вот например эта тема уже обсуждалась :

procedure OpenHex(FileName, SaveToFile: string; Memo: TMemo);
var
 i:byte;
 S: string;
 f:file of byte;
begin
 with Memo do begin
  Lines.Clear;
  WordWrap:= true;
  AssignFile(f, FileName);
  Reset(f);
  while not eof(f) do begin
   Read(f,i);
   S:= Lines.Text+ Format('%x',[i])+' ';
   Lines.Text:= S;
  end;
  Lines.SaveToFile(SaveToFile);
  CloseFile(f);
 end;
end;

Если можно то дайте ссылку на обсуждения этой темы

1.(основное) - Romms Вы заметили, что три сообщения подряд выдали? Дабы избежать это (привыкайте к правильному стилю во всем - и в сообщениях, и в программировании) используйте кнопку "Правка" (В любом Вашем сообщении нажмите эту кнопку и сообщение откроется в режиме редактирования. Можете исправить что либо в Вашем сообщении, добавить еще текста).

Извиняюсь! Но я писал о немного разных вещах по этому и в отдельных сообщениях.

2. По сабжу - переменные fin,fout объявляйте как : File;
Тогда файл открывается и обрабатывается в двоичном (машинном) коде
побайтово.А уж что дальше с открытым файлом делать - это уже другая история.Тут поконкретней - что Вам надо от файла.

Мне надо искать некоторый текст в этом файле...

[uberchel]

Запомните Экзешник(exe) нельзя открыть как текстовый файл и не будет там текста как в проекте этого exe т.е - там будет машинный код !