Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Шифрование файлов [D7, XP]

alec_sey © (2006-05-30 12:30:00)
Помогите
нужно считать блок
затем каждый I-й елемент блока xorom сопоставить с введённым I-м елементом числовой строки и записть его. числовая строка может быть разной длинны поэтому нужно исп дин массивы а не очень умею, Конечно извените я уже задавал подобный вопрос но не понял, может
у кого есть код или ссылка, буду благодарен

alec_sey (2006-05-30 14:10:00) [1]
Cпасибо большое щас попробую

Сергей М. (2006-05-30 14:06:00) [2]
var
sfs, dfs: TFilestream;
KeyLen, BlockLen, i: Integer;
StrKey: String;
Block, BinKey: PByteArray;

..
StrKey := Memo.Lines[0];
KeyLen := Length(StrKey);
GetMem(BinKey, KeyLen);
try
for i := 0 to KeyLen - 1 do
BinKey[i] := StrToInt(StrKey[i+1]);
GetMem(Block, KeyLen);
try
sfs := TFilestream.Create('SourceFile.dat', fmOpenRead);
try
dfs := TFilestream.Create('ResultFile.dat', fmCreate);
try
while sfs.Position < sfs.Size do begin
BlockLen := sfs.Read(Block^, KeyLen);
for i := 0 to BlockLen - 1 do
Block[i] := Block[i] xor BinKey[i];
dfs.WriteBuffer(Block^, BlockLen);
end;
finally
dfs.Free;
end;
finally
sfs.Free;
end;
finally
FreeMem(BinKey);
end;
finally
FreeMem(Block);
end;

alec_sey (2006-05-30 12:59:00) [3]
Т е не очредного а раз ввели определённой длинны о посколько чтитывает
каждый блок

alec_sey (2006-05-30 12:57:00) [4]
Да

Сергей М. (2006-05-30 12:55:00) [5]
Т.е. размер каждого очередного считываемого блока должен соответствовать длине "числовой строки", я правильно понял ?

alec_sey (2006-05-30 12:52:00) [6]
к примеру считал блок '10011001' , ввёл в мемо '12345678' присвоил
целочисленному массиву то что в мемо, и каждый елемент блока '10011001' циклом прогнал ксором c '12345678' и записал блок в другой файл.

Сергей М. (2006-05-30 12:46:00) [7]
Что за "числовая строка" ?

Приведи пример ..

Наверх

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