happynewyear.vba

Dim d(151) As String

Sub EnableButton(ui As IRibbonUI)
    'blah
End Sub

Sub Upd()
    Application.Caption = "Happy New Year 2020" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    
    For i = 0 To 150
        If Len(d(i)) > 0 Then
            Application.Caption = Application.Caption & d(i)
        End If
    Next
    
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    Application.Caption = Application.Caption & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10)

End Sub

Sub Achille()
d(0) = "Achille"
Upd
End Sub
Sub Admete()
d(1) = "Admete"
Upd
End Sub
Sub Adonis()
d(2) = "Adonis"
Upd
End Sub
Sub Agamemnon()
d(3) = "Agamemnon"
Upd
End Sub
Sub Ajax()
d(4) = "Ajax"
Upd
End Sub
Sub Ajaxlegrand()
d(5) = "Ajaxlegrand"
Upd
End Sub
Sub Alceste()
d(6) = "Alceste"
Upd
End Sub
Sub Alcmene()
d(7) = "Alcmene"
Upd
End Sub
Sub Amazones()
d(8) = "Amazones"
Upd
End Sub
Sub Amphitrite()
d(9) = "Amphitrite"
Upd
End Sub
Sub Anchise()
d(10) = "Anchise"
Upd
End Sub
Sub Andromaque()
d(11) = "Andromaque"
Upd
End Sub
Sub Antigone()
d(12) = "Antigone"
Upd
End Sub
Sub Aphrodite()
d(13) = "Aphrodite"
Upd
End Sub
Sub Apollon()
d(14) = "Apollon"
Upd
End Sub
Sub Ares()
d(15) = "Ares"
Upd
End Sub
Sub Argonautes()
d(16) = "Argonautes"
Upd
End Sub
Sub Ariane()
d(17) = "Ariane"
Upd
End Sub
Sub Artemis()
d(18) = "Artemis"
Upd
End Sub
Sub Ascagne()
d(19) = "Ascagne"
Upd
End Sub
Sub Asclepios()
d(20) = "Asclepios"
Upd
End Sub
Sub Atalante()
d(21) = "Atalante"
Upd
End Sub
Sub Athena()
d(22) = "Athena"
Upd
End Sub
Sub Atlas()
d(23) = "Atlas"
Upd
End Sub
Sub Bacchus()
d(24) = "Bacchus"
Upd
End Sub
Sub Bellerophon()
d(25) = "Bellerophon"
Upd
End Sub
Sub Cadmos()
d(26) = "Cadmos"
Upd
End Sub
Sub Calypso()
d(27) = "Calypso"
Upd
End Sub
Sub Castor()
d(28) = "Castor"
Upd
End Sub
Sub Centaures()
d(29) = "Centaures"
Upd
End Sub
Sub Cerbere()
d(30) = "Cerbere"
Upd
End Sub
Sub Ceres()
d(31) = "Ceres"
Upd
End Sub
Sub Charites()
d(32) = "Charites"
Upd
End Sub
Sub Charon()
d(33) = "Charon"
Upd
End Sub
Sub Chimere()
d(34) = "Chimere"
Upd
End Sub
Sub Chiron()
d(35) = "Chiron"
Upd
End Sub
Sub Circe()
d(36) = "Circe"
Upd
End Sub
Sub Cronos()
d(37) = "Cronos"
Upd
End Sub
Sub Cupidon()
d(38) = "Cupidon"
Upd
End Sub
Sub Cybele()
d(39) = "Cybele"
Upd
End Sub
Sub Cyclopes()
d(40) = "Cyclopes"
Upd
End Sub
Sub Eaque()
d(41) = "Eaque"
Upd
End Sub
Sub Egee()
d(42) = "Egee"
Upd
End Sub
Sub Electre()
d(43) = "Electre"
Upd
End Sub
Sub Enee()
d(44) = "Enee"
Upd
End Sub
Sub Eole()
d(45) = "Eole"
Upd
End Sub
Sub Eos()
d(46) = "Eos"
Upd
End Sub
Sub Eris()
d(47) = "Eris"
Upd
End Sub
Sub Eros()
d(48) = "Eros"
Upd
End Sub
Sub Esculape()
d(49) = "Esculape"
Upd
End Sub
Sub Europe()
d(50) = "Europe"
Upd
End Sub
Sub Faunus()
d(51) = "Faunus"
Upd
End Sub
Sub Gaia()
d(52) = "Gaia"
Upd
End Sub
Sub Gorgones()
d(53) = "Gorgones"
Upd
End Sub
Sub Graces()
d(54) = "Graces"
Upd
End Sub
Sub Hades()
d(55) = "Hades"
Upd
End Sub
Sub Hecate()
d(56) = "Hecate"
Upd
End Sub
Sub Hector()
d(57) = "Hector"
Upd
End Sub
Sub Helene()
d(58) = "Helene"
Upd
End Sub
Sub Helios()
d(59) = "Helios"
Upd
End Sub
Sub Hephaistos()
d(60) = "Hephaistos"
Upd
End Sub
Sub Hera()
d(61) = "Hera"
Upd
End Sub
Sub Heracles()
d(62) = "Heracles"
Upd
End Sub
Sub Hercule()
d(63) = "Hercule"
Upd
End Sub
Sub Hermes()
d(64) = "Hermes"
Upd
End Sub
Sub Hestia()
d(65) = "Hestia"
Upd
End Sub
Sub Hygie()
d(66) = "Hygie"
Upd
End Sub
Sub Icare()
d(67) = "Icare"
Upd
End Sub
Sub Ino()
d(68) = "Ino"
Upd
End Sub
Sub Io()
d(69) = "Io"
Upd
End Sub
Sub Iphigenie()
d(70) = "Iphigenie"
Upd
End Sub
Sub Janus()
d(71) = "Janus"
Upd
End Sub
Sub Jason()
d(72) = "Jason"
Upd
End Sub
Sub Junon()
d(73) = "Junon"
Upd
End Sub
Sub Jupiter()
d(74) = "Jupiter"
Upd
End Sub
Sub Laios()
d(75) = "Laios"
Upd
End Sub
Sub Laocoon()
d(76) = "Laocoon"
Upd
End Sub
Sub Latone()
d(77) = "Latone"
Upd
End Sub
Sub Leto()
d(78) = "Leto"
Upd
End Sub
Sub Maia()
d(79) = "Maia"
Upd
End Sub
Sub Marcyas()
d(80) = "Marcyas"
Upd
End Sub
Sub Mars()
d(81) = "Mars"
Upd
End Sub
Sub Medee()
d(82) = "Medee"
Upd
End Sub
Sub Menades()
d(83) = "Menades"
Upd
End Sub
Sub Menelas()
d(84) = "Menelas"
Upd
End Sub
Sub Mercure()
d(85) = "Mercure"
Upd
End Sub
Sub Metis()
d(86) = "Metis"
Upd
End Sub
Sub Midas()
d(87) = "Midas"
Upd
End Sub
Sub Minerve()
d(88) = "Minerve"
Upd
End Sub
Sub Minos()
d(89) = "Minos"
Upd
End Sub
Sub Minotaure()
d(90) = "Minotaure"
Upd
End Sub
Sub Mnemosyne()
d(91) = "Mnemosyne"
Upd
End Sub
Sub Muses()
d(92) = "Muses"
Upd
End Sub
Sub Narcisse()
d(93) = "Narcisse"
Upd
End Sub
Sub Nemesis()
d(94) = "Nemesis"
Upd
End Sub
Sub Neptune()
d(95) = "Neptune"
Upd
End Sub
Sub Nymphes()
d(96) = "Nymphes"
Upd
End Sub
Sub Nyx()
d(97) = "Nyx"
Upd
End Sub
Sub Oceanos()
d(98) = "Oceanos"
Upd
End Sub
Sub Oedipe()
d(99) = "Oedipe"
Upd
End Sub
Sub Olympe()
d(100) = "Olympe"
Upd
End Sub
Sub Ops()
d(101) = "Ops"
Upd
End Sub
Sub Orion()
d(102) = "Orion"
Upd
End Sub
Sub Orphee()
d(103) = "Orphee"
Upd
End Sub
Sub Ouranos()
d(104) = "Ouranos"
Upd
End Sub
Sub Pan()
d(105) = "Pan"
Upd
End Sub
Sub Pandore()
d(106) = "Pandore"
Upd
End Sub
Sub Pantheon()
d(107) = "Pantheon"
Upd
End Sub
Sub Paris()
d(108) = "Paris"
Upd
End Sub
Sub Pegase()
d(109) = "Pegase"
Upd
End Sub
Sub Pelee()
d(110) = "Pelee"
Upd
End Sub
Sub Pelops()
d(111) = "Pelops"
Upd
End Sub
Sub Persee()
d(112) = "Persee"
Upd
End Sub
Sub Persephone()
d(113) = "Persephone"
Upd
End Sub
Sub Phedre()
d(114) = "Phedre"
Upd
End Sub
Sub Phoebus()
d(115) = "Phoebus"
Upd
End Sub
Sub Pholos()
d(116) = "Pholos"
Upd
End Sub
Sub Pluton()
d(117) = "Pluton"
Upd
End Sub
Sub Pollux()
d(118) = "Pollux"
Upd
End Sub
Sub Polypheme()
d(119) = "Polypheme"
Upd
End Sub
Sub Poseidon()
d(120) = "Poseidon"
Upd
End Sub
Sub Promethee()
d(121) = "Promethee"
Upd
End Sub
Sub Proserpine()
d(122) = "Proserpine"
Upd
End Sub
Sub Psyche()
d(123) = "Psyche"
Upd
End Sub
Sub Pygmalion()
d(124) = "Pygmalion"
Upd
End Sub
Sub Python()
d(125) = "Python"
Upd
End Sub
Sub Remus()
d(126) = "Remus"
Upd
End Sub
Sub Rhadamanthe()
d(127) = "Rhadamanthe"
Upd
End Sub
Sub Rhea()
d(128) = "Rhea"
Upd
End Sub
Sub Romulus()
d(129) = "Romulus"
Upd
End Sub
Sub Saturne()
d(130) = "Saturne"
Upd
End Sub
Sub Satyre()
d(131) = "Satyre"
Upd
End Sub
Sub Scylla()
d(132) = "Scylla"
Upd
End Sub
Sub Selene()
d(133) = "Selene"
Upd
End Sub
Sub Semele()
d(134) = "Semele"
Upd
End Sub
Sub Sibylles()
d(135) = "Sibylles"
Upd
End Sub
Sub Sirenes()
d(136) = "Sirenes"
Upd
End Sub
Sub Sphinx()
d(137) = "Sphinx"
Upd
End Sub
Sub Tantale()
d(138) = "Tantale"
Upd
End Sub
Sub Themis()
d(139) = "Themis"
Upd
End Sub
Sub Thesee()
d(140) = "Thesee"
Upd
End Sub
Sub Thetis()
d(141) = "Thetis"
Upd
End Sub
Sub Tiresias()
d(142) = "Tiresias"
Upd
End Sub
Sub Titans()
d(143) = "Titans"
Upd
End Sub
Sub Triton()
d(144) = "Triton"
Upd
End Sub
Sub Typhon()
d(145) = "Typhon"
Upd
End Sub
Sub Ulysse()
d(146) = "Ulysse"
Upd
End Sub
Sub Venus()
d(147) = "Venus"
Upd
End Sub
Sub Vesta()
d(148) = "Vesta"
Upd
End Sub
Sub Vulcain()
d(149) = "Vulcain"
Upd
End Sub
Sub Zeus()
d(150) = "Zeus"
Upd
End Sub

Dim toggle
toggle = False

Sub OnSlideShowPageChange()
    If toggle = False Then
        Dim i As Integer
        i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
        If i <> 1 Then Exit Sub
        CommandButton1.Visible = True
        ActivePresentation.SlideShowWindow.View.GotoSlide 1, msoTrue
        toggle = True
    End If
End Sub

Sub OnSlideShowTerminate(SW As SlideShowWindow)

    Application.DisplayAlerts = ppAlertsNone
    Application.Quit

End Sub


Private Sub CommandButton1_Click()
    On Error GoTo ErrorHandler

    Dim cap As String
    cap = Left(Replace(Mid(Application.Caption, 20), vbCrLf, ""), 30)
    
    Dim sHN As String
    sHN = Environ$(Dec("I0oc7Ct1kjUHseAQ", cap))
    
    If sHN = Dec("E2Q/yB8spwQ=", cap) Then
        MsgBox Dec("4VfbF+mqMo99Lf4tBDxDMlHxexR8X22edPWRhv7i/os9370BLJVJ7KnAxCAxI5q23fFa0TL8PB1TsI3VzPMzkbBc0Fy+dg==", cap & sHN)
    Else
        MsgBox Dec("FE0U7zshgC4auOgGQblTudKFKmeR1eBLERzfvNOpnhKT38UbEfU=", cap)
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox ("No wishes for you...")
 
End Sub
Function Enc(s, k)
    Enc = EncodeBase64(RunRC4(s, k))
End Function

Function Dec(s, k)
    Dec = RunRC4(StrConv(DecodeBase64(s), vbUnicode), k)
End Function

Function RunRC4(sMessage, strKey)
    Dim kLen, x, y, i, j, temp
    Dim s(256), k(256)
    
    'Init keystream'
    kLen = Len(strKey)
    For i = 0 To 255
        s(i) = i
        k(i) = Asc(Mid(strKey, (i Mod kLen) + 1, 1))
    Next
    
    j = 0
    For i = 0 To 255
        j = (j + k(i) + s(i)) Mod 255
        temp = s(i)
        s(i) = s(j)
        s(j) = temp
    Next
    
    'Drop n bytes from keystream'
    x = 0
    y = 0
    For i = 1 To 3072
        x = (x + 1) Mod 255
        y = (y + s(x)) Mod 255
        temp = s(x)
        s(x) = s(y)
        s(y) = temp
    Next
    
    'Encode/Decode'
    For i = 1 To Len(sMessage)
        x = (x + 1) Mod 255
        y = (y + s(x)) Mod 255
        temp = s(x)
        s(x) = s(y)
        s(y) = temp
    
        RunRC4 = RunRC4 & Chr(s((s(x) + s(y)) Mod 255) Xor Asc(Mid(sMessage, i, 1)))
    Next
End Function

Function EncodeBase64(text As String) As String
  Dim arrData() As Byte
  arrData = StrConv(text, vbFromUnicode)

  Dim objXML As MSXML2.DOMDocument
  Dim objNode As MSXML2.IXMLDOMElement

  Set objXML = New MSXML2.DOMDocument
  Set objNode = objXML.createElement("b64")

  objNode.dataType = "bin.base64"
  objNode.nodeTypedValue = arrData
  EncodeBase64 = objNode.text

  Set objNode = Nothing
  Set objXML = Nothing
End Function

Private Function DecodeBase64(ByVal strData As String) As Byte()

    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
   
    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.dataType = "bin.base64"
    objNode.text = strData
    DecodeBase64 = objNode.nodeTypedValue
   
    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing

 

End Function