Шифрование streamа

← →
XHelp (2003-12-14 03:18) [0]

Хай всем...
я пишу прогу для своей сетки... она использует шифрованный трафик, тоесть шифрует всё что шлет по простой процедуре:

function tf1.crypt(s:string):string;
var
i:integer;
begin
Result:="";
for i:=1 to Length(s) do Result:=Result+char(ord(s[i]) xor 62);
end;

Теперь захотел сделать пересылку файлов по примеру описаному в Делфи глазами хакера... но возникают проблеммы с шифрованием...

Как можно по этой же процедуре зашифровать весь TFileStream?

← →
Юрий Зотов (2003-12-14 09:04) [1]

Процедура для шифровки любого потока:

procedure CryptStream(S: TStream; Mask: byte);
var
M: TMemoryStream;
P: ^byte;
i: integer;
begin
M := TMemoryStream.Create;
try
M.LoadFromStream(S);
P := M.Memory;
for i := 1 to M.Size do
begin
P^ := P^ xor Mask;
Inc(P)
end;
S.Position := 0;
M.Position := 0;
S.CopyFrom(M, M.Size)
finally
M.Free
end
end;

Но если Вы будете грузить файл не в FileStream, а сразу в MemoryStream, то при шифровке избежите двойного расхода памяти.

function CryptFile(const FileName: string; Mask: byte): TMemoryStream;
var
P: ^byte;
i: integer;
begin
Result := TMemoryStream.Create;
with Result do
try
LoadFromFile(FileName);
P := Memory;
for i := 1 to Size do
begin
P^ := P^ xor Mask;
Inc(P)
end;
except
Free;
raise
end
end;

← →
XHelp (2003-12-14 13:07) [2]

Спасибо

Шифрование streamа Найти похожие ветки