Сохранение пароля в бланке

[*Qwerty*]

И последний на сегодня вопрс: как сохранить пароль, который был введён в каком- нибудь мною созданном бланке, так чтобы при очередном запуске моей проги он (пароль) был в том же текстовом поле в котором введён во время предыдущего запуска.
Я понимаю, что это можно сохранить в текстовом файле, открыв его посредством "Open", но при таком раскладе любой юзер может прочесть этот пароль открыв мой текстовый файл, а такое меня не устраивает. Надо чтобы пароль нне могли прочесть те, кто его не знает, как например это делается в Видовсе при подключении к инету.
Я надеюсь, что суть вопроса изложил понятно...
С уважением *Qwerty*

[A.A.Z.]

Зашифруй его!
Придумай какой-нибудь свой метод шифровки (или возьми у кого-нибудь), зашифруй файл, запихни его куда-нибудь в папку Windows\System32, сделай скрытым+системным+только чтение.
Можно в реестр запихнуть.

[*Qwerty*]

Можно в реестр запихнуть.

Я наверно жесткий ламер, но как это делается- запихивание в реестр?

[A.A.Z.]

Код: Выделить всё

SaveSetting <Имя проги>, <Ветка>, <Ключ>, <Параметр>

Сохраняет в HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\<Имя проги>\<Ветка>\<Ключ>

[FaKk2]

Код: Выделить всё

SaveSetting <Имя проги>, <Ветка>, <Ключ>, <Параметр>

Сохраняет в HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\<Имя проги>\<Ветка>\<Ключ>

Инициатива наказуема, слыхал такое?(гаденько посмеиваясь)

Теперь расскажи, как вытащить "запхнутое" из реестра? (Уа-ха-ха)

Но, все таки, спасу "отца русской демократии"

Код: Выделить всё

var=GetSetting( Имя Проги, Секция, Ключ)

[*Qwerty*]

Господа, товарищи, а может ли кто-нибудь объснить мне популярно и по-возможности подробно, что такое реестр, а то мне один комрад пытался это объяснить, но что-то у него не важно это вышло(при всём уважении к этому комраду). Ну вобщем заранее благодарен

[hCORe]

Итак, все дружно идем на сайт http://www.piter.com - заказывать книжку Павла Шалина "Реестр Windows XP. Специальный справочник"
____________________________________

Ладно, попытаюсь объяснить...

Видишь ли, во времена ДОСа программы ухищрялись как могли с сохранением настроек: кто-то записывал их в ini-файлы, кто-то хранил конфигурацию в БД собственного формата с шифрованием, кто-то ухитрялся писать настройки в таблицу размещения разделов (шутка )
С появлением первых версий Винды все стали дружно писать только в ini... И тут обнаружился облом: не прочитать из текстового файла больше 64К стандартными системными средствами. Ну никак. И тогда умные (или глупые) Майкрософтовцы ввели в Windows NT 3.51, а потом и в Windows 95 штуку под названием "реестр". Эта такая большая реляционная база данных, где разные виды объектов подчиняются строгой иерархии. Во как!

На самом деле здесь нет ничего страшного.

Корневым элементом реестра является улей (hive) - вся информация, содержащаяся в нем, хранится в отдельном файле. Ульев всего шесть: HKEY_LOCAL_MACHINE (HKLM), HKEY_CURRENT_USER (HKCU), HKEY_CLASSES_ROOT (HKCR), HKEY_USERS, HKEY_CURRENT_CONFIG и HKEY_DYN_DATA. Каждый из них выполняет особую функцию - HKLM, например, хранит данные о конфигурации компьютера, HKCU - о настройках пользователя и т.п.

Каждый улей содержит разделы - SOFTWARE, Config, ...

Разделы, в свою очередь, содержат подразделы: Microsoft, Netscape, Drivers, ..., а те содержат подразделы и т.д.

Каждый подраздел или раздел содержит значение по умолчанию ('Default' или '@') и несколько параметров различных типов. Самыми важными типами являются REG_SZ (строка), REG_DWORD (число), REG_BINARY (двоичные данные - да, единицы и нули!), REG_MULTI_SZ (многострочные данные) и REG_EXPAND_SZ (расширяемый массив строк).

Каждый параметр может иметь свое значение, которые ты впоследствии при помощи функций VB или самой Винды намереваешься прочитать/записать/изменить.

Вот...

[Лёха_Virus]

Вот тебе пара функций для шифрования (специально для паролей писал ). Шифрование простенькое, но не любой юзер прочтёт... далеко не люьой

Код: Выделить всё

'ключи (пихать в general declarations)
Private Const key1 = 2712
Private Const key2 = 2.34
'шифрование
Function code(str As String) As String
Dim e As String
For i = 1 To Len(str)
e = e & key2 * (Asc(Mid(str, i, 1)) - key1) & " "
Next
code = e
End Function
'дешифрование
Function decode(str As String) As String
Dim e As String, k As Integer
k = 1
For i = 1 To Len(str)
If Mid(str, i, 1) = " " Then e = e & Chr((Mid(str, k, i - k) / key2) + key1): k = i + 1
Next
decode = e
End Function

[hCORe]

Ага, с кодами оперируешь... Так оно же слабое (c) Очень злой криптоаналитик
Если необходима неплохая защита, используйте Sabre Encoder/Decoder 3 со сдвигом матрицы по заданному символьному ключу (см. http://pscode.com)

[Лёха_Virus]

Ага, с кодами оперируешь... Так оно же слабое (c) Очень злой криптоаналитик
Если необходима неплохая защита, используйте Sabre Encoder/Decoder 3 со сдвигом матрицы по заданному символьному ключу (см. http://pscode.com)

ну да, слабая... главное чтоб всякие "хакеры" не прочитали
метод замены со сдвигом - дёшево но сердито