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

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

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

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

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

Ins (2007-10-16 15:29:00) [21]

> Я понял я не указал ключ

Может у него запятая не работает на клавиатуре...

Dark_blue (2007-10-16 15:28:00) [22]
Я понял я не указал ключ

Сергей М. (2007-10-16 15:24:00) [23]

> Германн © (16.10.07 15:18) [18]

Не царское это дело - головой думать)

Проще пытаться открыть дверной замок ключем от другого замка и жаловаться при этом на превратности судьбы)

Германн (2007-10-16 15:18:00) [24]

> Dark_blue (16.10.07 15:09) [16]
>
> Хорошо, но только после того, как я узнаю, почему алгоритм
> не шифрует информацию
>

А головой подумать? О смысле жизни и о значении ключа?

Сергей М. (2007-10-16 15:11:00) [25]

> почему алгоритм не шифрует информацию

А у меня шифрует.

Что я делаю не так ?

Dark_blue (2007-10-16 15:09:00) [26]
Хорошо, но только после того, как я узнаю, почему алгоритм не шифрует информацию

Сергей М. (2007-10-16 15:09:00) [27]

> Германн © (16.10.07 15:07) [13]

Это уже его личная половая драма)

Сергей М. (2007-10-16 15:08:00) [28]

> ничего не работает

Что, прямо так и говорит - "ничего не работает" ?)

p.s. Любезный, изволь все-таки расставлять знаки препинания там где им положено находиться по правилам русского языка)

Германн (2007-10-16 15:07:00) [29]
А потом он попробует этот файл загрузить в мемо.
Да не остынут кнопки на наших клавиатурах!
:-)

Dark_blue (2007-10-16 15:03:00) [30]
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
i: Integer;
Key: Byte; //êëþ÷ øèôðîâàíèÿ
begin

ms := TMemoryStream.Create;
try
ms.LoadFromFile('q.txt');
for i:= 0 to ms.Size - 1 do
PByteArray(ms.Memory)[i] := PByteArray(ms.Memory)[i] xor Key;
ms.SaveToFile('q.txt');
finally
ms.Free;
end;
Я правельно сделал или нет если да то ничего не работает!

Ins (2007-10-16 15:02:00) [31]

> Лично я знаю только один алгоритм для получения хеш, и этот
> метод допускает одно и тоже значени хэш для разных ответов

????????????????

Сергей М. (2007-10-16 15:01:00) [32]

> Ins © (16.10.07 14:53) [8]

Не царское это дело - запятые ставить)

Dark_blue (2007-10-16 15:00:00) [33]
Ins © (16.10.07 14:52) [7]
Лично я знаю только один алгоритм для получения хеш, и этот метод допускает одно и тоже значени хэш для разных ответов

Ins (2007-10-16 14:53:00) [34]

> Сергей М. © (16.10.07 14:51) [6]

Я так понимаю, после "бы" подразумевается запятая :)

Ins (2007-10-16 14:52:00) [35]

> Dark_blue (16.10.07 14:48) [5]

Предлагаю вместо ответов в файле хранить их хеш. А потом просто высчитывать хеш от введенного пользователем ответа и сравнивать. Это будет лучше (ИМХО). Но если не охота париться, [1] тебе вполне подойдет.

Сергей М. (2007-10-16 14:51:00) [36]

> Если бы я написал прогу для создания контролирующих тестов

Если б да кабы)

Dark_blue (2007-10-16 14:48:00) [37]
Если бы я написал прогу для создания контролирующих тестов, моя прога берёт вопросы из файла но проблема в том что в этом файле лежат и правельные ответы

Сергей М. (2007-10-16 14:44:00) [38]

> этот код для шифрования а не для дешифрования?

И для того и для другого.

Один раз запустил - файл зашифрован, второй раз запустил (с тем же ключем) - расшифрован.

Ins (2007-10-16 14:41:00) [39]

> Dark_blue (16.10.07 14:25)

А от кого защищаетесь? От младшей сестренки? :)

Dark_blue (2007-10-16 14:39:00) [40]
Я так понимаю этот код для шифрования а не для дешифрования?

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

Наверх

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