Add(MainForm,15725732,28,63)
{
 Width=855
 Height=399
 Caption="rot13 in windows registry"
 link(onCreate,15277044:doEvent1,[])
}
Add(Registry,8616232,112,112)
{
 HKey=1
 Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{F4E57C4B-2036-45F0-A9AB-443BCFE33D9F}\Count"
 Point(doEnumValues)
 Point(onEnumValue)
 link(onEnumValue,4539413:doEvent2,[(151,125)(151,83)])
}
Add(Memo,3180925,266,126)
{
 Top=180
 Width=839
 Height=180
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 Point(onMouseWheel)
 Point(Handle)
 link(onMouseWheel,8977458:doEvent2,[(322,139)(322,90)])
}
Add(VBJScript,279962,210,126)
{
 @Hint=#7:SendKey|
 WorkPoints=#6:onWork|
 EventPoints=#5:ROT13|
 Script=#23:Sub doWork(Data, Index)|43:    Dim i, charCode, newCharCode, strOutput|18:    strOutput = ""|0:|26:    For i = 1 To Len(Data)|39:        charCode = Asc(Mid(Data, i, 1))|0:|40:        ' Handle uppercase letters (A-Z)|65:        If charCode >= 65 And charCode <= 90 Then ' ASCII for A-Z|39:            newCharCode = charCode + 13|60:            If newCharCode > 90 Then ' Wrap around if past Z|46:                newCharCode = newCharCode - 26|18:            End If|40:        ' Handle lowercase letters (a-z)|70:        ElseIf charCode >= 97 And charCode <= 122 Then ' ASCII for a-z|39:            newCharCode = charCode + 13|61:            If newCharCode > 122 Then ' Wrap around if past z|46:                newCharCode = newCharCode - 26|18:            End If|52:        ' Non-alphabetic characters remain unchanged|12:        Else|34:            newCharCode = charCode|14:        End If|0:|48:        strOutput = strOutput & Chr(newCharCode)|8:    Next|0:|23:    sys.Rot13 strOutput|7:End Sub|
 UseName=0
 link(ROT13,3180925:doAdd,[])
}
Add(Hub,4539413,168,70)
{
 InCount=2
 link(onEvent1,6243148:doAdd,[])
 link(onEvent2,279962:onWork,[(200,83)(200,132)])
}
Add(Memo,6243148,266,70)
{
 Width=839
 Height=180
 Align=2
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 Point(onMouseWheel)
 Point(Handle)
 link(onMouseWheel,8977458:doEvent1,[])
}
Add(Registry,16431372,112,63)
{
 HKey=1
 Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{CEBFF5CD-ACE2-4F4F-9178-9926F41749EA}\Count"
 Point(doEnumValues)
 Point(onEnumValue)
 link(onEnumValue,4539413:doEvent1,[])
}
Add(Hub,8977458,336,77)
{
 InCount=2
 OutCount=1
 link(onEvent1,9949285:doCalc,[])
}
Add(MathParse,9949285,364,77)
{
 DataCount=1
 MathStr="sign(%1) * (-1)"
 ResultType=0
 link(onResult,12638978:doEvent1,[])
}
Add(SendMessage,2571141,476,77)
{
 Point(Message)
 link(Handle,6243148:Handle,[(482,68)(314,68)(314,110)(293,110)])
 link(WParam,9900727:Value,[])
 link(Message,2812212:Var1,[(503,68)])
}
Add(SendMessage,10043865,476,175)
{
 Point(Message)
 link(Handle,3180925:Handle,[(482,166)(293,166)])
 link(WParam,12111240:Value,[])
 link(Message,2812212:Var2,[(503,170)(545,170)])
}
Add(Hub,12638978,413,77)
{
 link(onEvent1,2571141:doSendMessage,[])
 link(onEvent2,10043865:doSendMessage,[(459,90)(459,181)])
}
Add(Memory,15878244,539,28)
{
 Default=Integer(182)
}
Add(GetDataEx,2812212,539,63)
{
 link(Data,15878244:Value,[])
}
Add(Memory,9900727,483,28)
{
 Default=Integer(0)
}
Add(Memory,12111240,483,126)
{
 Default=Integer(0)
}
Add(Hub,15277044,77,77)
{
 link(onEvent1,16431372:doEnumValues,[])
 link(onEvent2,8616232:doEnumValues,[(102,90)(102,132)])
}