Add(MainForm,14613252,378,224)
{
 Width=893
 Height=240
}
Add(Edit,11071079,616,322)
{
 Left=25
 Top=130
 Width=810
 Font=[Lucida Console,10,0,0,204]
 TabOrder=5
 Text="6nDdDFAfBi2x4BsfRolT-1631f1zXCdar3-o1ifMk6s="
 ClearAfterEnter=1
}
Add(Edit,16415471,511,203)
{
 Left=25
 Top=30
 Width=820
 TabOrder=5
 Text="Текст сообщения который надо защитить с помощью ключа HMAC"
 ClearAfterEnter=1
}
Add(Button,14328699,448,280)
{
 Left=25
 Top=65
 Width=60
 Caption="HMAC"
 link(onClick,12170737:doString,[])
}
Add(Edit,15051239,616,280)
{
 Left=25
 Top=95
 Width=810
 Font=[Lucida Console,10,0,0,204]
 TabOrder=5
 Text=""
 ClearAfterEnter=1
}
Add(Label,14206090,511,126)
{
 Left=30
 Top=10
 Width=140
 Height=17
 Caption="текст для преобразования"
}
Add(Label,9453130,469,364)
{
 Left=30
 Top=155
 Width=158
 Height=17
 Caption="должен получиться этот текст"
}
Add(FormatStr,12170737,511,280)
{
 Mask="$message = '%1'\r\n$secret = '%2'\r\n\r\n$hmacsha = New-Object System.Security.Cryptography.HMACSHA256\r\n$hmacsha.key = [Text.Encoding]::ASCII.GetBytes($secret)\r\n$signature = $hmacsha.ComputeHash([Text.Encoding]::ASCII.GetBytes($message))\r\n$signature = [Convert]::ToBase64String($signature)\r\n\r\n$signature"
 link(onFString,5967528:doConsoleExec,[])
 link(Str1,16415471:Text,[])
 link(Str2,8365695:Text,[(524,243)(587,243)])
}
Add(WinExec,5967528,567,266)
{
 FileName="powershell"
 Mode=0
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(onConsoleResult,15051239:doText,[])
}
Add(VisualStrings,8365695,581,210)
{
 @Hint=#14:Секретный ключ|
 Lines=#10:1234567890|
 Width=95
 AddHint(91,-61,99,13,@Hint)
}