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

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

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

Алгоритм шифрования [D7, WinXP]

Страницы: < 1 2 3
Dark_blue © (2007-10-16 14:25:00)
Приветствую уважаемые мастера подскажите мне пожалуйста простой код для шифрования и дешифрования информации. То есть у меня есть текстовый файл мне нужно его зашифровать, затем в другой программе загрузить информацию из файла, но уже расшифрованную, как это сделать?

Сергей М. (2007-10-16 14:33:00) [41]
var
ms: TMemoryStream;
i: Integer;
Key: Byte; //ключ шифрования
..

ms := TMemoryStream.Create;
try
ms.LoadFromFile('MyFile.txt');
for i:= 0 to ms.Size - 1 do
PByteArray(ms.Memory)[i] := PByteArray(ms.Memory)[i] xor Key;
ms.SaveToFile('MyFile.txt');
finally
ms.Free;
end;

Страницы: < 1 2 3

Наверх

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