Add(MainForm,2953706,70,84)
{
 Width=528
 Height=340
}
Add(VBJScript,8805743,126,168)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#3:Txt|9:SecretKey|
 Script=#15:Option Explicit|0:|37:Dim asc, enc, bytes, outstr, pos, Key|0:|19:Sub doWork(dt, idx)|52:  Set asc = CreateObject("System.Text.UTF8Encoding")|67:  Set enc = CreateObject("System.Security.Cryptography.HMACSHA512")|0:|33:  bytes = asc.GetBytes_4(sys.Txt)|37:  Key = asc.GetBytes_4(sys.SecretKey)|15:  enc.Key = Key|36:  bytes = enc.ComputeHash_2((bytes))|0:|13:  outstr = ""|28:  For pos = 1 To Lenb(bytes)|74:   outstr = outstr & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2))|6:  Next|2:  |18:  sys.onRes outstr|7:End Sub|
 link(onRes,424989:doText,[])
 link(Txt,12016934:Text,[])
 link(SecretKey,9696385:Text,[(139,133)(181,133)])
}
Add(Edit,12016934,126,84)
{
 Left=20
 Top=15
 Width=140
}
Add(Memo,424989,196,147)
{
 Left=175
 Top=15
 Width=325
 Height=265
}
Add(Button,2640099,67,168)
{
 Left=20
 Top=85
 Width=140
 Height=35
 Caption="Test"
 link(onClick,8805743:doWork,[])
}
Add(Edit,9696385,175,84)
{
 Left=20
 Top=55
 Width=140
 Text="SecretKey"
}