Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

Криптование!   Найти похожие ветки 

← →
KLAUS ©   (2006-03-19 13:33) [0]

НАрод помогите плиз: нужно закриптовать весть файл методом 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.



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

---

← →
Наиль ©   (2006-03-19 14:21) [1]

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

>   pefile.Write(i,1);

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

---

← →
KLAUS ©   (2006-03-19 14:51) [2]

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

---

← →
KLAUS ©   (2006-03-19 17:53) [3]

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

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

---

← →
Pavia ©   (2006-03-19 18:42) [4]

KLAUS
pefile.Write(buf^,size);

---

← →
KLAUS ©   (2006-03-19 19:11) [5]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.037 c