Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2015-10-20 14:35:16 ЛС | профиль | цитата
У меня всегда был вопрос с приверженцам утверждения "все ломается на раз"

Так покажите хоть разок
Вот здесь Random есть пример элементарного шифрования.
Да, исходный Random слишком прост (типа - 4 гига не цифра). Но есть уже ведь и режим Xorshift128. Адаптация схемы - элементарна
Add(MainForm,828416,168,224)
{
Left=20
Top=105
Width=345
Height=138
Caption="Crypt"
link(onCreate,1056800:doWork3,[(214,244)])
}
Add(Button,10540971,169,77)
{
Left=35
Top=15
Width=86
Caption="Load"
link(onClick,13050148:doExecute,[])
}
Add(ODialog,13050148,231,77)
{
link(onExecute,7538199:doEvent1,[])
}
Add(FileStream,10191927,343,84)
{
link(onLoad,336576:doCopy,[])
}
Add(Hub,7538199,287,77)
{
OutCount=3
link(onEvent1,7855367:doText,[])
link(onEvent2,10191927:doOpen,[])
link(onEvent3,10191927:doClose,[])
}
Add(MemoryStream,336576,399,84)
{
Point(doPosition)
}
Add(DataToFile,14399683,504,161)
{
link(Stream,15022743:Var2,[])
}
Add(For,15345908,399,238)
{
IncludeEnd=1
link(onEvent,14949712:doRandom,[])
link(onStop,13044440:doData,[(438,251)(438,181)])
link(End,336576:Size,[])
}
Add(Random,14949712,455,238)
{
Max=255
Quality=1
link(onRandom,1152278:doOperation,[])
}
Add(GetDataEx,14129763,553,140)
{
Angle=3
link(Data,15022743:Var3,[])
}
Add(Math,1152278,504,238)
{
OpType=6
ResultType=0
link(onResult,7213208:doEvent1,[])
link(Op1,14399683:Data,[])
}
Add(GetDataEx,15022743,504,140)
{
Angle=3
link(Data,336576:Stream,[(405,145)])
}
Add(DataToFile,16039837,658,245)
{
Point(doPosition)
link(Stream,14129763:Var3,[(664,145)])
}
Add(Button,12047601,232,224)
{
Left=120
Top=15
Width=86
Caption="Crypt"
Data=Integer(0)
link(onClick,5435442:doEvent1,[])
}
Add(Edit,598918,343,175)
{
Left=36
Top=40
Width=254
Font=[Courier New,8,0,0,204]
Text="DA03DE1D"
link(Str,16611715:RandSeed,[])
}
Add(Hub,5435442,294,224)
{
OutCount=3
link(onEvent1,336576:doPosition,[(389,230)(389,104)])
link(onEvent2,5591650:doData,[(319,237)(319,258)])
link(onEvent3,15345908:doFor,[])
}
Add(DoData,5591650,343,252)
{
link(onEventData,14949712:doRandSeed,[])
link(Data,598918:Text,[])
}
Add(Button,13466488,169,168)
{
Left=203
Top=15
Width=86
Caption="Randomize"
link(onClick,1056800:doWork2,[])
}
Add(Hub,7212954,231,168)
{
link(onEvent1,16611715:doRandomize,[(256,174)(256,139)])
link(onEvent2,598918:doText,[])
}
Add(DoData,14225644,602,238)
{
link(onEventData,16039837:doPosition,[(641,244)(641,265)])
link(Data,15345908:Position,[(608,229)(545,229)(545,278)(405,278)])
}
Add(HubEx,1056800,210,168)
{
link(onEvent,7212954:doEvent1,[])
}
Add(FileStream,14658612,602,161)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,7855367:Text,[])
}
Add(Random,16611715,336,126)
{
Max=255
Quality=1
}
Add(DoData,13044440,553,175)
{
link(onEventData,14658612:doCopyFromStream,[])
link(Data,14129763:Var2,[])
}
Add(Edit,7855367,602,77)
{
Top=79
Width=337
Height=25
Align=4
Font=[MS Sans Serif,10,0,0,1]
Ctl3D=1
Text="nul"
}
Add(Hub,7213208,560,238)
{
link(onEvent1,14225644:doData,[])
link(onEvent2,16039837:doPut,[])
}
Так сломайте "на раз": cript128.rar
А я посмотрю
А если уж нет - то не надо попой тарахтеть
карма: 9

0
файлы: 1cript128.rar [787B] [331]