Add(InlineCode,12874951,217,203)
{
 WorkPoints=#7:doCript|7:doReset|
 EventPoints=#7:onCript|
 VarPoints=#5:Count|
 DataPoints=#6:Stream|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|12:    Counter,|22:    RandSeed:cardinal;|9:   public|21:    Stream:THI_Event;|22:    onCript:THI_Event;|51:    procedure doCript(var _Data:TData; Index:word);|51:    procedure doReset(var _Data:TData; Index:word);|49:    procedure Count(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|59:procedure THiAsmClass.doCript(var _Data:TData; Index:word);|15:var St:PStream;|14:    i:integer;|5:begin|38:   St := ReadStream(_Data,Stream,nil);|25:   if St = nil then exit;|35:   for i := 0 to St.Size-1 do begin|40:     RandSeed := RandSeed*$08088405 + 1;|72:     PChar(St.Memory)[i] := Char(ord(PChar(St.Memory)[i]) xor RandSeed);|18:     inc(Counter);|7:   end;|33:    _hi_OnEvent(onCript,Counter);|4:end;|0:|59:procedure THiAsmClass.doReset(var _Data:TData; Index:word);|5:begin|15:  Counter := 0;|31:  RandSeed := ToInteger(_Data);|4:end;|0:|57:procedure THiAsmClass.Count(var _Data:TData; Index:word);|5:begin|30:  _Data.Data_type := data_int;|25:  _Data.idata := Counter;|4:end;|0:|4:end.|
 link(onCript,3586696:doConvert,[])
 link(Stream,6512714:Var2,[])
}
Add(MemoryStream,15463613,217,119)
{
}
Add(Button,693644,49,203)
{
 Left=110
 Top=95
 Width=90
 Caption="Cript"
 link(onClick,16004166:doTimer,[(91,209)(91,250)(39,250)(39,272)])
}
Add(Timer,16004166,49,266)
{
 Interval=100
 Enable=1
 link(onTimer,3614037:doEvent1,[(93,272)(93,209)])
}
Add(Convertor,3586696,273,203)
{
 Mode=11
 link(onResult,13898132:doText,[])
 link(Data,6512714:Var3,[(279,177)])
}
Add(Hub,3614037,105,203)
{
 InCount=2
 OutCount=5
 link(onEvent1,948870:doEvent1,[(147,209)(147,188)(60,188)(60,132)])
 link(onEvent2,11213282:doNext,[(152,216)(152,300)])
 link(onEvent3,12874951:doCript,[(177,223)(177,209)])
}
Add(Hub,948870,70,126)
{
 OutCount=3
 link(onEvent1,15463613:doClear,[])
 link(onEvent2,7352564:doData,[(121,139)(121,90)])
 link(onEvent3,11162350:doPosition,[(121,146)(121,55)])
}
Add(Edit,7973802,217,294)
{
 Left=110
 Top=60
 Width=90
 Text="0"
 DataType=2
 link(onChange,12874951:doReset,[(259,300)(259,265)(207,265)(207,216)])
}
Add(DoData,7352564,140,84)
{
 link(onEventData,15463613:doCopy,[(194,90)(194,125)])
 link(Data,11162350:Stream,[])
}
Add(GetDataEx,6512714,210,168)
{
 link(Data,15463613:Stream,[])
}
Add(Counter,11213282,168,294)
{
 Max=10000
 link(onNext,7973802:doText,[])
}
Add(Memo,13898132,329,182)
{
 Left=15
 Top=130
 Width=365
 Height=130
}
Add(MemoryStream,11162350,140,35)
{
 Stream=[ZIP2600000078DA5B2D15CFDDE0BA23ACE04F7892D18A7D1BAACE4F4E7A2BD6D498C6C2326FC1DC458A2D8632CAD9490050CB1081]
 Point(doPosition)
}