» Autoplay Media Studio

Всем привет!
Можно ли сделать так, чтобы все файлы в папке C:\Papka шифровались, а код шифровки находился в текстовом файле C:\Papka.txt (моя программа поддерживает пользователей и в этой папке есть текстовые файлы, в которых хранятся личные данные (Пользователи, пароли), а также там хранятся личные файлы пользователей и хотелось бы их шифровать, т.е. когда программа выключена все файлы зашифрованы, а когда программа включается файлы расшифровываются и используются).

Есть одна программа шифрования MBIZO® Cryplix™, простенькая, указываешь файлы и пароль шифровки, но как её использовать из основной программы, как бы её модуль.

https://www.cryplix.com/ru/

Vadim021X
Смотри в сторону Crypto.BlowfishDecrypt/Crypto.BlowfishEncrypt.

Цитата:

Есть одна программа шифрования MBIZO® Cryplix™, простенькая, указываешь файлы и пароль шифровки, но как её использовать из основной программы, как бы её модуль.

Для ее использования необходим Microsoft .NET Framework 3.5 или выше, который установлен далеко не у каждого юзера. Я, по крайне мере, не захламляю свою систему подобным барахлом.

Добавлено:
Также не забываем, что есть плагин Crypto, который имеет в своем наборе действие Crypto.TripleDESEncrypt, позволяющий выполнять тот же самый тип шифрования 3DES, что и в программе Cryplix™. Т.е. потребность в данной проге нулевая.

Stalkersof -- тести.

http://rghost.ru/25828121 ::: ~572.1 kB

Zloy_Gelud
Вроде все проверил. Отлично работает. А самое главное очень красиво как в учебнике Спасибо.
Есть один глючок. Попробуйте добавить папку к пути на странице. Но я сам хотел поковырять хоть немного разобраться, на крайняк сделаю чтоб пользователь не смог вводить текст.

Stalkersof

Цитата:

Есть один глючок. Попробуйте добавить папку к пути на странице.

Попробовал. Вроде все нормально. А что у тебя не так?

Zloy_Gelud
Вот посмотрите.
http://s017.radikal.ru/i410/1110/88/4f31fb641f72.jpg
Это только, если кто-то вздумает добавить к пути папку.

Stalkersof -- понял. Попробую исправить.

Пофиксил.
http://rghost.ru/25879961 ::: ~65.7 kB

Zloy_Gelud
Во вроде так как вариант можно g_ProgramName назначать при показе диалога.
g_ProgramName = String.Right(g_CustomDir, (String.Length(g_CustomDir) - String.ReverseFind(g_CustomDir, "\\", false)));

Stalkersof -- посмотри, плиз, исправленный вариант и отпишись.

еще один баг

lerik2703
Это не баг, Тут надо обработчик символов писать при воде с клавы. Zloy_Gelud давал хороший скипт там все есть.
http://gallery.ru-board.com/topic.cgi?forum=5&topic=33745&start=2280
Проверка на валидность пути, Двойной слеш там обрабатывается тоже.
Только доделывать надо. Вроде как дернули из установщика. Но даже там у маститых программистов ошибки. Там например не учли, что пользователь может переключить раскладку на русскую.

lerik2703
Ну все предусмотреть нереально же. Тем более баг, как я понял, правится не трудно - заменой двойных слешов на одинарные.

Цитата:

посмотри, плиз, исправленный вариант и отпишись.

Да все нормально. Буду прикручивать если что найду отпишусь.

PS. Поторопился я, посмотрите еще раз. При клике в tree.

Zloy_Gelud и lerik2703
Гляньте на это может что заинтересует.
Относительно новая технология WPF от Microsoft (XAML+C# или VB)
http://rutube.ru/tracks/3442715.html?v=e18906eebffe186922a4b864b4d32525
Swish Max разработка флеш сайтов. ( акцион скрипт кажется) Кстати можно и в APMS применить.
Вот примеры все платные.
http://www.xpellshop.com/eng/swish-templates.php?pa_id=14
Да и если нравится LUA в Visual Stodio можно его использовать в качестве дополнительного языка.
Сам везде попробывал, пока в поиске может в AMS задержусь

Stalkersof

Цитата:

PS. Поторопился я, посмотрите еще раз. При клике в tree.

Ты лучше сразу пиши на что смотреть.. Я опять не заметил ничего подозрительного.

Zloy_Gelud
Да все это связанно с добавлением папки. В исправленном примере. Попробуйте тоже самое только еще кликните в трее.

Stalkersof -- вроде все происходит аналогично инсталлятору на Inno. Или я уже совсем ослеп?

Zloy_Gelud
Да все работает как надо, Это я что то намудрил когда переносил в вашем примере как должно быть.

Stalkersof

Добавил сортировку.


http://rghost.ru/25944741 v0.3 ::: ~66 kB

Zloy_Gelud
Блин только подцепил правильно. Ну ладно я коды скопирую в проект.
Zloy_Gelud
А я еще на других каталогах проверил тоже все ищет и показывает правильно. Только вот если в программ фалес, много папок задержка секунды две, три. Но это можно картинку прилепить и показывать типа поиск пока цикл отрабатывает.

Stalkersof

Цитата:

Только вот если в программ фалес, много папок задержка секунды две, три. Но это можно картинку прилепить и показывать типа поиск пока цикл отрабатывает.

Это все из-за рекурсивного поиска. Пока цикл не пройдется по все папкам/подпапкам, проект будет "висеть". Почему в данном случае я использовал рекурсию? Да потому, что папок в меню "Пуск" мало и, поэтому, задержки не заметно на глаз . Если папок много, то необходимо идти другим способом. А именно, искать подпапки по мере разворачивания итема. Если критично, могу попробовать сообразить.

Zloy_Gelud

Цитата:

Если критично, могу попробовать сообразить.

Да для меня нет, все устраивает. Есть же плагин ExplorerTree вот его и можно использовать для установки программ. Просто может кому захочется.

Как скачать V3? Пароль требует.

Stalkersof -- пароль стандартный.

Stalkersof
Zloy_Gelud
Или вы меня не поняли либо я поленился написать объяснение!
указывая на ошибку я готел этим сказать что при двойном флеше в пути появляеться папка без названия,и что-бы если пользователь добавляя папку случайно нажав флеш 2 раза а после нжал кнопку просмотр,долго не думал что это такое он сотварил!
з.ы я бы ещё добавил бы список названия папок которые не создаються обычно через Windows (на сколько я помню функция Folder.Create спокойно их создает)!

lerik2703
Да вроде понял. Только наверно это проще сделать при вводе символов в инпут. Чем делать проверку в самом диалоге. И еще помимо двойного слеша запретить вот это /%*%?\"<>|.
Только еще не решил как сделать. Есть два варианта либо запретить пользователю нажимать эти клавиши.(если возможно), или если пользователь ввел этот символ тут же подрезать строку на один символ удалять его и beep'нуть динамиком(обратно если возможно)--месанджами не охота пользователя давить.

PS
А по идее самое лучшее это разрешить вводить пользователю только буквы, : и \ и все. Тут есть над чем думать.
lerik2703
Вот функция которую дали до конца еще не разобрался но тут на строку маска накладывается, только на полный путь.
В доках не написано, а работает правильно.

[more=код]g_CustomDir = Input.GetText("InpSelectGroup");
local pathCustomDir = Shell.GetFolder(SHF_STARTMENUPROGRAMS_COMMON)..g_CustomDir;
--[[
**********************************************************************************
Function:    g_IsValidPath
Purpose:    Determines whether a string contains a valid, fully-qualified path.
Note: checks format of path string for proper UNC or DOS formatting,
but does NOT verify whether path exists.
Arguments:    (string) strPath - the path you want to validate
Returns:    true if the path format is valid, false if it isn't.
**********************************************************************************
]]
function g_IsValidPath(strPath)
    if string.find(strPath, "^\\\\[^/%*%?\"<>|:\\][^/%*%?\"<>|:]+$") then
        return string.find(strPath, "\\\\", 3) == nil;
    end
    if(string.find(strPath, "^%a:\\[^/%*%?\"<>|:]*$") ~= nil) then
        return string.find(strPath, "\\\\", 3) == nil;
    end
    return false;
end

if g_IsValidPath(pathCustomDir)== false then
Dialog.Message("Ошибка", "Имя папки не должно содержать символы: \\\\ / : * ? < > |", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end[/more]

Stalkersof

Цитата:

Только наверно это проще сделать при вводе символов в инпут

ну да в событии on Key как вариант! а для отображения использовать всплывающую подсказку (Tooltip)

Цитата:

В доках не написано, а работает правильно.

это так называемые регулярные выражения постотреть можно здесь

Stalkersof

Код: function g_ContainsValidRelativePathChars(strText)
    if string.find(strText, "[/%*%?\"<>|:]") == nil then
        return string.find(strText, "\\\\", 3) == nil;
    end
    return false;
end

if not g_ContainsValidRelativePathChars(g_CustomDir) then
    Dialog.Message("Ошибка", "Что-то ты в пути накосячил..", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
else

Цитата:

Что-то ты в пути накосячил..

сорри за

function g_ContainsValidRelativePathChars(strText)
if (string.find(strText, "[/%*%?\"<>|:]") == nil) and (string.find(strText, "\\") ~= 1) then
return string.find(strText, "\\\\") == nil;
end
return false;
end

Stalkersof

Тоже верно.

Кто может сказать как сделать авторизацию в программе по базе данных сайта. В базе в таюлицу колонки username записано к примеру admin а passtword 96f36bf40b3dd145aacee9a46df3c76f (зашифровано md5). кто че скажет) ну или в крайнем случае напишите как сделать если пароль открытый пример 123456

Добавлено:
забыл написать база MySQL