ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Шифрование
9 сообщений из 9, страница 1 из 1
Шифрование
    #32323232
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
Добрый день! Возникла такая проблема: программа хранит настройки в реестре, в том числе пароль к некому ФТП. Необходимо хранить в реестре пароль в зашифрованном виде. Кто-нибудь делал так? Подскажите кусочком кода плз.
...
Рейтинг: 0 / 0
13.11.2003, 15:51
| Ответить | Цитировать | Написать  
Шифрование
    #32323239
Проходимец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходимец
Участник
Да XORом его и все дела...
Кому надо в реестре копаться...

Eh? Huh?
...
Рейтинг: 0 / 0
13.11.2003, 15:54
| Ответить | Цитировать | Написать  
Шифрование
    #32323248
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
А ключ, которым ксорить в программе хранить?
...
Рейтинг: 0 / 0
13.11.2003, 15:57
| Ответить | Цитировать | Написать  
Шифрование
    #32323270
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SiDen
Участник
Ключ получать как мд5 например от чего-то что хранится в проге :)
причем хранится тоже как-нить хитро, что бы не в одном месте... а вообще нафига оно надо? если простым сниффером все одно пасс от фтп будет виден в текстовом виде :) если бы фтп в тунеле было хотябы...
...
Рейтинг: 0 / 0
13.11.2003, 16:07
| Ответить | Цитировать | Написать  
Шифрование
    #32323278
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Зарегь левый ком, получишь гуид в подарок от системы.
Им и шифруй/дешифруй.


eNose
...
Рейтинг: 0 / 0
13.11.2003, 16:11
| Ответить | Цитировать | Написать  
Шифрование
    #32323343
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
А как этим ксором шифровать то? Можно кусочек кода?
...
Рейтинг: 0 / 0
13.11.2003, 16:31
| Ответить | Цитировать | Написать  
Шифрование
    #32323364
BaseAdmin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BaseAdmin
Гость
function Encryption(sourse:String):String;
var
S:String;
ES:String;
i, j:Integer;
begin
ES:='sdfvsdvsd'; // Чем шифруеш
S:='';
j:=1;
for i:=1 to Length(Sourse) do
begin
S:=S+chr(ord(Sourse ) ^ ord(ES[j])); // ^ - и есть xor
inc(j);
if J>length(es) then j:=1;
end;
result:=S;
end;

Эта функция и шифрует и дешифрует. Прости если где ошибся.
...
Рейтинг: 0 / 0
13.11.2003, 16:39
| Ответить | Цитировать | Написать  
Шифрование
    #32323451
Апач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Апач
Гость
S:=S+chr(ord(Sourse) ^ ord(ES[j])); // ^ - и есть xor

На эту строчку ругается: Incompatible types
...
Рейтинг: 0 / 0
13.11.2003, 17:21
| Ответить | Цитировать | Написать  
Шифрование
    #32323883
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SiDen
Участник
S:=S+chr(ord(Sourse[j]) xor ord(ES[j]));
...
Рейтинг: 0 / 0
14.11.2003, 08:36
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Шифрование
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]