| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Криптование! [D6, WinXP]

KLAUS ©   (2006-03-19 13:33:00) 

НАрод помогите плиз: нужно закриптовать весть файл методом XOR , делаю так:

procedure TForm1.BitBtn2Click(Sender: TObject);
 var
 PEFile:TFileStream;
    i,size: Integer;
 b : Byte;
buf: Pbytearray;
Begin
 if Edit1.Text='' then begin Messagebox(handle,'Файл','',0);
  exit;
  end
  else begin
PEFile:=tfilestream.Create(Edit1.Text,fmOpenReadWrite);
size:=pefile.Size;
getmem(buf,size);
pefile.Read(buf^,size);
 Gauge1.MinValue:=0;
  Gauge1.MaxValue:=size;

  end;

for i:=1 to size do
buf^[i]:=Byte(Ord(buf^[i]) xor $59) ;
begin
Gauge1.Progress:=i;

 begin

  pefile.Seek(i,sofrombeginning);
  pefile.Write(i,1);

       end;
   end;
   Messagebox(handle,'GOOD','',0);
        pefile.Free;
 end;
end.



Нл чёт не выходит, файл даже не меняется, укажите где я ошибся!

---

KLAUS   (2006-03-19 19:11:00) [1]

О, точно всё работает!!
Всем СпасибО!!

---

Pavia   (2006-03-19 18:42:00) [2]

KLAUS
pefile.Write(buf^,size);

---

KLAUS   (2006-03-19 17:53:00) [3]

Блин, уже всё перепробывал
pefile.Write(buf^[i],1);

ПОдскажите плиз!

---

KLAUS   (2006-03-19 14:51:00) [4]

pefile.Position:=0;
Добавил, а что дальше не тО? подскажите поточнее

---

Наиль   (2006-03-19 14:21:00) [5]

Минимум две ошибки:

>   pefile.Write(i,1);

и
не хватает
pefile.Position:=0; перед записью

---

Наверх