Вверх ↑
Этот топик читают: Гость
Ответов: 7
Рейтинг: 0
#1: 2017-08-28 04:36:43 ЛС | профиль | цитата
Всем привет! А возможно ли в HiAsm создать программу наподобие TrueCrypt? Конечно не с такими возможностями, но чтобы шифровала файлы на «лету»? Можно не в новом разделе диска, а в отдельном, общем файле (контейнере). Чтобы можно было записывать и извлекать разные файлы из контейнера, предварительно шифруя их. Подскажите пожалуйста, возможно ли это реализовать в HiAsm? Если да, то с чего начать?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2017-08-28 07:39:28 ЛС | профиль | цитата
А велосипед Панель управления\Все элементы панели управления\Шифрование диска BitLocker не подходит ?

Редактировалось 1 раз(а), последний 2017-08-28 07:41:22
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 7
Рейтинг: 0
#3: 2017-08-28 08:38:51 ЛС | профиль | цитата
Tad писал(а):
А велосипед Панель управления\Все элементы панели управления\Шифрование диска BitLocker не подходит ?

Не подходит. Я не спрашивал чем можно зашифровать диск, я спросил можно ли сделать такой софт в HiAsm?
карма: 0

0
Ответов: 8886
Рейтинг: 823
#4: 2017-08-28 09:38:52 ЛС | профиль | цитата
Razzzor, можно: http://forum.hiasm.com/getfile/38169
карма: 19

0
Ответов: 7
Рейтинг: 0
#5: 2017-08-28 09:51:28 ЛС | профиль | цитата


--- Добавлено в 2017-08-28 09:52:10

Леонид писал(а):
Razzzor, можно: http://forum.hiasm.com/getfile/38169

Так это обычная шифровка файла. Я много таких программок сделал, разными алгоритмами шифрования. И два своих придумал. Но это всё не то. Как в этом зашифрованном файле, хранить другие файлы? Как при вводе ключа, получать доступ к этим файлам? Удалять не нужные, записывать новые и т.д.

Редактировалось 2 раз(а), последний 2017-08-28 09:52:10
карма: 0

0
Ответов: 8886
Рейтинг: 823
#6: 2017-08-28 10:10:27 ЛС | профиль | цитата
Razzzor писал(а):
А возможно ли в HiAsm

Леонид писал(а):
можно:

карма: 19

0
Ответов: 632
Рейтинг: 4
#7: 2017-08-28 10:28:20 ЛС | профиль | цитата
Razzzor писал(а):

Как в этом зашифрованном файле, хранить другие файлы? Как при вводе ключа, получать доступ к этим файлам? Удалять не нужные, записывать новые и т.д.

Пример использования элемента для соединения нескольких файлов в один:
Add(MainForm,9361407,273,140)
{
Width=358
Height=128
Caption="Склеивание файлов"
}
Add(FileStream,14688063,532,238)
{
Mode=1
Point(doCopyFromStream)
Point(doPosition)
link(onLoad,16436871:doData,[])
}
Add(Edit,2192225,371,189)
{
Left=75
Top=10
Width=260
Text=""
ReadOnly=0
link(onChange,14688063:doOpen,[(511,195)(511,244)])
}
Add(Button,4074826,420,203)
{
Left=10
Top=65
Width=325
Caption="Записать на диск"
link(onClick,14688063:doClose,[(492,209)(492,251)])
}
Add(FileStream,16378432,420,252)
{
link(onLoad,1018753:doEvent1,[])
}
Add(ODialog,3015364,322,252)
{
link(onExecute,16405465:doText,[])
}
Add(Edit,16405465,371,252)
{
Left=75
Top=40
Width=260
Text=""
ReadOnly=0
link(onChange,16378432:doOpen,[])
}
Add(Button,9182617,273,252)
{
Left=10
Top=40
Width=60
Caption="Файл 2"
link(onClick,3015364:doExecute,[])
}
Add(DoData,16436871,581,238)
{
link(onEventData,14688063:doPosition,[(622,244)(622,289)(519,289)(519,265)])
link(Data,14688063:Size,[(587,226)(572,226)(572,281)(545,281)])
}
Add(ODialog,12961147,322,189)
{
link(onExecute,2192225:doText,[])
}
Add(Button,13789902,273,189)
{
Left=10
Top=10
Width=60
Caption="Файл 1"
link(onClick,12961147:doExecute,[])
}
Add(Hub,1018753,469,252)
{
link(onEvent1,14688063:doCopyFromStream,[])
link(onEvent2,16378432:doClose,[(492,265)(492,290)(411,290)(411,265)])
}



Потом только останется зашифровать.

Редактировалось 1 раз(а), последний 2017-08-28 10:29:02
карма: 0

0
Ответов: 7
Рейтинг: 0
#8: 2017-08-28 11:10:46 ЛС | профиль | цитата
--- Добавлено в 2017-08-28 11:12:09

Vadimluk1 писал(а):
Потом только останется зашифровать.

Спасибо. А как потом вытащить файл из файла?

Редактировалось 3 раз(а), последний 2017-08-28 11:59:05
карма: 0

0
Ответов: 632
Рейтинг: 4
#9: 2017-08-28 13:03:23 ЛС | профиль | цитата
Razzzor писал(а):
--- Добавлено в 2017-08-28 11:12:09

Vadimluk1 писал(а):
Потом только останется зашифровать.

Спасибо. А как потом вытащить файл из файла?

Редактировалось 2 раз(а), последний 2017-08-28 11:12:09

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

Add(MainForm,9361407,210,196)
{
Width=358
Height=128
Caption="Склеивание файлов"
}
Add(FileStream,14688063,497,294)
{
Mode=1
Point(doCopyFromStream)
Point(doPosition)
link(onLoad,16436871:doData,[])
}
Add(Edit,2192225,308,245)
{
Left=75
Top=10
Width=260
Text=""
ReadOnly=0
link(onChange,14688063:doOpen,[(448,251)(448,300)])
}
Add(Button,4074826,357,259)
{
Left=10
Top=65
Width=325
Caption="Записать на диск"
link(onClick,14688063:doClose,[(429,265)(429,307)])
}
Add(FileStream,16378432,357,308)
{
link(onLoad,1018753:doEvent1,[])
}
Add(ODialog,3015364,259,308)
{
link(onExecute,16405465:doText,[])
}
Add(Edit,16405465,308,308)
{
Left=75
Top=40
Width=260
Text=""
ReadOnly=0
link(onChange,16378432:doOpen,[])
}
Add(Button,9182617,210,308)
{
Left=10
Top=40
Width=60
Caption="Файл 2"
link(onClick,3015364:doExecute,[])
}
Add(DoData,16436871,546,294)
{
link(onEventData,14688063:doPosition,[(587,300)(587,345)(484,345)(484,321)])
link(Data,14688063:Size,[(552,282)(537,282)(537,337)(510,337)])
}
Add(ODialog,12961147,259,245)
{
link(onExecute,2192225:doText,[])
}
Add(Button,13789902,210,245)
{
Left=10
Top=10
Width=60
Caption="Файл 1"
link(onClick,12961147:doExecute,[])
}
Add(Hub,1018753,406,308)
{
link(onEvent1,6919520:doStrCat,[])
link(onEvent2,16378432:doClose,[(429,321)(429,346)(348,346)(348,321)])
}
Add(StrCat,6919520,441,308)
{
Str1=";"
link(onStrCat,14688063:doCopyFromStream,[])
}
Add(MultiStrPart,5805636,511,476)
{
link(Str,10215609:Stream,[(517,464)(429,464)(429,527)(342,527)])
}
Add(FileStream,10215609,336,483)
{
Point(doCopyFromStream)
Point(doPosition)
link(onLoad,5805636:doSplit,[(440,489)(440,482)])
}
Add(InfoTip,14630062,441,441)
{
Info=#26:Первая точка, первый файл.|26:Вторая точка, второй файл.|
Width=225
Height=116
}

Что это работать будет, дать гарантии не могу, время проверять нет.
карма: 0

0
Ответов: 9906
Рейтинг: 351
#10: 2017-08-28 16:46:08 ЛС | профиль | цитата
Vadimluk1 писал(а):
Что это работать будет, дать гарантии не могу, время проверять нет
Вот и нечего было выделываться.

Наиболее простой способ соединения файлов (без идиотских проблем наличия какого-то там символа внутри файла) -- такой:
Add(MainForm,9361407,161,189)
{
Width=358
Height=128
Caption="Склеивание файлов"
}
Add(FileStream,14688063,364,133)
{
Mode=1
Point(doCopyFromStream)
Point(doPosition)
}
Add(Edit,2192225,259,133)
{
Left=75
Top=10
Width=260
Text=""
ReadOnly=0
link(onChange,14688063:doOpen,[])
}
Add(Button,4074826,308,140)
{
Left=10
Top=65
Width=325
Caption="Close File-OUT"
link(onClick,14688063:doClose,[])
}
Add(FileStream,16378432,343,259)
{
link(onLoad,1727523:doConvert,[])
}
Add(ODialog,3015364,210,252)
{
link(onExecute,16405465:doText,[])
}
Add(Edit,16405465,259,252)
{
Left=75
Top=40
Width=260
Text=""
ReadOnly=0
link(onChange,11069523:doEvent1,[])
}
Add(Button,9182617,161,252)
{
Left=10
Top=40
Width=60
Caption="File-IN"
link(onClick,3015364:doExecute,[])
}
Add(ODialog,12961147,210,133)
{
link(onExecute,2192225:doText,[])
}
Add(Button,13789902,160,133)
{
Left=10
Top=10
Width=60
Caption="Fille-OUT"
link(onClick,12961147:doExecute,[])
}
Add(DataToFileEx,8166175,364,210)
{
Type=3
link(Stream,2672759:Var2,[])
}
Add(DataToFileEx,469551,441,252)
{
Type=2
DataSize=4
link(Stream,2672759:Var3,[(447,194)])
}
Add(Hub,11069523,308,252)
{
OutCount=3
link(onEvent1,8166175:doPut,[(333,258)(333,223)])
link(onEvent2,16378432:doOpen,[])
link(onEvent3,16378432:doClose,[])
}
Add(StreamConvertor,1727523,392,259)
{
Mode=6
link(onResult,469551:doPut,[])
}
Add(GetDataEx,2672759,364,189)
{
link(Data,14688063:Stream,[])
}

Редактировалось 1 раз(а), последний 2017-08-28 16:47:26
карма: 9

0
Ответов: 632
Рейтинг: 4
#11: 2017-08-29 01:10:22 ЛС | профиль | цитата
Galkov, почему Вы стремления помочь, воспринимаете агрессивно? Помогаю как умею.

Редактировалось 1 раз(а), последний 2017-08-29 01:11:16
карма: 0

0
Ответов: 497
Рейтинг: 16
#12: 2017-08-29 04:49:15 ЛС | профиль | цитата
Galkov писал(а):
Наиболее простой

извините


Add(StreamArray,8426808,315,364)
{
Streams=[]
}

карма: 1
        ]  
0
Ответов: 9906
Рейтинг: 351
#13: 2017-08-29 17:08:53 ЛС | профиль | цитата
Vadimluk1 писал(а):
почему Вы стремления помочь, воспринимаете агрессивно? Помогаю как умею
А в чем агрессия
У меня есть мнение, отличное от Вашего, что называется помощью, а что - желанием показаться умнее, чем на самом деле (что я и обозначил одним словом).
И это мнение я высказал.
Мне представляется, что и я тоже (а не только Вы) имею право на высказывание своего мнения. Хотя бы иногда.

Скажу больше: у меня есть мнение, что выкладывание схем в таком виде, что их невозможно читать (как это обычно делаете Вы) -- является проявлением НЕУВАЖЕНИЯ к своим коллегам. К тем, кто будет в этом ковыряться.

Опять же - никакой агрессии. Просто у меня такое мнение.
А помогать "как умею" - не надо. Если не умеешь - эффект может быть обратным.
Опять же, у меня просто такое мнение.


RAWY_EX писал(а):
извините
Легко.
Как только будет приведен более простой пример, выполняющий ту же функциональность.
А пока это больше напоминает "что это работать будет, дать гарантии не могу"

Редактировалось 1 раз(а), последний 2017-08-29 17:10:03
карма: 9

0
Ответов: 1924
Рейтинг: 172
#14: 2017-08-29 19:23:48 ЛС | профиль | цитата
Razzzor писал(а):
Как в этом зашифрованном файле, хранить другие файлы? Как при вводе ключа, получать доступ к этим файлам? Удалять не нужные, записывать новые и т.д.


http://forum.hiasm.com/topic/12009 (компонент для создания массива файлов).

Редактировалось 1 раз(а), последний 2017-08-29 19:24:58
карма: 9
0
Ответов: 632
Рейтинг: 4
#15: 2017-08-29 20:17:43 ЛС | профиль | цитата
3042 писал(а):
Razzzor писал(а):
Как в этом зашифрованном файле, хранить другие файлы? Как при вводе ключа, получать доступ к этим файлам? Удалять не нужные, записывать новые и т.д.


http://forum.hiasm.com/topic/12009 (компонент для создания массива файлов).

3042, огромное спасибо!
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)