Вверх ↑
Этот топик читают: Гость
Ответов: 1
Рейтинг: 0
#1: 2017-02-16 16:40:41 ЛС | профиль | цитата
Здравствуйте! не получается написать программу. Задача: есть аудио или видео файл на компьютере, нужно сделать так чтобы его можно было открывать только на одном компьютере. Предполагаемое решение создать ридер, который при открытии будет расшифровывать ранее зашифрованный файл и давать доступ к нему проверяя макадрес(id) компьютера. Подскажите как это можно сделать в hiasm или может быть есть другие варианты реализации?
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 165
Рейтинг: 6
#2: 2017-02-16 20:49:16 ЛС | профиль | цитата
В качестве примера:

Add(MainForm,2953706,203,126)
{
Width=254
Height=252
Color=16777215
Caption="Encrypt image example"
Position=1
link(onCreate,16366659:doInfo,[])
}
Add(Button,4773385,367,343)
{
Left=10
Top=10
Width=95
Caption="EN(DE)CRYPT"
link(onClick,12348485:doExecute,[])
}
Add(ODialog,12348485,434,343)
{
Filter="JPEG|*.jpg"
StartDir=""
FileName=""
link(onExecute,5221245:doEvent1,[])
}
Add(AdapterInfo,16366659,329,140)
{
Query="MACAddress"
Point(MACAddress)
link(onInfo,4599885:doCompare,[])
}
Add(If_else,4599885,399,140)
{
link(onFalse,6306206:doValue,[])
link(Op1,16411263:Var2,[])
}
Add(GetDataEx,16411263,399,123)
{
Angle=3
link(Data,16366659:MACAddress,[(384,128)(384,184)(363,184)])
}
Add(Memory,6306206,462,147)
{
Point(Data)
link(Data,16411263:Var3,[(468,128)])
}
Add(InfoTip,4907194,301,91)
{
Info=#14:Get MAC-adress|
Width=232
Height=130
}
Add(LineBreakEx,1298266,462,196)
{
Caption="MAC_PASSWORD"
Type=3
link(_Data,6306206:Value,[])
}
Add(LineBreakEx,14908885,581,322)
{
Caption="MAC_PASSWORD"
Type=2
}
Add(FileStream,14871973,651,350)
{
FileName="C:\\test.jpg"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
}
Add(Button,14637037,369,441)
{
Left=110
Top=10
Width=75
Caption="OPEN"
Data=String(C:\\test.jpg)
link(onClick,16321974:doCryptFile,[])
}
Add(Hub,5221245,483,343)
{
link(onEvent1,10670045:doLoad,[(511,349)(511,286)])
link(onEvent2,3855012:doCryptFile,[])
}
Add(Image,173379,581,280)
{
Left=10
Top=35
Width=200
Height=165
}
Add(Img_Loader,10670045,525,280)
{
link(onLoad,2316841:doWork2,[])
}
Add(MultiElementEx,3855012,581,350)
{
Name="CRYPT"
link(onResult,14871973:doCopyFromStream,[(632,356)(632,370)])
link(Key,14908885:getVar,[])
}
BEGIN_SDK
Add(EditMultiEx,14580704,21,21)
{
WorkCount=#11:doCryptFile|
EventCount=#8:onResult|
DataCount=#3:Key|
Width=298
Height=165
VOffset=70
HOffset=168
link(doCryptFile,14229474:doOpen,[])
}
Add(FileStream,14229474,63,91)
{
link(onLoad,9098140:doConvert,[])
}
Add(StreamConvertor,9098140,126,91)
{
Mode=6
Point(Data)
link(onResult,13170350:doCrypt,[])
link(Data,14229474:Stream,[(132,79)(97,79)(97,135)(69,135)])
}
Add(StreamConvertor,480367,245,91)
{
Mode=7
link(onResult,14580704:onResult,[])
}
Add(Cryptography,13170350,182,91)
{
link(onCrypt,480367:doConvert,[])
link(Key,14580704:Key,[])
}
END_SDK
Add(LineBreakEx,11883828,434,406)
{
Caption="MAC_PASSWORD"
Type=2
}
Add(MultiElementEx,16321974,434,441)
{
Name="VIEW"
link(onResult,2316841:doWork3,[(571,447)])
link(Key,11883828:getVar,[])
}
BEGIN_SDK
Add(EditMultiEx,3419348,21,21)
{
WorkCount=#11:doCryptFile|
EventCount=#8:onResult|
DataCount=#3:Key|
Width=389
Height=165
VOffset=70
HOffset=168
link(doCryptFile,1930516:doOpen,[])
}
Add(FileStream,1930516,63,91)
{
link(onLoad,5241477:doConvert,[])
}
Add(StreamConvertor,5241477,126,91)
{
Mode=6
Point(Data)
link(onResult,6991091:doCrypt,[])
link(Data,1930516:Stream,[(132,79)(97,79)(97,135)(69,135)])
}
Add(Cryptography,6991091,182,91)
{
link(onCrypt,1563229:doConvert,[])
link(Key,3419348:Key,[])
}
Add(StreamConvertor,1563229,245,91)
{
Mode=7
Point(Data)
link(onResult,3078184:doEvent1,[])
}
Add(Jpeg,4758264,336,91)
{
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,3419348:onResult,[])
}
Add(Hub,3078184,294,91)
{
link(onEvent1,4758264:doLoadFromStream,[(322,97)(322,111)])
link(onEvent2,4758264:doBitmap,[(322,104)(322,118)])
}
END_SDK
Add(HubEx,2316841,567,280)
{
link(onEvent,173379:doLoad,[])
}

карма: 4

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