Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как записать в ini-фаил пароль, Как записать в ini-фаил пароль? 
:(
    Опции темы
Optima
  Дата 14.1.2005, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2005

Репутация: нет
Всего: нет
smile Как записать в ini-фаил пароль? smile smile smile smile
PM MAIL   Вверх
Snowy
Дата 14.1.2005, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Не вижу разницы, что писать в ини файл, пароль или что-то другое.
Просто писать, как обычно пишут в ини.
Да и зачем писать пароль в ини? Так его любой дурак найдет.
Нельзя ли поподробнее: что, зачем и почему?
Что вообще требуется, зачем ты это делаешь, и почему ты хочешь хранить пароль именно в ини, а не как-то по другому.
Из твоего вопроса вытекают лишь вопросы, вместо ответов.
P.S. Почитай в справке про TIniFile - может все гораздо проще?

Это сообщение отредактировал(а) Snowy - 14.1.2005, 08:41
PM MAIL   Вверх
Петрович
Дата 14.1.2005, 08:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 15
Всего: 55
В принципе надо просто зашифровать его перед записью. Соответственно при чтении расшифровывать.
Но учти, любой кто сможет взять твой ини-файл сможет воспользоваться этим паролем.


--------------------
Все знать невозможно, но хочется
PM ICQ   Вверх
Cetus
Дата 14.1.2005, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 18.4.2004

Репутация: нет
Всего: 1
можно хранить в ini хэш пароля.
при вводе пароля хешировать введенный, а потом
сравнить получившийся хеш с хешем записанным в ini.
если совпали значит пароль верный, иначе нет.
минус: очень проста подмена хеша

--------------------
Легко внести изменения в код.Трудно сделать это корректно.
PM MAIL   Вверх
Borland_Delphi_6
Дата 14.1.2005, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


LoneLINEss
****


Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20
Юзай MD5. Пример вроде есть в DRKB... Но че-то я ща не могу найти smile


--------------------
Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии
PM MAIL WWW   Вверх
Snowy
Дата 14.1.2005, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Стоп, стоп. Все дружно стали советовать на перебой...
Давайте лучше послушаем автора вопроса - пусть сначала толково объяснит: что собственно он хочет.
В вопросе 2 ключевые фразы: "пароль" и "ini файл". О шифровании речь вообще не шла. Хотя о чем собственно речь? Пусть автор уточнит, тогда и советы давать будем.
PM MAIL   Вверх
Guest
Дата 16.1.2005, 09:18 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
smile Просто я хочу чтобы при загрузке пароль в edit1 получала из какого-нибудь файл (желательно ini) а потом при завершении проги сохранялся в этот же фаил (желательно шифровка) И если не заставит труда пример smile
  Вверх
RA
Дата 16.1.2005, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115
Код

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
 I : Integer;
begin
 Result := '';
 for I := 1 to Length(InString) do
 begin
   Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
   StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
 end;
end;

function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
 I : Integer;
begin
 Result := '';
 for I := 1 to Length(InString) do
 begin
   Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
   StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
 end;
end;


writeprivateprofilestring('Settings','Password',Pchar( Encrypt('ПАРОЛЬ',16,12,12)  ), Pchar('C:\My.Ini'));


{ Для расшифровки
Result := Decrypt(EncryPtedPassword,16,12,12);
}



Это сообщение отредактировал(а) RAdmin - 16.1.2005, 14:07
PM   Вверх
Optima
Дата 18.1.2005, 07:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2005

Репутация: нет
Всего: нет
Теперь у меня записывает в ини чеш но как мне получить из ини пароль и вставить его в edit1
PM MAIL   Вверх
User
Дата 21.1.2005, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 213
Регистрация: 5.11.2004

Репутация: нет
Всего: нет
Все очень просто. Если ты хочешь записать в ини файл пароль то это надо сделать следующим образом. Для записи пароля применяешь обычное сохранение ini файлов. Записываешь туда текст из Edit1, Затем читаешь его при загрузке формы по событию OnShow и присваивешь то что прочиталь Edit1.
Если подождешь до понедельника, то я могу найти данный код и скунуть тебе. В свое время я такое для одного клиента делал.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2763 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.