Шифрование файлов на «лету» в HiAsm

Форумы ЗадачиШифрование файлов на «лету» в HiAsm ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 7

Рейтинг: 0

#1: 2017-08-28 04:36:43 ЛС | профиль | цитата

Всем привет! А возможно ли в HiAsm создать программу наподобие TrueCrypt? Конечно не с такими возможностями, но чтобы шифровала файлы на «лету»? Можно не в новом разделе диска, а в отдельном, общем файле (контейнере). Чтобы можно было записывать и извлекать разные файлы из контейнера, предварительно шифруя их. Подскажите пожалуйста, возможно ли это реализовать в HiAsm? Если да, то с чего начать?

карма: 0

Ответов: 16884

Рейтинг: 1239

#2: 2017-08-28 07:39:28 ЛС | профиль | цитата

А велосипед Панель управления\Все элементы панели управления\Шифрование диска BitLocker не подходит ?

Редактировалось 1 раз(а), последний 2017-08-28 07:41:22

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 7

Рейтинг: 0

#3: 2017-08-28 08:38:51 ЛС | профиль | цитата

Tad писал(а):

А велосипед Панель управления\Все элементы панели управления\Шифрование диска BitLocker не подходит ?

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

карма: 0

Ответов: 8926

Рейтинг: 823

#4: 2017-08-28 09:38:52 ЛС | профиль | цитата

Razzzor, можно: http://forum.hiasm.com/getfile/38169

карма: 19

Ответов: 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

Ответов: 8926

Рейтинг: 823

#6: 2017-08-28 10:10:27 ЛС | профиль | цитата

Razzzor писал(а):

А возможно ли в HiAsm

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

можно:

карма: 19

Ответов: 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

Ответов: 7

Рейтинг: 0

#8: 2017-08-28 11:10:46 ЛС | профиль | цитата

--- Добавлено в 2017-08-28 11:12:09

Vadimluk1 писал(а):

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

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

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

карма: 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

Ответов: 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

Ответов: 632

Рейтинг: 4

#11: 2017-08-29 01:10:22 ЛС | профиль | цитата

Galkov, почему Вы стремления помочь, воспринимаете агрессивно? Помогаю как умею.

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

карма: 0

Ответов: 497

Рейтинг: 16

#12: 2017-08-29 04:49:15 ЛС | профиль | цитата

Galkov писал(а):

Наиболее простой

извините


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

карма: 1

]

Ответов: 9906

Рейтинг: 351

#13: 2017-08-29 17:08:53 ЛС | профиль | цитата

Vadimluk1 писал(а):

почему Вы стремления помочь, воспринимаете агрессивно? Помогаю как умею

А в чем агрессия

У меня есть мнение, отличное от Вашего, что называется помощью, а что - желанием показаться умнее, чем на самом деле (что я и обозначил одним словом).
И это мнение я высказал.
Мне представляется, что и я тоже (а не только Вы) имею право на высказывание своего мнения. Хотя бы иногда.

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

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

RAWY_EX писал(а):

извините

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

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

карма: 9

Ответов: 1926

Рейтинг: 172

#14: 2017-08-29 19:23:48 ЛС | профиль | цитата

Razzzor писал(а):

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

Редактировалось 1 раз(а), последний 2017-08-29 19:24:58

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 632

Рейтинг: 4

#15: 2017-08-29 20:17:43 ЛС | профиль | цитата

3042 писал(а):

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

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

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

карма: 0

Форумы ЗадачиШифрование файлов на «лету» в HiAsm ← Ctrl12Ctrl →


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