Фигня с ини-файлом.

← →
Дремучий © (2003-08-22 14:35) [0]

сохранять в ини-файл пароли конечно не рекомендуется... НО, если их сохранять шифрованными -- то вродь еще нормально. И тут получается трабла. Имеем "нормальный" текстовый пароль, шифруем, сохраняем. И вот - второй символ(к примеру) зашифровался в перевод строки(код 13). Естественно, прога считывает из зашифрованного пароля только первый символ. Как с этим боротся? Реестр не предлагать. Есть идея юзать дбф-безБДЕ. Однако, стремно немножко.

Можно ли зашифровать текст, в строку ТОЛЬКО из печатаемых символов?

← →
MBo © (2003-08-22 14:38) [1]

да - например,использовать кодирование в печатные символы типа uuencode или base64

← →
panov © (2003-08-22 14:57) [2]

а можно просто IntToHex.

← →
Дремучий © (2003-08-22 15:10) [3]

> IntToHex

уж слишком просто %)

> uuencode или base64

если есть модули(функции) в исходничках -- намыльте плиз.
а я пока в нете за ними погляжу

← →
Романов Р.В. © (2003-08-22 15:13) [4]

А может не в ини файл сохранять пароли

← →
Е-Моё имя © (2003-08-22 15:14) [5]

Дремучий © (22.08.03 15:10)
в Indy есть

← →
Ketmar © (2003-08-22 15:24) [6]

не парься. закодировал, потом хексом кинул -- и всё. %-)

← →
Дремучий © (2003-08-22 15:25) [7]

мда.... тори не подкачал

http://www.torry.net/coding.htm

← →
panov © (2003-08-22 15:26) [8]

>Дремучий © (22.08.03 15:10) [3]

уж слишком просто %)

см. Ж-)
panov © (22.08.03 14:57) [2]
Ketmar © (22.08.03 15:24) [6]

← →
Anatoly Podgoretsky © (2003-08-22 15:56) [9]

IntToHex не для кодирования, а для упаковкий в текстовый формат, и IntToHex как раз самое простое для этого. Но хранить пароли в любом виде неправильно, зачем тебе это и нет ли других вариантов.

← →
Дремучий © (2003-08-22 17:35) [10]

пасиб

← →
panov © (2003-08-22 17:40) [11]

>Дремучий © (22.08.03 17:35)
Кстати, посмотри функции WritePrivateProfile***
Сможешь писать без всяких дополнительных перекодировок в ini-файл двоичные данные.

← →
Дремучий © (2003-08-22 17:58) [12]

> panov ©

procedure TIniFile.WriteString(const Section, Ident, Value: string); begin if not WritePrivateProfileString(PChar(Section), PChar(Ident), PChar(Value), PChar(FFileName)) then raise Exception.CreateResFmt(@SIniFileWriteError, [FileName]); end;

зачем WritePrivateProfileString, если TIniFile.WriteString его же и вызывает?

насчет IntToHex -- а обратной функции(HexToInt) то нету! Видать сочли ее ненужной?

← →
Дремучий © (2003-08-22 18:08) [13]

вот неплохая подборочка функций

http://flora.qnx.org.ru/doc/SysFunc/Func_str.htm
http://flora.qnx.org.ru/doc/SysFunc/Func_str.htm#Функция HexToStr

← →
Паша © (2003-08-22 18:09) [14]

function IntToHex(Value: Integer; Digits: Integer): string;
begin
FmtStr(Result, "%.*x", [Digits, Value]);
end;

стало быть, надо смотреть StrFmt()

>Дремучий © (22.08.03 17:58) [12]

зачем WritePrivateProfileString, если TIniFile.WriteString его же и вызывает?

А я разве имел ввиду WritePrivateProfileString?

WritePrivateProfileStruct - вот нужная тебе функция.

> Anatoly Podgoretsky © (22.08.03 22:15) [16]
> Дремучий © (22.08.03 17:58) [12]
> Есть, называется StrToInt

Да, как ни странно, работает и с HEX.

Потому что HEX это строка.

> Anatoly Podgoretsky © (22.08.03 23:21) [18]
> Потому что HEX это строка.

Я помню :-). Просто, открыв хелп, был удивлен, что сия функция переводит числу из строки, представленное нге толко в десятичной, но шестнадцатеричной системах.

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

Фигня с ини-файлом. Найти похожие ветки