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

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


eNose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2003, 16:31
    #32323343
Апач
Апач
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шифрование
А как этим ксором шифровать то? Можно кусочек кода?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2003, 16:39
    #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, 17:21
    #32323451
Апач
Апач
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шифрование
S:=S+chr(ord(Sourse) ^ ord(ES[j])); // ^ - и есть xor

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


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