при помоще edit'а через memo сгенерировать файл

[Serge_Bliznykov]

я не могу понять как работать с классами, а писать один и тот же код шифрования много раз как то глупо

давайте так - вы напишете код сохранения и чтения нужных данных (без всяких классов ), выложите этот код здесь, на форуме. я покажу, как сохраняемые данные шифровать (и расшифровывать при чтении) (через обычный XOR - думаю, что вам этого будет более чем достаточно!)

[m1zantrop]

Сообщение от Serge_Bliznykov

давайте так - вы напишете код сохранения и чтения нужных данных (без всяких классов ), выложите этот код здесь, на форуме. я покажу, как сохраняемые данные шифровать (и расшифровывать при чтении) (через обычный XOR - думаю, что вам этого будет более чем достаточно!)

у меня есть код шифрования через xor и дешифрования. просто он у меня уже используется для зашифровки и расшифровки файлов тестирования. где вопросы ответы и пр. я имел ввиду, что если снова копировать этот код и для регистрации будет мусорка

[Serge_Bliznykov]

Сообщение от m1zantrop

у меня есть код шифрования через xor и дешифрования. просто он у меня уже используется для зашифровки и расшифровки файлов тестирования. где вопросы ответы и пр. я имел ввиду, что если снова копировать этот код и для регистрации будет мусорка

Измените код шифрования/дешифрования так, чтобы это была УНИВЕРСАЛЬНАЯ функция, вызывайте её в нужных местах. и никакого "мусорника" не будет!

  MyData1 := DecryptData( ДанныеЗашифрованные, Ключ);

[m1zantrop]

Сообщение от Serge_Bliznykov

Измените код шифрования/дешифрования так, чтобы это была УНИВЕРСАЛЬНАЯ функция, вызывайте её в нужных местах. и никакого "мусорника" не будет!

  MyData1 := DecryptData( ДанныеЗашифрованные, Ключ);

я не достаточно сообразителен, чтобы это сделать)

begin
reg.LoadFromFile('reg.bin');
if (sEdit1.Text=reg.Text[0]) and (sEdit2.Text=reg.Text[1]) then
Form7.Close;
begin
sEdit1.Text:='';
sEdit2.Text:='';
end;

как это задать?