Add(MainForm,2953706,70,63)
{
 Width=562
 Height=171
 Position=1
}
Add(EnCrypt,4619222,203,126)
{
 Mode=7
 Point(onError)
 link(onEnCrypt,11583020:doConvert,[])
 link(Data,8570117:Var2,[])
 link(Key,3791779:Var2,[])
}
Add(Edit,6416427,210,63)
{
 Left=5
 Top=10
 Width=205
 Font=[Verdana,8,0,0,204]
 Text="12345678"
}
Add(Edit,5964363,168,63)
{
 Left=5
 Top=30
 Width=205
 Font=[Verdana,8,0,0,204]
 Text="abcdefghijklmnopq"
}
Add(Edit,3425068,357,168)
{
 Left=5
 Top=50
 Width=535
 Font=[Verdana,8,0,0,204]
 Text=""
}
Add(Edit,9981670,322,126)
{
 Left=5
 Top=70
 Width=535
 Font=[Verdana,8,0,0,204]
 Text=""
}
Add(StreamConvertor,11583020,259,126)
{
 Mode=2
 link(onResult,9981670:doText,[])
}
Add(StreamConvertor,2392511,266,168)
{
 Mode=2
 link(onResult,3425068:doText,[])
 link(Data,8570117:Var3,[(272,110)])
}
Add(Hub,14555041,133,119)
{
 OutCount=3
 link(onEvent1,2392511:doConvert,[(176,125)(176,174)])
 link(onEvent2,4619222:doEnCrypt,[])
 link(onEvent3,10944467:doConvert,[(157,139)(157,244)])
}
Add(GetDataEx,8570117,203,105)
{
 Angle=3
 link(Data,5964363:Text,[(174,110)])
}
Add(Button,7304813,70,119)
{
 Left=480
 Top=10
 TabOrder=-1
 Caption="Get Hash"
 link(onClick,14555041:doEvent1,[])
}
Add(StreamConvertor,10944467,168,238)
{
 Mode=3
 link(onResult,12672991:doDeCrypt,[])
 link(Data,9981670:Text,[(174,210)(328,210)])
}
Add(DeCrypt,12672991,231,238)
{
 Mode=7
 link(onDeCrypt,11231242:doText,[])
 link(Key,3791779:Var3,[(244,117)])
}
Add(GetDataEx,3791779,210,112)
{
 link(Data,6416427:Text,[])
}
Add(Edit,11231242,294,238)
{
 Left=5
 Top=105
 Width=205
 Font=[Verdana,8,0,0,204]
 Text=""
}

    for i := 0 to length(FResult) - 1 do
      Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);

    for i := 1 to length(FResult) - 1 do
      Edit5.Text := Edit5.Text + InttoHex(Ord(FResult[i]), 2);