Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
Криптование! Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
