Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Шифрование данных

Автор: Borland_Delphi_6 22.11.2002, 16:52

Нужно прописать в реестр или ini файл зашифрованные данные. Если кто может, напишите код для шифрования ( самый простенький ). Например было: 1234, стало 4321. Или что нибудь вроде этого.

Автор: Mikel 22.11.2002, 17:04

Ну самый простенький: (написал сразу, на компиляторе не проверял)

Код

procedure Code(Var s:string);
Var i:integer;
begin
for i:=1 to Length(S)
    do S[I]:=Chr(not Byte(ord(S[I])));
end;

для кодировки/декодировки процедура одна и таже.

Автор: Vit 23.11.2002, 00:00

Эта тема есть в нашем FAQ:

http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?act=ST;f=32;t=848;hl=шифр

Автор: neutrino 24.11.2002, 22:46

Самое простое шифрование с ключем - ето через XОР. То же, что и Микел написал, толко не NOT а XОR и маска.